home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / tcl / 1914 < prev    next >
Encoding:
Text File  |  1992-11-20  |  1.6 KB  |  50 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!cs.utexas.edu!hermes.chpc.utexas.edu!news.utdallas.edu!corpgate!bnrgate!bcars267!scoob
  3. From: scoob@bnr.ca (Christian Marcotte)
  4. Subject: Re: RadioButtons variable problem!!!
  5. Message-ID: <1992Nov21.042735.13843@bnr.ca>
  6. Sender: news@bnr.ca (usenet)
  7. Nntp-Posting-Host: cooma
  8. Organization: Bell-Northern Research, Ontario, Canada
  9. References: <1992Nov19.054911.18804@bnr.ca>
  10. Date: Sat, 21 Nov 1992 04:27:35 GMT
  11. Lines: 37
  12.  
  13.  
  14. I found the problem with my radio buttons (funny that no one replied on it...)
  15.  
  16.  
  17. >     ...
  18. >    radiobutton .frame.Months.$month -text $month -variable month \
  19. >        -relief flat -value $month 
  20. >     ...
  21. >
  22. >Later I set the default to the current month:
  23. > 
  24. >    .frame.Months.$currentMonth invoke
  25. >
  26. >And finally I have a button that will call another command with
  27. >the values collected from the radio buttons selections.
  28. >
  29. >    button .cmdBar.day_select -text " Day Selection " \
  30. >        -command "day_selection {$base_dir/$year/$typeOfAsset/$month \
  31. >                  $typeOfAsset $month $year}"
  32.  
  33. I go it to work by modifying the last two lines:
  34.  
  35.         -command {day_selection $base_dir/$year/$typeOfAsset/$month \
  36.                   ^^^            $typeOfAsset $month $year}
  37.                    ^^^^^                                  ^^^
  38.                                                          ^^^^^
  39.  
  40. I removed the inner braces and replaced the outer double quotes with braces...
  41.  
  42. -- Scoob
  43.  
  44.  
  45. -- 
  46. ---------------------------------------------------------------------------
  47. Christian Marcotte                Bell-Northern Research
  48. scoob@bnr.ca                      3500 Carling Ave
  49. Telephone: (613) 763-2782         Nepean, Ont., Canada K1Y 4H7
  50.