Not all that important, but it can drive you nuts trying to figure out
what is wrong. The real bug is marked in the code below. However,
with this bug factor throws a strange error and if you try to close
the UI window, crashes.
IN: radar
USING: accessors colors kernel opengl ui ui.gadgets ui.render ;
TUPLE: child < gadget ;
: <child> ( -- child ) child new ; ! BUG!!! should be 'new-gadget'
TUPLE: parent < gadget ;
: <parent > ( size -- parent ) site new-gadget swap >>dim ;
M: parent draw-gadget* drop black gl-clear ;
: start ( -- ) { 500 500 } <parent> <child > add-gadget "BUG" open-window ;
------------------------------------------------------------------------------
This SF.net email is sponsored by:
SourcForge Community
SourceForge wants to tell your story.
http://p.sf.net/sfu/sf-spreadtheword
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
