home *** CD-ROM | disk | FTP | other *** search
/ Dream 44 / Amiga_Dream_44.iso / Linux / Pratique / Tcltk / tkcalc4.tcl < prev    next >
Text File  |  1997-09-10  |  1KB  |  70 lines
  1.  
  2. ######################################
  3. # tkcalc4.tcl                        #
  4. ######################################
  5. # Tkcalculator v0.4                  #
  6. ######################################
  7.  
  8. #################################
  9. # Creer l'interface utilisateur #
  10. #################################
  11.  
  12. proc MakeRow { list } {
  13.     global NbListRow
  14.  
  15.     incr NbListRow
  16.  
  17.     frame .framerow${NbListRow}
  18.  
  19.     pack .framerow${NbListRow} -side top -fill x -expand true
  20.  
  21.     for { set i 0 } { $i < [llength $list] } { incr i } {
  22.     button .btn${i}row${NbListRow} -command "ButtonCommand $i $NbListRow" -text [ lindex $list $i]  -width 3 -height 1
  23.  
  24.     pack .btn${i}row${NbListRow} -side left -in  .framerow${NbListRow}
  25.     }
  26. }
  27.  
  28. # bouton "a propos"
  29.  
  30. text .viewtxt -height 8 -width 32
  31.  
  32. pack .viewtxt -side top
  33.  
  34. set ListRow1 { 7 8 9 \/ "CE" }
  35. set ListRow2 { 4 5 6 \* }
  36. set ListRow3 { 1 2 3 \- }
  37. set ListRow4 { 0 "+/-" \. \+ \= }
  38.  
  39. set NbListRow 0
  40.  
  41. MakeRow $ListRow1
  42. MakeRow $ListRow2
  43. MakeRow $ListRow3
  44. MakeRow $ListRow4
  45.  
  46. frame .comframe
  47.  
  48. button .comframe.aboutbtn -text "About ..." -command AboutCommand
  49. button .comframe.quitbtn -text "Quit" -command exit
  50.  
  51. pack .comframe -side top
  52. pack .comframe.aboutbtn -side left
  53. pack .comframe.quitbtn -side left
  54.  
  55. proc ButtonCommand { i row } {
  56.     puts "You choosed the $i-th button of row \#$row"
  57. }
  58.   
  59.         
  60. uplevel 0 [list source dialogs.tcl]
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.