--- tclpuks/prgsrc/puks.tcl	2005/08/29 18:14:50	1.4
+++ tclpuks/prgsrc/puks.tcl	2005/08/29 19:28:13	1.5
@@ -109,6 +109,55 @@ for {set  i 0} {$i < 8} {incr i} {
     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
 #  pack .start
 #  label .pressed