Skip to content

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

File identation changed

parent bb7ed310
Show whitespace changes
Inline Side-by-side
Showing with 2272 additions and 2939 deletions
wb/mmi/wb/src/wb_foe.uil
View file @ 744477d1
......@@ -87,19 +87,7 @@ procedure
foe_activate_savetrace(integer);
foe_activate_restoretrace(integer);
foe_create_save(integer);
foe_create_exit(integer);
foe_create_print(integer);
foe_create_printoverv(integer);
foe_create_printselect(integer);
foe_create_syntax(integer);
foe_create_compile(integer);
foe_create_redraw(integer);
foe_create_plcattribute(integer);
foe_create_winddelete(integer);
foe_create_quit(integer);
foe_create_savetrace(integer);
foe_create_restoretrace(integer);
foe_create_widget_cb(integer);
foe_create_palette_object(integer);
foe_activate_cut(integer);
......@@ -147,15 +135,6 @@ procedure
foe_create_adb(integer); !SG 24.02.91
foe_create_file_entry(integer);
foe_create_edit_entry(integer);
foe_create_search_entry(integer);
foe_create_customize_entry(integer);
foe_create_function_entry(integer);
foe_create_trace_togg(integer);
foe_create_simulate_togg(integer);
foe_create_view_togg(integer);
foe_create_edit_togg(integer);
foe_create_label(integer);
foe_create_textinput(integer);
foe_valchanged_textinput(integer);
......@@ -180,66 +159,35 @@ procedure
value
menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
/* SG 09.02.91 new design: ( insertion of a mainwindow ... ) and a
* callback to save the id of the adb
* 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;
object foe_window : XmMainWindow {
arguments {
XmNwidth = 1000;
XmNheight = 700;
};
controls
{
controls {
XmMenuBar foe_menu;
XmForm foe_adb;
}; !Controls
callbacks
{
};
};
object foe_adb : XmForm
{
arguments
{
! XmNwidth = 500;
! XmNheight = 500;
object foe_adb : XmForm {
arguments {
XmNresizePolicy = XmRESIZE_NONE;
};
controls
{
controls {
XmText foe_textinput;
XmLabel foe_label; ! SG 09.02.91
XmLabel foe_label;
XmPanedWindow pane_subwidget;
XmForm edit_form;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_adb ( foe_ctx) ;
callbacks {
MrmNcreateCallback = procedure foe_create_adb ( foe_ctx);
};
};
object edit_form : XmForm
{
arguments
{
object edit_form : XmForm {
arguments {
XmNborderWidth = 1;
XmNtopAttachment = XmATTACH_WIDGET;
XmNtopWidget = XmLabel foe_label;
......@@ -248,62 +196,46 @@ object edit_form : XmForm
XmNleftAttachment = XmATTACH_WIDGET;
XmNleftWidget = XmPanedWindow pane_subwidget;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure foe_create_edit_form( foe_ctx);
};
};
object pane_subwidget : XmPanedWindow
{
arguments
{
object pane_subwidget : XmPanedWindow {
arguments {
XmNwidth = k_palette_width;
XmNborderWidth = 1;
XmNtopAttachment = XmATTACH_FORM;
XmNtopOffset = k_label_height;
XmNbottomAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
!! XmNtraversalOn = false;
};
controls
{
!! XmNtraversalOn = false;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_subpane ( foe_ctx) ;
callbacks {
MrmNcreateCallback = procedure foe_create_subpane ( foe_ctx);
};
};
object foe_menu : XmMenuBar
{
arguments
{
object foe_menu : XmMenuBar {
arguments {
XmNorientation = XmHORIZONTAL;
XmNspacing = 15;
XmNmenuHelpWidget = XmCascadeButton help_entry;
};
controls
{
controls {
XmCascadeButton file_entry;
XmCascadeButton edit_entry;
XmCascadeButton search_entry;
XmCascadeButton view_entry;
! XmCascadeButton connections_entry;
! XmCascadeButton connections_entry;
XmCascadeButton functions_entry;
XmCascadeButton mode_entry;
XmCascadeButton help_entry;
};
};
object foe_label : XmLabel ! SG 25.01.91 , 09.02.91
{
arguments
{
object foe_label : XmLabel {
arguments {
XmNborderWidth = 1;
XmNtopAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
......@@ -316,40 +248,34 @@ object foe_label : XmLabel ! SG 25.01.91 , 09.02.91
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
{
arguments
{
object foe_textinput : XmText {
arguments {
XmNtopAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
XmNleftOffset = k_text_left_offset;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmPanedWindow pane_subwidget;
! XmNtopAttachment = XmATTACH_FORM;
! XmNrightAttachment = XmATTACH_FORM;
! XmNtopAttachment = XmATTACH_FORM;
! XmNrightAttachment = XmATTACH_FORM;
XmNx = 100;
XmNeditMode = XmMULTI_LINE_EDIT;
XmNrows = 1;
XmNcolumns = 35;
XmNborderWidth = 0;
! XmNheight = 40;
! XmNheight = 40;
XmNfontList = menu_font;
};
controls
{
controls {
};
callbacks
{
MrmNcreateCallback = procedure foe_create_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
!
! ** File Menu **
!
object file_entry : XmCascadeButton
{
arguments
{
object file_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("File");
XmNmnemonic = keysym('F');
XmNfontList = menu_font;
XmNuserData = 1;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_file_entry ( foe_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb ( foe_ctx);
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Save");
XmNmnemonic = keysym('S');
XmNaccelerator = "Ctrl<Key>S";
XmNacceleratorText = compound_string('Ctrl+S');
XmNfontList = menu_font;
XmNuserData = 2;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_save (foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb (foe_ctx);
XmNactivateCallback = procedure foe_activate_save(foe_ctx);
XmNhelpCallback = procedure foe_activate_save(foe_ctx);
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Print");
XmNmnemonic = keysym('P');
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Documents");
XmNmnemonic = keysym('D');
! XmNaccelerator = "Ctrl<Key>D";
! XmNacceleratorText = compound_string('Ctrl+D');
! XmNaccelerator = "Ctrl<Key>D";
! XmNacceleratorText = compound_string('Ctrl+D');
XmNuserData = 3;
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_print(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_print(foe_ctx);
XmNhelpCallback = procedure foe_activate_print(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Overview");
XmNmnemonic = keysym('O');
XmNfontList = menu_font;
XmNuserData = 4;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_printoverv(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_printoverv(foe_ctx);
XmNhelpCallback = procedure foe_activate_printoverv(foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Selected Documents");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
XmNuserData = 5;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_printselect(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_printselect(foe_ctx);
XmNhelpCallback = procedure foe_activate_printselect(foe_ctx);
};
}; !Push_button
};
};
};
};
};
! XmPushButton
! {
! arguments
! {
! XmNlabelString = compound_string("Exit");
! XmNmnemonic = keysym('E');
! };
! callbacks
! {
! MrmNcreateCallback = procedure foe_create_exit(foe_ctx);
! XmNactivateCallback = procedure foe_activate_exit(foe_ctx);
! XmNhelpCallback = procedure foe_activate_exit(foe_ctx);
! };
! };
XmSeparator
{
XmSeparator {
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Syntax");
XmNmnemonic = keysym('x');
XmNfontList = menu_font;
XmNuserData = 6;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_syntax(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_syntax(foe_ctx);
XmNhelpCallback = procedure foe_activate_syntax(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Compile");
XmNmnemonic = keysym('C');
XmNfontList = menu_font;
XmNuserData = 7;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_compile(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_compile(foe_ctx);
XmNhelpCallback = procedure foe_activate_compile(foe_ctx);
};
};
XmSeparator
{
XmSeparator {
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("PLC Attributes...");
XmPushButton {
arguments {
XmNlabelString = compound_string("Plc Attributes...");
XmNmnemonic = keysym('A');
XmNfontList = menu_font;
XmNuserData = 8;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_plcattribute (foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb (foe_ctx);
XmNactivateCallback = procedure foe_activate_plcattribute (foe_ctx);
XmNhelpCallback = procedure foe_activate_plcattribute (foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Delete Window");
XmNmnemonic = keysym('W');
XmNfontList = menu_font;
XmNuserData = 9;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_winddelete(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_winddelete(foe_ctx);
XmNhelpCallback = procedure foe_activate_winddelete(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("SaveTrace");
XmNmnemonic = keysym('W');
XmNfontList = menu_font;
XmNuserData = 10;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_savetrace(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_savetrace(foe_ctx);
XmNhelpCallback = procedure foe_activate_savetrace(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("RestoreTrace");
XmNmnemonic = keysym('W');
XmNfontList = menu_font;
XmNuserData = 11;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_restoretrace(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_restoretrace(foe_ctx);
XmNhelpCallback = procedure foe_activate_restoretrace(foe_ctx);
};
};
XmSeparator
{
XmSeparator {
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Close");
XmNmnemonic = keysym('C');
! XmNaccelerator = "Ctrl<Key>C";
! XmNacceleratorText = compound_string('Ctrl+C');
! XmNaccelerator = "Ctrl<Key>C";
! XmNacceleratorText = compound_string('Ctrl+C');
XmNuserData = 12;
XmNfontList = menu_font;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_quit(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_quit(foe_ctx);
XmNhelpCallback = procedure foe_activate_quit(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("");
XmNfontList = menu_font;
XmNuserData = 13;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_exit(foe_ctx);
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_exit(foe_ctx);
XmNhelpCallback = procedure foe_activate_exit(foe_ctx);
};
};
}; !Controls
}; !Pulldown_menu
}; !Controls
}; ! file_entry
};
};
};
};
......@@ -622,399 +492,325 @@ object file_entry : XmCascadeButton
!
! ** Edit Menu **
!
object edit_entry : XmCascadeButton
{
arguments
{
object edit_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("Edit");
XmNmnemonic = keysym('E');
XmNfontList = menu_font;
XmNuserData = 14;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_edit_entry ( foe_ctx) ;
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb ( foe_ctx);
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton push_undelete ;
XmPushButton push_unselect ;
controls {
XmPulldownMenu {
controls {
XmPushButton push_undelete;
XmPushButton push_unselect;
XmSeparator separator;
XmPushButton push_cut ;
XmPushButton push_copy ;
XmPushButton push_paste ;
! XmPushButton push_moveregion ;
XmPushButton push_cut;
XmPushButton push_copy;
XmPushButton push_paste;
XmSeparator separator;
XmPushButton push_connect ;
XmPushButton push_connect;
XmSeparator separator;
XmPushButton push_delete ;
XmPushButton push_changetext ;
XmPushButton push_expand ;
XmPushButton push_compress ;
}; !Controls
}; !XmPulldownMenu
}; !controls
}; !edit_entry
XmPushButton push_delete;
XmPushButton push_changetext;
XmPushButton push_expand;
XmPushButton push_compress;
};
};
};
};
object push_cut : XmPushButton
{
arguments
{
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');
! XmNaccelerator = "Alt<Key>DRemove:";
! XmNacceleratorText = compound_string('Alt+Remove');
XmNfontList = menu_font;
XmNuserData = 15;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_cut(foe_ctx);
XmNhelpCallback = procedure foe_activate_cut(foe_ctx);
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
}; !Push_button
};
object push_copy : XmPushButton
{
arguments
{
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');
! XmNaccelerator = "Alt Shift<Key>DRemove:";
! XmNacceleratorText = compound_string('Alt+Shift+Remove');
XmNfontList = menu_font;
XmNuserData = 16;
};
callbacks
{
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
}; !Push_button
object push_paste : XmPushButton
{
arguments
{
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');
! XmNaccelerator = "Alt<Key>Insert:";
! XmNacceleratorText = compound_string('Alt+Insert');
XmNfontList = menu_font;
XmNuserData = 17;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
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 separator: XmSeparator {
};
object push_undelete : XmPushButton
{
arguments
{
object push_undelete : XmPushButton {
arguments {
XmNlabelString = compound_string("Undo Delete");
XmNmnemonic = keysym('U');
XmNfontList = menu_font;
XmNuserData = 18;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_undelete(foe_ctx);
XmNhelpCallback = procedure foe_activate_undelete(foe_ctx);
};
}; !Push_button
};
object push_unselect : XmPushButton
{
arguments
{
object push_unselect : XmPushButton {
arguments {
XmNlabelString = compound_string("Undo Select");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
XmNuserData = 19;
};
callbacks
{
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
}; !Push_button
object push_connect : XmPushButton
{
arguments
{
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
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_getobj (foe_ctx);
XmNhelpCallback = procedure foe_activate_getobj (foe_ctx);
};
}; !Push_button
};
object push_delete : XmPushButton
{
arguments
{
object push_delete : XmPushButton {
arguments {
XmNlabelString = compound_string("Delete");
XmNmnemonic = keysym('D');
XmNfontList = menu_font;
XmNuserData = 21;
};
callbacks
{
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
{
}; !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
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_changetext(foe_ctx);
XmNhelpCallback = procedure foe_activate_changetext(foe_ctx);
};
}; !Push_button
object push_expand : XmPushButton
{
arguments
{
};
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
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_expand (foe_ctx);
XmNhelpCallback = procedure foe_activate_expand (foe_ctx);
};
}; !Push_button
object push_compress : XmPushButton
{
arguments
{
};
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
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
XmNactivateCallback = procedure foe_activate_compress (foe_ctx);
XmNhelpCallback = procedure foe_activate_compress (foe_ctx);
};
}; !Push_button
};
!
! ** Search Menu **
!
object search_entry : XmCascadeButton
{
arguments
{
object search_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("Search");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
XmNuserData = 25;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_search_entry ( foe_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Object");
XmNmnemonic = keysym('O');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_searchobject (foe_ctx);
XmNhelpCallback = procedure foe_activate_searchobject (foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
};
XmPushButton {
arguments {
XmNlabelString = compound_string("String");
XmNmnemonic = keysym('S');
XmNaccelerator = "Ctrl<Key>F";
XmNacceleratorText = compound_string('Ctrl+F');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_searchstring (foe_ctx);
XmNhelpCallback = procedure foe_activate_searchstring (foe_ctx);
};
}; !Push_button
XmPushButton
{
arguments
{
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Next");
XmNmnemonic = keysym('N');
XmNaccelerator = "Alt<Key>Next:";
XmNacceleratorText = compound_string('Alt+Next');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_searchnext (foe_ctx);
XmNhelpCallback = procedure foe_activate_searchnext (foe_ctx);
};
}; !Push_button
}; !Controls
}; !XmPulldownMenu
}; !controls
}; !search_entry
};
};
};
};
};
!
! ** View Menu **
!
object view_entry : XmCascadeButton
{
arguments
{
object view_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("View");
XmNmnemonic = keysym('V');
XmNfontList = menu_font;
XmNuserData = 26;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_customize_entry ( foe_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
XmCascadeButton
{
arguments
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
controls {
XmPulldownMenu {
controls {
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Palette");
XmNmnemonic = keysym('C');
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
arguments
{
controls {
XmPulldownMenu {
arguments {
XmNradioBehavior = true;
XmNradioAlwaysOne = true;
};
controls
{
XmToggleButton
{
arguments
{
controls {
XmToggleButton {
arguments {
XmNlabelString = compound_string("Object");
XmNmnemonic = keysym('J');
XmNaccelerator = "Ctrl<Key>J";
XmNacceleratorText = compound_string('Ctrl+J');
XmNfontList = menu_font;
XmNuserData = 27;
};
callbacks
{
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
{
XmToggleButton {
arguments {
XmNlabelString = compound_string("Connection");
XmNmnemonic = keysym('N');
XmNaccelerator = "Ctrl<Key>N";
XmNacceleratorText = compound_string('Ctrl+N');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_palette_con(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_con(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string("Plant");
XmNmnemonic = keysym('L');
XmNaccelerator = "Ctrl<Key>L";
XmNacceleratorText = compound_string('Ctrl+L');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_palette_plant(foe_ctx);
XmNhelpCallback = procedure foe_activate_palette_plant(foe_ctx);
};
......@@ -1023,107 +819,82 @@ object view_entry : XmCascadeButton
};
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string("Reference connections");
XmNmnemonic = keysym('R');
XmNaccelerator = "Ctrl<Key>R";
XmNacceleratorText = compound_string('Ctrl+R');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_refcon(foe_ctx);
XmNhelpCallback = procedure foe_activate_refcon(foe_ctx);
};
};
XmSeparator
{
XmSeparator {
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Grid Size");
XmNmnemonic = keysym('G');
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
arguments
{
XmNradioBehavior = true ;
XmNradioAlwaysOne = true ;
};
controls
{
XmToggleButton
{
arguments
{
controls {
XmPulldownMenu {
arguments {
XmNradioBehavior = true;
XmNradioAlwaysOne = true;
};
controls {
XmToggleButton {
arguments {
XmNlabelString = compound_string(" 1 ");
XmNmnemonic = keysym('1');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize1(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string(" 2 ");
XmNmnemonic = keysym('2');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize2(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string(" 3 ");
XmNmnemonic = keysym('3');
XmNset = true;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize3(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string(" 4 ");
XmNmnemonic = keysym('4');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize4(foe_ctx);
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string(" 5 ");
XmNmnemonic = keysym('5');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_gridsize5(foe_ctx);
};
};
......@@ -1131,79 +902,61 @@ object view_entry : XmCascadeButton
};
};
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string("Show Grid");
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_showgrid(foe_ctx);
XmNhelpCallback = procedure foe_activate_showgrid(foe_ctx);
};
};
XmSeparator
{
XmSeparator {
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Zoom");
XmNmnemonic = keysym('Z');
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
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
{
callbacks {
XmNactivateCallback = procedure foe_activate_zoomin(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string(" Out");
XmNmnemonic = keysym('O');
XmNaccelerator = "Ctrl<Key>O";
XmNacceleratorText = compound_string('Ctrl+O');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_zoomout(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string(" Reset ");
XmNmnemonic = keysym('R');
XmNaccelerator = "Ctrl<Key>B";
XmNacceleratorText = compound_string('Ctrl+B');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_unzoom(foe_ctx);
};
};
......@@ -1211,422 +964,322 @@ object view_entry : XmCascadeButton
};
};
};
XmSeparator
{
XmSeparator {
};
XmToggleButton
{
arguments
{
XmToggleButton {
arguments {
XmNlabelString = compound_string("Show Execute Order");
XmNmnemonic = keysym('h');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNvalueChangedCallback = procedure foe_activate_showexeord(foe_ctx);
XmNhelpCallback = procedure foe_activate_showexeord(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Redraw");
XmNmnemonic = keysym('e');
XmNfontList = menu_font;
XmNuserData = 28;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_redraw(foe_ctx);
XmNhelpCallback = procedure foe_activate_redraw(foe_ctx);
MrmNcreateCallback = procedure foe_create_redraw(foe_ctx);
MrmNcreateCallback = procedure foe_create_widget_cb(foe_ctx);
};
};
};
};
}; !controls
}; !customize_entry
};
};
!
! ** Functions Menu **
!
object functions_entry : XmCascadeButton
{
arguments
{
object functions_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("Functions");
XmNmnemonic = keysym('u');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Open Object...");
XmNmnemonic = keysym('O');
XmNaccelerator = "Ctrl<Key>A";
XmNacceleratorText = compound_string('Ctrl+A');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_attribute(foe_ctx);
XmNhelpCallback = procedure foe_activate_attribute(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Subwindow...");
XmNmnemonic = keysym('S');
XmNaccelerator = "Ctrl<Key>W";
XmNacceleratorText = compound_string('Ctrl+W');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_subwindow(foe_ctx);
XmNhelpCallback = procedure foe_activate_subwindow(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("GOE...");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_search (foe_ctx);
XmNhelpCallback = procedure foe_activate_search (foe_ctx);
};
}; !Push_button
};
};
};
};
};
!
! ** Mode Menu **
!
object mode_entry : XmCascadeButton
{
object mode_entry : XmCascadeButton {
arguments {
XmNlabelString = 'Mode' ;
XmNlabelString = 'Mode';
XmNmnemonic = keysym('M');
XmNfontList = menu_font;
XmNuserData = 29;
};
callbacks { MrmNcreateCallback = procedure foe_create_function_entry ( foe_ctx) ; };
controls
{
XmPulldownMenu
{
callbacks {
MrmNcreateCallback = procedure foe_create_widget_cb(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
{
XmNradioBehavior = false;
XmNradioAlwaysOne = false;
};
controls {
XmToggleButton {
arguments {
XmNlabelString = 'View';
XmNmnemonic = keysym('V');
! XmNaccelerator = "Ctrl<Key>V";
! XmNacceleratorText = compound_string('Ctrl+V');
! XmNaccelerator = "Ctrl<Key>V";
! XmNacceleratorText = compound_string('Ctrl+V');
XmNfontList = menu_font;
XmNuserData = 30;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_view_togg (foe_ctx);
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);
};
}; !togg view
};
XmToggleButton
{
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_edit_togg (foe_ctx);
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);
};
}; !togg_edit
XmToggleButton
{
};
XmToggleButton {
arguments {
XmNlabelString = 'Trace';
XmNmnemonic = keysym('T');
XmNfontList = menu_font;
XmNuserData = 32;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_trace_togg (foe_ctx);
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);
};
}; !togg_trace
XmToggleButton
{
};
XmToggleButton {
arguments {
XmNlabelString = 'Simulate';
XmNmnemonic = keysym('S');
XmNfontList = menu_font;
XmNuserData = 33;
};
callbacks
{
MrmNcreateCallback = procedure foe_create_simulate_togg (foe_ctx);
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);
};
}; ! togg_sim
} ; !control fun_entry
}; !XmPulldownMenu funt_entry
}; !controls funt_entry
}; !fun_entry
};
};
};
};
};
!
! ** Help Menu **
!
object help_entry : XmCascadeButton
{
arguments
{
object help_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("Help");
XmNmnemonic = keysym('H');
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Help");
XmNmnemonic = keysym('H');
XmNfontList = menu_font;
};
callbacks
{
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
object edit_popup: XmPopupMenu
{
arguments
{
object edit_popup: XmPopupMenu {
arguments{
XmNbuttonFontList = menu_font;
XmNlabelFontList = menu_font;
};
controls
{
XmPushButton
{
arguments
{
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Cut");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_cut(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_cut(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Copy");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_copy(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_copy(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Paste");
XmNfontList = menu_font;
};
callbacks
{
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
{
};
XmPushButton {
arguments {
XmNlabelString = compound_string("Print Select");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_printselect(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_printselect(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Open Object...");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_attribute(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_attribute(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Subwindow...");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_subwindow(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_subwindow(foe_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Connect");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_getobj (foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_getobj (foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Delete");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_delete(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_delete(foe_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Help Class");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure foe_activate_helpclass(foe_ctx);
MrmNcreateCallback = procedure foe_create_pop_helpclass(foe_ctx);
};
}; !Push_button
}; !controls
callbacks
{
};
};
callbacks {
XmNunmapCallback = procedure foe_popdown_pop(foe_ctx);
! XmNpopdownCallback = procedure foe_popdown_pop(foe_ctx);
! XmNpopdownCallback = procedure foe_popdown_pop(foe_ctx);
};
}; !popupMenu
};
! SG 13.02.91 another orphean
object foe_popupmsg : XmQuestionDialog
{
arguments
{
object foe_popupmsg : XmQuestionDialog {
arguments {
XmNdefaultPosition = true;
XmNautoUnmanage = false;
XmNokLabelString = compound_string("Yes");
......@@ -1636,28 +1289,23 @@ object foe_popupmsg : XmQuestionDialog
XmNlabelFontList = menu_font;
XmNtextFontList = menu_font;
};
callbacks
{
callbacks {
XmNokCallback = procedure foe_yes_popupmsg(foe_ctx);
XmNcancelCallback = procedure foe_no_popupmsg(foe_ctx);
XmNhelpCallback = procedure foe_cancel_popupmsg(foe_ctx);
};
}; !popupmsg
};
! SG 24.02.91 another orphean (again!)
object foe_msgbox : XmInformationDialog
{
arguments
{
object foe_msgbox : XmInformationDialog {
arguments {
XmNdefaultPosition = true;
! XmNlabelString = compound_string("I'm a message box");
! XmNlabelString = compound_string("I'm a message box");
XmNbuttonFontList = menu_font;
XmNlabelFontList = menu_font;
};
callbacks
{
callbacks {
};
}; !msgbox
end module;
wb/mmi/wb/src/wb_uted.uil
View file @ 744477d1
......@@ -149,35 +149,27 @@ procedure
value
menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
object uted_window : XmMainWindow
{
arguments
{
object uted_window : XmMainWindow {
arguments {
XmNwidth = 0;
XmNheight = 0;
};
controls
{
controls {
XmMenuBar uted_menu;
XmForm uted_adb;
}; !Controls
callbacks
{
};
callbacks {
};
};
object uted_adb : XmForm
{
arguments
{
object uted_adb : XmForm {
arguments {
XmNwidth = 890;
XmNheight = 350;
XmNresizePolicy = XmRESIZE_NONE;
XmNdefaultButton = XmPushButton ok;
};
controls
{
controls {
XmCommand commandwindow;
XmLabel uted_label;
XmLabel commandlabel;
......@@ -186,7 +178,7 @@ object uted_adb : XmForm
XmLabel timelabel;
XmText timevalue;
XmPushButton ok;
! XmPushButton cancel;
! XmPushButton cancel;
XmSeparator separator;
XmLabel qualifier1;
XmText value1;
......@@ -219,23 +211,19 @@ object uted_adb : XmForm
XmText value10;
XmToggleButton present10;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ;
};
};
object uted_menu : XmMenuBar
{
arguments
{
object uted_menu : XmMenuBar {
arguments {
XmNorientation = XmHORIZONTAL;
XmNspacing = 15;
XmNmenuHelpWidget = XmCascadeButton help_entry;
};
controls
{
controls {
XmCascadeButton file_entry;
XmCascadeButton view_entry;
XmCascadeButton command_entry;
......@@ -243,10 +231,8 @@ object uted_menu : XmMenuBar
};
};
object uted_label : XmLabel ! SG 25.01.91 , 09.02.91
{
arguments
{
object uted_label : XmLabel {
arguments {
XmNbottomAttachment = XmATTACH_FORM;
XmNrightAttachment = XmATTACH_FORM;
XmNleftAttachment = XmATTACH_FORM;
......@@ -258,74 +244,55 @@ object uted_label : XmLabel ! SG 25.01.91 , 09.02.91
XmNborderWidth = 1;
XmNfontList = menu_font;
};
controls
{
controls {
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_label ( uted_ctx) ;
};
};
object file_entry : XmCascadeButton
{
arguments
{
object file_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("File");
XmNmnemonic = keysym("F");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_file_entry ( uted_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Close");
XmNmnemonic = keysym("C");
XmNfontList = menu_font;
};
callbacks
{
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
{
object view_entry : XmCascadeButton {
arguments {
XmNlabelString = 'View' ;
XmNmnemonic = keysym("V");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNx = 150;
XmNy = 150;
XmNlabelString = compound_string("Show Current Command");
......@@ -334,14 +301,12 @@ object view_entry : XmCascadeButton
XmNacceleratorText = compound_string('Ctrl+H');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_show_cmd ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_show_cmd ( uted_ctx) ;
};
};
XmToggleButton
{
XmToggleButton {
arguments {
XmNlabelString = 'Command Window';
XmNmnemonic = keysym("W");
......@@ -349,124 +314,91 @@ object view_entry : XmCascadeButton
XmNacceleratorText = compound_string('Ctrl+W');
XmNfontList = menu_font;
};
callbacks
{
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
{
arguments
{
object help_entry : XmCascadeButton {
arguments {
XmNlabelString = compound_string("Help");
XmNmnemonic = keysym("H");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("On Window");
XmNmnemonic = keysym("W");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_helputils (uted_ctx);
XmNhelpCallback = procedure uted_activate_helputils (uted_ctx);
};
}; !Push_button
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("On pwr_plc");
XmNmnemonic = keysym("p");
XmNfontList = menu_font;
};
callbacks
{
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
{
object command_entry : XmCascadeButton {
arguments {
XmNlabelString = 'Commands' ;
XmNmnemonic = keysym("C");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
! XmPushButton optmenu_list;
controls {
XmPulldownMenu {
controls {
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Delete");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Delete Object");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Delete Tree");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -477,130 +409,101 @@ object command_entry : XmCascadeButton
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Compile");
XmNmnemonic = keysym("o");
XmNaccelerator = "Alt<Key>O";
XmNacceleratorText = compound_string('Alt+O');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Copy Objects");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Configure Card");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Create");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Create BootFiles");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Create LoadFiles");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Create Object");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Create StructFiles");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Create RttFiles");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -612,42 +515,31 @@ object command_entry : XmCascadeButton
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Crossreference");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Export");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Export PlcPgm");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -658,74 +550,57 @@ object command_entry : XmCascadeButton
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("List");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton optmenu_list;
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("List Channels");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("List Hierarchy");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("List Plcpgm");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("List Descriptor");
XmNmnemonic = keysym("L");
XmNaccelerator = "Alt<Key>L";
XmNacceleratorText = compound_string('Alt+L');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -736,91 +611,71 @@ object command_entry : XmCascadeButton
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Print");
XmNmnemonic = keysym("P");
XmNaccelerator = "Alt<Key>P";
XmNacceleratorText = compound_string('Alt+P');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Move Object");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Redraw");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Set");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Set Attribute");
XmNmnemonic = keysym("A");
XmNaccelerator = "Alt<Key>A";
XmNacceleratorText = compound_string('Alt+A');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Set Template");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -831,80 +686,61 @@ object command_entry : XmCascadeButton
};
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Show");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Show Class");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Show Objects");
XmNmnemonic = keysym("S");
XmNaccelerator = "Alt<Key>S";
XmNacceleratorText = compound_string('Alt+S');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Show Modules");
XmNmnemonic = keysym("u");
XmNaccelerator = "Alt<Key>U";
XmNacceleratorText = compound_string('Alt+U');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Show Security");
XmNmnemonic = keysym("e");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -916,93 +752,73 @@ object command_entry : XmCascadeButton
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Sort");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmCascadeButton
{
arguments
{
XmCascadeButton {
arguments {
XmNlabelString = compound_string("Wb");
XmNfontList = menu_font;
};
controls
{
XmPulldownMenu
{
controls
{
XmPushButton
{
arguments
{
controls {
XmPulldownMenu {
controls {
XmPushButton {
arguments {
XmNlabelString = compound_string("Wb Dump");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Wb Load");
XmNmnemonic = keysym("W");
XmNaccelerator = "Alt<Key>W";
XmNacceleratorText = compound_string('Alt+W');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Wb Export");
XmNmnemonic = keysym("E");
XmNaccelerator = "Alt<Key>E";
XmNacceleratorText = compound_string('Alt+E');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Wb Import");
XmNmnemonic = keysym("I");
XmNaccelerator = "Alt<Key>I";
XmNacceleratorText = compound_string('Alt+I');
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
......@@ -1014,54 +830,41 @@ object command_entry : XmCascadeButton
};
};
};
}; !Controls
}; !XmCascadeButton command_entry
};
};
object optmenu_list: XmPushButton
{
arguments
{
object optmenu_list: XmPushButton {
arguments {
XmNlabelString = compound_string("List Signals");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_command( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_command( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_command(uted_ctx);
};
};
};
object batch : XmOptionMenu
{
arguments
{
object batch : XmOptionMenu {
arguments {
XmNx = 10;
XmNy = 67;
XmNlabelString = compound_string("Batch: ");
XmNmenuHistory = XmPushButton current_session;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_batchoptmenu( uted_ctx) ;
};
controls
{
XmPulldownMenu
{
controls
{
controls {
XmPulldownMenu {
controls {
XmPushButton current_session;
XmPushButton
{
arguments
{
XmPushButton {
arguments {
XmNlabelString = compound_string("Batch");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_batch( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_batch( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_batch( uted_ctx) ;
......@@ -1069,61 +872,49 @@ object batch : XmOptionMenu
};
};
};
}; !Controls
}; !XmOptionMenu
};
};
object current_session : XmPushButton
{
arguments
{
object current_session : XmPushButton {
arguments {
XmNlabelString = compound_string("Current session");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_currsess( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_currsess( uted_ctx) ;
MrmNcreateCallback = procedure uted_create_currsess( uted_ctx) ;
};
};
};
object ok : XmPushButton
{
arguments
{
object ok : XmPushButton {
arguments {
XmNx = 20;
XmNy = 160;
XmNlabelString = compound_string("Apply");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_ok ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_ok ( uted_ctx) ;
};
};
object cancel : XmPushButton
{
arguments
{
object cancel : XmPushButton {
arguments {
XmNx = 90;
XmNy = 150;
XmNlabelString = compound_string("Cancel");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
XmNactivateCallback = procedure uted_activate_cancel ( uted_ctx) ;
XmNhelpCallback = procedure uted_activate_cancel ( uted_ctx) ;
};
};
object separator : XmSeparator
{
arguments
{
object separator : XmSeparator {
arguments {
XmNtopAttachment = XmATTACH_FORM;
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmLabel uted_label;
......@@ -1132,10 +923,8 @@ object separator : XmSeparator
};
};
object commandlabel : XmLabel
{
arguments
{
object commandlabel : XmLabel {
arguments {
XmNx = commandlabel_x;
XmNy = 27;
XmNwidth = separator_vert_x - commandlabel_x - 1;
......@@ -1144,15 +933,12 @@ object commandlabel : XmLabel
XmNlabelString = compound_string("No command selected");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_commandlabel( uted_ctx) ;
};
};
object commandtext : XmLabel
{
arguments
{
object commandtext : XmLabel {
arguments {
XmNx = 12;
XmNy = 27;
XmNlabelString = compound_string("Command");
......@@ -1160,24 +946,19 @@ object commandtext : XmLabel
};
};
object timelabel : XmLabel
{
arguments
{
object timelabel : XmLabel {
arguments {
XmNx = 12;
XmNy = 110;
XmNlabelString = compound_string("Time");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_timelabel(uted_ctx);
};
};
object timevalue : XmText
{
arguments
{
object timevalue : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1187,31 +968,26 @@ object timevalue : XmText
XmNcolumns = 18;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_timevalue(uted_ctx);
};
};
object qualifier1 : XmLabel
{
arguments
{
object qualifier1 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 30;
XmNlabelString = compound_string("Qualifier1");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier1 ( uted_ctx) ;
};
};
object value1 : XmText
{
arguments
{
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1221,46 +997,37 @@ object value1 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value1(uted_ctx);
};
};
object present1 : XmToggleButton
{
arguments
{
object present1 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 30;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present1(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present1(uted_ctx);
};
};
object qualifier2 : XmLabel
{
arguments
{
object qualifier2 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 60;
XmNlabelString = compound_string("Qualifier2");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier2 ( uted_ctx) ;
};
};
object value2 : XmText
{
arguments
{
object value2 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1270,46 +1037,37 @@ object value2 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value2(uted_ctx);
};
};
object present2 : XmToggleButton
{
arguments
{
object present2 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 60;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present2(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present2(uted_ctx);
};
};
object qualifier3 : XmLabel
{
arguments
{
object qualifier3 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 90;
XmNlabelString = compound_string("Qualifier3");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier3 ( uted_ctx) ;
};
};
object value3 : XmText
{
arguments
{
object value3 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1319,46 +1077,37 @@ object value3 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value3(uted_ctx);
};
};
object present3 : XmToggleButton
{
arguments
{
object present3 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 90;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present3(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present3(uted_ctx);
};
};
object qualifier4 : XmLabel
{
arguments
{
object qualifier4 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 120;
XmNlabelString = compound_string("Qualifier4");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier4 ( uted_ctx) ;
};
};
object value4 : XmText
{
arguments
{
object value4 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1368,46 +1117,37 @@ object value4 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value4(uted_ctx);
};
};
object present4 : XmToggleButton
{
arguments
{
object present4 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 120;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present4(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present4(uted_ctx);
};
};
object qualifier5 : XmLabel
{
arguments
{
object qualifier5 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 150;
XmNlabelString = compound_string("Qualifier5");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier5 ( uted_ctx) ;
};
};
object value5 : XmText
{
arguments
{
object value5 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1417,46 +1157,37 @@ object value5 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value5(uted_ctx);
};
};
object present5 : XmToggleButton
{
arguments
{
object present5 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 150;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present5(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present5(uted_ctx);
};
};
object qualifier6 : XmLabel
{
arguments
{
object qualifier6 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 180;
XmNlabelString = compound_string("Qualifier6");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier6 ( uted_ctx) ;
};
};
object value6 : XmText
{
arguments
{
object value6 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1466,46 +1197,37 @@ object value6 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value6(uted_ctx);
};
};
object present6 : XmToggleButton
{
arguments
{
object present6 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 180;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present6(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present6(uted_ctx);
};
};
object qualifier7 : XmLabel
{
arguments
{
object qualifier7 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 210;
XmNlabelString = compound_string("Qualifier7");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier7 ( uted_ctx) ;
};
};
object value7 : XmText
{
arguments
{
object value7 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1515,46 +1237,37 @@ object value7 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value7(uted_ctx);
};
};
object present7 : XmToggleButton
{
arguments
{
object present7 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 210;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present7(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present7(uted_ctx);
};
};
object qualifier8 : XmLabel
{
arguments
{
object qualifier8 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 240;
XmNlabelString = compound_string("Qualifier8");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier8 ( uted_ctx) ;
};
};
object value8 : XmText
{
arguments
{
object value8 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1564,46 +1277,37 @@ object value8 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value8(uted_ctx);
};
};
object present8 : XmToggleButton
{
arguments
{
object present8 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 240;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present8(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present8(uted_ctx);
};
};
object qualifier9 : XmLabel
{
arguments
{
object qualifier9 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 270;
XmNlabelString = compound_string("Qualifier9");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier9 ( uted_ctx) ;
};
};
object value9 : XmText
{
arguments
{
object value9 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1613,46 +1317,37 @@ object value9 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value9(uted_ctx);
};
};
object present9 : XmToggleButton
{
arguments
{
object present9 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 270;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present9(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present9(uted_ctx);
};
};
object qualifier10 : XmLabel
{
arguments
{
object qualifier10 : XmLabel {
arguments {
XmNx = qualifier_x;
XmNy = 300;
XmNlabelString = compound_string("Qualifier10");
XmNalignment = XmALIGNMENT_BEGINNING;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_qualifier10 ( uted_ctx) ;
};
};
object value10 : XmText
{
arguments
{
object value10 : XmText {
arguments {
XmNresizeHeight = false;
XmNresizeWidth = false;
XmNmarginHeight = 1;
......@@ -1662,31 +1357,25 @@ object value10 : XmText
XmNcolumns = 35;
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_value10(uted_ctx);
};
};
object present10 : XmToggleButton
{
arguments
{
object present10 : XmToggleButton {
arguments {
XmNx = present_x;
XmNy = 300;
XmNlabelString = compound_string("");
XmNfontList = menu_font;
};
callbacks
{
callbacks {
MrmNcreateCallback = procedure uted_create_present10(uted_ctx);
XmNvalueChangedCallback = procedure uted_activate_present10(uted_ctx);
};
};
object commandwindow : XmCommand
{
arguments
{
object commandwindow : XmCommand {
arguments {
XmNbottomAttachment = XmATTACH_WIDGET;
XmNbottomWidget = XmLabel uted_label;
XmNrightAttachment = XmATTACH_FORM;
......@@ -1697,27 +1386,23 @@ object commandwindow : XmCommand
XmNborderWidth = 1;
XmNhistoryVisibleItemCount = 8;
};
callbacks
{
! MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ;
callbacks {
! MrmNcreateCallback = procedure uted_create_adb ( uted_ctx) ;
XmNcommandEnteredCallback = procedure uted_commandchanged( uted_ctx);
MrmNcreateCallback = procedure uted_create_cmd_wind(uted_ctx);
};
};
object uted_qbox : XmQuestionDialog
{
arguments
{
object uted_qbox : XmQuestionDialog {
arguments {
XmNdefaultPosition = true;
XmNautoUnmanage = false;
XmNokLabelString = compound_string("Yes");
XmNcancelLabelString = compound_string("No");
XmNhelpLabelString = compound_string("Cancel");
};
callbacks
{
callbacks {
XmNokCallback = procedure uted_qbox_yes_cb( uted_ctx);
XmNcancelCallback = procedure uted_qbox_no_cb( uted_ctx);
XmNhelpCallback = procedure uted_qbox_cancel_cb( uted_ctx);
......
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