Paste: why can't it find prettyprint

Author: typemore
Mode: factor
Date: Fri, 13 Aug 2010 22:15:33
Plain Text | 
USING: kernel ui.gadgets ui ui.render io ;
IN: gfx

TUPLE: my-gadget < gadget ;
M: my-gadget draw-gadget*  "Hello World" prettyprint ;
: <my-gadget> ( -- gadget ) <gadget> ;
: run ( -- ) <my-gadget> "hello world" open-window ;

New Annotation

Summary:
Author:
Mode:
Body: