proc togglePanel {p} {
set flag [$p isInputAllowed]
if {$flag == 0} {
$p setInputAllowed true
} else {
$p setInputAllowed false
}
}
GuidoForm frm21401 {
-default_buttons
-label "Import Whittle File"
-layout BoxLayout Y_AXIS
-tip "21401_TIP_001"
-help_id 1552
GuidoPanel frm21401_21 {
-layout CentreLineLayout
GuidoFileBrowserField file_name {
-display_length 10
-extension false
-file_mask *.par
-format none
-label "Parameter file name"
-legacy_action
-max_length 256
-null false
-tip "Enter the name of a correct Whittle parameter file"
-translate lower
}
GuidoFileBrowserField mod_file_name {
-display_length 10
-extension false
-file_mask *.mdl
-format none
-label "Model file name"
-legacy_dependency
-legacy_validation
-max_length 256
-tip "21401_TIP_003"
-translate lower
}
GuidoField mod_desc {
-display_length 20
-format none
-label "Model description"
-max_length 100
-tip "Entering a value here will change the description of the block model"
-translate none
}
}
GuidoFiller frm21401_22 {
-height 1
}
GuidoPanel frm21401_30 {
-layout BoxLayout X_AXIS
GuidoPanel frm21401_23 {
-layout BoxLayout Y_AXIS
GuidoLabel frm21401_7 {
-label "Block size"
}
GuidoLabel frm21401_11 {
-label "Number of blocks"
}
GuidoLabel frm21401_15 {
-label Origin
}
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoPanel frm21401_24 {
-layout BoxLayout Y_AXIS
GuidoLabel frm21401_8 {
-label X
}
GuidoLabel frm21401_12 {
-label X
}
GuidoLabel frm21401_16 {
-label X
}
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoPanel frm21401_27 {
-layout BoxLayout Y_AXIS
GuidoLabel size0 {
-font_style bold
}
GuidoLabel num0 {
-font_style bold
}
GuidoLabel org0 {
-font_style bold
}
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoPanel frm21401_25 {
-layout BoxLayout Y_AXIS
GuidoLabel frm21401_9 {
-label Y
}
GuidoLabel frm21401_13 {
-label Y
}
GuidoLabel frm21401_17 {
-label Y
}
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoPanel frm21401_28 {
-layout BoxLayout Y_AXIS
GuidoLabel size1 {
-font_style bold
}
GuidoLabel num1 {
-font_style bold
}
GuidoLabel org1 {
-font_style bold
}
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoPanel frm21401_26 {
-layout BoxLayout Y_AXIS
GuidoLabel frm21401_10 {
-label Z
}
GuidoLabel frm21401_14 {
-label Z
}
GuidoLabel frm21401_18 {
-label Z
}
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoPanel frm21401_29 {
-layout BoxLayout Y_AXIS
GuidoLabel size2 {
-font_style bold
}
GuidoLabel num2 {
-font_style bold
}
GuidoLabel org2 {
-font_style bold
}
}
}
GuidoFiller frm21401_31 {
-height 0.5
}
GuidoPanel bearing_panel {
-layout BoxLayout X_AXIS
GuidoLabel bearing_heading {
-label "Bearing (rotation about z-axis)"
}
GuidoFiller frm21401_31 {
-width 1
}
GuidoLabel bearing {
-font_style bold
}
}
GuidoFiller frm21401_31 {
-height 0.5
}
GuidoPanel ref_coord_panel {
-layout BoxLayout X_AXIS
GuidoLabel ref_heading {
-label "Reference block coordinates"
}
GuidoFiller frm21401_39 {
-width 2
}
GuidoLabel ref_label0 {
-label X
}
GuidoFiller frm21401_39 {
-width 1
}
GuidoField ref0 {
-default 1
-display_length 2
-format none
-max_length 2
-next_focus ref1
-null false
-tip "21401_TIP_005"
-translate none
}
GuidoFiller frm21401_39 {
-width 2
}
GuidoLabel ref_label1 {
-label Y
}
GuidoFiller frm21401_39 {
-width 1
}
GuidoField ref1 {
-default 1
-display_length 2
-format none
-max_length 2
-next_focus ref2
-null false
-tip "21401_TIP_006"
-translate none
}
GuidoFiller frm21401_39 {
-width 2
}
GuidoLabel ref_label2 {
-label Z
}
GuidoFiller frm21401_39 {
-width 1
}
GuidoField ref2 {
-default 1
-display_length 2
-format none
-max_length 2
-null false
-tip "21401_TIP_007"
-translate none
}
}
GuidoPanel parcelPanel {
-layout BoxLayout Y_AXIS
GuidoPanel parcel_panel {
-layout CentrelineLayout
GuidoCheckBox parcel {
-label "Retrieve Parcel Information"
-action stateChanged {[togglePanel $parcel_panel ]}
-default false
-selected_value Y
-tip "21401_TIP_008"
-unselected_value N
}
}
GuidoPanel ftype_panel {
-layout BoxLayout X_AXIS
GuidoLabel file_type_warning {
-font_style bold
}
}
}
}
