proc toggle_warning {label1 adjusted} {
global res
set translated_val [GuidoMessage translate BM_CONFIRM_BIG_MODEL [$res getCurrentValue]]
$label1 setCurrentValue $translated_val
set translated_val [GuidoMessage translate BM_CONFIRM_ADJUST_TIP]
$adjusted setCurrentValue $translated_val
}
GuidoForm frm20026 {
-default_buttons "Create model" "Re-enter"
-action initial { [toggle_warning $warn_lbl $adjusted]}
-label "Model Confirmation"
-layout BoxLayout Y_AXIS
-tip BM_CREATE_CONFIRM_TIP
GuidoCheckBox moved {
-visible false
-height 0
-default Yes
-input true
-selected_value Yes
-unselected_value No
}
GuidoField res {
-height 0
-visible false
-default ""
}
GuidoPanel frm20026_28 {
-layout CentreLineLayout
GuidoLabel frm20026_2 {
-label "Model name"
}
GuidoLabel modname {
-font_style bold
}
GuidoScrollPane desc_panel {
-label "Description"
-height 3
-width 40
GuidoTextArea description {
-linewrap true
-wrap_style_word true
}
}
}
GuidoFiller frm20026_29 {
-height 1
}
GuidoPanel frm20026_36 {
-layout BoxLayout X_AXIS
GuidoLabel frm20026_4 {
-label "This model extends from"
}
GuidoFiller frm20026_37 {
-width 1
}
GuidoPanel frm20026_31 {
-layout BoxLayout Y_AXIS
GuidoLabel frm20026_5 {
-label Y
}
GuidoLabel frm20026_6 {
-label X
}
GuidoLabel frm20026_7 {
-label Z
}
}
GuidoFiller frm20026_37 {
-width 1
}
GuidoPanel frm20026_34 {
-layout BoxLayout Y_AXIS
GuidoLabel yorg {
-font_style bold
}
GuidoLabel xorg {
-font_style bold
}
GuidoLabel zorg {
-font_style bold
}
}
GuidoFiller frm20026_37 {
-width 1
}
GuidoPanel frm20026_toPanel {
-layout BoxLayout Y_AXIS
GuidoLabel frm20026_to1 {
-label to
}
GuidoLabel frm20026_to2 {
-label to
}
GuidoLabel frm20026_to3 {
-label to
}
}
GuidoFiller frm20026_37 {
-width 1
}
GuidoPanel frm20026_33 {
-layout BoxLayout Y_AXIS
GuidoLabel frm20026_9 {
-label Y
}
GuidoLabel frm20026_10 {
-label X
}
GuidoLabel frm20026_11 {
-label Z
}
}
GuidoFiller frm20026_37 {
-width 1
}
GuidoPanel frm20026_35 {
-layout BoxLayout Y_AXIS
GuidoLabel yext {
-font_style bold
}
GuidoLabel xext {
-font_style bold
}
GuidoLabel zext {
-font_style bold
}
}
GuidoFiller frm20026_37 {
-width 2
}
GuidoPanel adjustPanel {
-dependency {"[ $moved getCurrentValue]" == "Yes"}
-border etched true
GuidoTextArea adjusted {
-height 3
-width 25
-linewrap true
-wrap_style_word true
-format none
-font_highlight 0 0 255
-default BM_CONFIRM_ADJUST_TIP
}
}
}
GuidoPanel frm20049_43 {
-layout BoxLayout X_AXIS
-border loweredbevel on
-label "Block Model Geometry"
GuidoPanel frm20049_39 {
-layout BoxLayout Y_AXIS
GuidoLabel blk_size {
-label "User block Size"
-height 1
}
GuidoLabel min_blk_size {
-label "Min. block Size"
-height 1
}
GuidoLabel rotation {
-label Rotation
-height 1
}
}
GuidoFiller frm20049_44 {
-width 1
}
GuidoPanel frm20049_40 {
-layout CentreLineLayout
GuidoField yblk {
-display_length 8
-font_style bold
-format double
-input false
-label Y
-max_length 16
-null false
}
GuidoField ymin {
-display_length 8
-font_style bold
-format double
-input false
-label Y
-max_length 16
-null false
}
GuidoField bearing {
-display_length 8
-font_style bold
-format double
-input false
-label Bearing
-max_length 16
-null false
}
}
GuidoFiller frm20049_44 {
-width 1
}
GuidoPanel frm20049_41 {
-layout CentreLineLayout
GuidoField xblk {
-display_length 8
-font_style bold
-format double
-input false
-label X
-max_length 16
-null false
}
GuidoField xmin {
-display_length 8
-font_style bold
-format double
-input false
-label X
-max_length 16
-null false
}
GuidoField dip {
-display_length 8
-font_style bold
-format double
-input false
-label Dip
-max_length 16
-null false
}
}
GuidoFiller frm20049_44 {
-width 1
}
GuidoPanel frm20049_42 {
-layout CentreLineLayout
GuidoField zblk {
-display_length 8
-font_style bold
-format double
-input false
-label Z
-max_length 16
-null false
}
GuidoField zmin {
-display_length 8
-font_style bold
-format double
-input false
-label Z
-max_length 16
-null false
}
GuidoField plunge {
-display_length 8
-font_style bold
-format double
-input false
-label Plunge
-max_length 16
-null false
}
}
GuidoFiller frm20049_44 {
-width 1
}
}
GuidoPanel adjust_extents_panel {
-layout BoxLayout X_AXIS
GuidoPanel move_extents_panel {
-layout BoxLayout Y_AXIS
GuidoFiller frm20049_44 {
-height 1
}
GuidoComboBox move_extents {
-label "Possible extents adjustments :"
-display_length 30
-input true
-translate none
-null false
-tip BM_CONFIRM_ADJUST_EXTENTS
}
}
GuidoFiller frm20049_44 {
-width 1
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel warn_panel {
-layout BoxLayout Y_AXIS
-dependency {"[ $res getCurrentValue]" != ""}
GuidoScrollPane warn_scroll {
-label "Warning"
-height 4
-width 50
GuidoTextArea warn_lbl {
-height 6
-linewrap true
-wrap_style_word true
-format none
-font_highlight 255 0 0
-default BM_CONFIRM_BIG_MODEL
}
}
}
GuidoFiller frm20049_44 {
-height 0.5
}
}
