home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / tcl / 1288 < prev    next >
Encoding:
Text File  |  1992-09-01  |  3.5 KB  |  119 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!newsgate.watson.ibm.com!yktnews!admin!dv2t1!shmdgljd
  3. From: shmdgljd@rchland.vnet.ibm.com (Jay Schmidgall)
  4. Subject: Re: Motif-like message/error/warning dialogs 
  5. Sender: news@rchland.ibm.com
  6. Message-ID: <1992Sep01.140451.19406@rchland.ibm.com>
  7. Date: Tue, 01 Sep 1992 14:04:51 GMT
  8. Reply-To: jay@vnet.ibm.com
  9. Disclaimer: This posting represents the poster's views, not necessarily those of IBM
  10. References:  <1992Aug31.204753.2556@twg.com>
  11. Nntp-Posting-Host: dv2t1.rchland.ibm.com
  12. Organization: IBM Rochester, MN
  13. Lines: 104
  14.  
  15. Here's a quickie patch to the msgdialog script to make the dialog more
  16. like Motif's in that it is transient and grouped with the parent.  This
  17. lets it duplicate Motif's dialog box behavior of iconifying the dialog
  18. when the parent is iconified.  It also causes the parent to be raised
  19. when the dialog box is popped.  (of course, this is all under mwm -- no
  20. idea what other wm's will do).  I've also include a DLG:position proc
  21. which centers the dialog box over the parent.
  22.  
  23. ../src/Tk> diff -c msgdialog.tk.old msgdialog.tk
  24. *** msgdialog.tk.old    Tue Sep  1 08:54:17 1992
  25. --- msgdialog.tk    Tue Sep  1 08:55:10 1992
  26. ***************
  27. *** 66,80 ****
  28.       global $done
  29.       set $done 0
  30.   
  31. -     set px [winfo x $parent]
  32. -     set py [winfo y $parent]
  33. -     set ph [winfo screenheight $parent]
  34. -     set pw [winfo screenwidth  $parent]
  35. - 
  36.       toplevel $w -class Dialog
  37. -     wm geometry $w +[expr $px+($pw/3)]+[expr $py+($ph/3)]
  38. -     wm minsize $w 1 1
  39.   
  40.       # wm raise $parent    -- Motif does this but TK doesn't have the command.
  41.   
  42.       frame $w.msg
  43. --- 66,79 ----
  44.       global $done
  45.       set $done 0
  46.   
  47.       toplevel $w -class Dialog
  48.   
  49. +     # Lets the dialog window be handled like Motif dialogs by the WM
  50. +         wm group $w $parent
  51. +         wm transient $w $parent
  52. + 
  53. +     # This is unnecessary (at least under mwm) since the above
  54. +     # causes parent to be raised when the dialog becomes visible.
  55.       # wm raise $parent    -- Motif does this but TK doesn't have the command.
  56.   
  57.       frame $w.msg
  58. ***************
  59. *** 152,158 ****
  60. --- 151,168 ----
  61.           # DLG:keybindings $w.cmds.f.f.f3.btn3 "[lindex $btn3 1]"
  62.       }
  63.   
  64. +     # The withdraw/update sequence allows $w's width, etc. to be set
  65. +     # without becoming visible.
  66. +     wm withdraw $w
  67.       update
  68. +     # Then we set the position
  69. +     DLG:position $parent $w
  70. +     # Let the new position by updated
  71. +     update
  72. +     # and now make it visible. Viola!  Centered over the parent.
  73. +     # What a kluge, though. :(.
  74. +     wm deiconify $w
  75. + 
  76.       grab $w
  77.       tkwait variable $done
  78.       grab
  79. ***************
  80. *** 159,164 ****
  81. --- 169,200 ----
  82.       destroy $w
  83.   
  84.       return "[set $done]"
  85. + }
  86. + 
  87. + proc DLG:position {parent dialog} {
  88. +     # Tell the WM that we'll do this ourselves.
  89. +         wm sizefrom $dialog user
  90. +         wm positionfrom $dialog user
  91. + 
  92. +     # Where is my parent and what are it's dimensions
  93. +     set pargeo [split [wm geometry $parent] "+x"]
  94. +         set parwidth [lindex $pargeo 0]
  95. +         set parheight [lindex $pargeo 1]
  96. +         set parx [lindex $pargeo 2]
  97. +         set pary [lindex $pargeo 3]
  98. + 
  99. +     # What are my dimensions ?
  100. +     set dialoggeo [split [wm geometry $dialog] "+x"]
  101. +     set dialogwidth [lindex $dialoggeo 0]
  102. +     set dialogheight [lindex $dialoggeo 1]
  103. + 
  104. +     # Build my new position (and dimensions)
  105. +         set geo [ format "%dx%d+%d+%d" $dialogwidth $dialogheight \
  106. +         [expr $parx+($parwidth-$dialogwidth)/2] \
  107. +         [expr $pary+($parheight-$dialogheight)/2] ]
  108. + 
  109. +     # And set it
  110. +     wm geometry $dialog $geo
  111.   }
  112.   
  113.   # Future expansion: For when we are able to do keyboard focus and
  114. ../src/Tk> 
  115.  
  116. -- 
  117. : jay          jay@vnet.ibm.com    My opinions and ideas, not my employer's.
  118.  
  119.