home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / tcl / 1015 < prev    next >
Encoding:
Internet Message Format  |  1992-07-21  |  1.6 KB
  1. Path: sparky!uunet!dove!dove.nist.gov!przemek
  2. From: przemek@rrdstrad.nist.gov (Przemek Klosowski)
  3. Newsgroups: comp.lang.tcl
  4. Subject: Tcl interaction in my own window
  5. Message-ID: <PRZEMEK.92Jul21120718@rrdstrad.nist.gov>
  6. Date: 21 Jul 92 16:07:18 GMT
  7. Sender: news@dove.nist.gov
  8. Organization: U. of Maryland/NIST
  9. Lines: 38
  10.  
  11.  
  12. Hello, fellow Tcl/Tk users,
  13.  
  14. I submitted this query once before, but I did not see it in the newsgroup,
  15. so I assume that it was lost, and resubmit it now. Sorry if you do see it
  16. second time around.
  17.  
  18. I am writing a Tcl application that will have a Tcl interaction
  19. window. I could have followed Wish's example by keeping the
  20. interaction in the original shell/xterm window, but instead I chose
  21. to open a a separate toplevel widget containing a scrolled text window
  22. and an entry window. The carriage return in the "entry' widget is
  23. bound to
  24.  
  25. proc interactive.command { wframe } {
  26.     set command [$wframe.entry get]
  27.     $wframe.l.list insert end "$command =>"
  28.     $wframe.l.list insert end [eval $command]
  29. }
  30.  
  31. so, as you can see, both the command and its result get inserted in
  32. the scrolled window. Now, the problem is that the errors are still
  33. printed to the shell window.  Is there a way of intercepting Tcl error
  34. messages/printouts to put them, let say, in a separate message window?
  35.  
  36. In general, do people have comments on this whole setup? I welcome
  37. both followup posts and e-mail; if there's enough e-mail I will
  38. summarize.
  39.     
  40.  
  41.     
  42. --
  43.             przemek klosowski (przemek@rrdstrad.nist.gov)
  44.             Reactor Division (bldg. 235), E111
  45.             National Institute of Standards and Technology
  46.             Gaithersburg, MD 20899,      USA
  47.  
  48.             (301) 975 6249
  49.