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

make apply-world-attributes generic

db4
Joe Groff 2010-01-19 14:06:48 -08:00
parent ab7d8aca7c
commit 3cfe2afa44
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/gadgets/worlds/worlds.factor
View File

@ -125,7 +125,8 @@ M: world request-focus-on ( child gadget -- )
[ T{ rgba f 0.0 0.0 0.0 0.0 } ] [ T{ rgba f 0.0 0.0 0.0 0.0 } ]
[ T{ rgba f 1.0 1.0 1.0 1.0 } ] if ; [ T{ rgba f 1.0 1.0 1.0 1.0 } ] if ;
: apply-world-attributes ( world attributes -- world ) GENERIC# apply-world-attributes 1 ( world attributes -- world )
M: world apply-world-attributes ( world attributes -- world )
{ {
[ title>> >>title ] [ title>> >>title ]
[ status>> >>status ] [ status>> >>status ]