basis/opengl/debug/debug.factor

   1 ! (c)2009 Joe Groff bsd license
   2 USING: accessors kernel namespaces parser sequences tools.continuations
   3 ui.backend ui.gadgets.worlds words ;
   4 IN: opengl.debug
   5
   6 SYMBOL: G-world
   7
   8 : G ( -- )
   9     G-world get set-gl-context ;
  10
  11 : F ( -- )
  12     G-world get handle>> flush-gl-context ;
  13
  14 : gl-break ( -- )
  15     world get dup G-world set-global
  16     [ break ] dip
  17     set-gl-context ;
  18
  19 << \ gl-break t "break?" set-word-prop >>
  20
  21 SYNTAX: GB
  22     \ gl-break suffix! ;