Changeset 860

Timestamp:

06/09/99 12:29:24 (14 years ago)

Author:

piers

Message:

Bug fixed the Hue sat bri and contrast tcl errors that occured when switching to
the XIL grabber.

Files:

• vic/trunk/ui-grabber.tcl (modified) (5 diffs)

vic/trunk/ui-grabber.tcl

@@ -278 +278 @@
 }
 
+proc xil_set_hsbc { w param value } {
+        $w configure -text $value
+        grabber set $param $value
+}
+
 proc build.xil_Osprey_1k w {
         # .menu.xil
+        global xilHue xilSaturation xilBrightness xilContrast
         set f [smallfont]
         label $w.title -text "XIL Grabber"
@@ -295 +301 @@
                            -variable xilHue \
                            -relief groove -showvalue 0 -from -128 -to 127 \
-                           -command " $w.f.hue.val configure -text \$xilHue
-        grabber set HUE "
+                           -command "xil_set_hsbc $w.f.hue.val HUE"
+#                           -command " $w.f.hue.val configure -text \$xilHue
+#        grabber set HUE "
 #                           -command "xil_grabber_set HUE $w.f.hue.val"
         pack $w.f.hue.scale $w.f.hue.val -fill x -expand 1 -side left
@@ -322 +329 @@
                            -relief groove -showvalue 0 -from -256 -to 255 \
                            -variable xilSaturation \
-                          -command "$w.f.saturation.val configure -text \$xilSaturation 
-grabber set SATURATION "
+                           -command "xil_set_hsbc $w.f.saturation.val SATURATION"
+#                          -command "$w.f.saturation.val configure -text \$xilSaturation 
+#grabber set SATURATION "
         pack $w.f.saturation.scale $w.f.saturation.val -fill x -expand 1 -side left
 
@@ -335 +343 @@
                            -relief groove -showvalue 0 -from -128 -to 127 \
                            -variable xilBrightness \
-                        -command "$w.f.brightness.val configure -text \$xilBrightness
-grabber set BRIGHTNESS "
+                           -command "xil_set_hsbc $w.f.brightness.val BRIGHTNESS"
         pack $w.f.brightness.scale $w.f.brightness.val -fill x -expand 1 -side left
 
@@ -345 +352 @@
                            -variable xilContrast \
                            -relief groove -showvalue 0 -from -256 -to 255 \
-                           -command "$w.f.contrast.val configure -text \$xilContrast
-grabber set CONTRAST "
+                           -command "xil_set_hsbc $w.f.contrast.val CONTRAST"
         pack  $w.f.contrast.scale $w.f.contrast.val -fill x -expand 1 -side left