GuidoForm morphingForm {
-layout BoxLayout Y_AXIS
-default_buttons
-label "String morphing"
-tip "MORPHING_TIP1"
GuidoPanel bottom {
-layout CentreLineLayout
-border etched true
GuidoField newsegs {
-label "Number of new segments"
-format integer_4
-translate none
-display_length 5
-max_length 5
-null false
-low_bound 0
-tip "MORPHING_TIP2"
}
GuidoField newstrno {
-label "New string number"
-format integer_4
-translate none
-display_length 5
-max_length 5
-null false
-low_bound 1
-high_bound 32000
-tip "MORPHING_TIP3"
}
GuidoCheckBox preserve {
-label "Preserve master segments?"
-selected_value "y"
-unselected_value "n"
-default "n"
-tip "MORPHING_TIP4"
}
GuidoCheckBox clean {
-label "Remove duplicates?"
-selected_value "y"
-unselected_value "n"
-default "y"
-tip "MORPHING_TIP5"
}
GuidoField trapdist {
-dependency {"[$clean getCurrentValue]" == "y"}
-label "Trap distance for removing duplicates"
-format real_8
-translate none
-display_length 5
-max_length 5
-null false
-default 0.05
-low_bound 0
-tip "MORPHING_TIP6"
}
GuidoCheckBox delcontrols {
-label "Remove control strings?"
-selected_value "y"
-unselected_value "n"
-default "y"
-tip "MORPHING_TIP7"
}
GuidoCheckBox triangulate {
-label "Triangulate segments?"
-selected_value "y"
-unselected_value "n"
-default "n"
-tip "MORPHING_TIP8"
}
GuidoField object_no {
-dependency {"[$triangulate getCurrentValue]" == "y"}
-label "Object ID"
-format real_4
-translate none
-display_length 5
-max_length 5
-null false
-low_bound 1
-high_bound 32000
-tip "MORPHING_TIP9"
}
GuidoField trisol_no {
-dependency {"[$triangulate getCurrentValue]" == "y"}
-label "Trisolation ID"
-format real_4
-translate none
-display_length 5
-max_length 5
-null false
-low_bound 1
-high_bound 32000
-tip "MORPHING_TIP10"
}
}
}
