[BACK]Return to puks.tcl CVS log [TXT] [DIR] Up to [Local Repository] / tclpuks / prgsrc

Diff for /tclpuks/prgsrc/puks.tcl between versions 1.4 and 1.5

version 1.4, 2005/08/29 18:14:50 version 1.5, 2005/08/29 19:28:13
Line 109  for {set  i 0} {$i < 8} {incr i} { Line 109  for {set  i 0} {$i < 8} {incr i} {
     pack .teams.frame($i).score -side left      pack .teams.frame($i).score -side left
 }  }
   
   
   # Question weight
   frame .weight
   set weight 1
   set doubled 0
   pack .weight -side top -fill x
   label .weight.label -text "Цена вопроса"
   entry .weight.weight -textvariable weight -width 3
   checkbutton .weight.doubled -variable doubled
   label .weight.label2 -text "x2"
   pack .weight.label .weight.weight .weight.doubled .weight.label2 -side left
   
   # Buttons and timer
   frame .control
   pack .control -side top -fill x
   frame .control.buttons 
   pack .control.buttons -side left -fill y 
   
   button .control.buttons.assign -text "Assign  Buttons" -underline 0 -state disabled
   pack .control.buttons.assign -fill both  -side top 
   bind Button <a> {.control.buttons.assign invoke}
   
   button .control.buttons.start -text Start -underline 0 -command "puts A"
   pack .control.buttons.start -fill both  -side top 
   bind Button <s> {.control.buttons.start invoke}
   
   button .control.buttons.stop -text Stop -underline 1 -command "puts B" -state disabled
   pack .control.buttons.stop -fill both -side top 
   bind Button <t> {.control.buttons.stop invoke}
   
   button .control.buttons.reset -text "Reset scores" -underline 0 -state disabled
   pack .control.buttons.reset -fill both -side top 
   bind Button <r> {.control.buttons.reset invoke}
   
   
   
   option add *timer.font  -*-palatino-*-r-normal--*-1200-*-*-*-*-*-* widgetDefault
   label .control.timer -text 0 -border 5 -relief raised -borderwidth 2
   pack .control.timer -side left -expand 1 -fill x
   
   # Status line
   frame .status -relief sunk -borderwidth 2
   pack .status -side top -fill x
   label .status.mcr -relief ridge -text "Not connected" -fg red -width 48
   pack .status.mcr -side left -fill x
   label .status.state -relief ridge -text "Idle" 
   pack .status.state -side left -fill x
   
   
 #  button .start -text "Start" -command start  #  button .start -text "Start" -command start
 #  pack .start  #  pack .start
 #  label .pressed   #  label .pressed 
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>