Hecl Builder
Easy Mobile Applications
FormExample
Average rating:
MIDP Version: 2.0
Description: Example of lcdui.form with a bunch of items.
Last updated: Sun Oct 19 10:07:15 +0000 2008 by
davidw
set choicegroup [lcdui.choicegroup -label Choice -type popup]
foreach x {c1 c2 c3} {
$choicegroup append $x
}
set ticker [lcdui.ticker -text "I am a Ticker!"]
set form [lcdui.form -title "Example Form"]
$form setcurrent
$form configure -ticker $ticker
$form append [lcdui.textfield -label "TextField" -text "TextField" -uneditable 1]
$form append [lcdui.textfield -label "Editable TextField" -text "editable text"]
$form append [lcdui.imageitem -image $logo -anchor center]
$form append [lcdui.spacer -label spacer1 -minwidth 200 -minheight 2]
$form append [lcdui.stringitem -text "Stringitem"]
$form append [lcdui.spacer -label spacer2 -minwidth 200 -minheight 4]
$form append [lcdui.date -label "Date/Time" -date [clock time]]
$form append $choicegroup
$form append [lcdui.imageitem -image $logo]
$form append [lcdui.gauge -label "How cool is Hecl?" -interactive 1 \
-value 10 -maxvalue 10]