2006-03-18 02:23:57 -05:00
|
|
|
IN: gadgets
|
2006-03-21 03:04:36 -05:00
|
|
|
USING: kernel opengl ;
|
2006-03-18 02:23:57 -05:00
|
|
|
|
2006-03-21 17:15:53 -05:00
|
|
|
DEFER: draw-handle ( handle -- )
|
2006-03-18 02:23:57 -05:00
|
|
|
|
|
|
|
|
DEFER: in-window ( gadget status dim title -- )
|
2006-03-21 03:04:36 -05:00
|
|
|
|
|
|
|
|
DEFER: select-gl-context ( handle -- )
|
|
|
|
|
|
|
|
|
|
DEFER: flush-gl-context ( handle -- )
|
|
|
|
|
|
|
|
|
|
: with-gl-context ( handle quot -- )
|
|
|
|
|
swap [ select-gl-context call ] keep
|
|
|
|
|
glFlush flush-gl-context gl-error ; inline
|
