proc changeCliffOps { } {
global use_cliff_ops
global preview
$preview setOperationOn "cliff" [$use_cliff_ops getCurrentValue]
}
proc changeCliffValues {} {
global cliff_style
global cliff_frequency
global cliff_width
global cliff_pen
global cliff_allow_pen_mods
global preview
set buffer [subst { cliff_style = "[$cliff_style getCurrentValue]"
cliff_frequency = "[$cliff_frequency getCurrentValue]"
cliff_pen = "[$cliff_pen getCurrentValue]"
cliff_width = "[$cliff_width getCurrentValue]"
cliff_allow_pen_mods = "[$cliff_allow_pen_mods getCurrentValue]" } ]
$preview loadBuffer "cliff" $buffer
}
GuidoPanel _main_main_13b {
global cliff_fields
for {set idx 0} {$idx < [array size cliff_fields]} {incr idx} {
global "cliff_$cliff_fields($idx)"
}
global use_cliff_ops
-layout BoxLayout Y_AXIS
GuidoPanel _main_main_13_p1 {
-layout CentreLineLayout
GuidoLabel use_cliff_ops_label {
-label "Use cliff symbols"
-font_style bold
}
GuidoCheckBox use_cliff_ops {
-tip "00227_3_TIP_001"
-unselected_value N
-selected_value Y
-action mouseClicked {[changeCliffOps]}
}
}
GuidoPanel cliff_ops_main {
-dependency { "[ $use_cliff_ops getCurrentValue ]" == "Y" }
-layout CentreLineLayout
GuidoField cliff_toe_offset {
-default 1
-display_length 6
-format integer
-label "Toe offset"
-max_length 5
-null false
-tip "00227_3_TIP_002"
-translate upper
}
GuidoComboBox cliff_style {
-default 1
-display_length 8
-label "Cliff symbol style"
-max_length 20
-null false
-value_in "dashes" "wide dashes" "half v" "full v" "doublesmalldashes"
-tip "00227_3_TIP_003"
-translate upper
-action valueChanged {[changeCliffValues]}
}
GuidoField cliff_frequency {
-default 100
-display_length 6
-format double
-high_bound 999999.000000
-label Frequency
-low_bound 1.000000
-max_length 6
-null false
-tip "00227_3_TIP_004"
-translate upper
-action valueChanged {[changeCliffValues]}
}
GuidoField cliff_width {
-display_length  8
-input allowed
-label Width
-default "10"
-low_bound 0
-high_bound 999999
-translate upper
-format real_8
-null disallowed
-help "00227_3_TIP_005"
-action valueChanged {[changeCliffValues]}
}
GuidoField cliff_pen {
-default 1
-display_length 3
-format integer
-high_bound 999
-label "Pen number"
-low_bound 1
-max_length 3
-null false
-tip "Enter the pen number which is to be used to draw the cliff symbol line segments."
-translate upper
-action valueChanged {[changeCliffValues]}
}
GuidoCheckBox cliff_allow_pen_mods {
-label "PLT_LABEL_ALLOW_PEN_MODS"
-default true
-selected_value Y
-unselected_value N
-tip "PLT_ALLOW_PEN_MODIFIERS"
}
GuidoPanel cliff_ops_main_0 {
-label Priority
-layout BoxLayout Y_AXIS
GuidoField cliff_priority {
-default 0
-display_length 3
-format integer
-high_bound 125
-low_bound 0
-max_length 3
-null false
-tip "Enter the priority between 0 and 125 to control the clashing process while processing the map."
-translate upper
}
GuidoLabel frm00227_184 {
-label ""
}
GuidoLabel frm00227_185 {
-label "Cliff symbols are full and"
}
GuidoLabel frm00227_186 {
-label "half length line segments drawn"
}
GuidoLabel frm00227_187 {
-label "between crest and toe strings."
}
GuidoLabel frm00227_188 {
-label "The crest strings are defined"
}
GuidoLabel frm00227_189 {
-label "in the Map while the toe strings"
}
GuidoLabel frm00227_190 {
-label "are determined indirectly by"
}
GuidoLabel frm00227_191 {
-label "adding an offset (usually 1) to"
}
GuidoLabel frm00227_192 {
-label "the crest string number."
}
}
}
}
$_main_main_13 add [eval "\$_main_main_13b getObject"]
global frm00227
$use_cliff_ops setCurrentValue 1
$use_cliff_ops setCurrentValue 0
$use_cliff_ops setCurrentValue [$frm00227 readInputField use_cliff_ops]
if {[$frm00227 readInputField use_cliff_ops] == "Y"} {
global cliff_fields
for {set idx 0} {$idx < [array size cliff_fields]} {incr idx} {
global "cliff_$cliff_fields($idx)"
}
for {set idx 0} {$idx < [array size cliff_fields]} {incr idx} {
set val [$frm00227 readInputField cliff_$cliff_fields($idx)]
if {$val > ""} {
eval "\$cliff_$cliff_fields($idx) setCurrentValue \"\""
eval "\$cliff_$cliff_fields($idx) setCurrentValue \"$val\""
}
}
changeCliffValues
}
