Hecl Builder

Average rating:

proc HelloEvents {cmd form} {
    [lcdui.alert -text "Hellllllllooooo, Teeradache world!" -timeout forever] setcurrent
}

set form [lcdui.form -title "Hello Tee world" -commandaction HelloEvents]
set cmd [lcdui.command -label "Hello" -longlabel "Hello Command" -type screen]

$form setcurrent
$form addcommand $cmd

$form append [lcdui.stringitem -label "Hello" -text "World"]