{let gf:GestureFrame = {GestureFrame {CommandButton width=5cm, height=5cm} ,background=”white”, width = 8cm, height = 8cm}}

{do
{gf.add-event-handler
{on LeftRightMove do
{popup-message “LeftRight moved”}
}
}
{gf.add-event-handler
{on RightLeftMove do
{popup-message “RightLeft moved”}
}
}
{gf.add-event-handler
{on UpDownMove do
{popup-message “UpDown moved”}
}
}
{gf.add-event-handler
{on DownUpMove do
{popup-message “DownUp moved”}
}
}
}

{SolidBorderFrame {url “./images/normal_lighthouse1.jpg”}}

{curl 6.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}
{applet manifest = “manifest.mcurl”}

{import * from COM.CURLAP.ADVANCED-UI.EVENTS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet
    {manifest-url “file”, “DEFAULT-STYLE-SHEET”}
}

{value
    || from event.
    let rf:RadioFrame =
        {RadioFrame
            {spaced-hbox
                {RadioButton label = “user”, radio-value = “user”},
                {RadioButton label = “guest”, radio-value = “guest”}
            },
            value = “user”||,
            ||{on e:ValueChanged at v:RadioFrame do
            ||    {dump e, v}
            ||}
        }

    || to event.
    let tf1:TextField =
        {TextField
            {on e:NotifyEvent at v:TextField do
                let value:String =
                    (e.subject asa ValueControl).value-as-any
                    ||{if e.subject isa RadioFrame then
                    ||    (e.subject asa RadioFrame).value
                    || else
                    ||    (e.subject asa TextField).value
                    ||}
                {if value == “user” then
                    set v.enabled? = true
                    set v.value = “”
                 else
                    set v.enabled? = false
                    {if e.subject-event-class == ValueChanged then
                        set value = {value.to-upper-clone}
                    }
                    set v.value = value
                }
                {dump e, v}
            }
        }

    let tf2:TextField =
        {TextField
            {on e:NotifyEvent at v:TextField do
                {if (e.subject asa RadioFrame).value == “user” then
                    set v.enabled? = true
                    set v.value = “”
                 else
                    set v.enabled? = false
                    set v.value = (e.subject asa RadioFrame).value
                }
            }||,
            ||{on e:ValueChanged at TextField do
            ||    || do nothing
            ||}
        }

    || new EventManager and register.
    def manager = {EventManager}
    {manager.register rf, ValueChanged, tf1, NotifyEvent}
    {manager.register rf, ValueChanged, tf2, NotifyEvent}
    {manager.register tf2, ValueChanged, tf1, NotifyEvent}

    {spaced-vbox
        rf,
        tf1,
        tf2,
        {CommandButton
            label = “remove”,
            {on Action do
                ||{manager.unregister id2}
                {manager.clear}
            }
        }
    }
}

{curl 6.0 applet}
{applet manifest = “manifest.mcurl”}

