basis/ui/gadgets/lib/lib.factor

   1
   2 USING: accessors kernel ui.backend ui.gadgets.worlds ;
   3
   4 IN: ui.gadgets.lib
   5
   6 ERROR: no-world-found ;
   7 : find-gl-context ( gadget -- )
   8     find-world dup [ handle>> select-gl-context ] [ no-world-found ] if ;