proc validateLayerNameRequiredIfNew {newRadio nameEntry} {
if {"[$newRadio getCurrentValue]" == "new"} {
if {"[$nameEntry getCurrentValue]" == ""} {
GuidoMessage warning "Enter the new layer to create"
return 0
}
}
return 1
}
GuidoForm solidsExpand {
-default_buttons
-label "MESHTOOLS_LABEL_EXPAND_CONTRACT_OBJECT"
-tip SOLIDSEXPAND_1
-layout BoxLayout Y_AXIS
GuidoPanel objectPanel {
-border etched true
-label "MESHTOOLS_LABEL_SELECTED_OBJECTS"
-layout BoxLayout X_AXIS
GuidoPanel leftPanel {
-layout CentrelineLayout
-alignmentY middle
GuidoLabel labelLayer {
-label "Active layer:"
-height 1
}
GuidoLabel layer {
-font_style bold
-height 1
}
GuidoField obj_range {
-label "Object Range"
-format range
-display_length 16
-max_length MAX_RNG_LENGTH
-tip "Enter the object range for processing"
}
GuidoField trisol_range {
-label "Trisolation Range"
-format range
-display_length 16
-max_length MAX_RNG_LENGTH
-tip "Enter the trisolation range for processing"
}
}
GuidoPanel buttonPanel {
-layout BoxLayout X_AXIS
-alignmentY middle
GuidoFiller space {
-width 0.5
}
GuidoButton select_button {
-caption "Select"
-legacy_button
-selected_value select
-tip SOLIDSEXPAND_2
}
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel settingsPanel {
-border etched true
-label "Settings"
-layout BoxLayout X_AXIS
GuidoPanel test1 {
-layout BoxLayout Y_AXIS
GuidoLabel expansion_lbl {
-label "Expansion distance"
}
GuidoFiller space {
-height 0.8
}
GuidoLabel simplifyLabel {
-alignmentY top
-label "Precision"
}
}
GuidoFiller space {
-width 0.5
}
GuidoPanel test2 {
-layout BoxLayout Y_AXIS
GuidoField expansion {
-format double
-display_length 16
-max_length MAX_RNG_LENGTH
-tip SOLIDSEXPAND_3
}
GuidoFiller space {
-height 0.5
}
GuidoPanel transPanel {
-layout BoxLayout X_AXIS
GuidoLabel minLabel {
-alignmentY bottom
-font_style bold
-label Min
}
GuidoSlider precision {
-alignmentY top
-maximum_width 10.0
-minimum 1
-maximum 7
-resolution 1
-increment 1
-paint_ticks true
-major_ticks 3
-minor_ticks 1
-default 3
-tip SOLIDSEXPAND_6
}
GuidoLabel minLabel {
-alignmentY bottom
-font_style bold
-label Max
}
GuidoFiller space {
-width 0.5
}
}
}
}
GuidoPanel pppanel {
-layout BoxLayout Y_AXIS
-border etched true
-label "Output"
GuidoButtonGroupPanel resultsTo {
-layout BoxLayout Y_AXIS
-default existing
GuidoRadioButton b1 {
-caption "Overwrite existing objects"
-selected_value existing
-tip SOLIDSEXPAND_7
}
GuidoRadioButton b2 {
-caption "New layer"
-selected_value new
-tip SOLIDSEXPAND_8
}
}
GuidoPanel newLayerPanel {
-layout BoxLayout X_AXIS
GuidoFiller space {
-width 2
}
GuidoField newLayer {
-dependency {"[$resultsTo getCurrentValue]" == "new"}
-validation {[validateLayerNameRequiredIfNew $resultsTo $newLayer]}
-format none
-display_length 16
-max_length 64
-tip "Enter the new layer to create"
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel simplifyPanel {
-layout BoxLayout X_AXIS
GuidoCheckBox simplifyCheck {
-default true
-caption "Simplify results"
-caption_placement right
-selected_value Y
-unselected_value N
-next_focus aggressiveness
-tip SOLIDSEXPAND_9
}
GuidoFiller space {
-width 0.5
}
GuidoPanel transPanel {
-layout BoxLayout X_AXIS
GuidoFiller space {
-width 0.5
}
GuidoLabel minLabel {
-dependency {"[$simplifyCheck getCurrentValue]" == "Y"}
-alignmentY bottom
-font_style bold
-label Min
}
GuidoSlider aggressiveness {
-dependency {"[$simplifyCheck getCurrentValue]" == "Y"}
-alignmentY top
-maximum_width 10.0
-minimum 0.0
-maximum 10.0
-resolution 1
-increment 1
-paint_ticks true
-major_ticks 5
-minor_ticks 1
-default 5.0
-tip SOLIDSEXPAND_10
}
GuidoLabel minLabel {
-dependency {"[$simplifyCheck getCurrentValue]" == "Y"}
-alignmentY bottom
-font_style bold
-label Max
}
GuidoFiller space {
-width 0.5
}
}
}
}
}
