steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

window-controls-demo for testing/showing off window controls

db4
Joe Groff 2009-06-18 09:53:17 -05:00
parent b75999aac6
commit 48b06d6221
3 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/window-controls-demo/authors.txt Executable file
View File

@ -0,0 +1 @@
Joe Groff

1
extra/window-controls-demo/summary.txt Executable file
View File

@ -0,0 +1 @@
Open windows with different control sets

42
extra/window-controls-demo/window-controls-demo.factor Executable file
View File

@ -0,0 +1,42 @@
! (c)2009 Joe Groff bsd license
USING: accessors assocs kernel locals sequences ui
ui.gadgets.worlds ;
IN: window-controls-demo
CONSTANT: window-control-sets-to-test
H{
{ "No controls" { } }
{ "Normal title bar" { normal-title-bar } }
{ "Small title bar" { small-title-bar } }
{ "Close button" { normal-title-bar close-button } }
{ "Close and minimize buttons" { normal-title-bar close-button minimize-button } }
{ "Close, minimize, and maximize buttons" { normal-title-bar close-button minimize-button maximize-button } }
{ "Resizable" { normal-title-bar close-button minimize-button maximize-button resize-handles } }
}
TUPLE: window-controls-demo-world < world
windows ;
M: window-controls-demo-world end-world
windows>> [ close-window ] each ;
M: window-controls-demo-world pref-dim*
drop { 400 400 } ;
: attributes-template ( -- x )
T{ world-attributes
{ world-class window-controls-demo-world }
} clone ;
: window-controls-demo ( -- )
attributes-template V{ } clone window-control-sets-to-test
[| title attributes windows controls |
f attributes
title >>title
controls >>window-controls
open-window*
windows >>windows
windows push
] with with assoc-each ;
MAIN: window-controls-demo