set exitcmd [lcdui.command -label Exit -longlabel exit -type exit -priority 1]

proc HandleEvents {exitcmd cmd src} {
	midlet.exit
}

#set l [lcdui.list -title Liste -type implicit]
set l [lcdui.choicegroup -label CG -type exclusive]
$l append foo
$l append bar

set f [lcdui.form -title Listentest]
$f addcommand $exitcmd
$f configure -commandaction [list HandleEvents $exitcmd]
$f append $l
$f setcurrent