proc initialise { } {
global ObjectId_Label
set buffer [ GuidoExecServer GetExistingTriobjectId {} ]
set object_id [GuidoGetParamBufferValue $buffer objectId ]
set infoLabel ""
set infoLabel [GuidoMessage translate OVERWRITE_TRIOBJECT_MESSAGE $object_id]
$ObjectId_Label setLabel "<html><strong><font size=2.5>$infoLabel</font></strong></html>"
}
GuidoForm frm00125 {
-help_id 203
-default_buttons "Yes" "No"
-label "Verify Creation of Triobject"
-tip SAVE_OVERWRITE_TRIOBJECT_TIP
GuidoPanel Main_Panel {
-layout BoxLayout Y_AXIS
GuidoPanel Spacing_Panel {
-layout BoxLayout X_AXIS
GuidoLabel spacer1 {
-width 0.5
}
GuidoLabel Warning_Label {
-icon "icons/Warning.gif"
}
GuidoLabel spacer2 {
-width 0.5
}
GuidoPanel Warning_Panel {
-layout BoxLayout Y_AXIS
GuidoLabel spacer3 {
-height 0.5
}
}
}
GuidoPanel Filename_Panel {
-layout FlowLayout
GuidoLabel ObjectId_Label {
-action initial {[initialise]}
-font_style bold
}
GuidoLabel spacer3 {
-height 0.7
}
}
GuidoLabel Continue_Label {
-label "FRM_00125_1"
}
GuidoLabel spacer4 {
-height 0.2
}
}
}
