2005-03-03 22:24:51 -05:00
|
|
|
! Copyright (C) 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: gadgets
|
2005-03-22 21:20:58 -05:00
|
|
|
USING: generic kernel math namespaces ;
|
|
|
|
|
|
2005-03-03 22:24:51 -05:00
|
|
|
|
|
|
|
|
global [
|
|
|
|
|
<world> world set
|
|
|
|
|
|
|
|
|
|
{{
|
|
|
|
|
|
|
|
|
|
[[ background [ 255 255 255 ] ]]
|
|
|
|
|
[[ foreground [ 0 0 0 ] ]]
|
|
|
|
|
[[ reverse-video f ]]
|
|
|
|
|
[[ font [[ "Sans Serif" 12 ]] ]]
|
|
|
|
|
}} world get set-gadget-paint
|
2005-03-22 21:20:58 -05:00
|
|
|
|
|
|
|
|
1024 768 world get resize-gadget
|
2005-03-03 22:24:51 -05:00
|
|
|
] bind
|
