home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gwm18a.zip / data / README-vtwmrc-0.2-1.0 < prev    next >
Lisp/Scheme  |  1995-07-03  |  12KB  |  273 lines
  1. Some changes in the VTWM-profile version 1.0 affect the user
  2. customizable file "vtwmrc.gwm". To make it easier to update
  3. "vtwmrc.gwm" for users who have modified it, this file contains a
  4. patch with the changes since the VTWM profile version 0.2.
  5.  
  6. If your "vtwmrc.gwm" is from version 0.3 you should use the file
  7. "README-vtwmrc-0.3-1.0" instead. 
  8.  
  9. If you have some other version, you should copy the new "vtwmrc.gwm",
  10. and transfer your changes by hand.
  11.  
  12. To apply this patch, just do:
  13.  
  14.   patch vtwmrc.gwm README-vtwmrc-0.2-1.0
  15.  
  16. If some chunks fail, it may be because the changes collide, and you
  17. may have to do them by hand. 
  18.  
  19.  
  20. *** vtwmrc.gwm.distr.0.2    Mon Dec 12 10:30:15 1994
  21. --- vtwmrc.gwm.distr.1.0    Mon Jun 19 12:19:52 1995
  22. ***************
  23. *** 1,9 ****
  24.   ;; vtwmrc.gwm --- VTWM profile customizations
  25.   ;;
  26.   ;; Author: Anders Holst  (aho@sans.kth.se)  
  27. ! ;; Copyright (C) 1994  Anders Holst
  28. ! ;; Version: vtwm-0.2
  29. ! ;; Last change: 29/10
  30.   ;;
  31.   ;; This file is copyrighted under the same terms as the rest of GWM
  32.   ;; (see the X Inc license for details). There is no warranty that it
  33. --- 1,9 ----
  34.   ;; vtwmrc.gwm --- VTWM profile customizations
  35.   ;;
  36.   ;; Author: Anders Holst  (aho@sans.kth.se)  
  37. ! ;; Copyright (C) 1995  Anders Holst
  38. ! ;; Version: vtwm-1.0
  39. ! ;; Last change: 17/6 1995
  40.   ;;
  41.   ;; This file is copyrighted under the same terms as the rest of GWM
  42.   ;; (see the X Inc license for details). There is no warranty that it
  43. ***************
  44. *** 74,83 ****
  45.   ;;          ; List of '(window-type foreground background)' specifications.
  46.   ;;       vtwm-notitle-list '(Gwm (window-is-transient-for))
  47.   ;;          ; List of window types to make untitled
  48. - ;;       iconify-pixmap-name "iconify2" ; Pixmap filename for iconify button
  49. - ;;       resize-pixmap-name "resize2"   ; Pixmap filename for resize button
  50. - ;;       hilite-pixmap-name "hilite2"   ; Filename for active titlebar pattern
  51.   ;;       default-icon-pixmap-name ()    ; Pixmap filename for default icon
  52.   
  53.   (setq vtwm-notitle-list '(XLoad XClock XBiff Gwm (window-is-transient-for)))
  54.   (setq vtwm-bordercolor black)
  55. --- 74,87 ----
  56.   ;;          ; List of '(window-type foreground background)' specifications.
  57.   ;;       vtwm-notitle-list '(Gwm (window-is-transient-for))
  58.   ;;          ; List of window types to make untitled
  59.   ;;       default-icon-pixmap-name ()    ; Pixmap filename for default icon
  60. + ;;       hilite-pixmap-name "gray"      ; Filename for active titlebar pattern
  61. + ;;       vtwm-left-plugs '(("iconify2" (iconify-window)))
  62. + ;;       vtwm-right-plugs '(("resize2" (twm-resize-window) t))
  63. + ;;           ; Left and right plugs in the titlebar, a list of pairs
  64. + ;;           ; or tripplets:  ( <pixmap-file> <action> [<on-press>] )
  65. + ;;           ; The optional third element <on-press> signals that the action
  66. + ;;           ; should be run on button-press, rather than button-release.
  67.   
  68.   (setq vtwm-notitle-list '(XLoad XClock XBiff Gwm (window-is-transient-for)))
  69.   (setq vtwm-bordercolor black)
  70. ***************
  71. *** 96,103 ****
  72. --- 100,132 ----
  73.       ;                         (list 'XTerm () (color-make "seagreen")))
  74.       ))
  75.   
  76. + ;; Example of how to get a menu-plug to the left and a zoom-plug to the right
  77. + ; (setq vtwm-left-plugs '(("iconify2" (iconify-window))
  78. + ;                         ("menu" (vtwm-pop-menu window-pop) t)))
  79. + ; (setq vtwm-right-plugs '(("zoom" (zoom-window))
  80. + ;                          ("resize2" (twm-resize-window) t)))
  81.   
  82. + ;; Note that you can also get "squeezed title" windows ala TWM, if you
  83. + ;; use either "vtwm-squeezed-window.gwm" or "vtwm-squeezed-window2.gwm".
  84. + ;; Use 'set-window' to specify which windows you want squeezed titles on:
  85. + ; (set-window Emacs vtwm-squeezed-window2)
  86. + 
  87. + 
  88.   ;;=============================================================================
  89. + ;;        VTWM Zoom functions
  90. + ;;=============================================================================
  91. + ;;
  92. + ;;       zoom-offset 3                  ; Minimum distance to screen edge
  93. + ;;       zoom-window-method-list ()     ; List of (wind-type zoom-func) specs.
  94. + ;;          ; This is to make zoom-window use different zoom methods for
  95. + ;;          ; different types of windows.
  96. + 
  97. + (setq zoom-window-method-list '((XTerm zoom-window-vert) 
  98. +                                 (XVroot zoom-window-prop)
  99. +                                 (t zoom-window-full)))
  100. + 
  101. + 
  102. + ;;=============================================================================
  103.   ;;        VTWM Menu appearance
  104.   ;;=============================================================================
  105.   ;;
  106. ***************
  107. *** 144,156 ****
  108.   ;;       icon-mgr-omit-list ()    ; Window types not handled in default manager
  109.   ;;       icon-mgr-sort ()               ; Sort the entries in an icon manager
  110.   ;;       icon-mgr-font (font-make "8x13")   ; Font in icon managers
  111.   ;;       icon-mgr-foreground black      ; Foreground of icon managers
  112.   ;;       icon-mgr-background white      ; Background of icon managers
  113.   ;;       icon-mgr-title-foreground icon-mgr-foreground
  114.   ;;       icon-mgr-title-background icon-mgr-background
  115. ! ;;       icon-mgr-width 150             ; Width of icon manager
  116.   ;;       icon-mgr-window-feedback t     ; Rely on focus feedback from windows
  117.   ;;       icon-mgr-pixmap-name "iconify2"; Pixmap file for iconified symbol
  118.   
  119.   (if (not (= screen-type 'color))
  120.       (progn 
  121. --- 173,190 ----
  122.   ;;       icon-mgr-omit-list ()    ; Window types not handled in default manager
  123.   ;;       icon-mgr-sort ()               ; Sort the entries in an icon manager
  124.   ;;       icon-mgr-font (font-make "8x13")   ; Font in icon managers
  125. + ;;       icon-mgr-width 150             ; Width of icon manager
  126.   ;;       icon-mgr-foreground black      ; Foreground of icon managers
  127.   ;;       icon-mgr-background white      ; Background of icon managers
  128.   ;;       icon-mgr-title-foreground icon-mgr-foreground
  129.   ;;       icon-mgr-title-background icon-mgr-background
  130. ! ;;       icon-mgr-no-title ()           ; Inhibits the icon manager title
  131. ! ;;       icon-mgr-framed-bars ()        ; Makes it look more like in real VTWM
  132. ! ;;       icon-mgr-fancy-colors ()       ; List of (wintype fg bg) specifications
  133.   ;;       icon-mgr-window-feedback t     ; Rely on focus feedback from windows
  134.   ;;       icon-mgr-pixmap-name "iconify2"; Pixmap file for iconified symbol
  135. + ;;         ; In addition, the property 'icon-mgr-special-pixmap can be set on
  136. + ;;         ; a window to the pixmap to use for that window in the icon manager.
  137.   
  138.   (if (not (= screen-type 'color))
  139.       (progn 
  140. ***************
  141. *** 232,241 ****
  142.   ;;       door-mgr-mdir-len 2     ; place two buttons in each (horizontal) row.
  143.   ;;       door-mgr-xpos 0                ; Upper left corner of door manager
  144.   ;;       door-mgr-ypos 0                ;  - '' -
  145.   ;;
  146.   
  147. ! (setq door-mgr-xpos 6)
  148. ! (setq door-mgr-ypos 6)
  149.   (if (= screen-type 'color)
  150.     (progn 
  151.       (setq door-background (color-make "lightyellow"))
  152. --- 266,276 ----
  153.   ;;       door-mgr-mdir-len 2     ; place two buttons in each (horizontal) row.
  154.   ;;       door-mgr-xpos 0                ; Upper left corner of door manager
  155.   ;;       door-mgr-ypos 0                ;  - '' -
  156. + ;;       door-mgr-tile t         ; tile of empty positions, t = transparent 
  157.   ;;
  158.   
  159. ! (setq door-mgr-xpos 4)
  160. ! (setq door-mgr-ypos 4)
  161.   (if (= screen-type 'color)
  162.     (progn 
  163.       (setq door-background (color-make "lightyellow"))
  164. ***************
  165. *** 322,336 ****
  166.                   ;                      (window-client-name) "."
  167.                   ;                      (window-name) "@"
  168.                   ;                      (window-machine-name) "\n")))
  169.                   '("Restart" (restart))
  170.                   '("Reload" (progn
  171.                                (load "vtwmrc")
  172. !                              (redecorate-all)
  173. !                              (virtual-show)
  174. !                              (if show-pan-lists
  175. !                                  (install-pan-lists)
  176. !                                (remove-pan-lists))
  177. !                              (icon-mgr-show)))
  178.                   '("Quit" (end))))
  179.   
  180.   ;; Menu with useful window commands (and some global)
  181. --- 357,368 ----
  182.                   ;                      (window-client-name) "."
  183.                   ;                      (window-name) "@"
  184.                   ;                      (window-machine-name) "\n")))
  185. +                 '("Toggle IconMgr" (icon-mgr-toggle))
  186. +                 '("Toggle Virtual" (virtual-toggle))
  187.                   '("Restart" (restart))
  188.                   '("Reload" (progn
  189.                                (load "vtwmrc")
  190. !                              (redecorate-all)))
  191.                   '("Quit" (end))))
  192.   
  193.   ;; Menu with useful window commands (and some global)
  194. ***************
  195. *** 340,346 ****
  196.                     '("Lower" (lower-window))
  197.                     '("Resize" (twm-resize-window))
  198.                     '("Move" (move-window))
  199. !                   '("Iconify" (iconify-window))
  200.                     '("Nail" (virtual-toggle-nail))
  201.                     '("Focus" (focus-window))
  202.                     '("Refresh" (refresh window))
  203. --- 372,379 ----
  204.                     '("Lower" (lower-window))
  205.                     '("Resize" (twm-resize-window))
  206.                     '("Move" (move-window))
  207. !                   '("Iconify" (toggle-iconify-window))
  208. !                   '("Zoom" (zoom-window))
  209.                     '("Nail" (virtual-toggle-nail))
  210.                     '("Focus" (focus-window))
  211.                     '("Refresh" (refresh window))
  212. ***************
  213. *** 361,372 ****
  214.                     '("Restart" (restart))
  215.                     '("Reload" (progn
  216.                                  (load "vtwmrc")
  217. !                                (redecorate-all)
  218. !                                (virtual-show)
  219. !                                (if show-pan-lists
  220. !                                    (install-pan-lists)
  221. !                                  (remove-pan-lists))
  222. !                                (icon-mgr-show)))
  223.                     '("Quit" (end))))
  224.   
  225.   ;; Menu to log in to other machines. First comes the local host, then
  226. --- 394,400 ----
  227.                     '("Restart" (restart))
  228.                     '("Reload" (progn
  229.                                  (load "vtwmrc")
  230. !                                (redecorate-all)))
  231.                     '("Quit" (end))))
  232.   
  233.   ;; Menu to log in to other machines. First comes the local host, then
  234. ***************
  235. *** 375,381 ****
  236.   (setq login-pop (construct-menu
  237.                    "Logins"
  238.                    (construct-machine-menu-items (list hostname)
  239. !                             '(! "csh" "-c" (+ "xterm -n " name)))
  240.                    (construct-machine-menu-items machine-list
  241.                               '(! "xlogin" host "-n" name))
  242.                    (construct-machine-menu-items telnet-machine-list
  243. --- 403,414 ----
  244.   (setq login-pop (construct-menu
  245.                    "Logins"
  246.                    (construct-machine-menu-items (list hostname)
  247. !                             ; This is to get around a bug that turns up
  248. !                             ; when gwmchat and bash is used together
  249. !                             (if (match "bash$" (getenv "SHELL"))
  250. !                                 (+ '(! "xterm" "-T" name "-e" "csh" "-c")
  251. !                                    (list (getenv "SHELL")))
  252. !                               '(! "xterm" "-n" name)))
  253.                    (construct-machine-menu-items machine-list
  254.                               '(! "xlogin" host "-n" name))
  255.                    (construct-machine-menu-items telnet-machine-list
  256. ***************
  257. *** 502,508 ****
  258.             (pop-to-window)))
  259.       (on (buttonpress 2 any)
  260.           (icon-mgr-with-window
  261. !           (iconify-window)))
  262.       (on (buttonpress 3 any)
  263.           (icon-mgr-with-window
  264.             (vtwm-pop-menu window-pop)))
  265. --- 535,541 ----
  266.             (pop-to-window)))
  267.       (on (buttonpress 2 any)
  268.           (icon-mgr-with-window
  269. !           (toggle-iconify-window)))
  270.       (on (buttonpress 3 any)
  271.           (icon-mgr-with-window
  272.             (vtwm-pop-menu window-pop)))
  273.