2007-09-20 18:09:08 -04:00
|
|
|
|
2008-09-02 13:35:50 -04:00
|
|
|
USING: accessors kernel ui.backend ui.gadgets.worlds ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
IN: ui.gadgets.lib
|
|
|
|
|
|
2008-09-02 13:35:50 -04:00
|
|
|
ERROR: no-world-found ;
|
|
|
|
|
: find-gl-context ( gadget -- )
|
|
|
|
|
find-world dup [ handle>> select-gl-context ] [ no-world-found ] if ;
|
