home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / tcl / 2162 < prev    next >
Encoding:
Text File  |  1992-12-21  |  4.0 KB  |  115 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!usc!zaphod.mps.ohio-state.edu!menudo.uh.edu!nuchat!texhrc!drssparc.eptd.Texaco.COM!schendr
  3. From: schendr@drssparc.eptd.Texaco.COM (Dan R. Schenck)
  4. Subject: Problem Losing Expose Events
  5. Message-ID: <1992Dec18.145749.4265@texhrc.uucp>
  6. Followup-To: Ensuring That Windows Get Fully Painted
  7. Sender: news@texhrc.uucp
  8. Nntp-Posting-Host: drssparc.eptd.texaco.com
  9. Organization: Texaco EPTD - Data Management
  10. Date: Fri, 18 Dec 1992 14:57:49 GMT
  11. Lines: 102
  12.  
  13. To ensure that a window gets painted before going on to other things, John 
  14. Ousterhout writes:
  15.  
  16.   The bottom line is that you have to explicitly wait until you *know* that
  17.   the window has been displayed.  The way to do this is with the tkwait command.
  18.   Set up a binding for <Expose> on the window you want to see, with the
  19.   binding set to modify a particular variable.  Then use tkwait to wait for
  20.   the variable to change to the given value.  Once you know the window's up,
  21.   then you can go off and do your other work.  Be sure to do one more update
  22.   so that the window gets displayed, and also be sure to remove the binding
  23.   when you're done.  Sorry this is so complicated... there should probably
  24.   be a procedure in the Tk script library to do this automatically.
  25.  
  26. Trying to follow that advice, I implemented the following test:
  27. ----------------------------------------------------------------------------------
  28. #!/home/schendr/tcl/bin/pish -f
  29.  
  30. proc genName {{var var}} {
  31.   global nameCount
  32.   if [info exists nameCount($var)] {
  33.     incr nameCount($var)
  34.   } else {
  35.     set nameCount($var) 0
  36.   }
  37.   return "$var$nameCount($var)"
  38. }
  39.  
  40. proc timedMsg { msg { timeout 30000 }} {
  41.   set winDone {0}
  42.   set w [genName .InfoMessage]
  43.   toplevel $w
  44.   bind $w <Expose> { set winDone {1} }
  45.   wm withdraw $w
  46.   wm title $w "Message"
  47.  
  48.   frame $w.m
  49.  
  50.   set tmp [split $msg \n]
  51.   set i 0
  52.   foreach line $tmp {
  53.     set i [max $i [clength $line]]
  54.   }
  55.  
  56.   message $w.m.l -text "$msg" \
  57.     -width [expr $i*9] \
  58.     -relief {raised} \
  59.     -justify {center}
  60.   button $w.m.b -command "destroy $w" -text "OK"
  61.  
  62.   pack append $w.m $w.m.l top $w.m.b { top pady 5 }
  63.   pack append $w $w.m {top expand fill}
  64.   if { $timeout != "INFINITE" } { after $timeout "removeTimedMsg $w" }
  65.  
  66.   wm deiconify $w
  67.   update
  68.   tkwait variable winDone
  69.   
  70.   return $w
  71.  
  72. }
  73.  
  74. proc removeTimedMsg { win } {
  75.  
  76.   if { [lsearch [winfo children .] $win] > -1 } { destroy $win }
  77.  
  78. }
  79.  
  80. frame .f -bg {linen} -relief {raised}
  81. button .f.testbug -text {Launch Msg Win} -bg {cornflowerblue} -fg {white} \
  82.   -command {
  83.     timedMsg "Test of expose bug" 3000
  84.     puts stdout "Returned from timed message"
  85.   }
  86. button .f.quit -text {Quit} -bg {red} -fg {white} -command { destroy . }
  87. pack append .f .f.testbug { top frame center padx 10 pady 10 } \
  88.            .f.quit { top frame center padx 10 pady 10 }
  89. pack append . .f { top frame center expand fill }
  90.  
  91. ----------------------------------------------------------------------------------
  92.  
  93. The result on a Sun SPARCStation 2 running X11R4/Motif was that the proc
  94. timedMsg never returned to the caller.  When the Quit button is pushed on the
  95. main window the window is destroyed, but the program hangs and has to be killed
  96. at the system level.  It is as if the Expose event is being lost or the 
  97. variable change is taking place before the tkwait is executed.
  98.  
  99. The above technique works *most* of the time when using Open Windows 2/vtwm, but
  100. not always.
  101.  
  102. The only sure way around this was to grab the window created by timedMsg, have
  103. timedMsg return its window name to the caller and let the caller do a tkwait
  104. window on the timedMsg window.
  105.  
  106.  
  107. I'm using Tk 2.3 with tclX6.4c.
  108.  
  109. -- 
  110. +--------------- Dan R. Schenck - Data Management - TEXACO EPTD ---------------+
  111. |  External Email:  schendr@Texaco.COM        Texaco Email:  schendr@texhrc    |
  112. |    _   __         Voice:    (713) 954-6053  Fax:  (713) 954-6911             |
  113. |   /_) /-/ /\/     US Mail:  Texaco, Inc., 3901 Briarpark, Houston, TX 77042  |
  114. +------------------------------------------------------------------------------+
  115.