Changeset 860

Show
Ignore:
Timestamp:
06/09/99 12:29:24 (15 years ago)
Author:
piers
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • vic/trunk/ui-grabber.tcl

    r850 r860  
    278278} 
    279279 
     280proc xil_set_hsbc { w param value } { 
     281        $w configure -text $value 
     282        grabber set $param $value 
     283} 
     284 
    280285proc build.xil_Osprey_1k w { 
    281286        # .menu.xil 
     287        global xilHue xilSaturation xilBrightness xilContrast 
    282288        set f [smallfont] 
    283289        label $w.title -text "XIL Grabber" 
     
    295301                           -variable xilHue \ 
    296302                           -relief groove -showvalue 0 -from -128 -to 127 \ 
    297                            -command " $w.f.hue.val configure -text \$xilHue 
    298         grabber set HUE " 
     303                           -command "xil_set_hsbc $w.f.hue.val HUE" 
     304#                           -command " $w.f.hue.val configure -text \$xilHue 
     305#        grabber set HUE " 
    299306#                           -command "xil_grabber_set HUE $w.f.hue.val" 
    300307        pack $w.f.hue.scale $w.f.hue.val -fill x -expand 1 -side left 
     
    322329                           -relief groove -showvalue 0 -from -256 -to 255 \ 
    323330                           -variable xilSaturation \ 
    324                           -command "$w.f.saturation.val configure -text \$xilSaturation  
    325 grabber set SATURATION " 
     331                           -command "xil_set_hsbc $w.f.saturation.val SATURATION" 
     332#                          -command "$w.f.saturation.val configure -text \$xilSaturation  
     333#grabber set SATURATION " 
    326334        pack $w.f.saturation.scale $w.f.saturation.val -fill x -expand 1 -side left 
    327335 
     
    335343                           -relief groove -showvalue 0 -from -128 -to 127 \ 
    336344                           -variable xilBrightness \ 
    337                         -command "$w.f.brightness.val configure -text \$xilBrightness 
    338 grabber set BRIGHTNESS " 
     345                           -command "xil_set_hsbc $w.f.brightness.val BRIGHTNESS" 
    339346        pack $w.f.brightness.scale $w.f.brightness.val -fill x -expand 1 -side left 
    340347 
     
    345352                           -variable xilContrast \ 
    346353                           -relief groove -showvalue 0 -from -256 -to 255 \ 
    347                            -command "$w.f.contrast.val configure -text \$xilContrast 
    348 grabber set CONTRAST " 
     354                           -command "xil_set_hsbc $w.f.contrast.val CONTRAST" 
    349355        pack  $w.f.contrast.scale $w.f.contrast.val -fill x -expand 1 -side left 
    350356