unmaintained/factory/factory.factor

   1
   2 USING: kernel parser io io.files namespaces sequences editors threads vars
   3        mortar mortar.sugar slot-accessors
   4        x
   5        x.widgets.wm.root
   6        x.widgets.wm.frame
   7        x.widgets.wm.menu
   8        factory.load
   9        factory.commands ;
  10
  11 IN: factory
  12
  13 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  14
  15 : manage-windows ( -- )
  16 dpy get $default-root <- children [ <- mapped? ] filter
  17 [ $id <wm-frame> new* drop ] each ;
  18
  19 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  20
  21 VAR: root-menu
  22
  23 : create-root-menu ( -- ) <wm-menu> new* 1 <-- set-border-width >root-menu ;
  24
  25 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  26
  27 : start-factory ( display-string -- )
  28 <display> new* >dpy
  29 install-default-error-handler
  30 create-wm-root
  31 init-atoms
  32 manage-windows
  33 load-factory-rc ;
  34
  35 : factory ( -- ) f start-factory stop ;
  36
  37 MAIN: factory