proc deleteConstraintRows {} {
global dfields
global dfields_Constraints
$dfields_Constraints removeRow [$dfields getRowChanged]
}
proc addConstraintRows {} {
global dfields
global dfields_Constraints
$dfields_Constraints addRows 1
}
proc file_to_ConstraintRows {dfields location id file_name} {
for {set row_idx 0} {$row_idx < [$dfields getRowCount]} {incr row_idx} {
set location_val [$location getCurrentValue $row_idx]
set id_val [$id getCurrentValue $row_idx]
set file_name_val $location_val$id_val.str
$file_name setCurrentValue $row_idx $file_name_val
}
}
GuidoForm frm20414 {
-default_buttons
-label TrendAnalysis_FormName
-layout BoxLayout X_AXIS
-tip TrandAnalysis_Formhlp
GuidoTabbedPane tabbed_pane {
GuidoPanel paneltab_1 {
-layout BoxLayout Y_AXIS
-label "main"
GuidoPanel report_panel_2 {
-layout CentrelineLayout
-border etched true
GuidoFileBrowserField fname {
-label TrendAnalysis_FileOutLabel
-display_length 20.5
-extension false
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps"
-format none
-max_length 256
-null false
-tip TrendAnalysis_fileOutput
-translate lower
}
GuidoComboBox report_format {
-label "Output Report File Format"
-display_length 18
-format none
-max_length 40
-null false
-tip "The file format nominated here will be the output report format."
-value_in ".not - Surpac Note File" ".csv - Comma Separated (Spreadsheet)" ".htm - Hypertext Markup Language (Web)" ".html - Hypertext Markup Language (Web)" ".rtf - Rich Text Format (Microsoft Word)" ".pdf - Adobe Acrobat" ".ps  - Postscript"
}
}
GuidoFiller spacer {
-height 0.3
}
GuidoLabel frm20414_6 {
-label "Description Fields for Data"
}
GuidoScrollPane frm20400_14 {
-height 10
GuidoTable dfields {
-instances 7 1 99
-interactive true "remove|add"
-action rowDeleted {[deleteConstraintRows]}
-action rowAdded   {[addConstraintRows]}
GuidoFileBrowserField location {
-display_length 10
-file_mask *.str
-format none
-label Location
-link id
-max_length 252
-next_focus id
-tip TrendAnaysis_InputFilename
-translate lower
}
GuidoField id {
-default 1
-display_length 6
-format range
-label "Id Range"
-max_length 16
-null allowed
-next_focus str
-tip TrendAnal_File_Id_hlp
-translate upper
}
GuidoField str {
-display_length 6
-format range
-label "String range"
-max_length 26
-next_focus dfield
-tip TrendAnalysis_strField
}
GuidoComboBox dfield {
-default D1
-display_length 3
-format string_field
-label "D Field"
-max_length 4
-null false
-tip "Give the description field in which the data is to be found."
-value_in D1 D2 D3 D4 D5 D6 D7 D8 D9 D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 D30 D31 D32 D33 D34 D35 D36 D37 D38 D39 D40 D41 D42 D43 D44 D45 D46 D47 D48 D49 D50 D51 D52 D53 D54 D55 D56 D57 D58 D59 D60 D61 D62 D63 D64 D65 D66 D67 D68 D69 D70 D71 D72 D73 D74 D75 D76 D77 D78 D79 D80 D81 D82 D83 D84 D85 D86 D87 D88 D89 D90 D91 D92 D93 D94 D95 D96 D97 D98 D99 D100
}
GuidoField label {
-display_length 12
-format none
-label Name
-max_length 30
-tip BasicStatsVarName
-translate none
}
GuidoField min {
-display_length 10
-format double
-label "Min. value"
-max_length 10
-tip BasicStatsMinVarValue
-translate upper
}
GuidoField max {
-display_length 10
-format double
-label "Max. value"
-max_length 10
-tip BasicStatsMaxVarValue
-translate upper
}
}
}
GuidoFiller frm10090_18 {
-height 0.2
}
GuidoPanel bottom_panel {
-layout BoxLayout X_AXIS
GuidoPanel percent_panel {
-border etched true
-layout BoxLayout X_AXIS
GuidoField range {
-label "Percentile range :"
-display_length 12
-format range
-max_length 40
-null false
-default "10,100,10"
-tip BasicStats
}
}
GuidoFiller space {
-width 2
}
GuidoPanel bottomRight {
-border etched true
-layout BoxLayout X_AXIS
GuidoButtonGroupPanel negative {
-layout BoxLayout X_AXIS
-label BasicStats_NegLabel
-tip BasicStatsNegValueAs
GuidoRadioButton frm20400_35 {
-label ZEROES
-selected_value ZEROES
}
GuidoRadioButton frm20400_36 {
-label UNDEFINED
-selected_value UNDEFINED
}
GuidoRadioButton frm20400_37 {
-label NEGATIVES
-default true
-selected_value NEGATIVES
}
}
}
}
GuidoFiller space {
-height 0.2
}
}
GuidoPanel paneltab_2 {
-layout BoxLayout Y_AXIS
-label "Co-ordinate Constraints"
GuidoFiller space {
-height 3.5
}
GuidoLabel frm20414_6 {
-label "Co-ordinate Constraint Fields for Data"
}
GuidoScrollPane Constraints_14 {
-height 10
GuidoTable dfields_Constraints {
-instances 7 1 99
-interactive false
GuidoField file_name {
-display_length 8
-format none
-input false
-label "File"
-max_length 256
-translate none
}
GuidoField min0 {
-display_length 8
-format double
-label "Min X"
-max_length 14
-tip BasicStatsMinX_VarValue
-translate upper
}
GuidoField max0 {
-display_length 8
-format double
-label "Max X"
-max_length 14
-tip BasicStatsMaxX_VarValue
-translate upper
}
GuidoField min1 {
-display_length 8
-format double
-label "Min Y"
-max_length 14
-tip BasicStatsMinY_VarValue
-translate upper
}
GuidoField max1 {
-display_length 8
-format double
-label "Max Y"
-max_length 14
-tip BasicStatsMaxY_Value
-translate upper
}
GuidoField min2 {
-display_length 8
-format double
-label "Min Z"
-max_length 14
-tip BasicStatsMinZ_VarValue
-translate upper
}
GuidoField max2 {
-display_length 8
-format double
-label "Max Z"
-max_length 14
-tip BasicStatsMaxZ_Value
-translate upper
}
}
}
}
}
$tabbed_pane setActionCallback mousePressed {[file_to_ConstraintRows $dfields $location $id $file_name]}
$tabbed_pane setActionCallback keyReleased {[file_to_ConstraintRows $dfields $location $id $file_name]}
}
