package require java
set messager [ java::call com.surpac.client.ClientManager getMessager ]
proc setBeepOnError { beep error_bells } {
if {[$error_bells getCurrentValue] > 0} {
$beep setCurrentValue on
}
}
GuidoForm frm00207 {
-default_buttons
-label "Message Handler Options"
-tip "00207_TIP_001"
-layout BoxLayout Y_AXIS
-help_id 926
GuidoPanel main {
-layout CentreLineLayout
GuidoComboBox language {
-default default
-display_length 8
-format none
-label "Language file"
-max_length 7
-null false
-tip "Use the browser icon to select the language."
-value_in default german spanish french russian chinese polish
}
GuidoCheckBox dbg_msg {
-label "Enable debug messages"
-selected_value on
-tip "Displays debug messages in the message window if ticked."
-unselected_value off
}
GuidoCheckBox info_msg {
-label "Enable informational messages"
-selected_value on
-tip "Displays informational messages in the message window if ticked. This should be enabled by default."
-unselected_value off
}
GuidoCheckBox warn_msg {
-label "Enable warning messages"
-selected_value on
-tip "Displays warning messages in the message window if ticked. This should be enabled by default."
-unselected_value off
}
GuidoCheckBox beep_on_error {
-label "Beep for error messages"
-selected_value on
-tip "Sounds the default error noise when an error occurs if ticked."
-unselected_value off
}
GuidoField buffer_size {
-format integer
-label "Message window buffer size"
-max_length 4
-display_length 6
-tip "The number of lines of messages retained in the message window."
}
GuidoField iwarning {
-display_length 3
-format integer
-high_bound 10
-height 0
-low_bound 0
-max_length 3
-null false
-tip "00207_TIP_008"
-translate none
-visible false
}
GuidoField isevere {
-display_length 3
-format integer
-height 0
-high_bound 10
-low_bound 0
-max_length 3
-null false
-tip "00207_TIP_009"
-translate none
-visible false
}
}
$beep_on_error setActionCallback initial {[setBeepOnError $beep_on_error $isevere]}
GuidoPanel frm00207_12 {
-layout CentreLineLayout
-label "Message Log"
-border etched true
GuidoCheckBox log_msg {
-label "Log to file"
-selected_value on
-tip "00207_TIP_010"
-unselected_value off
}
GuidoPanel panel_2 {
-layout CentreLineLayout
-label "Log file path"
GuidoFileBrowserField log_file {
-dependency {"[$log_msg getCurrentValue]" == "on"}
-display_length 20
-file_access write
-file_mask *.log
-tip "00207_TIP_011"
}
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel button_panel {
-layout boxLayout X_AXIS
GuidoFiller space {
-width 1
}
GuidoButton clear_window {
-action valueChanged {[$messager clearBuffer]}
-caption "Clear Window"
-selected_value ClearBuffer
-height 1
}
GuidoFiller space {
-width 1
}
GuidoButton clear_file {
-action valueChanged {[$messager clearLogFile]}
-caption "Clear log file"
-dependency {"[$log_msg getCurrentValue]" == "on"}
-selected_value ClearLogFile
-height 1
}
}
GuidoFiller space {
-height 0.5
}
}
