31 lines
693 B
Factor
31 lines
693 B
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: gadgets
|
|
USING: generic kernel math namespaces styles ;
|
|
|
|
|
|
global [
|
|
<world> world set
|
|
|
|
{{
|
|
|
|
[[ background [ 255 255 255 ] ]]
|
|
[[ rollover-bg [ 216 216 216 ] ]]
|
|
[[ foreground [ 0 0 0 ] ]]
|
|
[[ reverse-video f ]]
|
|
[[ font "Sans Serif" ]]
|
|
[[ font-size 12 ]]
|
|
[[ font-style plain ]]
|
|
}} world get set-gadget-paint
|
|
|
|
{ 1024 768 0 } world get set-gadget-dim
|
|
|
|
<plain-gadget> add-layer
|
|
|
|
<console> dup
|
|
"Stack display goes here" <label> <y-splitter>
|
|
3/4 over set-splitter-split add-layer
|
|
|
|
request-focus
|
|
] bind
|