proc setCorridor {} {
global towards
global away
GuidoApp setCorridorApp "SET CORRIDOR"
$setCorridorApp setParam towards [$towards getCurrentValue]
$setCorridorApp setParam away [$away getCurrentValue]
$setCorridorApp invoke
$setCorridorApp destroy
GuidoSSIOption set "GraphicsUI.PendingChange" "false"
}
proc setPending { pending } {
if {$pending == 1} {
GuidoSSIOption set "GraphicsUI.PendingChange" "true"
} else {
GuidoSSIOption set "GraphicsUI.PendingChange" "false"
}
}
GuidoPanel internal {
-border etched true
-layout BorderLayout
GuidoPanel button_section {
-layout BoxLayout Y_AXIS
-position North
GuidoPanel button_section {
-layout BoxLayout Y_AXIS
GuidoPanel top_button_section {
-layout BorderLayout
GuidoPanel anonymous {
-layout BoxLayout Y_AXIS
GuidoPanel anonymous {
-layout FlowLayout Left 0 0
GuidoButton ppButton {
-tip "PLANES_PREVIOUS_PLANE"
-command server "PREVIOUS PLANE"
-icon "icons/16/previous_plane.png"
}
GuidoButton npButton {
-tip "PLANES_NEXT_PLANE"
-command server "NEXT PLANE"
-icon "icons/16/next_plane.png"
}
GuidoToggleButton 2d_3d_mode_toolbar_button {
-status_item "plane view mode"
-unselected_icon "icons/16/2d_mode.png"
-selected_icon "icons/16/2d_mode.png"
-command server "3D PLANES MODE"
-command server "2D PLANES MODE"
-tip "2D/3D planes mode"
-selected_value 2D
-unselected_value 3D
-default 3D
}
GuidoButton qpButton {
-tip "Quick Planes"
-command server "QUICK PLANES"
-icon "icons/16/quick_planes.png"
}
GuidoButton epButton {
-icon "icons/16/end_planes.png"
-tip "End section view"
-command server "DELETE CUTTING PLANES"
}
GuidoToggleButton triangle_rendering {
-status_item "triangulation_rendering"
-selected_icon "icons/16/triangulations_as_triangles.png"
-unselected_icon "icons/16/triangulations_as_triangles.png"
-command server "TRIANGULATIONS AS POLYLINES"
-command server "TRIANGULATIONS AS TRIANGLES"
-tip "Draw triangulations as triangles or polylines"
-selected_value triangles
-unselected_value lines
}
GuidoToggleButton blockmodel_rendering {
-status_item "blockmodel_rendering"
-selected_icon "icons/16/block_model_as_blocks.png"
-unselected_icon "icons/16/block_model_as_blocks.png"
-command server "BLOCK MODEL AS POLYLINES"
-command server "BLOCK MODEL AS BLOCKS"
-tip "Draw block model as blocks or polylines"
-selected_value blocks
-unselected_value lines
-default blocks
}
GuidoButton bsButton {
-icon "icons/16/block_shrinkage.png"
-command server "PLANES BLOCK SHRINKAGE"
-tip "Block shrinkage"
}
GuidoToggleButton bmAttributesButton {
-status_item "block_model_attributes"
-selected_icon "icons/16/bm_plane_attributes.png"
-unselected_icon "icons/16/bm_plane_attributes.png"
-tip "Display attributes on section"
-command server "ERASE BM PLANE ATTRIBUTES"
-command server "DRAW BM PLANE ATTRIBUTES"
-selected_value on
-unselected_value off
}
}
}
}
}
GuidoFiller f1 {
-height 0.2
}
GuidoPanel planes_panel {
-layout BoxLayout X_AXIS
GuidoPanel towardsaway1 {
-layout BoxLayout X_axis
GuidoLabel away_lbl {
-alignmentY middle
-tip "Away Plane"
-icon "icons/16/filled_triangle.png"
}
GuidoFiller f1 {
-width 0.2
-alignmentY middle
}
}
GuidoPanel towardsaway2 {
-layout BoxLayout X_axis
-status_item enabled "CorridorEnabled"
GuidoField away {
-alignmentY middle
-format double
-width 4
-capture_key_events true
-status_item "plane corridor away"
-action valueChanged {[setCorridor]}
-action focusGained {[setPending 1]}
-action focusLost {[setPending 0]}
-tip "Away Plane"
}
}
GuidoPanel towardsaway3 {
-layout BoxLayout X_axis
GuidoFiller f1 {
-width 0.25
-alignmentY middle
}
GuidoLabel towards_lbl {
-alignmentY middle
-tip "Towards Plane"
-icon "icons/16/filled_dtri.png"
}
GuidoFiller f1 {
-width 0.2
-alignmentY middle
}
}
GuidoPanel towardsaway4 {
-layout BoxLayout X_axis
-status_item enabled "CorridorEnabled"
GuidoField towards {
-alignmentY middle
-format double
-width 4
-capture_key_events true
-status_item "plane corridor towards"
-action valueChanged {[setCorridor]}
-action focusGained {[setPending 1]}
-action focusLost {[setPending 0]}
-tip "Towards Plane"
}
}
GuidoPanel towardsaway5 {
-layout BoxLayout X_axis
GuidoToggleButton lock_plane_corridor {
-alignmentY middle
-status_item "plane corridor locked"
-selected_icon "icons/16/lock.png"
-unselected_icon "icons/16/lock.png"
-command server "UNLOCK PLANE CORRIDOR"
-command server "LOCK PLANE CORRIDOR"
-tip "Lock plane corridor"
-default false
}
GuidoButton large_proj_corridor {
-alignmentY middle
-icon "icons/16/set_large_projections.png"
-tip "Set large projections"
-command server "SET LARGE CORRIDOR"
}
GuidoButton revert_to_plane_corridor {
-alignmentY middle
-icon "icons/16/revert_to_plane_corridor.png"
-tip "Revert to plane corridor"
-command server "REVERT TO PLANE CORRIDOR"
}
}
}
GuidoFiller f1 {
-height 0.05
}
}
GuidoPlanesTree planestree  {
-position Center
}
}
