set mouse_wheel_items {
GuidoButtonGroup bgroup {
-status_item "MouseWheel"
GuidoRadioButtonMenuItem item1 {
-label "Zoom - Centred"
-selected_value "Zoom - Centred"
-command script scripts/changeMouseButton.tcl "Wheel Zoom - Centred"
-default false
}
GuidoRadioButtonMenuItem item2 {
-label "Zoom - Follow Mouse"
-selected_value "Zoom - Follow Mouse"
-command script scripts/changeMouseButton.tcl "Wheel Zoom - Follow Mouse"
-default true
}
}
}
GuidoMenu viewmenu {
-label Wheel
-delayed_script $mouse_wheel_items
}
