Paste: Not getting my hello worlds

Author: typemore
Mode: factor
Date: Fri, 13 Aug 2010 22:30:51
Plain Text |
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 ;

New Annotation

Summary:
Author:
Mode:
Body: