Author: | typemore |
---|---|
Mode: | factor |
Date: | Fri, 13 Aug 2010 22:30:51 |
USING: kernel ui.gadgets ui ui.render prettyprint ; IN: gfx TUPLE: my-gadget < gadget ; M: my-gadget draw-gadget* . "Hello World" . ; : <my-gadget> ( -- gadget ) <gadget> ; : run ( -- ) <my-gadget> "hello world" open-window ;