set buffer [GuidoExecServer LegacyGetCurrentDatabaseHandle [subst {sessionType = "GeologyDatabase"}]]
set databaseHandle [ GuidoGetParamBufferValue $buffer DatabaseHandle ]
proc setPageSizeList { pageSizeHandle} {
set buffer [ GuidoExecServer GetPaperSizeList {} ]
set listOfPageSizes [ GuidoGetParamBufferValue $buffer paperSize ]
eval [concat {$pageSizeHandle} {setValues} $listOfPageSizes ]
return 1
}
proc setFieldList { columntype table field } {
set columnTypeValue [$columntype getCurrentValue]
if {"$columnTypeValue" != "Depths"} {
set buffer [ GuidoExecServer GetGLogFieldList [subst { columntype = \"$columnTypeValue\" tablename = \"[$table getCurrentValue]\" } ]]
set listOfFields [ GuidoGetParamBufferValue $buffer fieldList ]
eval [concat {$field} {setValues} $listOfFields ]
}
return 1
}
proc changeInstances { handle } {
set returnValue 1
set handleValue [$handle getCurrentValue]
set handleName [$handle getName]
scan $handleName {%[^012345679]%[12345557690]} rubbish index
global fieldTable$index
upvar 0 fieldTable$index fieldTable
if {[string compare $handleValue "Depths"] == "0"} {
set returnValue 0
} elseif { [string compare $handleValue "Bar / Line"] == "0" ||
[string compare $handleValue "Line Graph"] == "0" } {
set min 1
set max 20
} elseif { [string compare $handleValue "Description"] == "0"} {
set min 1
set max 5
} elseif { [string compare $handleValue "Bar Graph"] == "0"  ||
[string compare $handleValue "Lithology"] == "0"} {
set min 1
set max 2
} else {
set returnValue 0;
}
if { "$returnValue" == "1"} {
set initial [$fieldTable getRowCount]
if { $initial > $max } {
set initial $max
} elseif { $initial < $min } {
set initial $min
}
$fieldTable setInitialRows $initial $min $max
}
return $returnValue
}
proc updateHeading {headingHandle} {
global columns
set selectedIndex [$columns getSelectedIndex]
set oldHeading [split [$columns getTitleAt $selectedIndex] ]
set newHeading "[lindex $oldHeading 0] . [$headingHandle getCurrentValue]"
$columns setTitleAt $selectedIndex $newHeading
return 1
}
set count 0
set tabList {}
set removeTabList {}
set listOfOldTabs {}
proc createNewPanel {insertIndex} {
global count
global columns
global databaseHandle
global column1$count
global columnHeading$count
global col_type$count
global width$count
global col_int$count
global labels$count
global table$count
global fieldTable$count
global fname$count
global minField$count
global maxField$count
global patternScaleField$count
global depthOrientation$count
global noDecimalsField$count
global minorTicksField$count
global font$count
global boldFont$count
global italicFont$count
global underlineFont$count
global textSizeField$count
global descriptionOrientation$count
global descriptionVerticalOrientation$count
global lithologyPatternScaleField$count
GuidoPanel column1$count {
-layout BoxLayout X_AXIS
GuidoPanel column_layoutPanel$count {
-layout BoxLayout X_AXIS
GuidoPanel columnPropertiesPanel$count {
-border etched true
-layout BoxLayout Y_AXIS
-label "Column options"
GuidoPanel columnPropertiesPanel_1$count {
-layout CentreLineLayout VERTICAL LEFT
GuidoField columnHeading$count {
-display_length 16
-format none
-label Heading
-max_length 30
-next_focus col_type
-null allowed
-tip "Enter the heading required for this column."
-translate none
}
upvar 0 columnHeading$count heading
$heading setActionCallback keyReleased {[updateHeading $heading]}
GuidoComboBox col_type$count {
-default Lithology
-format none
-height 1
-label "Column Type"
-max_length 12
-next_focus table
-null false
-tip "01103_TIP_002"
-value_in Lithology "Bar Graph" "Line Graph" Depths Description "Bar / Line"
}
upvar 0 col_type$count dependCol_type
GuidoField width$count {
-default 2
-display_length 16
-format none
-label "Col. Width"
-max_length 32
-next_focus col_int
-null false
-tip "Enter the width of this column.  The width is defined in centimetres."
-translate none
}
GuidoField col_int$count {
-default 0
-display_length 16
-format none
-label Interval
-max_length 32
-next_focus frm01103_35
-null false
-tip "01103_TIP_004"
-translate none
}
GuidoButtonGroupPanel labels$count {
-label Grid
-tip "01103_TIP_005"
GuidoRadioButton onRadioButton$count {
-caption On
-default true
-selected_value On
-height 1
}
GuidoRadioButton offRadioButton$count {
-caption Off
-next_focus opt1_field
-selected_value Off
-height 1
}
}
}
GuidoFiller col_prop_fill_1 {
-height 1
}
GuidoPanel columnTypeDependentPanel$count {
-layout OverlayLayout
GuidoPanel lithoMiscPanel$count {
-dependency {"[$dependCol_type getCurrentValue]" == "Lithology"}
-layout CentreLineLayout
GuidoField lithologyPatternScaleField$count {
-default 100
-display_length 10
-format integer
-label Pattern
-low_bound 0
-max_length 32
-next_focus fields
-tip "01103_TIP_010"
-translate none
}
}
GuidoPanel barLineMiscPanel$count {
-dependency { "[$dependCol_type getCurrentValue]" == "Bar / Line" ||
"[$dependCol_type getCurrentValue]" == "Bar Graph"  ||
"[$dependCol_type getCurrentValue]" == "Line Graph"  }
-layout CentreLineLayout VERTICAL LEFT
GuidoField minField$count {
-display_length 10
-default 0
-format double
-label Min
-max_length 32
-next_focus maxField
-tip "01103_TIP_008"
-translate none
}
GuidoField maxField$count {
-display_length 10
-format double
-label Max
-max_length 32
-next_focus patternScaleField
-tip "01103_TIP_009"
-translate none
}
GuidoPanel patternScalePanel1$count {
-dependency {"[$dependCol_type getCurrentValue]" != "Line Graph"}
-layout BoxLayout Y_AXIS
GuidoLabel patternScaleLabel$count {
-label Pattern
}
}
GuidoPanel patternScalePanel1$count {
-dependency {"[$dependCol_type getCurrentValue]" != "Line Graph"}
-layout BoxLayout Y_AXIS
GuidoField patternScaleField$count {
-default 100
-display_length 10
-format integer
-low_bound 0
-max_length 32
-next_focus fields
-tip "01103_TIP_010"
-translate none
}
}
}
GuidoPanel depthMiscPanel$count {
-dependency {"[$dependCol_type getCurrentValue]" == "Depths"}
-layout CentreLineLayout
GuidoComboBox depthOrientation$count {
-default Left
-display_length 2
-label Orientation
-null false
-next_focus fields
-tip "01103_TIP_011"
-translate none
-value_in Left Right
}
GuidoField noDecimalsField$count {
-default 2
-display_length 9
-format integer
-label "No. Decimal"
-low_bound 0
-max_length 32
-next_focus minorTicksField
-tip "01103_TIP_012"
-translate none
}
GuidoField minorTicksField$count {
-default 0
-display_length 9
-format integer
-label "LOG_MINOR_TICKS"
-low_bound 0
-max_length 32
-next_focus font
-tip "01103_TIP_013"
-translate none
}
}
GuidoPanel descriptionMiscPanel$count {
-dependency {"[$dependCol_type getCurrentValue]" == "Description"}
-layout CentreLineLayout VERTICAL LEFT
GuidoComboBox descriptionOrientation$count {
-default Left
-display_length 5
-null false
-label "Horizontal justification"
-next_focus descriptionVerticalOrientation
-tip "01103_TIP_011"
-translate none
-value_in Left Middle Right
}
GuidoComboBox descriptionVerticalOrientation$count {
-default Top
-display_length 5
-null false
-label "Vertical justification"
-next_focus font
-tip "01103_TIP_011"
-translate none
-value_in Top Centre Bottom
}
}
}
GuidoFiller col_prop_fill_1 {
-height 1
}
GuidoPanel fontPanel$count {
-dependency {"[$dependCol_type getCurrentValue]" == "Depths" ||
"[$dependCol_type getCurrentValue]" == "Description"}
-layout CentreLineLayout
-border etched true
-label "Font options"
GuidoFontNameBrowser font$count {
-label "Name"
-null false
-allowDefault true
-display_length 12
-format none
-max_length 50
-next_focus boldFont$count
-tip "PLT_FONT_NAME_TIP"
}
GuidoCheckBox boldFont$count {
-label "FONT_STYLE_BOLD"
-selected_value Y
-tip "FONT_STYLE_BOLD_TIP"
-unselected_value N
-next_focus italicFont$count
}
GuidoCheckBox italicFont$count {
-label "FONT_STYLE_ITALIC"
-selected_value Y
-tip "FONT_STYLE_ITALIC_TIP"
-unselected_value N
-next_focus underlineFont$count
}
GuidoCheckBox underlineFont$count {
-label "FONT_STYLE_UNDERLINE"
-selected_value Y
-tip "FONT_STYLE_UNDERLINED_TIP"
-unselected_value N
-next_focus textSizeField$count
}
GuidoField textSizeField$count {
-decimals 2
-default 0.2
-display_length 5
-format double
-label "Text height"
-low_bound .05
-max_length 10
-null false
-tip "01103_TIP_014"
-translate none
-next_focus Fields
}
}
}
}
GuidoFiller fillerWidth1 {
-width 1
}
GuidoPanel tablesAndFieldPanel$count {
-layout BoxLayout Y_AXIS
-border etched true
-label "Field options"
GuidoPanel frm01103_52$count {
-layout CentreLineLayout VERTICAL LEFT
GuidoDatabaseTableBrowser table$count {
-dependency { "[$dependCol_type getCurrentValue]" != "Depths" }
-display_length 16
-format none
-label Table
-database_handle $databaseHandle
-table_types "interval point"
-max_length "DB_NAME_LENGTH"
-next_focus width
-null false
-tip "01103_TIP_006"
-translate none
}
}
GuidoFiller fillerHeight05 {
-height 0.5
}
GuidoScrollPane fields$count {
-scroll_size 20 17
GuidoTable fieldTable$count {
-instances 2 2 2
-interactive true
GuidoComboBox fname$count {
-display_length 13
-format none
-null allowed
-label Fields
-max_length "DB_NAME_LENGTH"
-tip "01103_TIP_007"
-translate none
-no_mlt
}
}
upvar 0 fieldTable$count tableHandle
$tableHandle setDependency { [ changeInstances $dependCol_type] }
}
}
upvar 0 "font$count" font
$font updateBrowserList
}
upvar 0 table$count tablehandle
upvar 0 fname$count fieldhandle
$tablehandle updateBrowserList
$fieldhandle setDependency { [setFieldList $dependCol_type $tablehandle $fieldhandle ]}
$dependCol_type setCurrentValue Lithology
upvar 0 column1$count newPanel
global tabList
if {$insertIndex == -1} {
lappend tabList $count
} else {
set tabList [linsert $tabList $insertIndex $count]
}
incr count
return $newPanel
}
proc initPane { index } {
global columnHeading$index
global col_type$index
global width$index
global col_int$index
global labels$index
global table$index
global fname$index
global fieldTable$index
global minField$index
global maxField$index
global patternScaleField$index
global depthOrientation$index
global noDecimalsField$index
global minorTicksField$index
global font$index
global textSizeField$index
global descriptionOrientation$index
global descriptionVerticalOrientation$index
global lithologyPatternScaleField$index
upvar 0 columnHeading$index heading
$heading setCurrentValue ""
upvar 0 width$index width
$width setCurrentValue "2"
upvar 0 col_int$index interval
$interval setCurrentValue "0"
upvar 0 labels$index labels
$labels setCurrentValue "On"
upvar 0 col_type$index type
$type setCurrentValue Lithology
upvar 0 table$index table
upvar 0 fieldTable$index fieldTable
upvar 0 fname$index databaseField
$table setCurrentValue ""
changeInstances $type
$databaseField setCurrentValue 0 ""
upvar 0 minField$index min
upvar 0 maxField$index max
upvar 0 patternScaleField$index pattern
upvar 0 depthOrientation$index orientation
upvar 0 noDecimalsField$index nodecimals
upvar 0 minorTicksField$index minorTicks
upvar 0 font$index font
upvar 0 textSizeField$index textSizeField
upvar 0 descriptionOrientation$index descriptOrientation
upvar 0 descriptionVerticalOrientation$index descriptVerticalOrientation
upvar 0 lithologyPatternScaleField$index lithPattern
$lithPattern setCurrentValue "100"
$min setCurrentValue ""
$max setCurrentValue ""
$pattern setCurrentValue "100"
$orientation setCurrentValue "Left"
$nodecimals setCurrentValue "2"
$minorTicks setCurrentValue "0"
$font setCurrentValue "DefaultFixed"
$textSizeField setCurrentValue "0.20"
$descriptOrientation setCurrentValue "Left"
$descriptVerticalOrientation setCurrentValue "Top"
}
proc getANewPane { insertIndex } {
global listOfOldTabs
global removeTabList
global tabList
if {[llength $listOfOldTabs] == 0 } {
set newPanel [createNewPanel $insertIndex]
} else {
set newPanel [lindex $listOfOldTabs 0]
set paneIndex "[lindex $removeTabList 0]"
if {$insertIndex == -1} {
lappend tabList $paneIndex
} else {
set tabList [linsert $tabList $insertIndex $paneIndex ]
}
initPane $paneIndex
set listOfOldTabs [lreplace $listOfOldTabs 0 0]
set removeTabList [lreplace $removeTabList 0 0]
}
return $newPanel
}
proc addPanel {} {
global columns
set newPanel [getANewPane -1]
$columns add [$newPanel getObject]
set numberOfTabs [$columns getTabCount]
$columns setTitleAt [expr $numberOfTabs -1] "$numberOfTabs . "
$newPanel initialise
$columns setSelectedIndex [expr $numberOfTabs -1]
if { "$numberOfTabs" > "1" } {
global remove
global insert
$remove setInputAllowed true
$insert setInputAllowed true
}
if { "$numberOfTabs" == "50" } {
global add
global insert
$add setInputAllowed false
$insert setInputAllowed false
}
if { "$numberOfTabs" <= "1" } {
global insert
$insert setInputAllowed false
}
}
proc removePanel {} {
global columns
global tabList
global listOfOldTabs
global removeTabList
if { "[$columns getTabCount]" > "1" } {
set removeThisPanelNumber [$columns getSelectedIndex]
set panelNumber [lindex $tabList $removeThisPanelNumber]
global column1$panelNumber
upvar column1$panelNumber removeColumn
set tabList [lreplace $tabList $removeThisPanelNumber $removeThisPanelNumber]
lappend removeTabList $panelNumber
lappend listOfOldTabs $removeColumn
$columns removeTabAt $removeThisPanelNumber
set numberOfTabs [$columns getTabCount]
for {set i $removeThisPanelNumber } {$i < $numberOfTabs} {incr i} {
set oldTitle [split [$columns getTitleAt $i]]
set oldTitle [join [lreplace $oldTitle 0 0]]
$columns setTitleAt $i "[ expr $i+1] $oldTitle"
}
}
if { "$numberOfTabs" <= "1" } {
global remove
$remove setInputAllowed false
}
if { "$numberOfTabs" < "50" } {
global add
global insert
$add setInputAllowed true
$insert setInputAllowed true
}
if { "$numberOfTabs" <= "1" } {
global insert
$insert setInputAllowed false
}
}
proc insertPanel {} {
global columns
set insertThisPanelNumber [$columns getSelectedIndex]
set newPanel [getANewPane $insertThisPanelNumber]
$columns insertTabAt $insertThisPanelNumber [$newPanel getObject]
$columns setTitleAt $insertThisPanelNumber "[expr $insertThisPanelNumber +1] ."
set numberOfTabs [$columns getTabCount]
for {set i $insertThisPanelNumber } {$i < $numberOfTabs} {incr i} {
set oldTitle [split [$columns getTitleAt $i]]
set oldTitle [join [lreplace $oldTitle 0 0]]
$columns setTitleAt $i "[ expr $i+1] $oldTitle"
}
$newPanel initialise
$columns setSelectedIndex $insertThisPanelNumber
global remove
$remove setInputAllowed true
if { "$numberOfTabs" == "50" } {
global add
global insert
$add setInputAllowed false
$insert setInputAllowed false
}
}
proc startup { formHandle } {
set numberOfColumns [$formHandle numberInputFields "columns"]
for { set count 0} {$count < $numberOfColumns} {incr count} {
if { $count != 0 } {
addPanel
}
global columnHeading$count
global col_type$count
global width$count
global col_int$count
global labels$count
global table$count
global fname$count
global fieldTable$count
global minField$count
global maxField$count
global patternScaleField$count
global depthOrientation$count
global noDecimalsField$count
global minorTicksField$count
global font$count
global boldFont$count
global italicFont$count
global underlineFont$count
global textSizeField$count
global descriptionOrientation$count
global descriptionVerticalOrientation$count
global lithologyPatternScaleField$count
upvar 0 col_type$count type
set columnType [$formHandle readInputField "columns($count).col_type"]
$type setCurrentValue $columnType
upvar 0 columnHeading$count heading
set headingValue [$formHandle readInputField "columns($count).col_name"]
$heading setCurrentValue $headingValue
global columns
set newHeading "[$columns getTitleAt $count]$headingValue"
$columns setTitleAt $count $newHeading
upvar 0 width$count width
$width setCurrentValue [$formHandle readInputField "columns($count).width"]
upvar 0 col_int$count interval
$interval setCurrentValue [$formHandle readInputField "columns($count).col_int"]
upvar 0 labels$count labels
$labels setCurrentValue [$formHandle readInputField "columns($count).labels"]
set tableValue [$formHandle readInputField "columns($count).table"]
upvar 0 table$count table
$table setCurrentValue $tableValue
if {$tableValue != "" } {
upvar 0 fieldTable$count fieldTable
upvar 0 fname$count databaseField
set fieldList [split [$formHandle readInputField "columns($count).fname"] "|"]
set i 0
$fieldTable addRows [expr [llength $fieldList] -1]
foreach fieldName $fieldList {
$databaseField setCurrentValue $i $fieldName
incr i
}
}
set optional {}
for { set i 1 } {$i <= 8 } {incr i} {
lappend optional  [$formHandle readInputField "columns($count).opt$i\_field"]
}
upvar 0 minField$count min
upvar 0 maxField$count max
upvar 0 patternScaleField$count pattern
upvar 0 depthOrientation$count orientation
upvar 0 noDecimalsField$count nodecimals
upvar 0 minorTicksField$count minorTicks
upvar 0 font$count font
upvar 0 boldFont$count boldFont
upvar 0 italicFont$count italicFont
upvar 0 underlineFont$count underlineFont
upvar 0 textSizeField$count textSizeField
upvar 0 descriptionOrientation$count descriptOrientation
upvar 0 descriptionVerticalOrientation$count descriptVerticalOrientation
upvar 0 lithologyPatternScaleField$count lithPattern
switch -exact $columnType {
"Lithology" {
$lithPattern setCurrentValue "[lindex $optional 0]"
}
"Bar Graph" {
$min setCurrentValue [lindex $optional 0]
$max setCurrentValue [lindex $optional 1]
$pattern setCurrentValue [lindex $optional 2]
}
"Depths" {
$orientation setCurrentValue [lindex $optional 0]
$nodecimals setCurrentValue [lindex $optional 1]
$minorTicks setCurrentValue [lindex $optional 2]
$font setCurrentValue [lindex $optional 3]
$boldFont setCurrentValue [lindex $optional 4]
$italicFont setCurrentValue [lindex $optional 5]
$underlineFont setCurrentValue [lindex $optional 6]
$textSizeField setCurrentValue [lindex $optional 7]
}
"Line Graph" {
$min setCurrentValue [lindex $optional 0]
$max setCurrentValue [lindex $optional 1]
}
"Description" {
$descriptOrientation setCurrentValue [lindex $optional 0]
$descriptVerticalOrientation setCurrentValue [lindex $optional 1]
$font setCurrentValue [lindex $optional 2]
$boldFont setCurrentValue [lindex $optional 3]
$italicFont setCurrentValue [lindex $optional 4]
$underlineFont setCurrentValue [lindex $optional 5]
$textSizeField setCurrentValue [lindex $optional 6]
}
"Bar / Line" {
$min setCurrentValue [lindex $optional 0]
$max setCurrentValue [lindex $optional 1]
$pattern setCurrentValue [lindex $optional 2]
}
}
}
global paper
global orient
global type
global scale
global interval
global left_margin
global depth_from
global depth_to
global lookup
global pattern
$paper setCurrentValue [$formHandle readInputField "paper"]
$orient setCurrentValue [$formHandle readInputField "orient"]
$type setCurrentValue [$formHandle readInputField "type"]
$scale setCurrentValue [$formHandle readInputField "scale"]
$interval setCurrentValue [$formHandle readInputField "interval"]
$left_margin setCurrentValue [$formHandle readInputField "left_margin"]
$depth_from setCurrentValue [$formHandle readInputField "depth_from"]
$depth_to setCurrentValue [$formHandle readInputField "depth_to"]
$lookup setCurrentValue [$formHandle readInputField "lookup"]
$pattern setCurrentValue [$formHandle readInputField "pattern"]
}
proc final { formHandle } {
if { [string compare [$formHandle getStatus] "legacy preprocess apply"] ==  0 } {
global tabList
global columns
set information {}
set colNum 0
foreach i $tabList {
global columnHeading$i
global col_type$i
global width$i
global col_int$i
global labels$i
global table$i
global fieldTable$i
global fname$i
global minField$i
global maxField$i
global patternScaleField$i
global depthOrientation$i
global noDecimalsField$i
global minorTicksField$i
global font$i
global boldFont$i
global italicFont$i
global underlineFont$i
global textSizeField$i
global descriptionOrientation$i
global descriptionVerticalOrientation$i
global lithologyPatternScaleField$i
upvar 0 columnHeading$i heading
$formHandle writeOutputField "columns($colNum).col_name" "[$heading getCurrentValue]"
upvar 0 width$i width
$formHandle writeOutputField "columns($colNum).width" "[$width getCurrentValue]"
upvar 0 col_int$i interval
$formHandle writeOutputField "columns($colNum).col_int" "[$interval getCurrentValue]"
upvar 0 labels$i labels
$formHandle writeOutputField "columns($colNum).labels" "[$labels getCurrentValue]"
upvar 0 table$i table
$formHandle writeOutputField "columns($colNum).table" "[$table getCurrentValue]"
upvar 0 fieldTable$i fieldTable
set numberDatabaseFields [$fieldTable getRowCount]
upvar 0 fname$i databaseField
set fieldValue {}
for { set j 0 } {$j < $numberDatabaseFields} {incr j} {
set databaseFieldValue  [$databaseField getCurrentValue $j]
if { "$databaseFieldValue" != "" } {
lappend fieldValue $databaseFieldValue
}
}
$formHandle writeOutputField "columns($colNum).fname" "[join $fieldValue | ]"
upvar 0 col_type$i type
set columnType [$type getCurrentValue]
$formHandle writeOutputField "columns($colNum).col_type" "$columnType"
upvar 0 minField$i min
upvar 0 maxField$i max
upvar 0 patternScaleField$i pattern
upvar 0 depthOrientation$i orientation
upvar 0 noDecimalsField$i nodecimals
upvar 0 minorTicksField$i minorTicks
upvar 0 font$i font
upvar 0 boldFont$i boldFont
upvar 0 italicFont$i italicFont
upvar 0 underlineFont$i underlineFont
upvar 0 textSizeField$i textSizeField
upvar 0 descriptionOrientation$i descriptOrientation
upvar 0 descriptionVerticalOrientation$i descriptVerticalOrientation
upvar 0 lithologyPatternScaleField$i lithPattern
switch -exact $columnType {
"Lithology" {
$formHandle writeOutputField "columns($colNum).opt1_field" "[$lithPattern getCurrentValue]"
}
"Bar Graph" {
$formHandle writeOutputField "columns($colNum).opt1_field" "[$min getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt2_field" "[$max getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt3_field" "[$pattern getCurrentValue]"
}
"Depths" {
$formHandle writeOutputField "columns($colNum).opt1_field" "[$orientation getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt2_field" "[$nodecimals getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt3_field" "[$minorTicks getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt4_field" "[$font getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt5_field" "[$boldFont getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt6_field" "[$italicFont getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt7_field" "[$underlineFont getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt8_field" "[$textSizeField getCurrentValue]"
}
"Line Graph" {
$formHandle writeOutputField "columns($colNum).opt1_field" "[$min getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt2_field" "[$max getCurrentValue]"
}
"Description" {
$formHandle writeOutputField "columns($colNum).opt1_field" "[$descriptOrientation getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt2_field" "[$descriptVerticalOrientation getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt3_field" "[$font getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt4_field" "[$boldFont getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt5_field" "[$italicFont getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt6_field" "[$underlineFont getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt7_field" "[$textSizeField getCurrentValue]"
}
"Bar / Line" {
$formHandle writeOutputField "columns($colNum).opt1_field" "[$min getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt2_field" "[$max getCurrentValue]"
$formHandle writeOutputField "columns($colNum).opt3_field" "[$pattern getCurrentValue]"
}
}
incr colNum
}
$formHandle writeOutputField "GuidoTableRowCounter.columns" [llength $tabList]
global paper
global orient
global type
global scale
global interval
global left_margin
global depth_from
global depth_to
global lookup
global pattern
$formHandle writeOutputField "paper" [$paper getCurrentValue]
$formHandle writeOutputField "orient" [$orient getCurrentValue]
$formHandle writeOutputField "type" [$type getCurrentValue]
$formHandle writeOutputField "scale" [$scale getCurrentValue]
$formHandle writeOutputField "interval" [$interval getCurrentValue]
$formHandle writeOutputField "left_margin" [$left_margin getCurrentValue]
$formHandle writeOutputField "depth_from" [$depth_from getCurrentValue]
$formHandle writeOutputField "depth_to" [$depth_to getCurrentValue]
$formHandle writeOutputField "lookup" [$lookup getCurrentValue]
$formHandle writeOutputField "pattern" [$pattern getCurrentValue]
$formHandle finishedWritingFields
}
}
GuidoForm frm01103 {
-default_buttons
-action initial {[startup $frm01103]}
-action stateChanged {[final $frm01103]}
-label "Graphical Drillhole Log"
-layout BoxLayout Y_AXIS
-tip "01103_TIP_017"
GuidoPanel logPropertiesPanel {
-layout BoxLayout X_AXIS
-label "Log Properties"
GuidoPanel paperProperties {
-border etched true
-layout CentreLineLayout
GuidoComboBox paper {
-display_length 12.5
-format none
-label "Paper Size"
-max_length 32
-next_focus frm01103_4
-null false
-tip "01103_TIP_018"
-translate none
-no_mlt
}
setPageSizeList $paper
GuidoPanel frm01103_6 {
-label Orientation
-layout BoxLayout X_AXIS
-tip "01103_TIP_019"
GuidoButtonGroupPanel orient {
GuidoRadioButton frm01103_4 {
-caption Landscape
-selected_value Landscape
}
GuidoRadioButton frm01103_5 {
-caption Portrait
-default true
-next_focus frm01103_9
-selected_value Portrait
}
}
}
GuidoPanel frm01103_11 {
-label "Plot Type"
-layout BoxLayout X_AXIS
-tip "01103_TIP_020"
GuidoButtonGroupPanel type {
GuidoRadioButton frm01103_9 {
-caption "Single Hole"
-selected_value "Single Hole"
}
GuidoRadioButton frm01103_10 {
-caption "Multi Hole"
-next_focus scale
-selected_value "Multi Hole"
}
}
}
GuidoField scale {
-default 100
-display_length 10
-format none
-label Scale
-max_length 32
-next_focus interval
-null false
-tip "01103_TIP_021"
-translate none
}
GuidoField interval {
-default 5
-display_length 10
-format none
-label "Label Interval"
-max_length 32
-next_focus left_margin
-null false
-tip "01103_TIP_022"
-translate none
}
}
GuidoFiller fillerWidth1 {
-width 1
}
GuidoPanel rightSidePanel {
-border etched true
-layout CentreLineLayout
GuidoField left_margin {
-default 0
-display_length 10
-format none
-label "Left Margin"
-max_length 32
-next_focus depth_from
-tip "01103_TIP_023"
-translate none
}
GuidoField depth_from {
-display_length 10
-format none
-label "Depth from"
-max_length 32
-next_focus depth_to
-tip "01103_TIP_024"
-translate none
}
GuidoField depth_to {
-display_length 10
-format none
-label "Depth to"
-max_length 32
-next_focus lookup
-tip "01103_TIP_025"
-translate none
}
GuidoFileBrowserField lookup {
-default SSI_PLOTTING:lookup.ssi
-display_length 20
-file_mask *.ssi
-format none
-label "Lookup File"
-max_length 256
-next_focus pattern
-tip DB_GRAPHICAL_LOG_LOOKUP_FILE
-translate none
}
GuidoFileBrowserField pattern {
-default SSI_PLOTTING:patterns.ssi
-display_length 20
-file_mask *.ssi
-format none
-label "Pattern File"
-max_length 256
-null false
-tip "01103_TIP_027"
-translate none
}
}
GuidoFiller fillerWidth1 {
-width 1
}
}
GuidoFiller filler_height_0_5 {
-height 0.5
}
GuidoPanel buttonPanel {
-layout BoxLayout X_AXIS
GuidoButton add {
-caption Add
-width 8
-action valueChanged {[addPanel]}
}
GuidoButton insert {
-caption Insert
-width 8
-action valueChanged {[insertPanel]}
}
GuidoButton remove {
-dependency {"[$columns getTabCount]" != "1"}
-caption Remove
-width 8
-action valueChanged {[removePanel]}
}
}
GuidoFiller filler_height_0_5 {
-height 0.5
}
GuidoTabbedPane columns {
}
addPanel
GuidoFiller fillerHeight1 {
-height 1
}
$remove setDependency {"[$columns getTabCount]" != "1"}
$frm01103 legacyProcessValues false
}
