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

spheres can use MAIN-WINDOW: too

Joe Groff 2010-01-16 10:46:23 -08:00
parent 4a5cac122c
commit 7124bc2cb4
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
extra/spheres/spheres.factor
View File

@ -299,17 +299,12 @@ M: spheres-world draw-world*
] ]
} cleave ; } cleave ;
: spheres-window ( -- ) MAIN-WINDOW: spheres-window {
[ { world-class spheres-world }
f T{ world-attributes { title "Spheres" }
{ world-class spheres-world } { pixel-format-attributes {
{ title "Spheres" } windowed
{ pixel-format-attributes { double-buffered
windowed T{ depth-bits { value 16 } }
double-buffered } }
T{ depth-bits { value 16 } } } ;
} }
} open-window
] with-ui ;
MAIN: spheres-window