proc dependencyProc { } {
global p2
global zval
global snaptoplane
$p2 setInputAllowed true
if { [ GuidoSSIOption get "plan plane" ] == "true" } {
$snaptoplane setActionCallback valueChanged { [if {"[$snaptoplane getCurrentValue]" == "false"} {$zval setInputAllowed true} else {$zval setInputAllowed false}]}
if {"[$snaptoplane getCurrentValue]" == "false"} {
$zval setInputAllowed true
} else {
$zval setInputAllowed false
}
} else {
$zval setInputAllowed false
}
}
GuidoForm frm00083 {
-default_buttons
-help_id 1273
-label "Digitiser String Attributes"
-layout BoxLayout Y_AXIS
-tip "00083_TIP_001"
-action initial {[dependencyProc]}
GuidoPanel frm00083_16 {
-layout CentreLineLayout
-border etched true
GuidoField string {
-display_length 5
-format integer
-high_bound 32000
-label "String #"
-low_bound 1
-max_length 5
-null false
-tip "00083_TIP_012"
-translate none
}
GuidoField zval {
-display_length 5
-format double
-label Z
-max_length 16
-null false
-tip "00083_TIP_003"
-translate upper
}
GuidoField desc {
-display_length 20
-format none
-label Desc
-max_length 512
-tip "00083_TIP_004"
-translate none
}
}
GuidoFiller f1 {
-height 1
}
GuidoPanel body_panel {
-layout OverlayLayout
GuidoPanel p2 {
-border etched true
-label "Snapping Properties"
GuidoButtonGroupPanel section_mode_retain {
-layout BoxLayout Y_AXIS
GuidoRadioButton frm00083_14 {
-caption "Use Desc of selected point"
-tip "00083_TIP_009"
-selected_value 5
}
GuidoRadioButton frm00083_15 {
-caption "User entered Desc"
-tip "00083_TIP_008"
-selected_value 6
}
}
GuidoCheckBox snaptoplane {
-caption "Project selections to the current plane"
-default false
-tip "22085_TIP_001"
}
}
}
}
