Hi to all factorers!
I was trying to develop a trivial gui example.
Of course my code is bugged but when I execute this 6-line script
the listener kill immediately.
1) Can you tell me how to avoid this?
2) Can you tell me how to make the button work according to the checkbox ?
Thank you very much,
michele pes
USING: kernel accessors namespaces models ui ui.gadgets models.arrow
ui.gadgets.packs ui.gadgets.buttons ;
FROM: system => exit ;
IN: gui
SYMBOL: var
var off
<pile> { 10 10 } >>gap
t <model> [ dup var set ] <arrow> "Enable QUIT" <checkbox>
add-gadget
"Quit"
[ drop var get [ 0 exit ] when ]
<border-button>
add-gadget
"" open-window
------------------------------------------------------------------------------
BlackBerry® DevCon Americas, Oct. 18-20, San Francisco, CA
http://p.sf.net/sfu/rim-devcon-copy2
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk