home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume8 / vtwm.patch / part01 next >
Internet Message Format  |  1990-08-21  |  6KB
  1. Path: uunet!decwrl!wuarchive!cs.utexas.edu!sun-barr!newstop!sun!reef.cis.ufl.edu
  2. From: thoth@reef.cis.ufl.edu (Gilligan)
  3. Newsgroups: comp.sources.x
  4. Subject: v08i093: vtwm patch to allow "snug"ging of windows, Part01/01
  5. Message-ID: <141104@sun.Eng.Sun.COM>
  6. Date: 22 Aug 90 02:00:49 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 206
  9. Approved: argv@sun.com
  10.  
  11. Submitted-by: thoth@reef.cis.ufl.edu (Gilligan)
  12. Posting-number: Volume 8, Issue 93
  13. Archive-name: vtwm.patch/part01
  14.  
  15. [ Note: since vtwm has not been posted to comp.sources.x, this is
  16.   an unofficial patch.  --dan ]
  17.  
  18.   Now that the stink over vtwm is gone we can all rush out and get it.
  19. The original source is on expo.lcs.mit.edu as contrib/vtwm.shar.Z.  I
  20. decided it lacked a little functionality.
  21.   This patch adds two functions: f.snugdesktop and f.snugwindow.
  22. Snugdesktop tries to move the virtual view that all windows that were
  23. partly visible will be completely visible.  Snugwindow tries to shift
  24. the display just far enough to squeeze that one window onto the
  25. screen.
  26.  
  27.   Tell me how you like it.
  28.   (Don't forget the formerly undocumented NailedDown list).
  29.  
  30.  
  31. diff -cw vtwm/README.vtwm vtwmnew/README.vtwm
  32. *** vtwm/README.vtwm    Sun Aug 12 11:15:07 1990
  33. --- vtwmnew/README.vtwm    Sun Aug 12 11:26:13 1990
  34. ***************
  35. *** 8,13 ****
  36. --- 8,23 ----
  37.   Variables:
  38.   ----------
  39.   
  40. + NailedDown { list }
  41. +     (Forsman) I didn't write this and it wasn't documented, but I
  42. +     think it gives a list of windows that will be nailed down
  43. +     automatically.  I strongly suggest
  44. +     NailedDown {
  45. +       "Virtual Desktop"
  46. +       "TWM Icon Manager"
  47. +     }
  48. +     It works for me.
  49. + 
  50.   VirtualDesktop "geometry" scale
  51.       where to place the virtual desktop window and its size.
  52.       scale specifies the scaling of the window compared to the desktop.
  53. ***************
  54. *** 68,73 ****
  55. --- 78,91 ----
  56.   f.resetdesktop
  57.       Moves the real display to (0,0)
  58.   
  59. + (Forsman added 2)
  60. + f.snugwindow
  61. +     moves the display to try to fit the selected window completely
  62. +     on the screen
  63. + 
  64. + f.snugdesktop
  65. +     moves the display to try to fit all partially visible windows
  66. +     completely on the screen.
  67.   
  68.   Others:
  69.   -------
  70. diff -cw vtwm/menus.c vtwmnew/menus.c
  71. *** vtwm/menus.c    Sun Aug 12 11:15:31 1990
  72. --- vtwmnew/menus.c    Sun Aug 12 11:27:43 1990
  73. ***************
  74. *** 1954,1959 ****
  75. --- 1954,2046 ----
  76.       SetRealScreen(0, 0);
  77.       break;
  78.   
  79. +     /* Robert Forsman added these two functions
  80. +        <thoth@ufl.edu>
  81. +        */
  82. +     {
  83. +       TwmWindow    *scan;
  84. +       int        right, left, up, down;
  85. +       int        inited;
  86. +    case F_SNUGDESKTOP:
  87. + 
  88. +       inited = 0;
  89. +       for (scan = Scr->TwmRoot.next; scan!=NULL; scan = scan->next)
  90. +         {
  91. +           if (scan->nailed)
  92. +         continue;
  93. +           if (scan->frame_x > Scr->MyDisplayWidth ||
  94. +           scan->frame_y > Scr->MyDisplayHeight)
  95. +         continue;
  96. +           if (scan->frame_x+scan->frame_width < 0 ||
  97. +           scan->frame_y+scan->frame_height < 0)
  98. +         continue;
  99. +           if ( inited==0 || scan->frame_x<right )
  100. +         right = scan->frame_x;
  101. +           if ( inited==0 || scan->frame_y<up )
  102. +         up = scan->frame_y;
  103. +           if ( inited==0 || scan->frame_x+scan->frame_width>left )
  104. +         left = scan->frame_x+scan->frame_width;
  105. +           if ( inited==0 || scan->frame_y+scan->frame_height>down )
  106. +         down = scan->frame_y+scan->frame_height;
  107. +           inited = 1;
  108. +         }
  109. +       if (inited)
  110. +         {
  111. +           int    dx,dy;
  112. +           if (left-right < Scr->MyDisplayWidth && (right<0 || left>Scr->MyDisplayWidth) )
  113. +         dx = right - ( Scr->MyDisplayWidth - (left-right) ) /2;
  114. +           else
  115. +         dx = 0;
  116. +           if (down-up < Scr->MyDisplayHeight && (up<0 || down>Scr->MyDisplayHeight) )
  117. +         dy = up - (Scr->MyDisplayHeight - (down-up) ) /2;
  118. +           else
  119. +         dy = 0;
  120. +           if (dx!=0 || dy!=0)
  121. +         PanRealScreen(dx,dy);
  122. +           else
  123. +         XBell (dpy, 0);
  124. +         }
  125. +       else
  126. +         XBell (dpy, 0);
  127. +       break;
  128. + 
  129. +     case F_SNUGWINDOW:
  130. +       if (DeferExecution(context, func, Scr->SelectCursor))
  131. +         return TRUE;
  132. + 
  133. +       inited = 0;
  134. +       right = tmp_win->frame_x;
  135. +       left = tmp_win->frame_x + tmp_win->frame_width;
  136. +       up = tmp_win->frame_y;
  137. +       down = tmp_win->frame_y + tmp_win->frame_height;
  138. +       inited = 1;
  139. +       if (inited)
  140. +         {
  141. +           int    dx,dy;
  142. +           dx = 0;
  143. +           if (left-right < Scr->MyDisplayWidth)
  144. +         if (right<0)
  145. +           dx = right;
  146. +         else if (left>Scr->MyDisplayWidth)
  147. +           dx = left - Scr->MyDisplayWidth;
  148. + 
  149. +           dy = 0;
  150. +           if (down-up < Scr->MyDisplayHeight)
  151. +         if (up<0)
  152. +           dy = up;
  153. +         else if (down>Scr->MyDisplayHeight)
  154. +           dy = down - Scr->MyDisplayHeight;
  155. + 
  156. +           if (dx!=0 || dy!=0)
  157. +         PanRealScreen(dx,dy);
  158. +           else
  159. +         XBell (dpy, 0);
  160. +         }
  161. +       else
  162. +         XBell (dpy, 0);
  163. + 
  164. +     }
  165. +     break;
  166.       /* move the real screen representation around the virtual desktop display */
  167.      case F_MOVESCREEN:
  168.       /* this breaks BADLY if this is not called by the default button press
  169. ***************
  170. *** 2066,2071 ****
  171. --- 2153,2159 ----
  172.           case F_BOTTOMZOOM:
  173.       case F_AUTORAISE:
  174.       case F_NAIL:
  175. +     case F_SNUGWINDOW:
  176.           return TRUE;
  177.       }
  178.       }
  179. diff -cw vtwm/parse.c vtwmnew/parse.c
  180. *** vtwm/parse.c    Sun Aug 12 11:15:34 1990
  181. --- vtwmnew/parse.c    Sat Aug 11 23:33:47 1990
  182. ***************
  183. *** 452,457 ****
  184. --- 452,459 ----
  185.       { "f.rightzoom",        FKEYWORD, F_RIGHTZOOM },
  186.       { "f.saveyourself",        FKEYWORD, F_SAVEYOURSELF },
  187.       { "f.showiconmgr",        FKEYWORD, F_SHOWLIST },
  188. +     { "f.snugdesktop",        FKEYWORD, F_SNUGDESKTOP },
  189. +     { "f.snugwindow",        FKEYWORD, F_SNUGWINDOW },
  190.       { "f.sorticonmgr",        FKEYWORD, F_SORTICONMGR },
  191.       { "f.source",        FSKEYWORD, F_BEEP },  /* XXX - don't work */
  192.       { "f.title",        FKEYWORD, F_TITLE },
  193. diff -cw vtwm/parse.h vtwmnew/parse.h
  194. *** vtwm/parse.h    Sun Aug 12 11:15:35 1990
  195. --- vtwmnew/parse.h    Sat Aug 11 23:29:57 1990
  196. ***************
  197. *** 97,102 ****
  198. --- 97,104 ----
  199.   #define F_PANUP                 50
  200.   #define F_RESETDESKTOP          51
  201.   #define F_MOVESCREEN            52
  202. + #define F_SNUGDESKTOP        53
  203. + #define F_SNUGWINDOW        54
  204.   
  205.   #define F_MENU            101    /* string */
  206.   #define F_WARPTO        102    /* string */
  207. --
  208. /--------------------
  209. "a window is a terrible thing to paste" -me
  210. ( My name's not really Gilligan, It's Robert Forsman, without an `e' )
  211. --------------------/
  212.  
  213. dan
  214. ----------------------------------------------------
  215. O'Reilly && Associates   argv@sun.com / argv@ora.com
  216. Opinions expressed reflect those of the author only.
  217.