proc getAxisCoords {locat rid strang ya xa yb xb secrng ymin ymax} {
set buffer [GuidoExecServer GetAxisCoords [subst {location = "[$locat getCurrentValue]" fileId = "[$rid getCurrentValue]" range = "[$secrng getCurrentValue]" ya = "[$ya getCurrentValue]" xa = "[$xa getCurrentValue]" yb = "[$yb getCurrentValue]" xb = "[$xb getCurrentValue]" ymin = "[$ymin getCurrentValue]" ymax = "[$ymax getCurrentValue]"}]]
$ya setCurrentValue [ GuidoGetParamBufferValue $buffer "ya" ]
$xa setCurrentValue [ GuidoGetParamBufferValue $buffer "xa" ]
$yb setCurrentValue [ GuidoGetParamBufferValue $buffer "yb" ]
$xb setCurrentValue [ GuidoGetParamBufferValue $buffer "xb" ]
$ymin setCurrentValue [ GuidoGetParamBufferValue $buffer "ymin" ]
$ymax setCurrentValue [ GuidoGetParamBufferValue $buffer "ymax" ]
$secrng setCurrentValue [ GuidoGetParamBufferValue $buffer "secrng" ]
}
proc updateDataExtsandSectionRng {ya xa yb xb ymin ymax secrng} {
set buffer [GuidoExecServer UpdateDataExtsandSectionRng [subst {ya = "[$ya getCurrentValue]" xa = "[$xa getCurrentValue]" yb = "[$yb getCurrentValue]" xb = "[$xb getCurrentValue]" ymin = "[$ymin getCurrentValue]" ymax = "[$ymax getCurrentValue]" range = "[$secrng getCurrentValue]"}]]
$ymin setCurrentValue [ GuidoGetParamBufferValue $buffer "ymin" ]
$ymax setCurrentValue [ GuidoGetParamBufferValue $buffer "ymax" ]
$secrng setCurrentValue [ GuidoGetParamBufferValue $buffer "range" ]
}
GuidoForm frm10106 {
-default_buttons
-label "Compute stope profiles"
-action initial {[getAxisCoords $locat1 $rid1 $strang1 $ya1 $xa1 $yb1 $xb1 $secrng $ymin $ymax]}
-layout BoxLayout Y_AXIS
-help_id 385
-tip 10106_TIP_0
GuidoPanel frm10106_17 {
-border etched true
-label "Define first Surface"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField locat1 {
-display_length 16.5
-action valueChanged {[getAxisCoords $locat1 $rid1 $strang1 $ya1 $xa1 $yb1 $xb1 $secrng $ymin $ymax]}
-file_mask *.str
-format none
-label Location
-link rid1
-max_length 252
-null false
-tip 10106_TIP_1
-translate none
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField rid1 {
-display_length 16.5
-action valueChanged {[getAxisCoords $locat1 $rid1 $strang1 $ya1 $xa1 $yb1 $xb1 $secrng $ymin $ymax]}
-format double
-label "ID"
-max_length 16
-null false
-tip 10106_TIP_2
-translate upper
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField strang1 {
-display_length 16.5
-action valueChanged {[getAxisCoords $locat1 $rid1 $strang1 $ya1 $xa1 $yb1 $xb1 $secrng $ymin $ymax]}
-format none
-label "String range"
-max_length 32
-tip 10106_TIP_3
-translate none
}
}
GuidoPanel p5 {
-border etched true
-label "Define an axis line"
-layout BoxLayout X_AXIS
GuidoPanel frm00278_8 {
-layout CentreLineLayout VERTICAL LEFT
GuidoFiller fill {
-height 0.05
}
GuidoLabel lbl {
-label Minimum
}
GuidoField ya1 {
-display_length 8
-action valueChanged {[updateDataExtsandSectionRng $ya1 $xa1 $yb1 $xb1 $ymin $ymax $secrng]}
-format double
-decimals 3
-label Northing
-max_length 16
-next_focus xa1
-null false
-tip 00278_TIP_0
-translate upper
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField xa1 {
-display_length 8
-action valueChanged {[updateDataExtsandSectionRng $ya1 $xa1 $yb1 $xb1 $ymin $ymax $secrng]}
-format double
-decimals 3
-label Easting
-max_length 16
-next_focus yb1
-null false
-tip 00278_TIP_0
-translate upper
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoLabel extent_lbl {
-label "Data extent"
}
GuidoLabel ymin {}
GuidoFiller fill {
-height 0.05
}
}
GuidoFiller frm00278_11 {
-width 0.5
}
GuidoPanel frm00278_9 {
-layout CentreLineLayout VERTICAL LEFT
GuidoLabel lbl {
-label Maximum
}
GuidoFiller fill {
-height 0.05
}
GuidoField yb1 {
-display_length 8
-action valueChanged {[updateDataExtsandSectionRng $ya1 $xa1 $yb1 $xb1 $ymin $ymax $secrng]}
-format double
-decimals 3
-max_length 16
-next_focus xb1
-null false
-tip 00278_TIP_0
-translate upper
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField xb1 {
-display_length 8
-action valueChanged {[updateDataExtsandSectionRng $ya1 $xa1 $yb1 $xb1 $ymin $ymax $secrng]}
-format double
-decimals 3
-max_length 16
-null false
-tip 00278_TIP_0
-translate upper
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {}
GuidoLabel ymax {}
}
}
GuidoPanel p20 {
-border etched true
-label "Define the sections range and output file for sections"
-layout CentreLineLayout VERTICAL LEFT
GuidoField secrng {
-display_length 18.5
-format range
-label "Range"
-max_length 40
-null false
-tip 10107_TIP_1
-translate none
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoFileBrowserField outloc {
-display_length 18.5
-file_access write
-file_mask *.str
-format none
-label Location
-link orid
-max_length 252
-tip 10107_TIP_2
-translate none
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField orid {
-display_length 18.5
-format double
-label "ID"
-max_length 16
-null false
-tip 10107_TIP_3
-translate upper
}
}
GuidoPanel p3 {
-border etched true
-label "Define the file to be created"
-layout CentreLineLayout VERTICAL LEFT
GuidoFileBrowserField loc {
-display_length 19
-file_access write
-file_mask "*.not *.csv *.htm *.html *.rtf *.pdf *.ps"
-format none
-label Location
-link rid
-max_length 252
-tip RPT_FILE_NOMINATION
-null false
-translate lower
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField rid {
-display_length 19
-format double
-label ID
-max_length 16
-tip RPT_FILE_NOMINATION
-null false
-translate upper
}
GuidoFiller fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoComboBox extension {
-label "Format"
-display_length 16.5
-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 fill {
-height 0.05
}
GuidoFiller fill {
-height 0.05
}
GuidoField decimals {
-display_length 2
-format integer
-low_bound 0
-high_bound 3
-label "Decimals"
-default 3
-max_length 1
-null false
-tip "Set the number of decimal places used in report output."
}
}
}
