USING: accessors fry kernel models sequences ui ui.gadgets ui.gadgets.borders ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels ui.gadgets.packs ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.tracks ui.gadgets.worlds ui.tools.common ; IN: tweety ! Little twitter client TUPLE: tweety-gadget < tool ; { 200 400 } tweety-gadget set-tool-dim : <tweety-user> ( parent -- gadget ) drop <shelf> "User infos here" <label> add-gadget ; : <tweety-list> ( parent -- gadget ) drop ! TODO: use <list> with model and presenter here <pile> "Tweet one here" <label> add-gadget "Tweet two here" <label> add-gadget "Tweet three here" <label> add-gadget "Tweet four here" <label> add-gadget "Tweet five here" <label> add-gadget <scroller> ; : <tweety-submit> ( parent -- gadget ) <shelf> swap '[ "tweeted: " swap append _ show-status ] <action-field> 15 >>min-cols 15 >>max-cols add-gadget ! tuck add-gadget swap ! keep gadget for next line ! '[ _ editor-string drop drop ] "Tweet!" swap "Tweet!" [ drop ] <border-button> add-gadget ; : <tweety-gadget> ( -- gadget ) vertical tweety-gadget new-track dup <tweety-user> f track-add dup <tweety-list> 1.0 track-add dup <tweety-submit> f track-add ; : run-tweety ( -- ) [ <tweety-gadget> "Tweety" open-status-window ] with-ui ; MAIN: run-tweety
this is a test
Done