basis/opengl/debug/debug.factor

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