basis/ui/gadgets/status-bar/status-bar.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors models models.delay models.filter
   4 sequences ui.gadgets.labels ui.gadgets.theme ui.gadgets.tracks
   5 ui.gadgets.worlds ui.gadgets ui kernel calendar summary ;
   6 IN: ui.gadgets.status-bar
   7
   8 : <status-bar> ( model -- gadget )
   9     1/10 seconds <delay> [ "" like ] <filter> <label-control>
  10     reverse-video-theme
  11     t >>root? ;
  12
  13 : open-status-window ( gadget title -- )
  14     f <model> [ <world> ] keep
  15     <status-bar> f track-add
  16     open-world-window ;
  17
  18 : show-summary ( object gadget -- )
  19     [ [ summary ] [ "" ] if* ] dip show-status ;