home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / tcl / 2171 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  2.0 KB
  1. Path: sparky!uunet!usc!sdd.hp.com!elroy.jpl.nasa.gov!nntp-server.caltech.edu!nntp-server.caltech.edu!tromey
  2. From: tromey@cns.caltech.edu (Tom Tromey)
  3. Newsgroups: comp.lang.tcl
  4. Subject: wm raise/lower
  5. Date: 18 Dec 92 19:15:42
  6. Organization: California Institute of Technology
  7. Lines: 44
  8. Message-ID: <TROMEY.92Dec18191542@kant.cns.caltech.edu>
  9. NNTP-Posting-Host: kant.cns.caltech.edu
  10.  
  11. Included are patches to Tk 3.0 which implement the "wm raise window"
  12. and "wm lower window" commands.  The named window must be a toplevel
  13. window.
  14.  
  15. Tom
  16.  
  17. *** tkWm.c.~1~  Wed Dec 16 12:59:15 1992
  18. --- tkWm.c      Fri Dec 18 15:57:01 1992
  19. ***************
  20. *** 1052,1061 ****
  21. --- 1052,1063 ----
  22.             wmPtr->hints.icon_window = Tk_WindowId(tkwin2);
  23.             wmPtr->hints.flags |= IconWindowHint;
  24.             wmPtr->iconWindowName = Tk_PathName(tkwin2);
  25.         }
  26.         UpdateHints(winPtr);
  27. +     } else if ((c == 'l') && (strncmp(argv[1], "lower", length)) == 0) {
  28. +       XLowerWindow (winPtr->display, winPtr->window);
  29.       } else if ((c == 'm') && (strncmp(argv[1], "maxsize", length) == 0)
  30.             && (length >= 2)) {
  31.         int width, height;
  32.         if ((argc != 3) && (argc != 5)) {
  33.             Tcl_AppendResult(interp, "wrong # arguments: must be \"",
  34. ***************
  35. *** 1240,1249 ****
  36. --- 1242,1253 ----
  37.             }
  38.         }
  39.         if (!(wmPtr->flags & WM_NEVER_MAPPED)) {
  40.             UpdateWmProtocols(wmPtr);
  41.         }
  42. +     } else if ((c == 'r') && (strncmp(argv[1], "raise", length)) == 0) {
  43. +       XRaiseWindow (winPtr->display, winPtr->window);
  44.       } else if ((c == 's') && (strncmp(argv[1], "sizefrom", length) == 0)) {
  45.         if ((argc != 3) && (argc != 4)) {
  46.             Tcl_AppendResult(interp, "wrong # arguments: must be \"",
  47.                     argv[0], " sizefrom window ?user|program?\"",
  48.                     (char *) NULL);
  49.  
  50. --
  51. tromey@cns.caltech.edu
  52. "In a riddle whose answer is chess, what is the only prohibited word?"
  53. I thought a moment and replied, "The word chess".
  54.     -- Jorge Luis Borges
  55.