set mouse_left_items {
GuidoButtonGroup bgroup {
-status_item "MouseLeftButton"
GuidoRadioButtonMenuItem item1 {
-label "Orbit"
-selected_value "Orbit"
-command script scripts/changeMouseButton.tcl "Left Orbit"
-default false
}
GuidoRadioButtonMenuItem item2 {
-label "Dolly"
-selected_value "Dolly"
-command script scripts/changeMouseButton.tcl "Left Dolly"
-default false
}
GuidoRadioButtonMenuItem item3 {
-label "Zoom"
-selected_value "Zoom"
-command script scripts/changeMouseButton.tcl "Left Zoom"
-default false
}
GuidoRadioButtonMenuItem item4 {
-label "Z-Orbit"
-selected_value "Z-Orbit"
-command script scripts/changeMouseButton.tcl "Left Z-Orbit"
-default false
}
GuidoRadioButtonMenuItem item5 {
-label "Pan"
-selected_value "Pan"
-command script scripts/changeMouseButton.tcl "Left Pan"
-default false
}
GuidoRadioButtonMenuItem item17 {
-label "Roll"
-selected_value "Roll"
-command script scripts/changeMouseButton.tcl "Left Roll"
-default false
}
GuidoRadioButtonMenuItem item6 {
-label "Dolly In/Out"
-selected_value "Dolly In/Out"
-command script scripts/changeMouseButton.tcl "Left Dolly In/Out"
-default false
}
GuidoRadioButtonMenuItem item7 {
-label "Cutting Planes"
-selected_value "Cutting Planes"
-command script scripts/changeMouseButton.tcl "Left Cutting Planes"
-default false
}
GuidoRadioButtonMenuItem item8 {
-label "Constrained Dolly X"
-selected_value "Constrained Dolly X"
-command script scripts/changeMouseButton.tcl "Left Constrained Dolly X"
-default false
}
GuidoRadioButtonMenuItem item9 {
-label "Constrained Dolly Y"
-selected_value "Constrained Dolly Y"
-command script scripts/changeMouseButton.tcl "Left Constrained Dolly Y"
-default false
}
GuidoRadioButtonMenuItem item10 {
-label "Constrained Dolly Z"
-selected_value "Constrained Dolly Z"
-command script scripts/changeMouseButton.tcl "Left Constrained Dolly Z"
-default false
}
GuidoRadioButtonMenuItem item11 {
-label "Constrained Rotate X"
-selected_value "Constrained Rotate X"
-command script scripts/changeMouseButton.tcl "Left Constrained Rotate X"
-default false
}
GuidoRadioButtonMenuItem item12 {
-label "Constrained Rotate Y"
-selected_value "Constrained Rotate Y"
-command script scripts/changeMouseButton.tcl "Left Constrained Rotate Y"
-default false
}
GuidoRadioButtonMenuItem item13 {
-label "Constrained Rotate Z"
-selected_value "Constrained Rotate Z"
-command script scripts/changeMouseButton.tcl "Left Constrained Rotate Z"
-default false
}
GuidoRadioButtonMenuItem item14 {
-label "Constrained Scale X"
-selected_value "Constrained Scale X"
-command script scripts/changeMouseButton.tcl "Left Constrained Scale X"
-default false
}
GuidoRadioButtonMenuItem item15 {
-label "Constrained Scale Y"
-selected_value "Constrained Scale Y"
-command script scripts/changeMouseButton.tcl "Left Constrained Scale Y"
-default false
}
GuidoRadioButtonMenuItem item16 {
-label "Constrained Scale Z"
-selected_value "Constrained Scale Z"
-command script scripts/changeMouseButton.tcl "Left Constrained Scale Z"
-default false
}
}
}
GuidoMenu viewmenu {
-label Left
-delayed_script $mouse_left_items
}
