From e1935484899a712d93d69a0d6b6b86498f1580f8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 1 Sep 2008 22:45:40 -0500 Subject: [PATCH] new accessors --- basis/ui/gadgets/worlds/worlds.factor | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor index 80228691ec..23237af668 100755 --- a/basis/ui/gadgets/worlds/worlds.factor +++ b/basis/ui/gadgets/worlds/worlds.factor @@ -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 ;