home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / dvrooms.gwm < prev    next >
Lisp/Scheme  |  1995-07-03  |  19KB  |  681 lines
  1. ; group windows into dvrooms
  2. ;
  3. ;;File: dvrooms.gwm
  4. ;;Author: duanev@mcc.com (Duane Voth)
  5. ;;Revision: 1.5 -- Nov 18 1990
  6. ;
  7. ; History:  1.0 -- Oct 18 1989    original
  8. ;        1.1 -- Oct 26 1989    windows are placed back on the screen (in
  9. ;                iconic form) when a dvroom manager dies
  10. ;        1.2 -- Nov 21 1989    use gwm-quiet
  11. ;        1.3 -- Nov 22 1989  create rmgrs from wool (colas)
  12. ;        1.4 -- May 11 1990  use GWM_ROOM property to remeber room windows
  13. ;        1.5 -- Nov 18 1990  Philippe Kaplan (phk)
  14. ;                act as icon boxes:
  15. ;                  do (setq dvroom.icon-box t) before load
  16. ;                exit bug fixed around line 190
  17. ;
  18. ; dvrooms.gwm must be loaded in the .profile.gwm before any set-window,
  19. ; set-icon-window, set-placement, or set-icon-placement calls.  it should
  20. ; also follow loading of icon-groups.gwm if used.  (this probably isn't
  21. ; necessary but it seems to be programatically correct)
  22. ;
  23. ; to use rooms, the following can be added to your .profile.gwm:
  24. ;
  25. ; (defun screen-startup ()
  26. ;    (setq count-of-windows-on-screen (length (list-of-windows)))
  27. ;    (new-dvroom-manager "home")
  28. ;    (new-dvroom-manager "lisp")
  29. ;    (new-dvroom-manager "wysiwyg")
  30. ;    (dvroom-reattach)
  31. ;    (if (= 0 count-of-windows-on-screen)
  32. ;          (! "/bin/sh" "-c" "$HOME/.xrc")))
  33. ; 
  34. ; (setq to-be-done-after-setup (+ to-be-done-after-setup '((screen-startup))))
  35. ;
  36. ; be sure also to attach add-to-dvroom and remove-from-dvroom to some unused
  37. ; mouse button / keyboard modifier combinations.  Example:
  38. ;
  39. ; (: standard-behavior
  40. ;   (state-make
  41. ;         ....
  42. ;       (on (buttonpress 1 with-control) (add-to-room))
  43. ;       (on (buttonpress 3 with-control) (remove-from-room))
  44. ;   ))
  45. ; 
  46. ;;=============================================================================
  47. ;;                    1.5
  48. ;;=============================================================================
  49. ; New version of "dvrooms.gwm". Small changes produce big results:
  50. ; 
  51. ;  - You may open any number of rooms, instead of only one.
  52. ;  - you can attach a window to several rooms.
  53. ; 
  54. ; Be carefull:
  55. ; 
  56. ;  - The notion of current-dvroom becomes "the last room openned" (add-to-room
  57. ;  and remove-from-room use current-dvroom).
  58. ; 
  59. ; Since it changes the concept of rooms, we'd better speak about "icon boxes".
  60. ; Note that you can again remove and add any window to/from any room, so
  61. ; this is clever than icon-group.gwm.
  62. ; 
  63. ;      To enable this feature, put:
  64. ; (setq dvroom.icon-box t)
  65. ;      before
  66. ; (load "dvrooms")
  67. ; 
  68. ; Put in your .profile.gwm some lines like:
  69. ; 
  70. ; (defun epoch-decos ()
  71. ;   '(if (member "Minibuffer" window-name)
  72. ;        (no-frame)
  73. ;        (progn
  74. ;          (if (and (boundp 'dvroom-managers) (find-dvroom-by-name "epoch"))
  75. ;              (add-to-dvroom-group (find-dvroom-by-name "epoch") (wob))
  76. ;              (set-x-property "GWM_ROOM" "epoch"))
  77. ;          (simple-win))))
  78. ; 
  79. ; (set-window Emacs epoch-decos)
  80. ; 
  81. ; (set-icon-placement Gwm     rows.top-left.placement) ; set rooms placements
  82. ; (set-placement      Gwm     rows.top-left.placement)
  83. ; 
  84. ; So every new epoch screen belongs to "epoch"'s room.
  85.  
  86. ;;=============================================================================
  87. ;;                    code
  88. ;;=============================================================================
  89.  
  90. ; global dvroom variables
  91. (declare-screen-dependent
  92.   dvroom.font
  93.   dvroom.background
  94.   dvroom.foreground
  95. )
  96.  
  97. (setq dvroom-managers ())        ; list of windows for dvroom managers
  98. (setq current-dvroom ())        ; index into dvroom-managers of the current dvroom
  99.  
  100. ; user-settable resources
  101. (for screen (list-of-screens)
  102.   (defaults-to
  103.     dvroom.font (font-make "8x13")
  104.     dvroom.background white
  105.     dvroom.foreground black
  106.   ))
  107.  
  108. (defaults-to
  109.   dvroom.borderwidth borderwidth
  110.   dvroom.auto-add ()            ; new windows added to current room?
  111.   dvroom.icon-box ()            ; act as icon boxes
  112.   dvroom.x 0
  113.   dvroom.y 0
  114.   dvroom.name "Room #"
  115.   dvroom.rootmenupos 5            ; where to place root menu items
  116.   dvroom.menupos 2            ; where to place menu menu items
  117.   edit-keys.return "Return"
  118.   edit-keys.backspace "BackSpace"
  119.   edit-keys.delete "Delete"
  120. )
  121.  
  122. (defaults-to dvroom.name.number 0)
  123.  
  124. ; save current iconify-window function
  125. (if (not (boundp 'pre-dvrooms-iconify-window))
  126.     (setq pre-dvrooms-iconify-window iconify-window))
  127.  
  128. ; add w to the list of windows managed by a dvroom-manager
  129. (defun add-to-dvroom-group (dvroom-manager w)
  130.  (if (not (member w (nth 'rgroup dvroom-manager)))
  131.    (progn
  132.      (with (wob w) (setq window-wm-state-icon
  133.              (with (wob dvroom-manager) window-icon)))
  134.      (replace-nth 'rgroup dvroom-manager (+ (nth 'rgroup dvroom-manager) (list w))))))
  135.  
  136. ; remove w from the list of windows managed by a dvroom-manager
  137. ;; be careful, the window might not exist anymore, if we get called on closing
  138. ;; of an application!
  139.  
  140. (defun remove-from-dvroom-group (dvroom-manager w)
  141.   (if (window-is-valid w)
  142.     (with (wob w) (setq window-wm-state-icon 0))
  143.   )
  144.   (with (slot (member w (nth 'rgroup dvroom-manager)))
  145.     (if slot (delete-nth slot (nth 'rgroup dvroom-manager)))))
  146.  
  147. ; a version of print that honors gwm-quiet
  148. (defun qprint args
  149.   (if (= gwm-quiet 0) (eval (+ '(print) args))))
  150.  
  151.  
  152. ; open all windows in a dvroom
  153. ; assumes "window" is the dvroom manager being opened
  154. (defun open-dvroom ()
  155.     (for window (nth 'rgroup window-window)
  156.     ; map the window if it was mapped, else map the icon
  157.     (if (nth 'rgroup-state window)
  158.         (map-window window)
  159.         (map-window window-icon))))
  160.  
  161.  
  162. ; close all windows in a dvroom
  163. ; assumes "window" is the dvroom manager being closed
  164. (defun close-dvroom ()
  165.     (for window (nth 'rgroup window)
  166.     ; save window state - is it a window or an icon
  167.     (replace-nth 'rgroup-state window window-is-mapped)
  168.     ; remove both windows and icons from the screen
  169.     (if window-is-mapped (unmap-window window))
  170.     (if (window-icon?)
  171.         (with (window window-icon)
  172.           (if window-is-mapped (unmap-window window))))))
  173.  
  174.  
  175. ; redefine iconify-window so we can do dvroom specific stuff
  176. (defun iconify-window ()
  177.     (if (= window-name "rmgr")
  178.     ; (de)iconifing a dvroom manager
  179.     (if (= window-status 'window)
  180.  
  181.         ; iconifing (closing) a dvroom manager
  182.         (progn
  183.         (close-dvroom)
  184.         (if (not dvroom.icon-box)
  185.             (setq current-dvroom ()))
  186.         (pre-dvrooms-iconify-window)
  187.         )
  188.         
  189.         ; deiconifing (opening) a dvroom manager
  190.         (with (rmgr-index (member window-window dvroom-managers))
  191.  
  192.         ; close previous dvroom manager
  193.         (if (and current-dvroom (not dvroom.icon-box))
  194.             (with (window (nth current-dvroom dvroom-managers))
  195.             (if (= window-status 'window)
  196.                 (iconify-window)    ; recurse to close dvroom
  197.             )
  198.             )
  199.         )
  200.  
  201.         (if rmgr-index
  202.             ; existing dvroom manager
  203.             (open-dvroom)
  204.             ; register a new dvroom manager
  205.             (progn
  206.             ; save window-window as the manager may be iconic and
  207.             ; we need a consistent value in the dvroom-mgr list
  208.             (setq dvroom-managers
  209.                 (+ dvroom-managers (list window-window)))
  210.             (setq rmgr-index (member window-window dvroom-managers))
  211.             )
  212.         )
  213.  
  214.         (setq current-dvroom rmgr-index)
  215.         (pre-dvrooms-iconify-window)
  216.         )
  217.     )
  218.  
  219.     ; (de)iconifing other windows
  220.     (progn
  221.         (pre-dvrooms-iconify-window)
  222.     )
  223.     )
  224. )
  225.  
  226.  
  227. (defun dvroom-icon-name (dvroom)
  228.   (with (window dvroom) window-icon-name))
  229.  
  230. (defun find-dvroom-by-name (name)
  231.   (tag room-found
  232.     (for dvroom dvroom-managers
  233.       (if (= name (dvroom-icon-name dvroom))
  234.     (exit room-found dvroom)))))
  235.  
  236. ;; register a new dvroom manager -or- readd a window to a room
  237. ;; (should be called when new windows become known to gwm (ie. via
  238. ;; gwm global opening))
  239. ;; assumes "window" is the new dvroom manager or window
  240.  
  241. (defun add-dvroom-manager ()
  242.   (if (= window-name "rmgr")
  243.     (if (not (member window-window dvroom-managers))
  244.       (progn (qprint "new dvroom manager " window-icon-name "\n")
  245.         ;; save window-window as the manager may be iconic and
  246.         ;; we need a consistent value in the dvroom-mgr list
  247.     (setq dvroom-managers (+ dvroom-managers (list window-window)))))
  248.     ;; else it's not a manager.  see if this window previously belonged to
  249.     ;; a room and add a new manager if the named manager does not exist
  250.  
  251.     (with (room-name (get-x-property "GWM_ROOM"))
  252.       (if (< 0 (length room-name))
  253.     (if (not (find-dvroom-by-name room-name))
  254.       (new-dvroom-manager room-name))))
  255.     () 
  256.  
  257.     ;; if dvroom.auto-add is true, then add to current dvroom if one exists
  258.     (if (and dvroom.auto-add (= (type current-dvroom) 'number))
  259.       (add-to-dvroom))
  260.   )
  261. )
  262.  
  263. ; add add-dvroom-manager to progn of funcs to eval when opening a new window
  264. ; assumes dvroom.gwm is before the set-* calls in .profile.gwm
  265. (setq opening (+ opening '((add-dvroom-manager))))
  266.  
  267.  
  268. ; reattach windows that have a GWM_ROOM property to the room managers
  269.  
  270. (defun dvroom-reattach window-list
  271.   (for window (if window-list window-list (list-of-windows))
  272.     (with (room-name (get-x-property "GWM_ROOM"))
  273.       (if (<  0 (length room-name))
  274.     (for dvroom dvroom-managers
  275.       (if (= room-name (dvroom-icon-name dvroom))
  276.         (progn
  277.           (add-to-dvroom-group dvroom window)
  278.           (if (not (= dvroom current-dvroom))
  279.         (progn
  280.           ; remove both window and icon from the screen
  281.           (if window-is-mapped (unmap-window window))
  282.           (if (window-icon?)
  283.               (with (window window-icon)
  284.                 (if window-is-mapped (unmap-window window))))))
  285.           (qprint "adding   <" window-name ">   to dvroom "
  286.                 (dvroom-icon-name dvroom) "\n"))))))))
  287.  
  288.  
  289. ; add a window to a dvroom
  290. ; assumes "window" is the application window to add
  291. (defun add-to-dvroom ()
  292.     (with (window window-window)
  293.     (if (and (= (type current-dvroom) 'number)
  294.          (not (= window-name "rmgr")))
  295.         (with (dvroom-manager (nth current-dvroom dvroom-managers))
  296.         (if (not (member window (nth 'rgroup dvroom-manager)))
  297.             (progn (add-to-dvroom-group dvroom-manager window)
  298.                (set-x-property "GWM_ROOM"
  299.                 (with (wob dvroom-manager) window-icon-name))
  300.                ; give the user *some* kind of feed back
  301.                (qprint "adding   <" window-name ">   to dvroom "
  302.                 (dvroom-icon-name dvroom-manager) "\n")))))))
  303.  
  304.  
  305. ; remove a window from a dvroom
  306. ; assumes "window" is the application window to remove
  307. (defun remove-from-dvroom ()
  308.     (with (window window-window)
  309.     (if (= (type current-dvroom) 'number)
  310.         (with (dvroom-manager (nth current-dvroom dvroom-managers))
  311.         (if (member window (nth 'rgroup dvroom-manager))
  312.           (progn
  313.             (set-x-property "GWM_ROOM" "")
  314.             ; give the user *some* kind of feed back
  315.             (qprint "removing <" window-name "> from dvroom "
  316.             (dvroom-icon-name dvroom-manager) "\n"))
  317.           (qprint "not a dvroom member\n"))
  318.         (remove-from-dvroom-group dvroom-manager window)))))
  319.  
  320.  
  321. ; if a normal window, remove it from any dvroom manager, but if a dvroom
  322. ; manager and not current, make all of the dvrooms windows visible.
  323. ; (this function needs to be called when an application exits (ie. via gwm
  324. ; global closing) so that gwm won't try to operate on non-existant windows)
  325. ; assumes "window" is the application window that is exiting
  326. (defun flush-dvroom-lists ()
  327.     (for dvroom-manager dvroom-managers
  328.     (remove-from-dvroom-group dvroom-manager window-window))
  329.     (with (index (member window-window dvroom-managers))
  330.     ; if a dvroom manager
  331.     (if index 
  332.         (progn
  333.         (if (= current-dvroom index)
  334.             (setq current-dvroom ())
  335.             (progn
  336.             (open-dvroom)
  337.             (if (> current-dvroom index)
  338.                 (setq current-dvroom (- current-dvroom 1)))))
  339.         (delete-nth index dvroom-managers)))))
  340.  
  341. ; add flush-dvroom-lists to progn of funcs to eval when closing an old window
  342. ; assumes dvroom.gwm is loaded before the set-* calls in .profile.gwm
  343. (setq closing (+ closing '((flush-dvroom-lists))))
  344.  
  345.  
  346. ; colas: create dvroom managers as placed menus
  347. (defun new-dvroom-manager args
  348.   (if (not (find-dvroom-by-name (# 0 args)))
  349.     (with (fsm window-fsm
  350.            background dvroom.background foreground dvroom.foreground
  351.            borderwidth dvroom.borderwidth
  352.            direction vertical
  353.            label-horizontal-margin 4 label-vertical-margin 2
  354.            menu-min-width 30 menu-max-width 1000
  355.            name (if args (# 0 args) (new-dvroom-manager-name))
  356.            )
  357.       (setq wob 
  358.         (with (icon-name name starts-iconic t)
  359.           (place-menu
  360.            'rmgr
  361.            (menu-make
  362.             (bar-make
  363.              (with (fsm dvroom.fsm
  364.                     property (+ (list
  365.             'title name
  366.             'background dvroom.background
  367.             'foreground dvroom.foreground
  368.             'borderwidth dvroom.borderwidth
  369.             'font dvroom.font
  370.               ) property))
  371.                (plug-make
  372.                 (label-make name dvroom.font)))))
  373.            dvroom.x dvroom.y)))
  374.       (## 'title wob name)
  375.       (add-dvroom-manager))))
  376.  
  377.  
  378. ; generates a new dvroom name
  379. (defun new-dvroom-manager-name ()
  380.   (setq dvroom.name.number (+ 1 dvroom.name.number))
  381.   (+ dvroom.name (itoa dvroom.name.number)))
  382.  
  383. ; editable plug fsm
  384.  
  385. (setq dvroom.fsm
  386.   (fsm-make 
  387.     (: dvroom.edit-fsm.normal 
  388.       (state-make
  389.     (on (double-button any any) 
  390.       (progn
  391.         (set-focus wob)
  392.         (wob-background (# 'foreground wob))
  393.         (with (
  394.         foreground (# 'background wob)
  395.         background (# 'foreground wob)
  396.           )
  397.           (wob-tile 
  398.         (active-label-make
  399.           (# 'title wob) (# 'font wob)))))
  400.       dvroom.edit-fsm.editable)
  401.     (on (button any (together with-alt with-control))
  402.       (progn
  403.         (set-focus wob)
  404.         (wob-background (# 'foreground wob))
  405.         (with (
  406.         foreground (# 'background wob)
  407.         background (# 'foreground wob)
  408.           )
  409.           (wob-tile 
  410.         (active-label-make
  411.           (# 'title wob) (# 'font wob)))))
  412.       dvroom.edit-fsm.editable)
  413.     icon-behavior
  414.     standard-behavior
  415.     ))
  416.     (: dvroom.edit-fsm.editable
  417.       (state-make
  418.     (on (keypress (key-make edit-keys.return) any)
  419.       (dvroom.edit-fsm.de-edit)
  420.       dvroom.edit-fsm.normal)
  421.     (on (double-button any any)
  422.       (dvroom.edit-fsm.de-edit)
  423.       dvroom.edit-fsm.normal)
  424.     (on (keypress edit-keys.backspace any)
  425.       (progn
  426.         (## 'title wob 
  427.           (if (: s (match "\\(.*\\)."
  428.             (# 'title wob) 1))
  429.         s
  430.         (setq s "")))
  431.         (with (
  432.         foreground (# 'background wob)
  433.         background (# 'foreground wob)
  434.           )
  435.           (wob-tile (active-label-make s (# 'font wob))))
  436.     ))
  437.     (on (keypress edit-keys.delete any)
  438.       (progn
  439.         (## 'title wob (: s ""))
  440.         (with (
  441.         foreground (# 'background wob)
  442.         background (# 'foreground wob)
  443.           )
  444.           (wob-tile (active-label-make s (# 'font wob))))
  445.     ))
  446.     (on (keypress any any)
  447.       (progn
  448.         (## 'title wob 
  449.           (: s (+ (# 'title wob) (last-key))))
  450.         (with (
  451.         foreground (# 'background wob)
  452.         background (# 'foreground wob)
  453.           )
  454.           (wob-tile (active-label-make s (# 'font wob))))
  455.     ))
  456.     (on focus-out
  457.       (dvroom.edit-fsm.de-edit)
  458.       dvroom.edit-fsm.normal)
  459.     icon-behavior
  460.     standard-behavior
  461.     ))
  462. ))
  463. ))
  464.  
  465. (if (not (boundp 'update-icon))
  466.     (defun update-icon (update-icon.title)
  467.       (if (window-icon?)
  468.       (send-user-event 'get-title (window-icon)))))
  469.  
  470. (de dvroom.edit-fsm.de-edit ()
  471.   (wob-background (# 'background wob))
  472.   (with (background (# 'background wob)
  473.       foreground (# 'foreground wob)
  474.     )
  475.     (wob-tile (label-make (# 'title wob) (# 'font wob)))
  476.     (update-icon (# 'title wob)))
  477. )
  478.  
  479. ;
  480. ; find dvroom window belongs to
  481. ;
  482.  
  483. (defun find-window-in-any-dvroom (win)
  484.   (tag found-in-manager
  485.        (for dvr dvroom-managers
  486.         (with (slot (member win (nth 'rgroup dvr)))
  487.           (if slot (exit found-in-manager dvr))
  488.           )
  489.         )
  490.        )
  491.   )
  492.  
  493. ;
  494. ; detach window from all room managers
  495. ;
  496.  
  497. (defun remove-window-from-all-dvroom (win)
  498.   (with (dvr (find-window-in-any-dvroom win))
  499.     (if dvr (remove-from-dvroom-group dvr win))
  500.     )
  501.   )
  502.  
  503. ;
  504. ; automatic room attachment based upon name
  505. ;
  506.  
  507. (defun auto-window-attach (w)
  508.   (with (w-name (with (window w) (window-name)))
  509.     (with (d-name (match "\\(.*\\)::" w-name 1))
  510.           (if (< 0 (length d-name))
  511.           (with (dvr (find-dvroom-by-name d-name))
  512.             (if dvr
  513.     ;;
  514.     ;; by now, we've found a dvroom with the desired name
  515.     ;; just in case, try to detach this window from it's dvroom
  516.     ;; and attach it to the target dvroom
  517.     ;;
  518.                 (progn
  519.                   (qprint "Auto-Add " w-name " to " d-name "\n" )
  520.                   (remove-window-from-all-dvroom w)
  521.                   (add-to-dvroom-group dvr w)
  522.                   (set-x-property "GWM_ROOM" d-name)
  523.                   )
  524.               )
  525.             )
  526.         )
  527.           )
  528.     )
  529.   )
  530.  
  531. ;
  532. ; automatic room attachment for all windows
  533. ;
  534.  
  535. (defun magic-dvroom-attach ()
  536.   (for win (list-of-windows 'window)
  537.        (auto-window-attach win)
  538.        )
  539.   )
  540.  
  541. ;
  542. ; unmap all windows/icon that belong to a room
  543. ;
  544.  
  545. (defun dvroom-remapping ()
  546.   (for win (list-of-windows 'window)
  547.        (with (dvr (find-window-in-any-dvroom win))
  548.          (if dvr
  549.          (with (window win)
  550.                (if window-is-mapped (unmap-window win))
  551.                (if (window-icon?)
  552.                (with (window window-icon)
  553.                  (if window-is-mapped (unmap-window window-icon))
  554.                  )
  555.              )
  556.                )
  557.            )
  558.          )
  559.        )
  560.   )
  561.  
  562. ;
  563. ; Next dvroom number
  564. ;
  565.  
  566. (defun increment-dvroom ()
  567.   (with (room-leng (length dvroom-managers))
  568.     (if (> room-leng 0)
  569.         (if current-dvroom
  570.         (with (room (+ current-dvroom 1))
  571.               (if (= room (length dvroom-managers))
  572.               0
  573.             room
  574.             )
  575.               )
  576.           0
  577.           )
  578.       ()
  579.       )
  580.     )
  581.   )
  582.  
  583. ;
  584. ; Previous dvroom number
  585. ;
  586.  
  587. (defun decrement-dvroom ()
  588.   (with (room-leng (length dvroom-managers))
  589.     (if (> room-leng 0)
  590.         (if current-dvroom
  591.         (with (room (- current-dvroom 1))
  592.               (if (< room 0)
  593.               (- room-leng 1)
  594.             room
  595.             )
  596.               )
  597.           (- room-leng 1)
  598.           )
  599.       ()
  600.       )
  601.     )
  602.   )
  603.  
  604. ;
  605. ; Close current Room
  606. ;
  607.  
  608. (defun close-current-dvroom ()
  609.   (if current-dvroom
  610.       (with (window (# current-dvroom dvroom-managers))
  611.         (progn
  612.           (close-dvroom)
  613.           (setq current-dvroom ())
  614.           (pre-dvrooms-iconify-window)
  615.           )
  616.         )
  617.     )
  618.   )
  619.  
  620. ;
  621. ; Open dvroom by number
  622. ;
  623.  
  624. (defun open-room-number (room)
  625.   (if room
  626.       (progn
  627.     (close-current-dvroom)
  628.     (with (window (# room dvroom-managers))
  629.           (progn
  630.         (open-dvroom)
  631.         (setq current-dvroom room)
  632.         (with (window window-icon)
  633.               (pre-dvrooms-iconify-window)
  634.               )
  635.         )
  636.           )
  637.     )
  638.     )
  639.   )
  640.  
  641. ;
  642. ; Open next room
  643. ;
  644.  
  645. (defun roll-rooms-up ()
  646.   (open-room-number (increment-dvroom))
  647.   )
  648.  
  649. ;
  650. ; Open previous room
  651. ;
  652.  
  653. (defun roll-rooms-down ()
  654.   (open-room-number (decrement-dvroom))
  655.   )
  656.  
  657. ;; adds the "add to room" and "remove from room" menu items in the
  658. ;; window menu, "New dvroom" in the root menu
  659.  
  660. (if (not (boundp 'dvroom.menu-added)) (progn
  661.     (setq dvroom.menu-added t)
  662.     
  663.     (if (eq window-pop-items icon-pop-items)
  664.       (setq window-pop-equals-icon-pop t)
  665.       (setq window-pop-equals-icon-pop ()))
  666.     
  667.     (insert-at '(item-make "New dvroom" (new-dvroom-manager))
  668.       root-pop-items
  669.       dvroom.rootmenupos)
  670.     (insert-at '(multi-item-make 
  671.     "Room: "
  672.     ()
  673.     ("Add" (add-to-dvroom))
  674.     ("Remove" (remove-from-dvroom)))
  675.       window-pop-items
  676.       dvroom.menupos)
  677.     
  678.     (if window-pop-equals-icon-pop
  679.       (setq icon-pop-items window-pop-items))
  680. ))
  681.