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 : ( parent -- gadget ) drop "User infos here"