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

9
extra/spheres/spheres.factor
View File

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