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

new accessors

db4
Doug Coleman 2008-09-01 22:45:40 -05:00
parent 60a3cf862b
commit e193548489
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,12 +13,10 @@ title status
fonts handle
window-loc ;
: find-world ( gadget -- world ) [ world? ] find-parent ;
M: f world-status ;
: find-world ( gadget -- world/f ) [ world? ] find-parent ;
: show-status ( string/f gadget -- )
find-world world-status [ set-model ] [ drop ] if* ;
find-world dup [ status>> set-model ] [ 2drop ] if ;
: hide-status ( gadget -- ) f swap show-status ;