home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / tcl / 2437 < prev    next >
Encoding:
Text File  |  1993-01-21  |  2.1 KB  |  50 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!howland.reston.ans.net!bogus.sura.net!ra!wave3i.nrl.navy.mil!feirtag
  3. From: feirtag@wave3i.nrl.navy.mil (Fred Feirtag)
  4. Subject: WANTED--Rx for Anemic Colors:
  5. Message-ID: <C183HD.H4x@ra.nrl.navy.mil>
  6. Sender: usenet@ra.nrl.navy.mil
  7. Organization: Naval Research Lab, Washington, DC
  8. Date: Thu, 21 Jan 1993 21:24:48 GMT
  9. Lines: 39
  10.  
  11. When I run the following program under Tk 3.0, I get two different
  12. colors:
  13.  
  14. +---------------------------------------------------------------------------+
  15. | #!/usr/local/bin/wish -f                                                  |
  16. |                                                                           |
  17. | pack append . \                                                           |
  18. |   [label .bisque1 -text {This is bisque1} -bg bisque1] {pady 50 fill} \   |
  19. |   [label .default -text {What is this?}] {pady 50 fill}                   |
  20. |                                                                           |
  21. +---------------------------------------------------------------------------+
  22.  
  23. I don't think this is as it should be.  First of all,
  24.  
  25. >>> How Can One Ask Tk The Current Colors For A Given Window/Widget?
  26.  
  27. I found "bisque1" by looking in the source, "default.h," specifically,
  28. but this shouldn't be necessary, should it?
  29.  
  30. Also, when I run this under an old "pre-alpha" release of Tk (dated
  31. exactly two years ago today), the bottom, default, color ***DOES*** match
  32. the explicitly requested bisque1 of the top label.
  33.  
  34. I'm working on an Iris, and I build the old Tk before IRIX had much
  35. support for X-windows, so I linked that one with X stuff I got from
  36. MIT, as opposed to what IRIX now provides.  There are lots of differences,
  37. but I'm guessing that this is a bug that's crept into Tk???
  38.  
  39. Please try this code on your system & post if the colors match.
  40.  
  41. Fred
  42.  
  43. -- 
  44.  
  45. Fred Feirtag                    |
  46. Naval Research Lab, Code 7120   |  "Well . . . 'Spam, Eggs, Bacon, Sausage
  47. Washington, DC  20375           |   and Spam' hasn't got MUCH Spam in it."
  48. feirtag@wave.nrl.navy.mil       |            --Monty Python
  49. (202) 404 - 8502                |
  50.