2017-08-25 18:34:26 -04:00
|
|
|
! Copyright (C) 2009 Joe Groff.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-10-28 20:28:16 -04:00
|
|
|
USING: accessors kernel namespaces parser sequences tools.continuations
|
2009-07-15 23:44:03 -04:00
|
|
|
ui.backend ui.gadgets.worlds words ;
|
|
|
|
|
IN: opengl.debug
|
|
|
|
|
|
|
|
|
|
SYMBOL: G-world
|
|
|
|
|
|
|
|
|
|
: G ( -- )
|
|
|
|
|
G-world get set-gl-context ;
|
|
|
|
|
|
|
|
|
|
: F ( -- )
|
|
|
|
|
G-world get handle>> flush-gl-context ;
|
|
|
|
|
|
|
|
|
|
: gl-break ( -- )
|
|
|
|
|
world get dup G-world set-global
|
|
|
|
|
[ break ] dip
|
|
|
|
|
set-gl-context ;
|
|
|
|
|
|
|
|
|
|
<< \ gl-break t "break?" set-word-prop >>
|
|
|
|
|
|
|
|
|
|
SYNTAX: GB
|
2009-10-28 14:38:27 -04:00
|
|
|
\ gl-break suffix! ;
|
