proc translateVal { } {
global datestamp_text
set translated_val [GuidoMessage translate FRM10127_DATESTAMP_TEXT]
$datestamp_text setCurrentValue $translated_val
}
GuidoForm frm10127 {
-default_buttons
-label "Inconsistent Date Stamps"
-layout BoxLayout Y_AXIS
-tip FRM10127_HELP
-action initial {[translateVal]}
GuidoPanel frm10127_8 {
-layout CentreLineLayout
GuidoField station {
-display_length 20
-format none
-input false
-label Station
-max_length 20
-translate none
}
GuidoField date1 {
-display_length 20
-format none
-input false
-label FRM10127_TEXT_LINE1
-max_length 20
-translate none
}
GuidoField date2 {
-display_length 20
-format datetime
-label FRM10127_TEXT_LINE2
-max_length 20
-null false
-translate upper
}
GuidoCheckBox force_insertion {
-default false
-label FRM10127_FORCE_TEXT
-selected_value Y
-unselected_value N
}
}
GuidoFiller frm10127_9 {
-height 1
}
GuidoScrollPane sp {
-height 20
-width 40
GuidoTextArea datestamp_text {
-height 20
-editable false
-linewrap true
-wrap_style_word true
-format none
-font_highlight 0 0 255
-default FRM10127_DATESTAMP_TEXT
}
}
}