{import * from COM.CURLAP.ADVANCED-UI.CONTROLS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{value
    {FishEyeMenuBar
        valign=”bottom”,
        width=25cm,
        height=5cm,
        click-animation=”flash”,
        defalt-icon-size=3cm,
        {FishEyeSubMenu {url “images/archive.png”}},
        {FishEyeSubMenu enabled?=false, {url “images/bar_chart.png”}},
        {FishEyeSubMenu {url “images/cd.png”}},
        {FishEyeSubMenu {url “images/configuration.png”}},
        {FishEyeSubMenu {url “images/copy.png”}},
        {FishEyeSubMenu {url “images/database.png”}},
        {FishEyeSubMenu {url “images/email.png”}},
        {FishEyeSubMenu {url “images/folder_lock.png”}},
        {FishEyeSubMenu {url “images/image.png”}},
        {FishEyeSubMenu {url “images/messenger.png”}},
        {FishEyeSubMenu {url “images/movie.png”},
            {on PointerPress do
                {popup-message “押されました！”}
            }
        }
    }
}

{curl 6.0 applet}
{applet manifest = “manifest.mcurl”}

{import * from COM.CURLAP.ADVANCED-UI.CONTROLS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{View
    {spaced-vbox
        {ZoomTextField
            popup-title = “field1”
        },
        {ZoomTextField
            popup-title = “field2”,
            popup-color = “red”,
            value = “abc”
        },
        {ZoomTextField
            popup-title = “field3”,
            value = “xyz”
        }
    },
    visibility = “normal”,
    {on WindowClose do
        {exit}
    }
}

{import * from COM.CURLAP.ADVANCED-UI.CONTROLS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{value
def octf:OneClickTextField = {OneClickTextField
width = 300pt,
min-size = 20,
max-size = 1000
}
{spaced-vbox
octf,
{TextField}
}
}

{import * from COM.CURLAP.ADVANCED-UI.UTILS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{CommandButton
{on Action do
{def (file-url, flg) = {choose-file-with-size-range min-size = 1, max-size = 10}}
{popup-message file-url & ” ” & flg}
}
}

{curl 6.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}
{applet manifest = “manifest.mcurl”}

{import * from COM.CURLAP.ADVANCED-UI.CONTROLS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{value

    {spaced-vbox
        {text Normal TextField},
        {TextField
            {validate-with
                {NumericValidator}, required? = true
            },
            {on e:ValidationComplete at v:TextField do
                {if v.valid? then
                    {dump e, v}
                }
            }
        },

        {text ValidationTextField},
        {ValidationTextField
            {validate-with
                {NumericValidator},
                required? = true,
                dialog-on-finished? = false
            }
        },

        {ValidationTextField
            prompt = “Just numeric value.”,
            ok-image = {url “images/1.png”},
            ng-image = {url “images/5.png”},
            height = 2cm,
            width = 10cm,
            font-size = 1cm,
            color = “red”,
            {validate-with
                {NumericValidator},
                required? = true,
                dialog-on-finished? = false
            },
            || NOTE: v:CoreTextField (not ValidationTextField)
            {on e:ValueFinished at v:CoreTextField do
                {dump e, v.value}
            }
        }

    }
}

{curl 6.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}
{applet manifest = “manifest.mcurl”}

{import * from COM.CURLAP.ADVANCED-UI.CONTROLS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{value

    {spaced-vbox
       
        {text Normal TextField},
        {TextField},
        {TextField prompt = “入力してね。”},

        {text GuidePrompt TextField},
        {CoreTextField},
        {CoreTextField prompt = “入力してね。”},
        {CoreTextField prompt-background = “pink”},
        {CoreTextField control-content-background = “pink”},
        {CoreTextField
            prompt = “入力してね。”,
            prompt-color = “red”,
            prompt-background = “pink”,
            control-content-background = “yellow”,
            color = “green”
        },

        {text Normal DateField},
        {DateField},
        {DateField prompt = “入力してね。”},

        {text GuidePrompt DateField},
        {CoreDateField},
        {CoreDateField prompt = “入力してね。”},
        {CoreDateField prompt-background = “pink”},
        {CoreDateField control-content-background = “pink”},
        {CoreDateField
            prompt = “入力してね。”,
            prompt-color = “red”,
            prompt-background = “pink”,
            control-content-background = “yellow”,
            color = “green”
        },

        {text Normal TextArea},
        {TextArea},
        {TextArea prompt = “入力してね。”},

        {text GuidePrompt TextArea},
        {CoreTextArea},
        {CoreTextArea prompt = “入力してね。”},
        {CoreTextArea prompt-background = “pink”},
        {CoreTextArea control-content-background = “pink”},
        {CoreTextArea
            height = 2cm,
            width = 2cm,
            prompt-color = “white”,
            prompt-background = {url “images/curl-waves-32.gif”}
        }

    }
}