Skip to content

P
proview
Commit 744477d1 authored by claes's avatar claes
Browse files
Options

File identation changed

parent bb7ed310
Hide whitespace changes
Inline Side-by-side
Showing with 2272 additions and 2939 deletions
wb/mmi/wb/src/wb_foe.uil
View file @ 744477d1
...@@ -66,292 +66,218 @@ value ...@@ -66,292 +66,218 @@ value
' *************************************************'); ' *************************************************');
value value
k_palette_width : 170; k_palette_width : 170;
k_label_height : 35; k_label_height : 35;
k_text_left_offset : 150; k_text_left_offset : 150;
identifier identifier
foe_ctx; foe_ctx;
procedure procedure
foe_activate_save(integer); foe_activate_save(integer);
foe_activate_exit(integer); foe_activate_exit(integer);
foe_activate_print(integer); foe_activate_print(integer);
foe_activate_printoverv(integer); foe_activate_printoverv(integer);
foe_activate_printselect(integer); foe_activate_printselect(integer);
foe_activate_syntax(integer); foe_activate_syntax(integer);
foe_activate_compile(integer); foe_activate_compile(integer);
foe_activate_plcattribute(integer); foe_activate_plcattribute(integer);
foe_activate_winddelete(integer); foe_activate_winddelete(integer);
foe_activate_quit(integer); foe_activate_quit(integer);
foe_activate_savetrace(integer); foe_activate_savetrace(integer);
foe_activate_restoretrace(integer); foe_activate_restoretrace(integer);
foe_create_save(integer); foe_create_widget_cb(integer);
foe_create_exit(integer); foe_create_palette_object(integer);
foe_create_print(integer);
foe_create_printoverv(integer); foe_activate_cut(integer);
foe_create_printselect(integer); foe_activate_copy(integer);
foe_create_syntax(integer); foe_activate_paste(integer);
foe_create_compile(integer); foe_activate_moveregion(integer);
foe_create_redraw(integer); foe_activate_attribute(integer);
foe_create_plcattribute(integer); foe_activate_subwindow(integer);
foe_create_winddelete(integer); foe_activate_undelete(integer);
foe_create_quit(integer); foe_activate_unselect(integer);
foe_create_savetrace(integer); foe_activate_delete(integer);
foe_create_restoretrace(integer); foe_activate_changetext(integer);
foe_create_palette_object(integer);
foe_activate_gridsize1(integer);
foe_activate_cut(integer); foe_activate_gridsize2(integer);
foe_activate_copy(integer); foe_activate_gridsize3(integer);
foe_activate_paste(integer); foe_activate_gridsize4(integer);
foe_activate_moveregion(integer); foe_activate_gridsize5(integer);
foe_activate_attribute(integer); foe_activate_showgrid(integer);
foe_activate_subwindow(integer); foe_activate_zoomin(integer);
foe_activate_undelete(integer); foe_activate_zoomout(integer);
foe_activate_unselect(integer); foe_activate_unzoom(integer);
foe_activate_delete(integer); foe_activate_redraw(integer);
foe_activate_changetext(integer); foe_activate_palette_plant(integer);
foe_activate_palette_object(integer);
foe_activate_gridsize1(integer); foe_activate_palette_con(integer);
foe_activate_gridsize2(integer); foe_activate_refcon(integer);
foe_activate_gridsize3(integer); foe_activate_showexeord(integer);
foe_activate_gridsize4(integer);
foe_activate_gridsize5(integer); foe_activate_search(integer);
foe_activate_showgrid(integer); foe_activate_searchobject(integer);
foe_activate_zoomin(integer); foe_activate_searchstring(integer);
foe_activate_zoomout(integer); foe_activate_searchnext(integer);
foe_activate_unzoom(integer);
foe_activate_redraw(integer); foe_activate_trace_togg(integer);
foe_activate_palette_plant(integer); foe_activate_simulate_togg(integer);
foe_activate_palette_object(integer); foe_activate_view_togg(integer);
foe_activate_palette_con(integer); foe_activate_edit_togg(integer);
foe_activate_refcon(integer);
foe_activate_showexeord(integer); foe_activate_getobj (integer); !SG 11.04.91
foe_activate_expand (integer);
foe_activate_search(integer); foe_activate_compress (integer);
foe_activate_searchobject(integer); foe_activate_helpclass( integer);
foe_activate_searchstring(integer); foe_activate_help (integer);
foe_activate_searchnext(integer);
foe_activate_trace_togg(integer); foe_create_adb(integer); !SG 24.02.91
foe_activate_simulate_togg(integer); foe_create_label(integer);
foe_activate_view_togg(integer); foe_create_textinput(integer);
foe_activate_edit_togg(integer); foe_valchanged_textinput(integer);
foe_create_edit_form(integer);
foe_activate_getobj (integer); !SG 11.04.91 foe_create_subpane(integer);
foe_activate_expand (integer); foe_yes_popupmsg(integer);
foe_activate_compress (integer); foe_no_popupmsg(integer);
foe_activate_helpclass( integer); foe_cancel_popupmsg(integer);
foe_activate_help (integer);
foe_create_pop_attribute(integer);
foe_create_pop_subwindow(integer);
foe_create_adb(integer); !SG 24.02.91 foe_create_pop_getobj (integer);
foe_create_file_entry(integer); foe_create_pop_paste(integer);
foe_create_edit_entry(integer); foe_create_pop_copy(integer);
foe_create_search_entry(integer); foe_create_pop_cut(integer);
foe_create_customize_entry(integer); foe_create_pop_moveregion(integer);
foe_create_function_entry(integer); foe_create_pop_delete(integer);
foe_create_trace_togg(integer); foe_create_pop_printselect(integer);
foe_create_simulate_togg(integer); foe_create_pop_helpclass(integer);
foe_create_view_togg(integer); foe_popdown_pop(integer);
foe_create_edit_togg(integer);
foe_create_label(integer);
foe_create_textinput(integer);
foe_valchanged_textinput(integer);
foe_create_edit_form(integer);
foe_create_subpane(integer);
foe_yes_popupmsg(integer);
foe_no_popupmsg(integer);
foe_cancel_popupmsg(integer);
foe_create_pop_attribute(integer);
foe_create_pop_subwindow(integer);
foe_create_pop_getobj (integer);
foe_create_pop_paste(integer);
foe_create_pop_copy(integer);
foe_create_pop_cut(integer);
foe_create_pop_moveregion(integer);
foe_create_pop_delete(integer);
foe_create_pop_printselect(integer);
foe_create_pop_helpclass(integer);
foe_popdown_pop(integer);
value value
menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1'); menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
/* SG 09.02.91 new design: ( insertion of a mainwindow ... ) and a object foe_window : XmMainWindow {
* callback to save the id of the adb arguments {
* foe_window tree:
*
* foe_window ( XmMainWindow )
* |
* foe_menu + foe_adb
* | |
* ...... foe_label + w ( adb from gredit)
*
* ...
*/
object foe_window : XmMainWindow
{
arguments
{
! XmNwidth = 0;
! XmNheight = 0;
XmNwidth = 1000; XmNwidth = 1000;
XmNheight = 700; XmNheight = 700;
}; };
controls controls {
{ XmMenuBar foe_menu;
XmMenuBar foe_menu; XmForm foe_adb;
XmForm foe_adb; };
}; !Controls
callbacks
{
};
}; };
object foe_adb : XmForm object foe_adb : XmForm {
{ arguments {
arguments XmNresizePolicy = XmRESIZE_NONE;
{ };
! XmNwidth = 500; controls {
! XmNheight = 500; XmText foe_textinput;
XmNresizePolicy = XmRESIZE_NONE; XmLabel foe_label;
XmPanedWindow pane_subwidget;
XmForm edit_form;
};
callbacks {
MrmNcreateCallback = procedure foe_create_adb ( foe_ctx);
}; };
controls
{
XmText foe_textinput;
XmLabel foe_label; ! SG 09.02.91
XmPanedWindow pane_subwidget;
XmForm edit_form;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_adb ( foe_ctx) ;
};
}; };
object edit_form : XmForm object edit_form : XmForm {
{ arguments {
arguments XmNborderWidth = 1;
{ XmNtopAttachment = XmATTACH_WIDGET;
XmNborderWidth = 1; XmNtopWidget = XmLabel foe_label;
XmNtopAttachment = XmATTACH_WIDGET; XmNbottomAttachment = XmATTACH_FORM;
XmNtopWidget = XmLabel foe_label; XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_WIDGET;
XmNrightAttachment = XmATTACH_FORM; XmNleftWidget = XmPanedWindow pane_subwidget;
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmPanedWindow pane_subwidget;
}; };
callbacks callbacks {
{
MrmNcreateCallback = procedure foe_create_edit_form( foe_ctx); MrmNcreateCallback = procedure foe_create_edit_form( foe_ctx);
}; };
}; };
object pane_subwidget : XmPanedWindow object pane_subwidget : XmPanedWindow {
{ arguments {
XmNwidth = k_palette_width;
arguments XmNborderWidth = 1;
{ XmNtopAttachment = XmATTACH_FORM;
XmNwidth = k_palette_width; XmNtopOffset = k_label_height;
XmNborderWidth = 1; XmNbottomAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM;
XmNtopOffset = k_label_height; !! XmNtraversalOn = false;
XmNbottomAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
!! XmNtraversalOn = false;
}; };
callbacks {
controls MrmNcreateCallback = procedure foe_create_subpane ( foe_ctx);
{
};
callbacks
{
MrmNcreateCallback = procedure foe_create_subpane ( foe_ctx) ;
}; };
}; };
object foe_menu : XmMenuBar object foe_menu : XmMenuBar {
{ arguments {
arguments XmNorientation = XmHORIZONTAL;
{ XmNspacing = 15;
XmNorientation = XmHORIZONTAL; XmNmenuHelpWidget = XmCascadeButton help_entry;
XmNspacing = 15; };
XmNmenuHelpWidget = XmCascadeButton help_entry; controls {
}; XmCascadeButton file_entry;
XmCascadeButton edit_entry;
controls XmCascadeButton search_entry;
{ XmCascadeButton view_entry;
XmCascadeButton file_entry; ! XmCascadeButton connections_entry;
XmCascadeButton edit_entry; XmCascadeButton functions_entry;
XmCascadeButton search_entry; XmCascadeButton mode_entry;
XmCascadeButton view_entry; XmCascadeButton help_entry;
! XmCascadeButton connections_entry; };
XmCascadeButton functions_entry;
XmCascadeButton mode_entry;
XmCascadeButton help_entry;
};
}; };
object foe_label : XmLabel ! SG 25.01.91 , 09.02.91 object foe_label : XmLabel {
{ arguments {
arguments XmNborderWidth = 1;
{ XmNtopAttachment = XmATTACH_FORM;
XmNborderWidth = 1; XmNrightAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM; XmNbottomAttachment = XmATTACH_WIDGET;
XmNleftAttachment = XmATTACH_FORM; XmNbottomWidget = XmPanedWindow pane_subwidget;
XmNbottomAttachment = XmATTACH_WIDGET; XmNmarginLeft = 10;
XmNbottomWidget = XmPanedWindow pane_subwidget; XmNalignment = XmALIGNMENT_BEGINNING;
XmNmarginLeft = 10; XmNlabelString = "";
XmNalignment = XmALIGNMENT_BEGINNING; XmNheight = 40;
XmNlabelString = ""; XmNfontList = menu_font;
XmNheight = 40; };
XmNfontList = menu_font; controls {
}; };
controls callbacks {
{ MrmNcreateCallback = procedure foe_create_label ( foe_ctx);
}; };
callbacks
{
MrmNcreateCallback = procedure foe_create_label ( foe_ctx) ;
};
}; };
object foe_textinput : XmText object foe_textinput : XmText {
{ arguments {
arguments XmNtopAttachment = XmATTACH_FORM;
{ XmNleftAttachment = XmATTACH_FORM;
XmNtopAttachment = XmATTACH_FORM; XmNleftOffset = k_text_left_offset;
XmNleftAttachment = XmATTACH_FORM; XmNbottomAttachment = XmATTACH_WIDGET;
XmNleftOffset = k_text_left_offset; XmNbottomWidget = XmPanedWindow pane_subwidget;
XmNbottomAttachment = XmATTACH_WIDGET; ! XmNtopAttachment = XmATTACH_FORM;
XmNbottomWidget = XmPanedWindow pane_subwidget; ! XmNrightAttachment = XmATTACH_FORM;
! XmNtopAttachment = XmATTACH_FORM; XmNx = 100;
! XmNrightAttachment = XmATTACH_FORM; XmNeditMode = XmMULTI_LINE_EDIT;
XmNx = 100; XmNrows = 1;
XmNeditMode = XmMULTI_LINE_EDIT; XmNcolumns = 35;
XmNrows = 1; XmNborderWidth = 0;
XmNcolumns = 35; ! XmNheight = 40;
XmNborderWidth = 0; XmNfontList = menu_font;
! XmNheight = 40; };
XmNfontList = menu_font; controls {
}; };
controls callbacks {
{ MrmNcreateCallback = procedure foe_create_textinput ( foe_ctx);
}; XmNvalueChangedCallback = procedure foe_valchanged_textinput( foe_ctx);
callbacks };
{
MrmNcreateCallback = procedure foe_create_textinput ( foe_ctx) ;
XmNvalueChangedCallback = procedure foe_valchanged_textinput( foe_ctx);
};
}; };
...@@ -359,262 +285,206 @@ object foe_textinput : XmText ...@@ -359,262 +285,206 @@ object foe_textinput : XmText
! !
! ** File Menu ** ! ** File Menu **
! !
object file_entry : XmCascadeButton object file_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("File");
{ XmNmnemonic = keysym('F');
XmNlabelString = compound_string("File"); XmNfontList = menu_font;
XmNmnemonic = keysym('F'); XmNuserData = 1;
XmNfontList = menu_font; };
}; callbacks {
callbacks MrmNcreateCallback = procedure foe_create_widget_cb ( foe_ctx);
{ };
MrmNcreateCallback = procedure foe_create_file_entry ( foe_ctx) ; controls {
}; XmPulldownMenu {
controls controls {
{ XmPushButton {
XmPulldownMenu arguments {
{ XmNlabelString = compound_string("Save");
controls XmNmnemonic = keysym('S');
{ XmNaccelerator = "Ctrl<Key>S";
XmPushButton XmNacceleratorText = compound_string('Ctrl+S');
{ XmNfontList = menu_font;
arguments XmNuserData = 2;
{ };
XmNlabelString = compound_string("Save"); callbacks {
XmNmnemonic = keysym('S'); MrmNcreateCallback = procedure foe_create_widget_cb (foe_ctx);
XmNaccelerator = "Ctrl<Key>S"; XmNactivateCallback = procedure foe_activate_save(foe_ctx);
XmNacceleratorText = compound_string('Ctrl+S'); XmNhelpCallback = procedure foe_activate_save(foe_ctx);
XmNfontList = menu_font; };
}; };
callbacks XmCascadeButton {
{ arguments {
MrmNcreateCallback = procedure foe_create_save (foe_ctx); XmNlabelString = compound_string("Print");
XmNactivateCallback = procedure foe_activate_save(foe_ctx); XmNmnemonic = keysym('P');
XmNhelpCallback = procedure foe_activate_save(foe_ctx); XmNfontList = menu_font;
}; };
}; controls {
XmCascadeButton XmPulldownMenu {
{ controls {
arguments XmPushButton {
{ arguments {
XmNlabelString = compound_string("Print"); XmNlabelString = compound_string("Documents");
XmNmnemonic = keysym('P'); XmNmnemonic = keysym('D');
XmNfontList = menu_font; ! XmNaccelerator = "Ctrl<Key>D";
}; ! XmNacceleratorText = compound_string('Ctrl+D');
controls XmNuserData = 3;
{ XmNfontList = menu_font;
XmPulldownMenu };
{ callbacks {
controls MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
{ XmNactivateCallback = procedure foe_activate_print(foe_ctx);
XmPushButton XmNhelpCallback = procedure foe_activate_print(foe_ctx);
{ };
arguments };
{
XmNlabelString = compound_string("Documents"); XmPushButton {
XmNmnemonic = keysym('D'); arguments {
! XmNaccelerator = "Ctrl<Key>D"; XmNlabelString = compound_string("Overview");
! XmNacceleratorText = compound_string('Ctrl+D'); XmNmnemonic = keysym('O');
XmNfontList = menu_font; XmNfontList = menu_font;
}; XmNuserData = 4;
callbacks };
{ callbacks {
MrmNcreateCallback = procedure foe_create_print(foe_ctx); MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_print(foe_ctx); XmNactivateCallback = procedure foe_activate_printoverv(foe_ctx);
XmNhelpCallback = procedure foe_activate_print(foe_ctx); XmNhelpCallback = procedure foe_activate_printoverv(foe_ctx);
}; };
}; !Push_button };
XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Selected Documents");
arguments XmNmnemonic = keysym('S');
{ XmNfontList = menu_font;
XmNlabelString = compound_string("Overview"); XmNuserData = 5;
XmNmnemonic = keysym('O'); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
callbacks XmNactivateCallback = procedure foe_activate_printselect(foe_ctx);
{ XmNhelpCallback = procedure foe_activate_printselect(foe_ctx);
MrmNcreateCallback = procedure foe_create_printoverv(foe_ctx); };
XmNactivateCallback = procedure foe_activate_printoverv(foe_ctx); };
XmNhelpCallback = procedure foe_activate_printoverv(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Selected Documents");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_printselect(foe_ctx);
XmNactivateCallback = procedure foe_activate_printselect(foe_ctx);
XmNhelpCallback = procedure foe_activate_printselect(foe_ctx);
};
}; !Push_button
}; };
}; };
}; };
}; };
! XmPushButton XmSeparator {
! { };
! arguments XmPushButton {
! { arguments {
! XmNlabelString = compound_string("Exit"); XmNlabelString = compound_string("Syntax");
! XmNmnemonic = keysym('E'); XmNmnemonic = keysym('x');
! }; XmNfontList = menu_font;
! callbacks XmNuserData = 6;
! { };
! MrmNcreateCallback = procedure foe_create_exit(foe_ctx); callbacks {
! XmNactivateCallback = procedure foe_activate_exit(foe_ctx); MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
! XmNhelpCallback = procedure foe_activate_exit(foe_ctx); XmNactivateCallback = procedure foe_activate_syntax(foe_ctx);
! }; XmNhelpCallback = procedure foe_activate_syntax(foe_ctx);
! }; };
XmSeparator };
{ XmPushButton {
}; arguments {
XmPushButton XmNlabelString = compound_string("Compile");
{ XmNmnemonic = keysym('C');
arguments XmNfontList = menu_font;
{ XmNuserData = 7;
XmNlabelString = compound_string("Syntax"); };
XmNmnemonic = keysym('x'); callbacks {
XmNfontList = menu_font; MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
}; XmNactivateCallback = procedure foe_activate_compile(foe_ctx);
callbacks XmNhelpCallback = procedure foe_activate_compile(foe_ctx);
{ };
MrmNcreateCallback = procedure foe_create_syntax(foe_ctx); };
XmNactivateCallback = procedure foe_activate_syntax(foe_ctx); XmSeparator {
XmNhelpCallback = procedure foe_activate_syntax(foe_ctx); };
}; XmPushButton {
}; arguments {
XmPushButton XmNlabelString = compound_string("Plc Attributes...");
{ XmNmnemonic = keysym('A');
arguments XmNfontList = menu_font;
{ XmNuserData = 8;
XmNlabelString = compound_string("Compile"); };
XmNmnemonic = keysym('C'); callbacks {
XmNfontList = menu_font; MrmNcreateCallback = procedure foe_create_widget_cb (foe_ctx);
}; XmNactivateCallback = procedure foe_activate_plcattribute (foe_ctx);
callbacks XmNhelpCallback = procedure foe_activate_plcattribute (foe_ctx);
{ };
MrmNcreateCallback = procedure foe_create_compile(foe_ctx); };
XmNactivateCallback = procedure foe_activate_compile(foe_ctx); XmPushButton {
XmNhelpCallback = procedure foe_activate_compile(foe_ctx); arguments {
}; XmNlabelString = compound_string("Delete Window");
}; XmNmnemonic = keysym('W');
XmSeparator XmNfontList = menu_font;
{ XmNuserData = 9;
}; };
XmPushButton callbacks {
{ MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
arguments XmNactivateCallback = procedure foe_activate_winddelete(foe_ctx);
{ XmNhelpCallback = procedure foe_activate_winddelete(foe_ctx);
XmNlabelString = compound_string("PLC Attributes..."); };
XmNmnemonic = keysym('A'); };
XmNfontList = menu_font; XmPushButton {
}; arguments {
callbacks XmNlabelString = compound_string("SaveTrace");
{ XmNmnemonic = keysym('W');
MrmNcreateCallback = procedure foe_create_plcattribute (foe_ctx); XmNfontList = menu_font;
XmNactivateCallback = procedure foe_activate_plcattribute (foe_ctx); XmNuserData = 10;
XmNhelpCallback = procedure foe_activate_plcattribute (foe_ctx); };
}; callbacks {
}; MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmPushButton XmNactivateCallback = procedure foe_activate_savetrace(foe_ctx);
{ XmNhelpCallback = procedure foe_activate_savetrace(foe_ctx);
arguments };
{ };
XmNlabelString = compound_string("Delete Window"); XmPushButton {
XmNmnemonic = keysym('W'); arguments {
XmNfontList = menu_font; XmNlabelString = compound_string("RestoreTrace");
}; XmNmnemonic = keysym('W');
callbacks XmNfontList = menu_font;
{ XmNuserData = 11;
MrmNcreateCallback = procedure foe_create_winddelete(foe_ctx); };
XmNactivateCallback = procedure foe_activate_winddelete(foe_ctx); callbacks {
XmNhelpCallback = procedure foe_activate_winddelete(foe_ctx); MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
}; XmNactivateCallback = procedure foe_activate_restoretrace(foe_ctx);
}; XmNhelpCallback = procedure foe_activate_restoretrace(foe_ctx);
XmPushButton };
{ };
arguments XmSeparator {
{ };
XmNlabelString = compound_string("SaveTrace"); XmPushButton {
XmNmnemonic = keysym('W'); arguments {
XmNfontList = menu_font; XmNlabelString = compound_string("Close");
}; XmNmnemonic = keysym('C');
callbacks ! XmNaccelerator = "Ctrl<Key>C";
{ ! XmNacceleratorText = compound_string('Ctrl+C');
MrmNcreateCallback = procedure foe_create_savetrace(foe_ctx); XmNuserData = 12;
XmNactivateCallback = procedure foe_activate_savetrace(foe_ctx); XmNfontList = menu_font;
XmNhelpCallback = procedure foe_activate_savetrace(foe_ctx); };
}; callbacks {
}; MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmPushButton XmNactivateCallback = procedure foe_activate_quit(foe_ctx);
{ XmNhelpCallback = procedure foe_activate_quit(foe_ctx);
arguments };
{ };
XmNlabelString = compound_string("RestoreTrace"); XmPushButton {
XmNmnemonic = keysym('W'); arguments {
XmNfontList = menu_font; XmNlabelString = compound_string("");
}; XmNfontList = menu_font;
callbacks XmNuserData = 13;
{ };
MrmNcreateCallback = procedure foe_create_restoretrace(foe_ctx); callbacks {
XmNactivateCallback = procedure foe_activate_restoretrace(foe_ctx); MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNhelpCallback = procedure foe_activate_restoretrace(foe_ctx); XmNactivateCallback = procedure foe_activate_exit(foe_ctx);
}; XmNhelpCallback = procedure foe_activate_exit(foe_ctx);
}; };
XmSeparator };
{ };
}; };
XmPushButton };
{ };
arguments
{
XmNlabelString = compound_string("Close");
XmNmnemonic = keysym('C');
! XmNaccelerator = "Ctrl<Key>C";
! XmNacceleratorText = compound_string('Ctrl+C');
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_quit(foe_ctx);
XmNactivateCallback = procedure foe_activate_quit(foe_ctx);
XmNhelpCallback = procedure foe_activate_quit(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_exit(foe_ctx);
XmNactivateCallback = procedure foe_activate_exit(foe_ctx);
XmNhelpCallback = procedure foe_activate_exit(foe_ctx);
};
};
}; !Controls
}; !Pulldown_menu
}; !Controls
}; ! file_entry
...@@ -622,1042 +492,820 @@ object file_entry : XmCascadeButton ...@@ -622,1042 +492,820 @@ object file_entry : XmCascadeButton
! !
! ** Edit Menu ** ! ** Edit Menu **
! !
object edit_entry : XmCascadeButton object edit_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("Edit");
{ XmNmnemonic = keysym('E');
XmNlabelString = compound_string("Edit"); XmNfontList = menu_font;
XmNmnemonic = keysym('E'); XmNuserData = 14;
XmNfontList = menu_font; };
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb ( foe_ctx);
};
controls {
XmPulldownMenu {
controls {
XmPushButton push_undelete;
XmPushButton push_unselect;
XmSeparator separator;
XmPushButton push_cut;
XmPushButton push_copy;
XmPushButton push_paste;
XmSeparator separator;
XmPushButton push_connect;
XmSeparator separator;
XmPushButton push_delete;
XmPushButton push_changetext;
XmPushButton push_expand;
XmPushButton push_compress;
};
}; };
callbacks };
{ };
MrmNcreateCallback = procedure foe_create_edit_entry ( foe_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton push_undelete ;
XmPushButton push_unselect ;
XmSeparator separator;
XmPushButton push_cut ;
XmPushButton push_copy ;
XmPushButton push_paste ;
! XmPushButton push_moveregion ;
XmSeparator separator;
XmPushButton push_connect ;
XmSeparator separator;
XmPushButton push_delete ;
XmPushButton push_changetext ;
XmPushButton push_expand ;
XmPushButton push_compress ;
}; !Controls
}; !XmPulldownMenu
}; !controls
}; !edit_entry
object push_cut : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Cut");
XmNmnemonic = keysym('t');
XmNaccelerator = "Ctrl<Key>X";
XmNacceleratorText = compound_string('Ctrl+X');
! XmNaccelerator = "Alt<Key>DRemove:";
! XmNacceleratorText = compound_string('Alt+Remove');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_cut(foe_ctx);
XmNhelpCallback = procedure foe_activate_cut(foe_ctx);
};
}; !Push_button
object push_copy : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Copy");
XmNmnemonic = keysym('C');
XmNaccelerator = "Ctrl<Key>C";
XmNacceleratorText = compound_string('Ctrl+C');
! XmNaccelerator = "Alt Shift<Key>DRemove:";
! XmNacceleratorText = compound_string('Alt+Shift+Remove');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_copy(foe_ctx);
XmNhelpCallback = procedure foe_activate_copy(foe_ctx);
};
}; !Push_button
object push_paste : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Paste");
XmNmnemonic = keysym('P');
XmNaccelerator = "Ctrl<Key>V";
XmNacceleratorText = compound_string('Ctrl+V');
! XmNaccelerator = "Alt<Key>Insert:";
! XmNacceleratorText = compound_string('Alt+Insert');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_paste(foe_ctx);
XmNhelpCallback = procedure foe_activate_paste(foe_ctx);
};
}; !Push_button
! object push_moveregion : XmPushButton
! {
! arguments
! {
! XmNlabelString = compound_string("Move Region");
! XmNmnemonic = keysym('M');
! };
! callbacks
! {
! XmNactivateCallback = procedure foe_activate_moveregion(foe_ctx);
! XmNhelpCallback = procedure foe_activate_moveregion(foe_ctx);
! };
! }; !Push_button
object separator: XmSeparator
{
};
object push_undelete : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Undo Delete");
XmNmnemonic = keysym('U');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_undelete(foe_ctx);
XmNhelpCallback = procedure foe_activate_undelete(foe_ctx);
};
}; !Push_button
object push_unselect : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Undo Select");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_unselect(foe_ctx);
XmNhelpCallback = procedure foe_activate_unselect(foe_ctx);
};
}; !Push_button
object push_connect : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Connect");
XmNmnemonic = keysym('o');
XmNaccelerator = "Ctrl<Key>Q";
XmNacceleratorText = compound_string('Ctrl+Q');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_getobj (foe_ctx);
XmNhelpCallback = procedure foe_activate_getobj (foe_ctx);
};
}; !Push_button
object push_delete : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Delete");
XmNmnemonic = keysym('D');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_delete(foe_ctx);
XmNhelpCallback = procedure foe_activate_delete(foe_ctx);
};
}; !Push_button
object push_changetext : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Change Text");
XmNmnemonic = keysym('h');
XmNaccelerator = "Ctrl<Key>T";
XmNacceleratorText = compound_string('Ctrl+T');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_changetext(foe_ctx);
XmNhelpCallback = procedure foe_activate_changetext(foe_ctx);
};
}; !Push_button
object push_expand : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Expand Object");
XmNmnemonic = keysym('x');
XmNaccelerator = "Ctrl<Key>Right";
XmNacceleratorText = compound_string('Ctrl+Right');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_expand (foe_ctx);
XmNhelpCallback = procedure foe_activate_expand (foe_ctx);
};
}; !Push_button
object push_compress : XmPushButton
{
arguments
{
XmNlabelString = compound_string("Compess Object");
XmNmnemonic = keysym('m');
XmNaccelerator = "Ctrl<Key>Left";
XmNacceleratorText = compound_string('Ctrl+Left');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_compress (foe_ctx);
XmNhelpCallback = procedure foe_activate_compress (foe_ctx);
};
}; !Push_button
object push_cut : XmPushButton {
arguments {
XmNlabelString = compound_string("Cut");
XmNmnemonic = keysym('t');
XmNaccelerator = "Ctrl<Key>X";
XmNacceleratorText = compound_string('Ctrl+X');
! XmNaccelerator = "Alt<Key>DRemove:";
! XmNacceleratorText = compound_string('Alt+Remove');
XmNfontList = menu_font;
XmNuserData = 15;
};
callbacks {
XmNactivateCallback = procedure foe_activate_cut(foe_ctx);
XmNhelpCallback = procedure foe_activate_cut(foe_ctx);
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
};
object push_copy : XmPushButton {
arguments {
XmNlabelString = compound_string("Copy");
XmNmnemonic = keysym('C');
XmNaccelerator = "Ctrl<Key>C";
XmNacceleratorText = compound_string('Ctrl+C');
! XmNaccelerator = "Alt Shift<Key>DRemove:";
! XmNacceleratorText = compound_string('Alt+Shift+Remove');
XmNfontList = menu_font;
XmNuserData = 16;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_copy(foe_ctx);
XmNhelpCallback = procedure foe_activate_copy(foe_ctx);
};
}; !Push_button
object push_paste : XmPushButton {
arguments {
XmNlabelString = compound_string("Paste");
XmNmnemonic = keysym('P');
XmNaccelerator = "Ctrl<Key>V";
XmNacceleratorText = compound_string('Ctrl+V');
! XmNaccelerator = "Alt<Key>Insert:";
! XmNacceleratorText = compound_string('Alt+Insert');
XmNfontList = menu_font;
XmNuserData = 17;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_paste(foe_ctx);
XmNhelpCallback = procedure foe_activate_paste(foe_ctx);
};
};
object separator: XmSeparator {
};
object push_undelete : XmPushButton {
arguments {
XmNlabelString = compound_string("Undo Delete");
XmNmnemonic = keysym('U');
XmNfontList = menu_font;
XmNuserData = 18;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_undelete(foe_ctx);
XmNhelpCallback = procedure foe_activate_undelete(foe_ctx);
};
};
object push_unselect : XmPushButton {
arguments {
XmNlabelString = compound_string("Undo Select");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
XmNuserData = 19;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_unselect(foe_ctx);
XmNhelpCallback = procedure foe_activate_unselect(foe_ctx);
};
}; !Push_button
object push_connect : XmPushButton {
arguments {
XmNlabelString = compound_string("Connect");
XmNmnemonic = keysym('o');
XmNaccelerator = "Ctrl<Key>Q";
XmNacceleratorText = compound_string('Ctrl+Q');
XmNfontList = menu_font;
XmNuserData = 20;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_getobj (foe_ctx);
XmNhelpCallback = procedure foe_activate_getobj (foe_ctx);
};
};
object push_delete : XmPushButton {
arguments {
XmNlabelString = compound_string("Delete");
XmNmnemonic = keysym('D');
XmNfontList = menu_font;
XmNuserData = 21;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_delete(foe_ctx);
XmNhelpCallback = procedure foe_activate_delete(foe_ctx);
};
}; !Push_button
object push_changetext : XmPushButton {
arguments {
XmNlabelString = compound_string("Change Text");
XmNmnemonic = keysym('h');
XmNaccelerator = "Ctrl<Key>T";
XmNacceleratorText = compound_string('Ctrl+T');
XmNfontList = menu_font;
XmNuserData = 22;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_changetext(foe_ctx);
XmNhelpCallback = procedure foe_activate_changetext(foe_ctx);
};
};
object push_expand : XmPushButton {
arguments {
XmNlabelString = compound_string("Expand Object");
XmNmnemonic = keysym('x');
XmNaccelerator = "Ctrl<Key>Right";
XmNacceleratorText = compound_string('Ctrl+Right');
XmNfontList = menu_font;
XmNuserData = 23;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_expand (foe_ctx);
XmNhelpCallback = procedure foe_activate_expand (foe_ctx);
};
};
object push_compress : XmPushButton {
arguments {
XmNlabelString = compound_string("Compess Object");
XmNmnemonic = keysym('m');
XmNaccelerator = "Ctrl<Key>Left";
XmNacceleratorText = compound_string('Ctrl+Left');
XmNfontList = menu_font;
XmNuserData = 24;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_compress (foe_ctx);
XmNhelpCallback = procedure foe_activate_compress (foe_ctx);
};
};
! !
! ** Search Menu ** ! ** Search Menu **
! !
object search_entry : XmCascadeButton object search_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("Search");
{ XmNmnemonic = keysym('S');
XmNlabelString = compound_string("Search"); XmNfontList = menu_font;
XmNmnemonic = keysym('S'); XmNuserData = 25;
XmNfontList = menu_font; };
}; callbacks {
callbacks MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
{ };
MrmNcreateCallback = procedure foe_create_search_entry ( foe_ctx) ; controls {
}; XmPulldownMenu {
controls controls {
{ XmPushButton {
XmPulldownMenu arguments {
{ XmNlabelString = compound_string("Object");
controls XmNmnemonic = keysym('O');
{ XmNfontList = menu_font;
XmPushButton };
{ callbacks {
arguments XmNactivateCallback = procedure foe_activate_searchobject (foe_ctx);
{ XmNhelpCallback = procedure foe_activate_searchobject (foe_ctx);
XmNlabelString = compound_string("Object"); };
XmNmnemonic = keysym('O'); };
XmNfontList = menu_font; XmPushButton {
}; arguments {
callbacks XmNlabelString = compound_string("String");
{ XmNmnemonic = keysym('S');
XmNactivateCallback = procedure foe_activate_searchobject (foe_ctx); XmNaccelerator = "Ctrl<Key>F";
XmNhelpCallback = procedure foe_activate_searchobject (foe_ctx); XmNacceleratorText = compound_string('Ctrl+F');
}; XmNfontList = menu_font;
}; !Push_button };
XmPushButton callbacks {
{ XmNactivateCallback = procedure foe_activate_searchstring (foe_ctx);
arguments XmNhelpCallback = procedure foe_activate_searchstring (foe_ctx);
{ };
XmNlabelString = compound_string("String"); };
XmNmnemonic = keysym('S'); XmPushButton {
XmNaccelerator = "Ctrl<Key>F"; arguments {
XmNacceleratorText = compound_string('Ctrl+F'); XmNlabelString = compound_string("Next");
XmNfontList = menu_font; XmNmnemonic = keysym('N');
}; XmNaccelerator = "Alt<Key>Next:";
callbacks XmNacceleratorText = compound_string('Alt+Next');
{ XmNfontList = menu_font;
XmNactivateCallback = procedure foe_activate_searchstring (foe_ctx); };
XmNhelpCallback = procedure foe_activate_searchstring (foe_ctx); callbacks {
}; XmNactivateCallback = procedure foe_activate_searchnext (foe_ctx);
}; !Push_button XmNhelpCallback = procedure foe_activate_searchnext (foe_ctx);
XmPushButton };
{ };
arguments };
{ };
XmNlabelString = compound_string("Next"); };
XmNmnemonic = keysym('N'); };
XmNaccelerator = "Alt<Key>Next:";
XmNacceleratorText = compound_string('Alt+Next');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_searchnext (foe_ctx);
XmNhelpCallback = procedure foe_activate_searchnext (foe_ctx);
};
}; !Push_button
}; !Controls
}; !XmPulldownMenu
}; !controls
}; !search_entry
! !
! ** View Menu ** ! ** View Menu **
! !
object view_entry : XmCascadeButton object view_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("View");
{ XmNmnemonic = keysym('V');
XmNlabelString = compound_string("View"); XmNfontList = menu_font;
XmNmnemonic = keysym('V'); XmNuserData = 26;
XmNfontList = menu_font; };
}; callbacks {
callbacks MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
{ };
MrmNcreateCallback = procedure foe_create_customize_entry ( foe_ctx) ; controls {
}; XmPulldownMenu {
controls controls {
{ XmCascadeButton {
XmPulldownMenu arguments {
{ XmNlabelString = compound_string("Palette");
controls XmNmnemonic = keysym('C');
{ XmNfontList = menu_font;
XmCascadeButton };
{ controls {
arguments XmPulldownMenu {
{ arguments {
XmNlabelString = compound_string("Palette"); XmNradioBehavior = true;
XmNmnemonic = keysym('C'); XmNradioAlwaysOne = true;
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
arguments
{
XmNradioBehavior = true;
XmNradioAlwaysOne = true;
};
controls
{
XmToggleButton
{
arguments
{
XmNlabelString = compound_string("Object");
XmNmnemonic = keysym('J');
XmNaccelerator = "Ctrl<Key>J";
XmNacceleratorText = compound_string('Ctrl+J');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_palette_object(foe_ctx);
MrmNcreateCallback = procedure foe_create_palette_object(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_object(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string("Connection");
XmNmnemonic = keysym('N');
XmNaccelerator = "Ctrl<Key>N";
XmNacceleratorText = compound_string('Ctrl+N');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_palette_con(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_con(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string("Plant");
XmNmnemonic = keysym('L');
XmNaccelerator = "Ctrl<Key>L";
XmNacceleratorText = compound_string('Ctrl+L');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_palette_plant(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_plant(foe_ctx);
};
};
};
};
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string("Reference connections");
XmNmnemonic = keysym('R');
XmNaccelerator = "Ctrl<Key>R";
XmNacceleratorText = compound_string('Ctrl+R');
XmNfontList = menu_font;
}; };
callbacks controls {
{ XmToggleButton {
XmNvalueChangedCallback = procedure foe_activate_refcon(foe_ctx); arguments {
XmNhelpCallback = procedure foe_activate_refcon(foe_ctx); XmNlabelString = compound_string("Object");
XmNmnemonic = keysym('J');
XmNaccelerator = "Ctrl<Key>J";
XmNacceleratorText = compound_string('Ctrl+J');
XmNfontList = menu_font;
XmNuserData = 27;
};
callbacks {
XmNvalueChangedCallback = procedure foe_activate_palette_object(foe_ctx);
MrmNcreateCallback = procedure foe_create_palette_object(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_object(foe_ctx);
};
};
XmToggleButton {
arguments {
XmNlabelString = compound_string("Connection");
XmNmnemonic = keysym('N');
XmNaccelerator = "Ctrl<Key>N";
XmNacceleratorText = compound_string('Ctrl+N');
XmNfontList = menu_font;
};
callbacks {
XmNvalueChangedCallback = procedure foe_activate_palette_con(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_con(foe_ctx);
};
};
XmToggleButton {
arguments {
XmNlabelString = compound_string("Plant");
XmNmnemonic = keysym('L');
XmNaccelerator = "Ctrl<Key>L";
XmNacceleratorText = compound_string('Ctrl+L');
XmNfontList = menu_font;
};
callbacks {
XmNvalueChangedCallback = procedure foe_activate_palette_plant(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_plant(foe_ctx);
};
};
}; };
}; };
XmSeparator };
{ };
}; XmToggleButton {
XmCascadeButton arguments {
{ XmNlabelString = compound_string("Reference connections");
arguments XmNmnemonic = keysym('R');
{ XmNaccelerator = "Ctrl<Key>R";
XmNlabelString = compound_string("Grid Size"); XmNacceleratorText = compound_string('Ctrl+R');
XmNmnemonic = keysym('G'); XmNfontList = menu_font;
XmNfontList = menu_font; };
}; callbacks {
controls XmNvalueChangedCallback = procedure foe_activate_refcon(foe_ctx);
{ XmNhelpCallback = procedure foe_activate_refcon(foe_ctx);
XmPulldownMenu };
{ };
arguments XmSeparator {
{ };
XmNradioBehavior = true ; XmCascadeButton {
XmNradioAlwaysOne = true ; arguments {
}; XmNlabelString = compound_string("Grid Size");
controls XmNmnemonic = keysym('G');
{ XmNfontList = menu_font;
XmToggleButton };
{ controls {
arguments XmPulldownMenu {
{ arguments {
XmNlabelString = compound_string(" 1 "); XmNradioBehavior = true;
XmNmnemonic = keysym('1'); XmNradioAlwaysOne = true;
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_gridsize1(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string(" 2 ");
XmNmnemonic = keysym('2');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_gridsize2(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string(" 3 ");
XmNmnemonic = keysym('3');
XmNset = true;
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_gridsize3(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string(" 4 ");
XmNmnemonic = keysym('4');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_gridsize4(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string(" 5 ");
XmNmnemonic = keysym('5');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure foe_activate_gridsize5(foe_ctx);
};
};
};
};
};
}; };
XmToggleButton controls {
{ XmToggleButton {
arguments arguments {
{ XmNlabelString = compound_string(" 1 ");
XmNlabelString = compound_string("Show Grid"); XmNmnemonic = keysym('1');
XmNmnemonic = keysym('S');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
callbacks callbacks {
{ XmNvalueChangedCallback = procedure foe_activate_gridsize1(foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_showgrid(foe_ctx); };
XmNhelpCallback = procedure foe_activate_showgrid(foe_ctx); };
}; XmToggleButton {
}; arguments {
XmSeparator XmNlabelString = compound_string(" 2 ");
{ XmNmnemonic = keysym('2');
};
XmCascadeButton
{
arguments
{
XmNlabelString = compound_string("Zoom");
XmNmnemonic = keysym('Z');
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
XmNlabelString = compound_string(" In ");
XmNmnemonic = keysym('I');
XmNaccelerator = "Ctrl<Key>I";
XmNacceleratorText = compound_string('Ctrl+I');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_zoomin(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string(" Out");
XmNmnemonic = keysym('O');
XmNaccelerator = "Ctrl<Key>O";
XmNacceleratorText = compound_string('Ctrl+O');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_zoomout(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string(" Reset ");
XmNmnemonic = keysym('R');
XmNaccelerator = "Ctrl<Key>B";
XmNacceleratorText = compound_string('Ctrl+B');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_unzoom(foe_ctx);
};
};
};
};
};
};
XmSeparator
{
};
XmToggleButton
{
arguments
{
XmNlabelString = compound_string("Show Execute Order");
XmNmnemonic = keysym('h');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
callbacks callbacks {
{ XmNvalueChangedCallback = procedure foe_activate_gridsize2(foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_showexeord(foe_ctx); };
XmNhelpCallback = procedure foe_activate_showexeord(foe_ctx); };
}; XmToggleButton {
}; arguments {
XmNlabelString = compound_string(" 3 ");
XmPushButton XmNmnemonic = keysym('3');
{ XmNset = true;
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Redraw"); callbacks {
XmNmnemonic = keysym('e'); XmNvalueChangedCallback = procedure foe_activate_gridsize3(foe_ctx);
XmNfontList = menu_font; };
}; };
callbacks XmToggleButton {
{ arguments {
XmNactivateCallback = procedure foe_activate_redraw(foe_ctx); XmNlabelString = compound_string(" 4 ");
XmNhelpCallback = procedure foe_activate_redraw(foe_ctx); XmNmnemonic = keysym('4');
MrmNcreateCallback = procedure foe_create_redraw(foe_ctx); XmNfontList = menu_font;
}; };
}; callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize4(foe_ctx);
};
};
XmToggleButton {
arguments {
XmNlabelString = compound_string(" 5 ");
XmNmnemonic = keysym('5');
XmNfontList = menu_font;
};
callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize5(foe_ctx);
};
};
};
}; };
}; };
};
}; !controls XmToggleButton {
arguments {
}; !customize_entry XmNlabelString = compound_string("Show Grid");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
};
callbacks {
XmNvalueChangedCallback = procedure foe_activate_showgrid(foe_ctx);
XmNhelpCallback = procedure foe_activate_showgrid(foe_ctx);
};
};
XmSeparator {
};
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Zoom");
XmNmnemonic = keysym('Z');
XmNfontList = menu_font;
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string(" In ");
XmNmnemonic = keysym('I');
XmNaccelerator = "Ctrl<Key>I";
XmNacceleratorText = compound_string('Ctrl+I');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_zoomin(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string(" Out");
XmNmnemonic = keysym('O');
XmNaccelerator = "Ctrl<Key>O";
XmNacceleratorText = compound_string('Ctrl+O');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_zoomout(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string(" Reset ");
XmNmnemonic = keysym('R');
XmNaccelerator = "Ctrl<Key>B";
XmNacceleratorText = compound_string('Ctrl+B');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_unzoom(foe_ctx);
};
};
};
};
};
};
XmSeparator {
};
XmToggleButton {
arguments {
XmNlabelString = compound_string("Show Execute Order");
XmNmnemonic = keysym('h');
XmNfontList = menu_font;
};
callbacks {
XmNvalueChangedCallback = procedure foe_activate_showexeord(foe_ctx);
XmNhelpCallback = procedure foe_activate_showexeord(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Redraw");
XmNmnemonic = keysym('e');
XmNfontList = menu_font;
XmNuserData = 28;
};
callbacks {
XmNactivateCallback = procedure foe_activate_redraw(foe_ctx);
XmNhelpCallback = procedure foe_activate_redraw(foe_ctx);
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
};
};
};
};
};
! !
! ** Functions Menu ** ! ** Functions Menu **
! !
object functions_entry : XmCascadeButton object functions_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("Functions");
{ XmNmnemonic = keysym('u');
XmNlabelString = compound_string("Functions"); XmNfontList = menu_font;
XmNmnemonic = keysym('u'); };
XmNfontList = menu_font; callbacks {
}; };
callbacks controls {
{ XmPulldownMenu {
}; controls {
controls XmPushButton {
{ arguments {
XmPulldownMenu XmNlabelString = compound_string("Open Object...");
{ XmNmnemonic = keysym('O');
controls XmNaccelerator = "Ctrl<Key>A";
{ XmNacceleratorText = compound_string('Ctrl+A');
XmPushButton XmNfontList = menu_font;
{ };
arguments callbacks {
{ XmNactivateCallback = procedure foe_activate_attribute(foe_ctx);
XmNlabelString = compound_string("Open Object..."); XmNhelpCallback = procedure foe_activate_attribute(foe_ctx);
XmNmnemonic = keysym('O'); };
XmNaccelerator = "Ctrl<Key>A"; };
XmNacceleratorText = compound_string('Ctrl+A');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_attribute(foe_ctx);
XmNhelpCallback = procedure foe_activate_attribute(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Subwindow...");
XmNmnemonic = keysym('S');
XmNaccelerator = "Ctrl<Key>W";
XmNacceleratorText = compound_string('Ctrl+W');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_subwindow(foe_ctx);
XmNhelpCallback = procedure foe_activate_subwindow(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("GOE...");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_search (foe_ctx);
XmNhelpCallback = procedure foe_activate_search (foe_ctx);
};
}; !Push_button
};
};
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Subwindow...");
XmNmnemonic = keysym('S');
XmNaccelerator = "Ctrl<Key>W";
XmNacceleratorText = compound_string('Ctrl+W');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_subwindow(foe_ctx);
XmNhelpCallback = procedure foe_activate_subwindow(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("GOE...");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_search (foe_ctx);
XmNhelpCallback = procedure foe_activate_search (foe_ctx);
};
};
};
};
};
};
! !
! ** Mode Menu ** ! ** Mode Menu **
! !
object mode_entry : XmCascadeButton object mode_entry : XmCascadeButton {
{ arguments {
arguments { XmNlabelString = 'Mode';
XmNlabelString = 'Mode' ; XmNmnemonic = keysym('M');
XmNmnemonic = keysym('M'); XmNfontList = menu_font;
XmNfontList = menu_font; XmNuserData = 29;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
controls {
XmPulldownMenu {
arguments {
XmNradioBehavior = false;
XmNradioAlwaysOne = false;
};
controls {
XmToggleButton {
arguments {
XmNlabelString = 'View';
XmNmnemonic = keysym('V');
! XmNaccelerator = "Ctrl<Key>V";
! XmNacceleratorText = compound_string('Ctrl+V');
XmNfontList = menu_font;
XmNuserData = 30;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_view_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_view_togg (foe_ctx);
};
}; };
callbacks { MrmNcreateCallback = procedure foe_create_function_entry ( foe_ctx) ; };
controls
{
XmPulldownMenu
{
arguments {
XmNradioBehavior = false ;
XmNradioAlwaysOne = false ;
! SG 02.05.91 DO not set a XmNset to the toggle button it is
! made by the program.
} ;
controls
{
XmToggleButton
{
arguments {
XmNlabelString = 'View';
XmNmnemonic = keysym('V');
! XmNaccelerator = "Ctrl<Key>V";
! XmNacceleratorText = compound_string('Ctrl+V');
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_view_togg (foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_view_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_view_togg (foe_ctx);
};
}; !togg view
XmToggleButton
{
arguments {
XmNlabelString = 'Edit';
XmNmnemonic = keysym('E');
XmNaccelerator = "Ctrl<Key>E";
XmNacceleratorText = compound_string('Ctrl+E');
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_edit_togg (foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_edit_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_edit_togg (foe_ctx);
};
}; !togg_edit
XmToggleButton
{
arguments {
XmNlabelString = 'Trace';
XmNmnemonic = keysym('T');
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_trace_togg (foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_trace_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_trace_togg (foe_ctx);
};
}; !togg_trace
XmToggleButton
{
arguments {
XmNlabelString = 'Simulate';
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_simulate_togg (foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_simulate_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_simulate_togg (foe_ctx);
};
}; ! togg_sim
} ; !control fun_entry
}; !XmPulldownMenu funt_entry
}; !controls funt_entry
}; !fun_entry
XmToggleButton {
arguments {
XmNlabelString = 'Edit';
XmNmnemonic = keysym('E');
XmNaccelerator = "Ctrl<Key>E";
XmNacceleratorText = compound_string('Ctrl+E');
XmNfontList = menu_font;
XmNuserData = 31;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_edit_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_edit_togg (foe_ctx);
};
};
XmToggleButton {
arguments {
XmNlabelString = 'Trace';
XmNmnemonic = keysym('T');
XmNfontList = menu_font;
XmNuserData = 32;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_trace_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_trace_togg (foe_ctx);
};
};
XmToggleButton {
arguments {
XmNlabelString = 'Simulate';
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
XmNuserData = 33;
};
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNvalueChangedCallback = procedure foe_activate_simulate_togg (foe_ctx);
XmNhelpCallback = procedure foe_activate_simulate_togg (foe_ctx);
};
};
};
};
};
};
! !
! ** Help Menu ** ! ** Help Menu **
! !
object help_entry : XmCascadeButton object help_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("Help");
{ XmNmnemonic = keysym('H');
XmNlabelString = compound_string("Help"); XmNfontList = menu_font;
XmNmnemonic = keysym('H'); };
XmNfontList = menu_font; controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Help");
XmNmnemonic = keysym('H');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_help(foe_ctx);
};
};
};
}; };
controls };
{ };
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Help");
XmNmnemonic = keysym('H');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_help(foe_ctx);
};
}; !Push_button
}; !Controls
}; !XmPulldownMenu
}; !controls
}; !help_entry
! SG 10.02.91 This is a popup widget so it is an orphean ! SG 10.02.91 This is a popup widget so it is an orphean
object edit_popup: XmPopupMenu object edit_popup: XmPopupMenu {
{ arguments{
arguments XmNbuttonFontList = menu_font;
{ XmNlabelFontList = menu_font;
XmNbuttonFontList = menu_font; };
XmNlabelFontList = menu_font; controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Cut");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_cut(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_cut(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Copy");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_copy(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_copy(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Paste");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_paste(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_paste(foe_ctx);
};
}; };
controls
{ XmPushButton {
arguments {
XmPushButton XmNlabelString = compound_string("Print Select");
{ XmNfontList = menu_font;
arguments };
{ callbacks {
XmNlabelString = compound_string("Cut"); XmNactivateCallback = procedure foe_activate_printselect(foe_ctx);
XmNfontList = menu_font; MrmNcreateCallback = procedure foe_create_pop_printselect(foe_ctx);
}; };
callbacks
{
XmNactivateCallback = procedure foe_activate_cut(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_cut(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Copy");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_copy(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_copy(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Paste");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_paste(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_paste(foe_ctx);
};
}; !Push_button
! XmPushButton
! {
! arguments
! {
! XmNlabelString = compound_string("Move Region");
! };
! callbacks
! {
! XmNactivateCallback = procedure foe_activate_moveregion(foe_ctx);
! MrmNcreateCallback = procedure foe_create_pop_moveregion(foe_ctx);
! };
! }; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Print Select");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_printselect(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_printselect(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Open Object...");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_attribute(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_attribute(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Subwindow...");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_subwindow(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_subwindow(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Connect");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_getobj (foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_getobj (foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Delete");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_delete(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_delete(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Help Class");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure foe_activate_helpclass(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_helpclass(foe_ctx);
};
}; !Push_button
}; !controls
callbacks
{
XmNunmapCallback = procedure foe_popdown_pop(foe_ctx);
! XmNpopdownCallback = procedure foe_popdown_pop(foe_ctx);
}; };
}; !popupMenu
XmPushButton {
arguments {
XmNlabelString = compound_string("Open Object...");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_attribute(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_attribute(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Subwindow...");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_subwindow(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_subwindow(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Connect");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_getobj (foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_getobj (foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Delete");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_delete(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_delete(foe_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Help Class");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure foe_activate_helpclass(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_helpclass(foe_ctx);
};
};
};
callbacks {
XmNunmapCallback = procedure foe_popdown_pop(foe_ctx);
! XmNpopdownCallback = procedure foe_popdown_pop(foe_ctx);
};
};
! SG 13.02.91 another orphean ! SG 13.02.91 another orphean
object foe_popupmsg : XmQuestionDialog object foe_popupmsg : XmQuestionDialog {
{ arguments {
arguments XmNdefaultPosition = true;
{ XmNautoUnmanage = false;
XmNdefaultPosition = true; XmNokLabelString = compound_string("Yes");
XmNautoUnmanage = false; XmNcancelLabelString = compound_string("No");
XmNokLabelString = compound_string("Yes"); XmNhelpLabelString = compound_string("Cancel");
XmNcancelLabelString = compound_string("No"); XmNbuttonFontList = menu_font;
XmNhelpLabelString = compound_string("Cancel"); XmNlabelFontList = menu_font;
XmNbuttonFontList = menu_font; XmNtextFontList = menu_font;
XmNlabelFontList = menu_font;
XmNtextFontList = menu_font;
}; };
callbacks callbacks {
{
XmNokCallback = procedure foe_yes_popupmsg(foe_ctx); XmNokCallback = procedure foe_yes_popupmsg(foe_ctx);
XmNcancelCallback = procedure foe_no_popupmsg(foe_ctx); XmNcancelCallback = procedure foe_no_popupmsg(foe_ctx);
XmNhelpCallback = procedure foe_cancel_popupmsg(foe_ctx); XmNhelpCallback = procedure foe_cancel_popupmsg(foe_ctx);
}; };
}; !popupmsg };
! SG 24.02.91 another orphean (again!) ! SG 24.02.91 another orphean (again!)
object foe_msgbox : XmInformationDialog object foe_msgbox : XmInformationDialog {
{ arguments {
arguments XmNdefaultPosition = true;
{ ! XmNlabelString = compound_string("I'm a message box");
XmNdefaultPosition = true; XmNbuttonFontList = menu_font;
! XmNlabelString = compound_string("I'm a message box"); XmNlabelFontList = menu_font;
XmNbuttonFontList = menu_font;
XmNlabelFontList = menu_font;
}; };
callbacks callbacks {
{
}; };
}; !msgbox }; !msgbox
end module; end module;
wb/mmi/wb/src/wb_uted.uil
View file @ 744477d1
...@@ -149,1544 +149,1233 @@ procedure ...@@ -149,1544 +149,1233 @@ procedure
value value
menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1'); menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
object uted_window : XmMainWindow object uted_window : XmMainWindow {
{ arguments {
arguments XmNwidth = 0;
{ XmNheight = 0;
XmNwidth = 0; };
XmNheight = 0; controls {
}; XmMenuBar uted_menu;
controls XmForm uted_adb;
{ };
XmMenuBar uted_menu; callbacks {
XmForm uted_adb; };
}; !Controls
callbacks
{
};
}; };
object uted_adb : XmForm object uted_adb : XmForm {
{ arguments {
arguments
{
XmNwidth = 890; XmNwidth = 890;
XmNheight = 350; XmNheight = 350;
XmNresizePolicy = XmRESIZE_NONE; XmNresizePolicy = XmRESIZE_NONE;
XmNdefaultButton = XmPushButton ok; XmNdefaultButton = XmPushButton ok;
}; };
controls controls {
{ XmCommand commandwindow;
XmCommand commandwindow; XmLabel uted_label;
XmLabel uted_label; XmLabel commandlabel;
XmLabel commandlabel; XmLabel commandtext;
XmLabel commandtext; XmOptionMenu batch;
XmOptionMenu batch; XmLabel timelabel;
XmLabel timelabel; XmText timevalue;
XmText timevalue; XmPushButton ok;
XmPushButton ok; ! XmPushButton cancel;
! XmPushButton cancel; XmSeparator separator;
XmSeparator separator; XmLabel qualifier1;
XmLabel qualifier1; XmText value1;
XmText value1; XmToggleButton present1;
XmToggleButton present1; XmLabel qualifier2;
XmLabel qualifier2; XmText value2;
XmText value2; XmToggleButton present2;
XmToggleButton present2; XmLabel qualifier3;
XmLabel qualifier3; XmText value3;
XmText value3; XmToggleButton present3;
XmToggleButton present3; XmLabel qualifier4;
XmLabel qualifier4; XmText value4;
XmText value4; XmToggleButton present4;
XmToggleButton present4; XmLabel qualifier5;
XmLabel qualifier5; XmText value5;
XmText value5; XmToggleButton present5;
XmToggleButton present5; XmLabel qualifier6;
XmLabel qualifier6; XmText value6;
XmText value6; XmToggleButton present6;
XmToggleButton present6; XmLabel qualifier7;
XmLabel qualifier7; XmText value7;
XmText value7; XmToggleButton present7;
XmToggleButton present7; XmLabel qualifier8;
XmLabel qualifier8; XmText value8;
XmText value8; XmToggleButton present8;
XmToggleButton present8; XmLabel qualifier9;
XmLabel qualifier9; XmText value9;
XmText value9; XmToggleButton present9;
XmToggleButton present9; XmLabel qualifier10;
XmLabel qualifier10; XmText value10;
XmText value10; XmToggleButton present10;
XmToggleButton present10; };
}; callbacks {
callbacks MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ;
{ };
MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ;
};
}; };
object uted_menu : XmMenuBar object uted_menu : XmMenuBar {
{ arguments {
arguments XmNorientation = XmHORIZONTAL;
{ XmNspacing = 15;
XmNorientation = XmHORIZONTAL; XmNmenuHelpWidget = XmCascadeButton help_entry;
XmNspacing = 15; };
XmNmenuHelpWidget = XmCascadeButton help_entry;
};
controls controls {
{ XmCascadeButton file_entry;
XmCascadeButton file_entry; XmCascadeButton view_entry;
XmCascadeButton view_entry; XmCascadeButton command_entry;
XmCascadeButton command_entry; XmCascadeButton help_entry;
XmCascadeButton help_entry; };
};
}; };
object uted_label : XmLabel ! SG 25.01.91 , 09.02.91 object uted_label : XmLabel {
{ arguments {
arguments XmNbottomAttachment = XmATTACH_FORM;
{ XmNrightAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM; XmNmarginLeft = 10;
XmNleftAttachment = XmATTACH_FORM; XmNalignment = XmALIGNMENT_BEGINNING;
XmNmarginLeft = 10; XmNlabelString = "";
XmNalignment = XmALIGNMENT_BEGINNING; XmNheight = 20;
XmNlabelString = ""; XmNrecomputeSize = false;
XmNheight = 20; XmNborderWidth = 1;
XmNrecomputeSize = false; XmNfontList = menu_font;
XmNborderWidth = 1; };
XmNfontList = menu_font; controls {
}; };
controls callbacks {
{ MrmNcreateCallback = procedure uted_create_label ( uted_ctx) ;
}; };
callbacks
{
MrmNcreateCallback = procedure uted_create_label ( uted_ctx) ;
};
}; };
object file_entry : XmCascadeButton object file_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = compound_string("File");
{ XmNmnemonic = keysym("F");
XmNlabelString = compound_string("File"); XmNfontList = menu_font;
XmNmnemonic = keysym("F"); };
XmNfontList = menu_font; callbacks {
MrmNcreateCallback = procedure uted_create_file_entry ( uted_ctx) ;
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Close");
XmNmnemonic = keysym("C");
XmNfontList = menu_font;
};
callbacks {
MrmNcreateCallback = procedure uted_create_quit(uted_ctx);
XmNactivateCallback = procedure uted_activate_quit(uted_ctx);
XmNhelpCallback = procedure uted_activate_quit(uted_ctx);
};
};
};
}; };
callbacks };
{ };
MrmNcreateCallback = procedure uted_create_file_entry ( uted_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Close");
XmNmnemonic = keysym("C");
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure uted_create_quit(uted_ctx);
XmNactivateCallback = procedure uted_activate_quit(uted_ctx);
XmNhelpCallback = procedure uted_activate_quit(uted_ctx);
};
};
}; !Controls
}; !Pulldown_menu
}; !Controls
}; ! file_entry
object view_entry : XmCascadeButton
{
arguments {
XmNlabelString = 'View' ;
XmNmnemonic = keysym("V");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
XmNx = 150;
XmNy = 150;
XmNlabelString = compound_string("Show Current Command");
XmNmnemonic = keysym("C");
XmNaccelerator = "Ctrl<Key>H";
XmNacceleratorText = compound_string('Ctrl+H');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_show_cmd ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_show_cmd ( uted_ctx) ;
};
};
XmToggleButton
{
arguments {
XmNlabelString = 'Command Window';
XmNmnemonic = keysym("W");
XmNaccelerator = "Ctrl<Key>W";
XmNacceleratorText = compound_string('Ctrl+W');
XmNfontList = menu_font;
};
callbacks
{
XmNvalueChangedCallback = procedure uted_activate_cmd_wind (uted_ctx);
XmNhelpCallback = procedure uted_activate_cmd_wind (uted_ctx);
MrmNcreateCallback = procedure uted_create_commandwind_button(uted_ctx);
};
};
} ; !control view_entry
}; !XmPulldownMenu view_entry
}; !controls view_entry
}; !view_entry
object help_entry : XmCascadeButton object view_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = 'View' ;
{ XmNmnemonic = keysym("V");
XmNlabelString = compound_string("Help"); XmNfontList = menu_font;
XmNmnemonic = keysym("H"); };
XmNfontList = menu_font; controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNx = 150;
XmNy = 150;
XmNlabelString = compound_string("Show Current Command");
XmNmnemonic = keysym("C");
XmNaccelerator = "Ctrl<Key>H";
XmNacceleratorText = compound_string('Ctrl+H');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_show_cmd ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_show_cmd ( uted_ctx) ;
};
};
XmToggleButton {
arguments {
XmNlabelString = 'Command Window';
XmNmnemonic = keysym("W");
XmNaccelerator = "Ctrl<Key>W";
XmNacceleratorText = compound_string('Ctrl+W');
XmNfontList = menu_font;
};
callbacks {
XmNvalueChangedCallback = procedure uted_activate_cmd_wind (uted_ctx);
XmNhelpCallback = procedure uted_activate_cmd_wind (uted_ctx);
MrmNcreateCallback = procedure uted_create_commandwind_button(uted_ctx);
};
};
};
}; };
controls };
{ };
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
XmNlabelString = compound_string("On Window");
XmNmnemonic = keysym("W");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_helputils (uted_ctx);
XmNhelpCallback = procedure uted_activate_helputils (uted_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
XmNlabelString = compound_string("On pwr_plc");
XmNmnemonic = keysym("p");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_helppwr_plc (uted_ctx);
XmNhelpCallback = procedure uted_activate_helppwr_plc (uted_ctx);
};
}; !Push_button
}; !Controls
}; !XmPulldownMenu
}; !controls
}; !help_entry
object command_entry : XmCascadeButton
{
arguments {
XmNlabelString = 'Commands' ;
XmNmnemonic = keysym("C");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
! XmPushButton optmenu_list;
object help_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("Help");
XmNmnemonic = keysym("H");
XmNfontList = menu_font;
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("On Window");
XmNmnemonic = keysym("W");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_helputils (uted_ctx);
XmNhelpCallback = procedure uted_activate_helputils (uted_ctx);
};
};
XmCascadeButton XmPushButton {
{ arguments {
arguments XmNlabelString = compound_string("On pwr_plc");
{ XmNmnemonic = keysym("p");
XmNlabelString = compound_string("Delete"); XmNfontList = menu_font;
XmNfontList = menu_font; };
}; callbacks {
controls XmNactivateCallback = procedure uted_activate_helppwr_plc (uted_ctx);
{ XmNhelpCallback = procedure uted_activate_helppwr_plc (uted_ctx);
XmPulldownMenu };
{ };
controls };
{ };
};
};
XmPushButton object command_entry : XmCascadeButton {
{ arguments {
arguments XmNlabelString = 'Commands' ;
{ XmNmnemonic = keysym("C");
XmNlabelString = compound_string("Delete Object"); XmNfontList = menu_font;
XmNfontList = menu_font; };
}; controls {
callbacks XmPulldownMenu {
{ controls {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; XmCascadeButton {
XmNhelpCallback = procedure uted_activate_command(uted_ctx); arguments {
XmNlabelString = compound_string("Delete");
XmNfontList = menu_font;
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Delete Object");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Delete Tree");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Delete Tree"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
};
};
};
};
}; };
};
XmPushButton };
{ };
arguments
{ XmPushButton {
XmNlabelString = compound_string("Compile"); arguments {
XmNmnemonic = keysym("o"); XmNlabelString = compound_string("Compile");
XmNaccelerator = "Alt<Key>O"; XmNmnemonic = keysym("o");
XmNacceleratorText = compound_string('Alt+O'); XmNaccelerator = "Alt<Key>O";
XmNfontList = menu_font; XmNacceleratorText = compound_string('Alt+O');
}; XmNfontList = menu_font;
callbacks };
{ callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx); XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; };
XmPushButton XmPushButton {
{ arguments {
arguments XmNlabelString = compound_string("Copy Objects");
{ XmNfontList = menu_font;
XmNlabelString = compound_string("Copy Objects"); };
XmNfontList = menu_font; callbacks {
}; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
callbacks MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
{ XmNhelpCallback = procedure uted_activate_command(uted_ctx);
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; };
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; };
XmNhelpCallback = procedure uted_activate_command(uted_ctx); XmPushButton {
}; arguments {
}; XmNlabelString = compound_string("Configure Card");
XmPushButton XmNfontList = menu_font;
{ };
arguments callbacks {
{ XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
XmNlabelString = compound_string("Configure Card"); MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNfontList = menu_font; XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
callbacks };
{ XmCascadeButton {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; arguments {
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; XmNlabelString = compound_string("Create");
XmNhelpCallback = procedure uted_activate_command(uted_ctx); XmNfontList = menu_font;
}; };
}; controls {
XmCascadeButton XmPulldownMenu {
{ controls {
arguments
{ XmPushButton {
XmNlabelString = compound_string("Create"); arguments {
XmNfontList = menu_font; XmNlabelString = compound_string("Create BootFiles");
}; XmNfontList = menu_font;
controls };
{ callbacks {
XmPulldownMenu XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
{ MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
controls XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Create BootFiles");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Create LoadFiles");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Create LoadFiles"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Create Object");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Create Object"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Create StructFiles");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Create StructFiles"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Create RttFiles");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Create RttFiles"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
};
};
};
};
}; };
};
};
};
XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Crossreference");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Crossreference"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; };
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; XmCascadeButton {
XmNhelpCallback = procedure uted_activate_command(uted_ctx); arguments {
XmNlabelString = compound_string("Export");
XmNfontList = menu_font;
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Export PlcPgm");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
}; };
};
XmCascadeButton
{
arguments
{
XmNlabelString = compound_string("Export");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Export PlcPgm");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
};
};
};
};
XmCascadeButton
{
arguments
{
XmNlabelString = compound_string("List");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton optmenu_list;
XmPushButton
{
arguments
{
XmNlabelString = compound_string("List Channels");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("List Hierarchy");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("List Plcpgm");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("List Descriptor");
XmNmnemonic = keysym("L");
XmNaccelerator = "Alt<Key>L";
XmNacceleratorText = compound_string('Alt+L');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
};
};
};
}; };
};
XmPushButton };
{ };
arguments
{ XmCascadeButton {
XmNlabelString = compound_string("Print"); arguments {
XmNmnemonic = keysym("P"); XmNlabelString = compound_string("List");
XmNaccelerator = "Alt<Key>P"; XmNfontList = menu_font;
XmNacceleratorText = compound_string('Alt+P'); };
XmNfontList = menu_font; controls {
}; XmPulldownMenu {
callbacks controls {
{ XmPushButton optmenu_list;
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; XmPushButton {
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; arguments {
XmNhelpCallback = procedure uted_activate_command(uted_ctx); XmNlabelString = compound_string("List Channels");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("List Hierarchy");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Move Object"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("List Plcpgm");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Redraw"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmCascadeButton arguments {
{ XmNlabelString = compound_string("List Descriptor");
arguments XmNmnemonic = keysym("L");
{ XmNaccelerator = "Alt<Key>L";
XmNlabelString = compound_string("Set"); XmNacceleratorText = compound_string('Alt+L');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
controls callbacks {
{ XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
XmPulldownMenu MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
{ XmNhelpCallback = procedure uted_activate_command(uted_ctx);
controls };
{ };
};
XmPushButton };
{ };
arguments };
{
XmNlabelString = compound_string("Set Attribute"); XmPushButton {
XmNmnemonic = keysym("A"); arguments {
XmNaccelerator = "Alt<Key>A"; XmNlabelString = compound_string("Print");
XmNacceleratorText = compound_string('Alt+A'); XmNmnemonic = keysym("P");
XmNfontList = menu_font; XmNaccelerator = "Alt<Key>P";
}; XmNacceleratorText = compound_string('Alt+P');
callbacks XmNfontList = menu_font;
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; callbacks {
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx); MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Move Object");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Redraw");
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Set");
XmNfontList = menu_font;
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Set Attribute");
XmNmnemonic = keysym("A");
XmNaccelerator = "Alt<Key>A";
XmNacceleratorText = compound_string('Alt+A');
XmNfontList = menu_font;
};
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Set Template");
arguments XmNfontList = menu_font;
{ };
XmNlabelString = compound_string("Set Template"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
};
};
};
};
}; };
XmCascadeButton };
{ };
arguments };
{ XmCascadeButton {
XmNlabelString = compound_string("Show"); arguments {
XmNfontList = menu_font; XmNlabelString = compound_string("Show");
}; XmNfontList = menu_font;
controls };
{ controls {
XmPulldownMenu XmPulldownMenu {
{ controls {
controls
{ XmPushButton {
arguments {
XmNlabelString = compound_string("Show Class");
XmNfontList = menu_font;
XmPushButton };
{ callbacks {
arguments XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
{ MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNlabelString = compound_string("Show Class"); XmNhelpCallback = procedure uted_activate_command(uted_ctx);
XmNfontList = menu_font; };
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Show Objects");
arguments XmNmnemonic = keysym("S");
{ XmNaccelerator = "Alt<Key>S";
XmNlabelString = compound_string("Show Objects"); XmNacceleratorText = compound_string('Alt+S');
XmNmnemonic = keysym("S"); XmNfontList = menu_font;
XmNaccelerator = "Alt<Key>S"; };
XmNacceleratorText = compound_string('Alt+S'); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Show Modules");
arguments XmNmnemonic = keysym("u");
{ XmNaccelerator = "Alt<Key>U";
XmNlabelString = compound_string("Show Modules"); XmNacceleratorText = compound_string('Alt+U');
XmNmnemonic = keysym("u"); XmNfontList = menu_font;
XmNaccelerator = "Alt<Key>U"; };
XmNacceleratorText = compound_string('Alt+U'); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Show Security");
arguments XmNmnemonic = keysym("e");
{ XmNfontList = menu_font;
XmNlabelString = compound_string("Show Security"); };
XmNmnemonic = keysym("e"); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
};
};
};
};
}; };
};
};
};
XmPushButton XmPushButton {
{ arguments {
arguments XmNlabelString = compound_string("Sort");
{ XmNfontList = menu_font;
XmNlabelString = compound_string("Sort"); };
XmNfontList = menu_font; callbacks {
}; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
callbacks MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
{ XmNhelpCallback = procedure uted_activate_command(uted_ctx);
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; };
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; };
XmNhelpCallback = procedure uted_activate_command(uted_ctx); XmCascadeButton {
}; arguments {
}; XmNlabelString = compound_string("Wb");
XmCascadeButton XmNfontList = menu_font;
{ };
arguments controls {
{ XmPulldownMenu {
XmNlabelString = compound_string("Wb"); controls {
XmNfontList = menu_font; XmPushButton {
}; arguments {
controls XmNlabelString = compound_string("Wb Dump");
{ XmNfontList = menu_font;
XmPulldownMenu };
{ callbacks {
controls XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
{ MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmPushButton XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
arguments
{
XmNlabelString = compound_string("Wb Dump");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Wb Load");
arguments XmNmnemonic = keysym("W");
{ XmNaccelerator = "Alt<Key>W";
XmNlabelString = compound_string("Wb Load"); XmNacceleratorText = compound_string('Alt+W');
XmNmnemonic = keysym("W"); XmNfontList = menu_font;
XmNaccelerator = "Alt<Key>W"; };
XmNacceleratorText = compound_string('Alt+W'); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Wb Export");
arguments XmNmnemonic = keysym("E");
{ XmNaccelerator = "Alt<Key>E";
XmNlabelString = compound_string("Wb Export"); XmNacceleratorText = compound_string('Alt+E');
XmNmnemonic = keysym("E"); XmNfontList = menu_font;
XmNaccelerator = "Alt<Key>E"; };
XmNacceleratorText = compound_string('Alt+E'); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
}; XmPushButton {
XmPushButton arguments {
{ XmNlabelString = compound_string("Wb Import");
arguments XmNmnemonic = keysym("I");
{ XmNaccelerator = "Alt<Key>I";
XmNlabelString = compound_string("Wb Import"); XmNacceleratorText = compound_string('Alt+I');
XmNmnemonic = keysym("I"); XmNfontList = menu_font;
XmNaccelerator = "Alt<Key>I"; };
XmNacceleratorText = compound_string('Alt+I'); callbacks {
XmNfontList = menu_font; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
}; MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_command(uted_ctx);
{ };
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
}; };
};
};
};
};
}; };
};
}; };
}; };
}; !Controls };
};
}; !XmCascadeButton command_entry };
};
object optmenu_list: XmPushButton object optmenu_list: XmPushButton {
{ arguments {
arguments XmNlabelString = compound_string("List Signals");
{ XmNfontList = menu_font;
XmNlabelString = compound_string("List Signals"); };
XmNfontList = menu_font; callbacks {
}; XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
callbacks MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
{ XmNhelpCallback = procedure uted_activate_command(uted_ctx);
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ; };
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ; };
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
object batch : XmOptionMenu object batch : XmOptionMenu {
{ arguments {
arguments XmNx = 10;
{ XmNy = 67;
XmNx = 10; XmNlabelString = compound_string("Batch: ");
XmNy = 67; XmNmenuHistory = XmPushButton current_session;
XmNlabelString = compound_string("Batch: "); };
XmNmenuHistory = XmPushButton current_session; callbacks {
}; MrmNcreateCallback = procedure uted_create_batchoptmenu( uted_ctx) ;
callbacks };
{ controls {
MrmNcreateCallback = procedure uted_create_batchoptmenu( uted_ctx) ; XmPulldownMenu {
}; controls {
controls XmPushButton current_session;
{ XmPushButton {
XmPulldownMenu arguments {
{ XmNlabelString = compound_string("Batch");
controls XmNfontList = menu_font;
{ };
XmPushButton current_session; callbacks {
XmPushButton XmNactivateCallback = procedure uted_activate_batch( uted_ctx) ;
{ XmNhelpCallback = procedure uted_activate_batch( uted_ctx) ;
arguments MrmNcreateCallback = procedure uted_create_batch( uted_ctx) ;
{
XmNlabelString = compound_string("Batch");
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure uted_activate_batch( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_batch( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_batch( uted_ctx) ;
};
};
}; };
}; };
}; !Controls };
};
}; !XmOptionMenu };
};
object current_session : XmPushButton object current_session : XmPushButton {
{ arguments {
arguments XmNlabelString = compound_string("Current session");
{ XmNfontList = menu_font;
XmNlabelString = compound_string("Current session"); };
XmNfontList = menu_font; callbacks {
}; XmNactivateCallback = procedure uted_activate_currsess( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_currsess( uted_ctx) ;
{ MrmNcreateCallback = procedure uted_create_currsess( uted_ctx) ;
XmNactivateCallback = procedure uted_activate_currsess( uted_ctx) ; };
XmNhelpCallback = procedure uted_activate_currsess( uted_ctx) ; };
MrmNcreateCallback = procedure uted_create_currsess( uted_ctx) ;
};
};
object ok : XmPushButton object ok : XmPushButton {
{ arguments {
arguments XmNx = 20;
{ XmNy = 160;
XmNx = 20; XmNlabelString = compound_string("Apply");
XmNy = 160; XmNfontList = menu_font;
XmNlabelString = compound_string("Apply"); };
XmNfontList = menu_font; callbacks {
}; XmNactivateCallback = procedure uted_activate_ok ( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_ok ( uted_ctx) ;
{ };
XmNactivateCallback = procedure uted_activate_ok ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_ok ( uted_ctx) ;
};
}; };
object cancel : XmPushButton object cancel : XmPushButton {
{ arguments {
arguments XmNx = 90;
{ XmNy = 150;
XmNx = 90; XmNlabelString = compound_string("Cancel");
XmNy = 150; XmNfontList = menu_font;
XmNlabelString = compound_string("Cancel"); };
XmNfontList = menu_font; callbacks {
}; XmNactivateCallback = procedure uted_activate_cancel ( uted_ctx) ;
callbacks XmNhelpCallback = procedure uted_activate_cancel ( uted_ctx) ;
{ };
XmNactivateCallback = procedure uted_activate_cancel ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_cancel ( uted_ctx) ;
};
}; };
object separator : XmSeparator object separator : XmSeparator {
{ arguments {
arguments XmNtopAttachment = XmATTACH_FORM;
{ XmNbottomAttachment = XmATTACH_WIDGET;
XmNtopAttachment = XmATTACH_FORM; XmNbottomWidget = XmLabel uted_label;
XmNbottomAttachment = XmATTACH_WIDGET; XmNx = separator_vert_x;
XmNbottomWidget = XmLabel uted_label; XmNorientation = XmVERTICAL;
XmNx = separator_vert_x; };
XmNorientation = XmVERTICAL;
};
}; };
object commandlabel : XmLabel object commandlabel : XmLabel {
{ arguments {
arguments XmNx = commandlabel_x;
{ XmNy = 27;
XmNx = commandlabel_x; XmNwidth = separator_vert_x - commandlabel_x - 1;
XmNy = 27; XmNrecomputeSize = false;
XmNwidth = separator_vert_x - commandlabel_x - 1; XmNalignment = XmALIGNMENT_BEGINNING;
XmNrecomputeSize = false; XmNlabelString = compound_string("No command selected");
XmNalignment = XmALIGNMENT_BEGINNING; XmNfontList = menu_font;
XmNlabelString = compound_string("No command selected"); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_commandlabel( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_commandlabel( uted_ctx) ;
};
}; };
object commandtext : XmLabel object commandtext : XmLabel {
{ arguments {
arguments XmNx = 12;
{ XmNy = 27;
XmNx = 12; XmNlabelString = compound_string("Command");
XmNy = 27; XmNfontList = menu_font;
XmNlabelString = compound_string("Command"); };
XmNfontList = menu_font;
};
}; };
object timelabel : XmLabel object timelabel : XmLabel {
{ arguments {
arguments XmNx = 12;
{ XmNy = 110;
XmNx = 12; XmNlabelString = compound_string("Time");
XmNy = 110; XmNfontList = menu_font;
XmNlabelString = compound_string("Time"); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_timelabel(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_timelabel(uted_ctx);
};
}; };
object timevalue : XmText object timevalue : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = 100;
XmNmarginHeight = 1; XmNy = 110;
XmNx = 100; XmNrows = 1;
XmNy = 110; XmNcolumns = 18;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 18; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_timevalue(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_timevalue(uted_ctx);
};
}; };
object qualifier1 : XmLabel object qualifier1 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 30;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier1");
XmNy = 30; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier1"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier1 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier1 ( uted_ctx) ;
};
}; };
object value1 : XmText object value1 : XmText
{ {
arguments arguments {
{ XmNresizeHeight = false;
XmNresizeHeight = false; XmNresizeWidth = false;
XmNresizeWidth = false; XmNmarginHeight = 1;
XmNmarginHeight = 1; XmNx = value_x;
XmNx = value_x; XmNy = 30;
XmNy = 30; XmNrows = 1;
XmNrows = 1; XmNcolumns = 35;
XmNcolumns = 35; XmNfontList = menu_font;
XmNfontList = menu_font; };
}; callbacks {
callbacks MrmNcreateCallback = procedure uted_create_value1(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_value1(uted_ctx);
};
}; };
object present1 : XmToggleButton object present1 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 30;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 30; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present1(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present1(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present1(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present1(uted_ctx);
};
}; };
object qualifier2 : XmLabel object qualifier2 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 60;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier2");
XmNy = 60; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier2"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier2 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier2 ( uted_ctx) ;
};
}; };
object value2 : XmText object value2 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 60;
XmNx = value_x; XmNrows = 1;
XmNy = 60; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value2(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value2(uted_ctx);
};
}; };
object present2 : XmToggleButton object present2 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 60;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 60; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present2(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present2(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present2(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present2(uted_ctx);
};
}; };
object qualifier3 : XmLabel object qualifier3 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 90;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier3");
XmNy = 90; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier3"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier3 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier3 ( uted_ctx) ;
};
}; };
object value3 : XmText object value3 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 90;
XmNx = value_x; XmNrows = 1;
XmNy = 90; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value3(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value3(uted_ctx);
};
}; };
object present3 : XmToggleButton object present3 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 90;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 90; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present3(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present3(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present3(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present3(uted_ctx);
};
}; };
object qualifier4 : XmLabel object qualifier4 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 120;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier4");
XmNy = 120; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier4"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier4 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier4 ( uted_ctx) ;
};
}; };
object value4 : XmText object value4 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 120;
XmNx = value_x; XmNrows = 1;
XmNy = 120; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value4(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value4(uted_ctx);
};
}; };
object present4 : XmToggleButton object present4 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 120;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 120; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present4(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present4(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present4(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present4(uted_ctx);
};
}; };
object qualifier5 : XmLabel object qualifier5 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 150;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier5");
XmNy = 150; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier5"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier5 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier5 ( uted_ctx) ;
};
}; };
object value5 : XmText object value5 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 150;
XmNx = value_x; XmNrows = 1;
XmNy = 150; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value5(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value5(uted_ctx);
};
}; };
object present5 : XmToggleButton object present5 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 150;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 150; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present5(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present5(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present5(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present5(uted_ctx);
};
}; };
object qualifier6 : XmLabel object qualifier6 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 180;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier6");
XmNy = 180; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier6"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier6 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier6 ( uted_ctx) ;
};
}; };
object value6 : XmText object value6 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 180;
XmNx = value_x; XmNrows = 1;
XmNy = 180; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value6(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value6(uted_ctx);
};
}; };
object present6 : XmToggleButton object present6 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 180;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 180; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present6(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present6(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present6(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present6(uted_ctx);
};
}; };
object qualifier7 : XmLabel object qualifier7 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 210;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier7");
XmNy = 210; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier7"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier7 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier7 ( uted_ctx) ;
};
}; };
object value7 : XmText object value7 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 210;
XmNx = value_x; XmNrows = 1;
XmNy = 210; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value7(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value7(uted_ctx);
};
}; };
object present7 : XmToggleButton object present7 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 210;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 210; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present7(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present7(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present7(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present7(uted_ctx);
};
}; };
object qualifier8 : XmLabel object qualifier8 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 240;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier8");
XmNy = 240; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier8"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier8 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier8 ( uted_ctx) ;
};
}; };
object value8 : XmText object value8 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 240;
XmNx = value_x; XmNrows = 1;
XmNy = 240; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value8(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value8(uted_ctx);
};
}; };
object present8 : XmToggleButton object present8 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 240;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 240; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present8(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present8(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present8(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present8(uted_ctx);
};
}; };
object qualifier9 : XmLabel object qualifier9 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 270;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier9");
XmNy = 270; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier9"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier9 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier9 ( uted_ctx) ;
};
}; };
object value9 : XmText object value9 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 270;
XmNx = value_x; XmNrows = 1;
XmNy = 270; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value9(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value9(uted_ctx);
};
}; };
object present9 : XmToggleButton object present9 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 270;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 270; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present9(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present9(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present9(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present9(uted_ctx);
};
}; };
object qualifier10 : XmLabel object qualifier10 : XmLabel {
{ arguments {
arguments XmNx = qualifier_x;
{ XmNy = 300;
XmNx = qualifier_x; XmNlabelString = compound_string("Qualifier10");
XmNy = 300; XmNalignment = XmALIGNMENT_BEGINNING;
XmNlabelString = compound_string("Qualifier10"); XmNfontList = menu_font;
XmNalignment = XmALIGNMENT_BEGINNING; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_qualifier10 ( uted_ctx) ;
callbacks };
{
MrmNcreateCallback = procedure uted_create_qualifier10 ( uted_ctx) ;
};
}; };
object value10 : XmText object value10 : XmText {
{ arguments {
arguments XmNresizeHeight = false;
{ XmNresizeWidth = false;
XmNresizeHeight = false; XmNmarginHeight = 1;
XmNresizeWidth = false; XmNx = value_x;
XmNmarginHeight = 1; XmNy = 300;
XmNx = value_x; XmNrows = 1;
XmNy = 300; XmNcolumns = 35;
XmNrows = 1; XmNfontList = menu_font;
XmNcolumns = 35; };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_value10(uted_ctx);
callbacks };
{
MrmNcreateCallback = procedure uted_create_value10(uted_ctx);
};
}; };
object present10 : XmToggleButton object present10 : XmToggleButton {
{ arguments {
arguments XmNx = present_x;
{ XmNy = 300;
XmNx = present_x; XmNlabelString = compound_string("");
XmNy = 300; XmNfontList = menu_font;
XmNlabelString = compound_string(""); };
XmNfontList = menu_font; callbacks {
}; MrmNcreateCallback = procedure uted_create_present10(uted_ctx);
callbacks XmNvalueChangedCallback = procedure uted_activate_present10(uted_ctx);
{ };
MrmNcreateCallback = procedure uted_create_present10(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present10(uted_ctx);
};
}; };
object commandwindow : XmCommand object commandwindow : XmCommand {
{ arguments {
arguments
{
XmNbottomAttachment = XmATTACH_WIDGET; XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmLabel uted_label; XmNbottomWidget = XmLabel uted_label;
XmNrightAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM;
...@@ -1697,32 +1386,28 @@ object commandwindow : XmCommand ...@@ -1697,32 +1386,28 @@ object commandwindow : XmCommand
XmNborderWidth = 1; XmNborderWidth = 1;
XmNhistoryVisibleItemCount = 8; XmNhistoryVisibleItemCount = 8;
}; };
callbacks callbacks {
{ ! MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ;
! MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ; XmNcommandEnteredCallback = procedure uted_commandchanged( uted_ctx);
XmNcommandEnteredCallback = procedure uted_commandchanged( uted_ctx); MrmNcreateCallback = procedure uted_create_cmd_wind(uted_ctx);
MrmNcreateCallback = procedure uted_create_cmd_wind(uted_ctx);
}; };
}; };
object uted_qbox : XmQuestionDialog object uted_qbox : XmQuestionDialog {
{ arguments {
arguments XmNdefaultPosition = true;
{ XmNautoUnmanage = false;
XmNdefaultPosition = true; XmNokLabelString = compound_string("Yes");
XmNautoUnmanage = false; XmNcancelLabelString = compound_string("No");
XmNokLabelString = compound_string("Yes"); XmNhelpLabelString = compound_string("Cancel");
XmNcancelLabelString = compound_string("No"); };
XmNhelpLabelString = compound_string("Cancel"); callbacks {
};
callbacks
{
XmNokCallback = procedure uted_qbox_yes_cb( uted_ctx); XmNokCallback = procedure uted_qbox_yes_cb( uted_ctx);
XmNcancelCallback = procedure uted_qbox_no_cb( uted_ctx); XmNcancelCallback = procedure uted_qbox_no_cb( uted_ctx);
XmNhelpCallback = procedure uted_qbox_cancel_cb( uted_ctx); XmNhelpCallback = procedure uted_qbox_cancel_cb( uted_ctx);
MrmNcreateCallback = procedure uted_qbox_cr( uted_ctx); MrmNcreateCallback = procedure uted_qbox_cr( uted_ctx);
}; };
}; };
end module; end module;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment
GitLab Nexedi Edition | About GitLab | About Nexedi | 沪ICP备2021021310号-2 | 沪ICP备2021021310号-7