home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / tcl / 2215 < prev    next >
Encoding:
Text File  |  1992-12-22  |  1.2 KB  |  45 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!eco.twg.com!twg.com!news
  3. From: "David Herron" <david@twg.com>
  4. Subject: Re: making a listbox wider
  5. Message-ID: <1992Dec22.174743.3736@twg.com>
  6. Sensitivity: Personal
  7. Encoding:  25 TEXT , 4 TEXT 
  8. Sender: news@twg.com (USENET News System)
  9. Conversion: Prohibited
  10. Organization: The Wollongong Group, Inc., Palo Alto, CA
  11. Conversion-With-Loss: Prohibited
  12. Date: Tue, 22 Dec 1992 17:47:41 GMT
  13. Lines: 30
  14.  
  15. > How can I make a listbox wider?  Using horizontal scrollbars to get at the
  16. > last 5 or 6 chars in the text doesn't seem worth it.  (Besides, the customer
  17. > wants all of the text visible.)
  18.  
  19.  
  20. frame $top
  21.  
  22. listbox $top.l    -yscrollcommand ..
  23. scrollbar $top.s  -command ...
  24. pack append $top \
  25.     $top.l { left expand fill } \
  26.     $top.s { left filly }
  27.  
  28. pack append $top's-parent \
  29.     ... \
  30.     $top { ... expand fill } \
  31.     ...
  32.  
  33.  
  34. This will make the listbox fill whatever space it's put into while keeping
  35. the scrollbar at a constant size.  (bloated scrollbars are ugly)
  36.  
  37.  
  38. Also take a look at the -geometry argument ...
  39.  
  40.  
  41. <- David Herron <david@twg.com> (work) <david@davids.mmdf.com> (home)
  42. <-
  43. <- During the '80s Usenet's mantra was: "Not all the world's a VAX".
  44. <- During the '90s I hope it becomes:   "Not all the world's DOS (ick)".
  45.