home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / tcl / 1794 < prev    next >
Encoding:
Text File  |  1992-11-11  |  3.9 KB  |  117 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!cs.utexas.edu!zaphod.mps.ohio-state.edu!uunet.ca!unilabs!chare
  3. From: chare@unilabs.uucp (Chris Hare)
  4. Subject: new user questions
  5. Message-ID: <1992Nov11.141619.743@unilabs.uucp>
  6. Organization: UniLabs Research Group
  7. Date: Wed, 11 Nov 1992 14:16:19 GMT
  8. Lines: 107
  9.  
  10. Here are some more new user (new to X and tcl/tk) questions:
  11.  
  12. Q. 1
  13. I want to create a display which has three distinct sections: left right and
  14. bottom
  15.     i.e.
  16.  
  17.     +-------------------------------------+
  18.     |                         |button     |
  19.     | listbox                 |button     |
  20.     |                         |button     |
  21.     |                         |button     |
  22.     |                         |button     |
  23.     |                         |button     |
  24.     +-------------------------------------+
  25.     |label                                |
  26.     |text entry widget                    |
  27.     +-------------------------------------+
  28.  
  29. I can get the listbox and the buttons to show up correctly, but not the
  30. bottom frame which contains the label and extry widget.  The bottom frame is
  31. drawn between the left and right frames.
  32.  
  33. How do I fix this?
  34.  
  35. Q. 2
  36. How do I turn off the icon button for child windows ( or I guess more
  37. apropriately, how I create a window without the toplevel command )
  38.  
  39. Q. 3
  40.  
  41. How do I find out what item is selected in the list box?
  42. What about the eentry box?
  43.  
  44. Q. 4
  45. How do I set a double-click on a selection to invoke an action?
  46.  
  47. Q. 5
  48. I also need to create a non-editable display which looks like this:
  49.  
  50. Price Details
  51. Category : test
  52. Product  :
  53.         Prices                              Quantity
  54. Retail   :  100.00              On Hand       :  10
  55. Reseller :  100.00              Committed     :  8
  56. Other    :  100.00              On Order      :  30
  57. Replace  :  100.00              On Back Order :  27         
  58.  
  59. I can create this as a message, which is OK, but the text isn't lined up in
  60. any reasonable sense.  I thought about creating a bunch of label widgets to
  61. stuff the data in, but then I have the same problem as Q.1 above.  
  62.  
  63. This is what I want it to look like:
  64.  
  65.     +--------------------------------------------+---------+
  66.     | Price Details                              |Next     |
  67.     | Category :                                 |---------+
  68.     | Description :                              |Prev     |
  69.     +--------------------------------------------+---------+
  70.     |Prices               |Quantity              |Close    |
  71.     +--------------------------------------------+---------+
  72.     |Retail   | 000000.00 |On Hand        | 0000 |Close All|
  73.     |Reseller | 000000.00 |Committed      | 0000 |---------+
  74.     |Other    | 000000.00 |On Order       | 0000 | Quit    |
  75.     |Replace  | 000000.00 |On Back Order  | 0000 |         |
  76.     +--------------------------------------------+---------+
  77.  
  78. Q. 6
  79. I want to show an initializing box beofre the main window is brought up.
  80. The code is their, but it is never seen.  Why?
  81.  
  82. Q.7 
  83. I also have an errorDialog box which is to be shown if there is a startup
  84. file which can't be found.  the code is there, but the box is never seen.
  85. This is the code for that dialog.  The stdout message is printed, so I knwo
  86. that the procedure is being executed.  There is no error message.
  87.  
  88. proc errorDialog { message } {
  89. global app_name
  90. toplevel .err -class Dialog
  91. wm title .err "$app_name : Error!"
  92. puts stdout "inside errorDialog"
  93.  
  94. frame .err.top -relief raised -border 1
  95. frame .err.bottom -relief raised -border 1
  96.  
  97. button .err.bottom.ok -text OK -command {exit} \
  98.    -font -Adobe-helvetica-medium-r-normal--*-14* 
  99.  
  100. label .err.top.msg -text "ERROR: $message" \
  101.    -font -Adobe-helvetica-medium-r-normal--*-14* 
  102.  
  103. pack append .err.bottom  .err.bottom.ok {fill} 
  104. pack append .err.top  .err.top.msg {fill} 
  105. pack append .err .err.top { top fill } \
  106.                    .err.bottom { bottom fill }
  107.  
  108. }
  109.  
  110.  
  111.  
  112. thanks for your help!
  113. -- 
  114. ????                --- It Always works for me! ---                           
  115. Chris Hare, UNIX Scientist                  Preferred : chare@unilabs.org
  116. Just a mild-mannered consultant by day ....
  117.