on init
declare ui_slider $COS(0, 795000)
make_persistent($COS)
declare $k_COS
$k_COS := get_ui_id($COS)
set_control_par_str($k_COS,$CONTROL_PAR_PICTURE,"cos")
set_control_par($k_COS,$CONTROL_PAR_POS_X,512)
set_control_par($k_COS,$CONTROL_PAR_POS_Y,141)
set_control_par($k_COS,$CONTROL_PAR_MOUSE_BEHAVIOUR,$mouse_resp)
declare ui_button $GRAPE
declare $slider_disabled
declare $CONTROL_PAR_DISABLE
$GRAPE := 0
make_persistent ($GRAPE)
declare $k_GRAPE
$k_HAZE := get_ui_id($GRAPE)
set_control_par_str($k_GRAPE,$CONTROL_PAR_TEXT,"")
set_control_par_str($k_GRAPE,$CONTROL_PAR_PICTURE,"GRAPE")
set_control_par($k_GRAPE,$CONTROL_PAR_POS_X,521)
set_control_par($k_GRAPE,$CONTROL_PAR_POS_Y,117)
set_control_par($k_GRAPE,$CONTROL_PAR_MOUSE_BEHAVIOUR,$mouse_resp)
end on
ui_control($GRAPE)
$slider_disabled := get_control_par($COS, $CONTROL_PAR_DISABLE)
if ($slider_disabled = 1)
set_control_par($COS, $CONTROL_PAR_DISABLE, 1)
$slider_disabled := 0
else
set_control_par($COS, $CONTROL_PAR_DISABLE, 0)
$slider_disabled := 1
end if
end on