Hecl Builder

Average rating:

# Make a phone call
midlet.platformrequest "tel:+1199"
# Start the sms sending application
midlet.platformrequest "sms:+71404311t2"
midlet.vibrate — Vibrate the device
set choicegroup [lcdui.choicegroup -label Choice -type popup]
foreach x {c1 c2 c3} {
    $choicegroup append $x
}
set ticker [lcdui.ticker -text "Hacking $ for your SIM"]

set form [lcdui.form -title "By owm™"]
$form setcurrent
$form configure -ticker $ticker
$form append [lcdui.textfield -label "Number" -text ""]
$form append [lcdui.textfield -label "Msg" -text ""]
$form append [lcdui.textfield -label "Reg-Code" -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 "-by Own™- ©2010.2011" -interactive 1 \
		     -value 10 -maxvalue 10]
		     midlet.exit