int main( int argc, char *argv[])
{
char uid_filename[120] = {"pwr_exe:wb.uid"};
char *uid_filename_p = uid_filename;
MrmHierarchy s_DRMh;
MrmType dclass;
pwr_tStatus sts;
XtAppContext app_ctx;
char title[80];
Admin *admin;
dcli_translate_filename( uid_filename, uid_filename);
// First argument is username, and second password
strcpy( login_prv.username, "-");
strcpy( login_prv.password, "-");
if ( argc > 0)
cdh_ToLower( login_prv.username, argv[1]);
if ( argc > 1)
cdh_ToLower( login_prv.password, argv[2]);
MrmInitialize();
strcpy( title, "PwR Administrator");
toplevel = XtVaAppInitialize (
&app_ctx,
"PWR_ADM",
NULL, 0,
&argc, argv,
fbr,
XtNallowShellResize, True,
XtNtitle, title,
XmNmappedWhenManaged, False,
NULL);
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
sts = MrmFetchWidget(s_DRMh, "mainwindow", toplevel,
&mainwindow, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch mainwindow\n");
MrmCloseHierarchy( s_DRMh);
XtManageChild( mainwindow);
admin = new Admin( toplevel, 0);
admin->close_cb = &adm_close_cb;
XtRealizeWidget( toplevel);
XtAppMainLoop(app_ctx);
return (0);
}
//
// Create a new foe window
// SG 09.02.91 : Create a new toplevel widget and give it an pixmap icon
// SG : 13.02.91 Fetch a caution box and save the id of the widget in the
// foe context for futher use
// SG : 24.02.91 Fetch a widget ( again !) . This time a message box
// SG : 24.03.91 Send the routine the desired position (x_top , y_top)
// and the desired size ( width_adb , height_adb ) for the window to be created.
// The two first parameters are set to the top level widget
// and the two last paramters are set to the adb widget (see in uil file
// the widget hierarchy )
// SG 14.04.91 A new widget to fetch , the help widget !
// SG 2.05.91 New parameter : function ( edit , trace , view , simulate ..)
// to indicate which neted events and which menu entries should be alllowed.
//
pwr_tStatus WFoeMotif::create_window( int x_top,
int y_top,
int width_adb,
int height_adb,
ldh_tSesContext ldhsession,
foe_eFuncAccess function_access)
{
Arg args[20];
int sts;
Widget *children;
int i, num_children;
XmString TitleStr;
Dimension icon_w, icon_h;
/* DRM database hierarchy related variables */
MrmHierarchy s_MrmH;
MrmType dclass;
char uid_filename[200] = {"pwr_exe:wb_foe.uid"};
char *uid_filename_p = uid_filename;
static Atom MwmDeleteWind = 0;
static char translations[] = "\
<FocusIn>: foe_inputfocus()\n";
static XtTranslations compiled_translations = NULL;
static XtActionsRec actions[] =
{
{(char*) "foe_inputfocus", (XtActionProc) action_inputfocus}
};
sts = dcli_translate_filename( uid_filename, uid_filename);
if ( EVEN(sts)) {
printf( "** pwr_exe is not defined\n");
exit(0);
}
/*
* Now start the module creation
*/
/* Save the context structure in the widget */
XtSetArg (args[0], XmNuserData, (XtPointer) this);
/*
* Create a new main widget
*/
/*
* Open the UID files (the output of the UIL compiler) in the hierarchy
* Register the items DRM needs to bind for us.
* Create a new neted-widget
* Close the hierarchy
* Compile the additional button translations and augment and add actions
*/
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_MrmH);
if (sts != MrmSUCCESS) {
printf("can't open hierarchy\n");
return 0;
}
register_callbacks();
/* SG 09.02.91 : create the new hierarchy. By the way use a pixmap define
with help of wb_foe_ptrn.h */
/* create a pixmap for the icon */
if ( icon_pixmap == 0 )
sts = MrmFetchBitmapLiteral(s_MrmH,(char*) "icon",
XtScreen(parent_wid), XtDisplay(parent_wid),
&icon_pixmap, &icon_w, &icon_h);
i=0;
XtSetArg(args[i],XmNiconName,name); i++;
XtSetArg(args[i],XtNiconPixmap,icon_pixmap); i++;
/* SG 11.02.91 Save the id of the top in the context */
parent_wid = XtCreatePopupShell("plcEditor",
topLevelShellWidgetClass, parent_wid, args, i);
if (compiled_translations == NULL)
XtAppAddActions( XtWidgetToApplicationContext( parent_wid),
actions, XtNumber(actions));
/* the positioning of a top level can only be define after the creation
of the widget . So i do it know:
SG 24.02.91 use the parameters received x and y
*/
i=0;
XtSetArg(args[i],XmNx,x_top);i++;
XtSetArg(args[i],XmNy,y_top);i++;
XtSetArg(args[i],XtNallowShellResize,TRUE), i++;
if ( ! map_window) {
XtSetArg(args[i],XmNmappedWhenManaged,FALSE); i++;
}
XtSetValues( parent_wid, args, i);
XtSetArg (args[0], XmNuserData, (XtPointer) this);
/* now that we have a top level we can get the main window */
sts = MrmFetchWidgetOverride(s_MrmH, (char*) "foe_window", parent_wid ,
name, args, 1,
&widgets.foe_window, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch foedit widget\n");
/* SG 24.02.91 Set the width and hight desired for the main window to his
child the adb widget */
i=0;
XtSetArg(args[i],XmNwidth,width_adb);i++;
XtSetArg(args[i],XmNheight,height_adb);i++;
XtSetValues( widgets.adb ,args,i);
/* SG 24.02.91
Get a litle message box widget that you will make appears when you want by
calling foe_msgbox
*/
if (MrmFetchWidget (s_MrmH,
(char*) "foe_msgbox",
widgets.foe_window,
&widgets.msgbox,
&dclass) != MrmSUCCESS)
printf("can't fetch msgbox \n");
TitleStr = XmStringCreateLtoR((char*) "PlcEdit Message" , (char*) "ISO8859-1");
XtSetArg(args[0],XmNdialogTitle,TitleStr);
XtSetValues( widgets.msgbox, args, 1);
XmStringFree(TitleStr);
/* SG 13.02.91
Get a litle caution widget that you will make appears when you want by
calling foe_popupmsg
*/
if (MrmFetchWidget (s_MrmH,
(char*) "foe_popupmsg",
widgets.foe_window,
&widgets.caution,
&dclass) != MrmSUCCESS)
printf("can't fetch popupmsg\n");
TitleStr = XmStringCreateLtoR((char*) "PlcEdit Confirm" , (char*) "ISO8859-1");
XtSetArg(args[0],XmNdialogTitle,TitleStr);
XtSetValues( widgets.caution, args, 1);
XmStringFree(TitleStr);
/* create the pane widgets */
/* create the palette module */
/* SG 07.03.91 put two palletes in the sub pane widget */
node_palctx = new PalMotif( this, widgets.subpane, "Objects",
ldhsession, "PlcEditorPalette",
&widgets.node_palette, &sts);
node_palette_managed = 1;
navctx = new NavMotif( this, widgets.subpane, "Plant",
ldhsession, "NavigatorW1",
&widgets.nav_palette, &sts);
XtUnmanageChild( widgets.nav_palette);
con_palctx = new PalMotif( this, widgets.subpane, "Connections",
ldhsession, "PlcEditorConPalette",
&widgets.con_palette, &sts);
XtUnmanageChild( widgets.con_palette);
/* Turn off traversal for sash widgets */
XtVaGetValues(widgets.subpane,
XmNchildren, &children,
XmNnumChildren, &num_children,
NULL);
for (i = 0; i < num_children; i++) {
if (XmIsSash(children[i]))
XtVaSetValues(children[i], XmNtraversalOn, False, NULL);
}
/* create the gredit module */
XtManageChild(widgets.foe_window);
gre = new WGreMotif( this, widgets.pane, "Name");
((WGreMotif *)gre)->new_navigator( widgets.subpane);
if ( map_window)
XtPopup(parent_wid, XtGrabNone);
else
XtRealizeWidget( parent_wid);
gre->init();
/* create the setup ie:
enable netedevents,
enable menu entries
setup backcalls from the gredit module */
function_setup();
MrmCloseHierarchy(s_MrmH);
if (compiled_translations == NULL)
compiled_translations = XtParseTranslationTable(translations);
XtOverrideTranslations( widgets.foe_window, compiled_translations);
XtUnmanageChild(widgets.textinput);
if ( !(CoLogin::privilege() & pwr_mPrv_DevPlc ) ||
(function_access == foe_eFuncAccess_View)) {
/* Mode Edit and Simulate is not allowed */
i=0;
XtSetArg(args[i],XmNsensitive,0); i++;
XtSetValues( widgets.edit_togg,args,i);
XtSetValues( widgets.simulate_togg,args,i);
}
if (MwmDeleteWind == 0)
MwmDeleteWind = XInternAtom(XtDisplay(parent_wid), "WM_DELETE_WINDOW", FALSE);
if (MwmDeleteWind != 0) {
XtVaSetValues(parent_wid, XmNdeleteResponse, XmDO_NOTHING, NULL);
XmAddWMProtocolCallback(parent_wid, MwmDeleteWind,
(XtCallbackProc)activate_quit, this);
}
CoWowMotif::GetAtoms( parent_wid, 0, &objid_atom, 0);
/* SG 09.02.91 a top level should always be realized !
* ML 16.03.94 changed Realize to Popup
*/
return FOE__SUCCESS;
}
WGeMotif::WGeMotif( Widget wge_parent_wid, void *wge_parent_ctx, char *wge_name, char *wge_filename,
int wge_scrollbar, int wge_menu, int wge_navigator, int wge_width, int wge_height,
int x, int y, char *object_name, int wge_modal = 0) :
WGe(wge_parent_ctx, wge_name, wge_filename, wge_scrollbar, wge_menu, wge_navigator, wge_width,
wge_height, x, y, object_name, wge_modal),
parent_wid(wge_parent_wid), value_dialog(0), set_focus_disabled(0), focus_timerid(0)
{
pwr_tFileName uid_filename = {"$pwr_exe/wb_wge.uid"};
char *uid_filename_p = uid_filename;
Arg args[20];
pwr_tStatus sts;
char title[300];
int i;
MrmHierarchy s_DRMh;
MrmType dclass;
Widget wge_widget;
char wname[] = "Proview/R Ge";
static char translations[] =
"<ConfigureNotify>: resize()\n\
<FocusIn>: wge_inputfocus()";
static XtTranslations compiled_translations = NULL;
static XtActionsRec actions[] =
{
{(char*) "wge_inputfocus", (XtActionProc) action_inputfocus},
{(char*) "resize", (XtActionProc) action_resize},
};
static MrmRegisterArg reglist[] = {
{(char*) "wge_ctx", 0 },
{(char*) "wge_activate_exit",(caddr_t)activate_exit },
{(char*) "wge_activate_zoom_in",(caddr_t)activate_zoom_in },
{(char*) "wge_activate_zoom_out",(caddr_t)activate_zoom_out },
{(char*) "wge_activate_zoom_reset",(caddr_t)activate_zoom_reset },
{(char*) "wge_activate_help",(caddr_t)activate_help },
{(char*) "wge_create_graph_form",(caddr_t)create_graph_form },
{(char*) "wge_create_menu",(caddr_t)create_menu },
{(char*) "wge_create_value_input",(caddr_t)create_value_input },
{(char*) "wge_activate_value_input",(caddr_t)activate_value_input },
{(char*) "wge_activate_confirm_ok",(caddr_t)activate_confirm_ok },
{(char*) "wge_activate_confirm_cancel",(caddr_t)activate_confirm_cancel },
{(char*) "wge_create_message_dia",(caddr_t)create_message_dia }
};
static int reglist_num = (sizeof reglist / sizeof reglist[0]);
dcli_translate_filename( uid_filename, uid_filename);
// Create object context
strcpy( filename, wge_filename);
strcpy( name, wge_name);
// command_cb = command_cb;
// help_cb = help_cb;
// close_cb = close_cb;
// is_authorized_cb = is_authorized_cb;
// Motif
MrmInitialize();
cdh_StrncpyCutOff( title, name, sizeof(title), 1);
reglist[0].value = (caddr_t) this;
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
// Save the context structure in the widget
i = 0;
XtSetArg(args[i], XmNuserData, (XtPointer) this);i++;
XtSetArg(args[i],XmNdeleteResponse, XmDO_NOTHING);i++;
toplevel = XtCreatePopupShell( title,
topLevelShellWidgetClass, parent_wid, args, i);
MrmRegisterNames(reglist, reglist_num);
sts = MrmFetchWidgetOverride( s_DRMh, (char*) "wge_window", toplevel,
wname, args, 1, &wge_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch %s\n", wname);
sts = MrmFetchWidget(s_DRMh, (char*) "input_dialog", toplevel,
&value_dialog, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch input dialog\n");
sts = MrmFetchWidget(s_DRMh, (char*) "confirm_dialog", toplevel,
&confirm_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch confirm dialog\n");
sts = MrmFetchWidget(s_DRMh, (char*) "message_dialog", toplevel,
&message_dia_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch message dialog\n");
MrmCloseHierarchy(s_DRMh);
if (compiled_translations == NULL)
XtAppAddActions( XtWidgetToApplicationContext(toplevel),
actions, XtNumber(actions));
if (compiled_translations == NULL)
compiled_translations = XtParseTranslationTable(translations);
XtOverrideTranslations( wge_widget, compiled_translations);
i = 0;
if ( width == 0 || height == 0)
{
XtSetArg(args[i],XmNwidth,600);i++;
XtSetArg(args[i],XmNheight,500);i++;
}
else
{
XtSetArg(args[i],XmNwidth,width);i++;
XtSetArg(args[i],XmNheight,height);i++;
XtSetArg(args[i], XmNminAspectX, width); i++;
XtSetArg(args[i], XmNminAspectY, height); i++;
XtSetArg(args[i], XmNmaxAspectX, width); i++;
XtSetArg(args[i], XmNmaxAspectY, height); i++;
}
if ( !(x == 0 && y == 0))
{
XtSetArg(args[i],XmNx, x);i++;
XtSetArg(args[i],XmNy, y);i++;
}
XtSetValues( toplevel, args,i);
XtManageChild( wge_widget);
if ( !menu)
XtUnmanageChild( menu_widget);
graph = new GraphMotif( this, graph_form, "Plant",
&grow_widget, &sts, "pwrp_exe:", graph_eMode_Runtime,
scrollbar, 1, object_name, 0, 0);
((Graph *)graph)->message_cb = &message;
((Graph *)graph)->close_cb = &graph_close_cb;
((Graph *)graph)->init_cb = &graph_init_cb;
((Graph *)graph)->change_value_cb = &change_value_cb;
((Graph *)graph)->confirm_cb = &confirm_cb;
((Graph *)graph)->message_dialog_cb = &message_dialog_cb;
((Graph *)graph)->command_cb = &wge_command_cb;
((Graph *)graph)->is_authorized_cb = &wge_is_authorized_cb;
XtPopup( toplevel, XtGrabNone);
if ( navigator)
{
// Create navigator popup
i = 0;
XtSetArg(args[i],XmNallowShellResize, TRUE); i++;
XtSetArg(args[i],XmNallowResize, TRUE); i++;
XtSetArg(args[i],XmNwidth,200);i++;
XtSetArg(args[i],XmNheight,200);i++;
XtSetArg(args[i],XmNx,500);i++;
XtSetArg(args[i],XmNy,500);i++;
XtSetArg(args[i],XmNdeleteResponse, XmDO_NOTHING);i++;
nav_shell = XmCreateDialogShell( grow_widget, (char*) "Navigator",
args, i);
XtManageChild( nav_shell);
((GraphMotif *)graph)->create_navigator( nav_shell);
// XtManageChild( nav_widget);
XtRealizeWidget( nav_shell);
((Graph *)graph)->set_nav_background_color();
}
// Connect the window manager close-button to exit
flow_AddCloseVMProtocolCb( toplevel,
(XtCallbackProc)activate_exit, this);
}
WdaMotif::WdaMotif(
Widget wa_parent_wid,
void *wa_parent_ctx,
ldh_tSesContext wa_ldhses,
pwr_tObjid wa_objid,
pwr_tClassId wa_classid,
const char *wa_attribute,
int wa_editmode,
int wa_advanced_user,
int wa_display_objectname) :
Wda(wa_parent_ctx,wa_ldhses,wa_objid,wa_classid,wa_attribute,wa_editmode,
wa_advanced_user,wa_display_objectname),
parent_wid(wa_parent_wid), set_focus_disabled(0), value_current_recall(0)
{
char uid_filename[120] = {"pwr_exe:wb_wda.uid"};
char *uid_filename_p = uid_filename;
Arg args[20];
pwr_tStatus sts;
char title[80];
int i;
MrmHierarchy s_DRMh;
MrmType dclass;
char name[] = "Proview/R Navigator";
static char translations[] =
"<FocusIn>: wda_inputfocus()\n";
static XtTranslations compiled_translations = NULL;
static XtActionsRec actions[] =
{
{(char*) "wda_inputfocus", (XtActionProc) action_inputfocus}
};
static MrmRegisterArg reglist[] = {
{(char*) "wda_ctx", 0 },
{(char*) "wda_activate_setclass",(caddr_t)activate_setclass },
{(char*) "wda_activate_setattr",(caddr_t)activate_setattr },
{(char*) "wda_activate_nextattr",(caddr_t)activate_nextattr },
{(char*) "wda_activate_prevattr",(caddr_t)activate_prevattr },
{(char*) "wda_activate_exit",(caddr_t)activate_exit },
{(char*) "wda_activate_print",(caddr_t)activate_print },
{(char*) "wda_activate_change_value",(caddr_t)activate_change_value },
{(char*) "wda_activate_close_changeval",(caddr_t)activate_close_changeval },
{(char*) "wda_activate_help",(caddr_t)activate_help },
{(char*) "wda_create_msg_label",(caddr_t)create_msg_label },
{(char*) "wda_create_cmd_prompt",(caddr_t)create_cmd_prompt },
{(char*) "wda_create_cmd_input",(caddr_t)create_cmd_input },
{(char*) "wda_create_cmd_scrolledinput",(caddr_t)create_cmd_scrolledinput },
{(char*) "wda_create_cmd_scrolled_ok",(caddr_t)create_cmd_scrolled_ok },
{(char*) "wda_create_cmd_scrolled_ca",(caddr_t)create_cmd_scrolled_ca },
{(char*) "wda_create_wdanav_form",(caddr_t)create_wdanav_form },
{(char*) "wda_activate_cmd_scrolledinput",(caddr_t)activate_cmd_input },
{(char*) "wda_activate_cmd_scrolled_ok",(caddr_t)activate_cmd_scrolled_ok },
{(char*) "wda_activate_cmd_scrolled_ca",(caddr_t)activate_cmd_scrolled_ca },
{(char*) "wdaclass_activate_ok",(caddr_t)class_activate_ok },
{(char*) "wdaclass_activate_cancel",(caddr_t)class_activate_cancel },
{(char*) "wdaclass_create_hiervalue",(caddr_t)class_create_hiervalue },
{(char*) "wdaclass_create_classvalue",(caddr_t)class_create_classvalue },
{(char*) "wdaclass_create_attrobjects",(caddr_t)class_create_attrobjects }
};
static int reglist_num = (sizeof reglist / sizeof reglist[0]);
// for ( i = 0; i < int(sizeof(value_recall)/sizeof(value_recall[0])); i++)
// value_recall[i][0] = 0;
dcli_translate_filename( uid_filename, uid_filename);
// Create object context
// attrctx->close_cb = close_cb;
// attrctx->redraw_cb = redraw_cb;
// Motif
MrmInitialize();
strcpy( title, "PwR Object attributes");
reglist[0].value = (caddr_t) this;
// Save the context structure in the widget
XtSetArg (args[0], XmNuserData, (XtPointer) this);
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
MrmRegisterNames(reglist, reglist_num);
parent_wid = XtCreatePopupShell("spreadSheetEditor",
topLevelShellWidgetClass, parent_wid, args, 0);
sts = MrmFetchWidgetOverride( s_DRMh, (char*) "wda_window", parent_wid,
name, args, 1, &toplevel, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch %s\n", name);
sts = MrmFetchWidget(s_DRMh, (char*) "wdaclass_dia", parent_wid,
&wdaclass_dia, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch class input dialog\n");
MrmCloseHierarchy(s_DRMh);
if (compiled_translations == NULL)
XtAppAddActions( XtWidgetToApplicationContext(toplevel),
actions, XtNumber(actions));
if (compiled_translations == NULL)
compiled_translations = XtParseTranslationTable(translations);
XtOverrideTranslations( toplevel, compiled_translations);
i = 0;
XtSetArg(args[i],XmNwidth,800);i++;
XtSetArg(args[i],XmNheight,600);i++;
XtSetValues( toplevel ,args,i);
XtManageChild( toplevel);
XtUnmanageChild( cmd_input);
XtUnmanageChild( cmd_scrolledinput);
XtUnmanageChild( cmd_scrolled_ok);
XtUnmanageChild( cmd_scrolled_ca);
utility = ((WUtility *)parent_ctx)->utype;
wdanav = new WdaNavMotif( (void *)this, wdanav_form, "Plant",
ldhses, objid, classid, attribute, wa_editmode,
wa_advanced_user,
wa_display_objectname, utility, &brow_widget, &sts);
((WdaNav *)wdanav)->message_cb = &Wda::message_cb;
((WdaNav *)wdanav)->change_value_cb = &Wda::change_value_cb;
XtPopup( parent_wid, XtGrabNone);
wow = new CoWowMotif( parent_wid);
// Connect the window manager close-button to exit
flow_AddCloseVMProtocolCb( parent_wid,
(XtCallbackProc)activate_exit, this);
if ( utility == wb_eUtility_Wtt)
{
((Wtt *)parent_ctx)->register_utility( (void *) this,
wb_eUtility_SpreadsheetEditor);
}
}
int initWidgetTree(Widget parent)
{
/* local variables */
Widget topWidget, cutWidget; /* top widget from UIL */
MrmType topWidgetClass, cutWidgetClass; /* class of topWidget */
Cardinal status; /* return status */
/* MRM initialization */
MrmInitialize();
/* open MRM-hierarchy with UID-data */
status = MrmOpenHierarchyPerDisplay(XtDisplay(parent),
XtNumber(data), data,
(MrmOsOpenParamPtr*) NULL,
&hierarchy);
if(status != MrmSUCCESS)
{
fprintf(stderr, "UID-Data can't be read\n");
return(-1);
}
/* register the callbacks for UIL */
status = MrmRegisterNamesInHierarchy(hierarchy,
callbacks, XtNumber(callbacks));
if(status != MrmSUCCESS)
{
fprintf(stderr,
"Callbacks can't be register for UIL widgets.\n");
return(-1);
}
/* make widget hierarchy from topwidget */
topWidget = NULL;
status = MrmFetchWidget(hierarchy, "extra", parent,
&topWidget, &topWidgetClass);
if(status != MrmSUCCESS)
{
fprintf(stderr,
"Widget hierarchy can't be build for UIL widgets.\n");
return(-1);
}
/* register userdefined widgets */
if (MrmRegisterClass(MrmwcUnknown, "BXmTexTable" , "BXmCreateTextTable",
(Widget(*)())BXmCreateTextTable,
(WidgetClass)&bxmTextTableWidgetClass) != MrmSUCCESS)
fprintf(stderr, "User-defined widget can't be registered!\n");
/* make widget cut */
status = MrmFetchWidget(hierarchy, "cut", parent,
&cutWidget, &cutWidgetClass);
if(status != MrmSUCCESS)
{
fprintf(stderr, "Widget hierarchy can't be build for cut widgets.\n");
return(-1);
}
/* manage topwidget */
XtManageChild(topWidget);
XtManageChild(cutWidget);
return 0;
}
/****************************************************************
*
* Main program. Fetch UIL interface description and enter
* event loop.
*
****************************************************************/
int main(int argc,
char *argv[])
{
XtAppContext app_context;
Widget top_level, helloworld_main;
MrmCode mrm_class;
char * applresdir;
/*
* This demo requires XAPPLRESDIR to be set to '.'. Mrm
* will only report that l_strings.uid could not be found,
* so, to be a little more friendly, we help the user. This
* it not a check that normally would be done, since the uid
* files would be installed in the appropriate directory.
*/
if ((applresdir = (char *)getenv("XAPPLRESDIR")) == NULL ||
strcmp(applresdir, ".") != 0) {
XtError("Environment variable XAPPLRESDIR must be set to \".\"\n");
}
/*
* Set up language environment.
*/
XtSetLanguageProc(NULL, NULL, NULL);
/*
* Initialize MRM
*/
MrmInitialize ();
/*
* Initialize Xt and create a resizable shell
*/
top_level = XtVaAppInitialize(&app_context, "XmdHelloInt",
NULL, 0, &argc, argv, NULL,
XmNallowShellResize, True, NULL);
/*
* Create the Mrm hierarchy
*/
if (MrmOpenHierarchy (XtNumber(uid_vec), /* number of files */
uid_vec, /* files */
NULL, /* os_ext_list (null) */
&s_mrm_hierarchy) /* ptr to returned id */
!= MrmSUCCESS) {
XtError ("can't open hierarchy\n");
}
/*
* Register our callback routines so that the resource manager can
* resolve them at widget-creation time.
*/
if (MrmRegisterNames (reg_vec, XtNumber(reg_vec)) != MrmSUCCESS) {
XtError("can't register names\n");
}
/*
* Call MRM to fetch and create the widgets
*/
if (MrmFetchWidget (s_mrm_hierarchy,
"helloworld_main",
top_level,
&helloworld_main,
&mrm_class) != MrmSUCCESS) {
XtError ("can't fetch interface\n");
}
/*
* Manage the widget returned by Mrm.
*/
XtManageChild(helloworld_main);
/*
* Realize the widget tree.
*/
XtRealizeWidget(top_level);
/*
* Loop and process events
*/
XtAppMainLoop(app_context);
/* UNREACHABLE */
return (0);
}
XttMotif::XttMotif( int argc, char *argv[], int *return_sts) :
Xtt( &argc, &argv, return_sts),
cmd_current_recall(0), value_current_recall(0)
{
char uid_filename[120] = {"xtt.uid"};
char *uid_filename_p = uid_filename;
Arg args[20];
pwr_tStatus sts;
int i;
XtAppContext app_ctx;
MrmHierarchy s_DRMh;
MrmType dclass;
Widget xtt_widget;
char title[120] = "Xtt ";
char nodename[80];
static char translations[] =
"<FocusIn>: xtt_inputfocus()\n";
static XtTranslations compiled_translations = NULL;
static XtActionsRec actions[] =
{
{(char*) "xtt_inputfocus", (XtActionProc) action_inputfocus}
};
static MrmRegisterArg reglist[] = {
{(char*) "xtt_ctx", 0 },
{(char*) "xtt_activate_exit",(caddr_t)activate_exit },
{(char*) "xtt_activate_print",(caddr_t)activate_print },
{(char*) "xtt_activate_find",(caddr_t)activate_find },
{(char*) "xtt_activate_findregex",(caddr_t)activate_findregex },
{(char*) "xtt_activate_findnext",(caddr_t)activate_findnext },
{(char*) "xtt_activate_collapse",(caddr_t)activate_collapse },
{(char*) "xtt_activate_openobject",(caddr_t)activate_openobject },
{(char*) "xtt_activate_openplc",(caddr_t)activate_openplc },
{(char*) "xtt_activate_opengraph",(caddr_t)activate_opengraph },
{(char*) "xtt_activate_showcrossref",(caddr_t)activate_showcrossref },
{(char*) "xtt_activate_change_value",(caddr_t)activate_change_value },
{(char*) "xtt_activate_command",(caddr_t)activate_command },
{(char*) "xtt_activate_collect_insert",(caddr_t)activate_collect_insert },
{(char*) "xtt_activate_collect_show",(caddr_t)activate_collect_show },
{(char*) "xtt_activate_collect_remove",(caddr_t)activate_collect_remove },
{(char*) "xtt_activate_collect_clear",(caddr_t)activate_collect_clear },
{(char*) "xtt_activate_advanceduser",(caddr_t)activate_advanceduser },
{(char*) "xtt_activate_zoom_in",(caddr_t)activate_zoom_in },
{(char*) "xtt_activate_zoom_out",(caddr_t)activate_zoom_out },
{(char*) "xtt_activate_zoom_reset",(caddr_t)activate_zoom_reset },
{(char*) "xtt_activate_help",(caddr_t)activate_help },
{(char*) "xtt_activate_help_project",(caddr_t)activate_help_project },
{(char*) "xtt_activate_help_proview",(caddr_t)activate_help_proview },
{(char*) "xtt_create_msg_label",(caddr_t)create_msg_label },
{(char*) "xtt_create_cmd_prompt",(caddr_t)create_cmd_prompt },
{(char*) "xtt_create_cmd_input",(caddr_t)create_cmd_input },
{(char*) "xtt_create_xnav_form",(caddr_t)create_xnav_form },
{(char*) "xtt_activate_india_ok",(caddr_t)activate_india_ok },
{(char*) "xtt_activate_india_cancel",(caddr_t)activate_india_cancel },
{(char*) "xtt_create_india_label",(caddr_t)create_india_label },
{(char*) "xtt_create_india_text",(caddr_t)create_india_text }
};
static int reglist_num = (sizeof reglist / sizeof reglist[0]);
syi_NodeName( &sts, nodename, sizeof(nodename));
if ( ODD(sts))
strcat( title, nodename);
// Motif
Lng::get_uid( uid_filename, uid_filename);
MrmInitialize();
toplevel = XtVaAppInitialize (
&app_ctx,
"Rt_xtt",
NULL, 0,
&argc, argv,
fbr,
XtNallowShellResize, True,
XtNtitle, title,
XmNmappedWhenManaged, True,
NULL);
reglist[0].value = (caddr_t) this;
if (compiled_translations == NULL)
XtAppAddActions( XtWidgetToApplicationContext(toplevel),
actions, XtNumber(actions));
// Save the context structure in the widget
i = 0;
XtSetArg( args[i], XmNuserData, (XtPointer) this);i++;
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
MrmRegisterNames(reglist, reglist_num);
sts = MrmFetchWidgetOverride( s_DRMh, (char*) "xtt_window", toplevel,
title, args, i, &xtt_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch xtt_window\n");
sts = MrmFetchWidget(s_DRMh, (char*) "input_dialog", toplevel,
&india_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch input dialog\n");
MrmCloseHierarchy(s_DRMh);
if (compiled_translations == NULL)
compiled_translations = XtParseTranslationTable(translations);
XtOverrideTranslations( xtt_widget, compiled_translations);
i = 0;
XtSetArg(args[i],XmNwidth,350);i++;
XtSetArg(args[i],XmNheight,600);i++;
XtSetArg(args[i], XmNdeleteResponse, XmDO_NOTHING);i++;
XtSetValues( toplevel ,args,i);
XtManageChild( xtt_widget);
XtUnmanageChild( cmd_input);
xnav = new XNavMotif( this, xnav_form, "Plant",
&brow_widget, (xnav_sStartMenu *)root_menu,
opplace_str, op_close_button, &sts);
xnav->message_cb = &xtt_message_cb;
xnav->close_cb = &close;
xnav->map_cb = ↦
xnav->change_value_cb = &change_value;
xnav->set_dimension_cb = &set_dimension;
xnav->attach_audio = attach_audio;
// Create help window
CoXHelp *xhelp = new CoXHelpMotif( toplevel, this, xhelp_eUtility_Xtt, &sts);
xhelp->open_URL_cb = open_URL_cb;
CoXHelp::set_default( xhelp);
XtRealizeWidget( toplevel);
if ( !xnav->is_authorized( pwr_mAccess_AllRt, 0))
xnav->open_login();
wow = new CoWowMotif( toplevel);
if ( !quiet)
wow->DisplayWarranty();
// XmProcessTraversal( xnav->brow_widget, XmTRAVERSE_CURRENT);
// xnav->set_inputfocus();
init_hotkey( app_ctx, toplevel);
// Connect the window manager close-button to exit
flow_AddCloseVMProtocolCb( toplevel,
(XtCallbackProc)activate_exit, this);
if ( xnav->op)
close( this, 0);
timerid = wow->timer_new();
// Start timer to check for qcom events
timerid->add( 1000, qcom_events, this);
xtt_mainloop( app_ctx);
}
GeCurveMotif::GeCurveMotif( void *gc_parent_ctx,
Widget parent_widget,
char *curve_name,
char *filename,
GeCurveData *curve_data,
int pos_right) :
GeCurve( gc_parent_ctx, curve_name, filename, curve_data, pos_right)
{
char uid_filename[120] = {"xtt_curve.uid"};
char *uid_filename_p = uid_filename;
Arg args[20];
pwr_tStatus sts;
int i;
MrmHierarchy s_DRMh;
MrmType dclass;
Widget ge_curve_widget;
char name[] = "PwR GeCurve";
static MrmRegisterArg reglist[] = {
{(char*) "gec_ctx", 0 },
{(char*) "gec_activate_exit",(caddr_t)activate_exit },
{(char*) "gec_activate_configure",(caddr_t)activate_configure },
{(char*) "gec_activate_print",(caddr_t)activate_print },
{(char*) "gec_activate_zoomin",(caddr_t)activate_zoomin },
{(char*) "gec_activate_zoomout",(caddr_t)activate_zoomout },
{(char*) "gec_activate_zoomreset",(caddr_t)activate_zoomreset },
{(char*) "gec_activate_background",(caddr_t)activate_background },
{(char*) "gec_activate_showname",(caddr_t)activate_showname },
{(char*) "gec_activate_filledcurves",(caddr_t)activate_filledcurves },
{(char*) "gec_activate_xlimits",(caddr_t)activate_xlimits },
{(char*) "gec_activate_help",(caddr_t)activate_help },
{(char*) "gec_create_pane",(caddr_t)create_pane },
{(char*) "gec_create_growform",(caddr_t)create_growform },
{(char*) "gec_create_nameform",(caddr_t)create_nameform },
{(char*) "gec_create_curveform",(caddr_t)create_curveform },
{(char*) "gec_create_minmax_textmin",(caddr_t)create_minmax_textmin },
{(char*) "gec_create_minmax_textmax",(caddr_t)create_minmax_textmax },
{(char*) "gec_activate_minmax_ok",(caddr_t)activate_minmax_ok }
};
static int reglist_num = (sizeof reglist / sizeof reglist[0]);
Lng::get_uid( uid_filename, uid_filename);
// Motif
MrmInitialize();
cdh_StrncpyCutOff( title, curve_name, sizeof(title), 1);
reglist[0].value = (caddr_t) this;
toplevel = XtCreatePopupShell(title,
topLevelShellWidgetClass, parent_widget, args, 0);
// Save the context structure in the widget
XtSetArg (args[0], XmNuserData, (XtPointer) this);
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
MrmRegisterNames(reglist, reglist_num);
sts = MrmFetchWidgetOverride( s_DRMh, (char*) "ge_curve_window", toplevel,
name, NULL, 0, &ge_curve_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch %s\n", name);
sts = MrmFetchWidget(s_DRMh, (char*) "minmax_dialog", toplevel,
&minmax_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch input dialog\n");
MrmCloseHierarchy(s_DRMh);
i = 0;
XtSetArg(args[i],XmNwidth,800);i++;
XtSetArg(args[i],XmNheight,600);i++;
XtSetArg(args[i], XmNdeleteResponse, XmDO_NOTHING);i++;
XtSetValues( toplevel ,args,i);
XtManageChild( ge_curve_widget);
Widget w;
grownames_main_widget = ScrolledGrowCreate( nameform_widget,
(char*) "GeCurveNames", NULL,
0, init_grownames_cb, this, &w);
i = 0;
XtSetArg(args[i],XmNwidth,200);i++;
XtSetValues( grownames_main_widget, args,i);
XtManageChild( grownames_main_widget);
growaxis_main_widget = GrowCreate( axisform_widget,
(char*) "GeCurveAxis", NULL,
0, init_growaxis_cb, this);
i = 0;
XtSetArg(args[i],XmNwidth,200);i++;
XtSetValues( growaxis_main_widget, args,i);
XtManageChild( growaxis_main_widget);
growcurve_main_widget = CurveCreate( curveform_widget,
(char*) "GeCurve", NULL,
0, init_growcurve_cb, this);
XtManageChild( growcurve_main_widget);
i = 0;
XtSetArg(args[i],XmNwidth,200);i++;
XtSetArg(args[i],XmNheight,200);i++;
XtSetArg(args[i],XmNpaneMinimum,75);i++;
XtSetArg(args[i],XmNpaneMaximum,100);i++;
nav_widget = CurveCreateNav( pane_widget, (char*) "navigator",
args, i, growcurve_main_widget);
XtManageChild( nav_widget);
XtPopup( toplevel, XtGrabNone);
XtRealizeWidget( toplevel);
wow = new CoWowMotif( toplevel);
// Connect the window manager close-button to exit
flow_AddCloseVMProtocolCb( toplevel,
(XtCallbackProc)activate_exit, this);
}
CLogMotif::CLogMotif( void *clog_parent_ctx,
Widget clog_parent_wid,
const char *clog_name,
pwr_tStatus *status) :
CLog( clog_parent_ctx, clog_name, status), parent_wid(clog_parent_wid),
clock_cursor(0)
{
char uid_filename[120] = {"xtt_clog.uid"};
char *uid_filename_p = uid_filename;
Arg args[20];
pwr_tStatus sts;
int i;
MrmHierarchy s_DRMh;
MrmType dclass;
static char clog_translations[] =
"<FocusIn>: clog_inputfocus()\n";
static XtTranslations clog_compiled_translations = NULL;
static XtActionsRec clog_actions[] =
{
{(char*) "clog_inputfocus", (XtActionProc) action_inputfocus}
};
static MrmRegisterArg reglist[] = {
{(char*) "clog_ctx", 0 },
{(char*) "clog_activate_exit",(caddr_t)activate_exit },
{(char*) "clog_activate_select_file",(caddr_t)activate_select_file },
{(char*) "clog_activate_next_file",(caddr_t)activate_next_file },
{(char*) "clog_activate_prev_file",(caddr_t)activate_prev_file },
{(char*) "clog_activate_update",(caddr_t)activate_update },
{(char*) "clog_activate_zoom_in",(caddr_t)activate_zoom_in },
{(char*) "clog_activate_zoom_out",(caddr_t)activate_zoom_out },
{(char*) "clog_activate_zoom_reset",(caddr_t)activate_zoom_reset },
{(char*) "clog_activate_filter",(caddr_t)activate_filter },
{(char*) "clog_activate_help",(caddr_t)activate_help },
{(char*) "clog_activate_helpmsg",(caddr_t)activate_helpmsg },
{(char*) "clog_create_form",(caddr_t)create_form },
{(char*) "clog_filter_tog_cr",(caddr_t)filter_tog_cr },
{(char*) "clog_filter_string_cr",(caddr_t)filter_string_cr },
{(char*) "clog_filter_act_but_cb",(caddr_t)filter_act_but_cb },
{(char*) "clog_filesel_ok_cb",(caddr_t)filesel_ok_cb },
{(char*) "clog_filesel_cancel_cb",(caddr_t)filesel_cancel_cb },
{(char*) "clog_filesel_list_cr",(caddr_t)filesel_list_cr }
};
static int reglist_num = (sizeof reglist / sizeof reglist[0]);
*status = 1;
Lng::get_uid( uid_filename, uid_filename);
reglist[0].value = (caddr_t) this;
// Motif
MrmInitialize();
// Save the context structure in the widget
i = 0;
XtSetArg(args[i], XmNuserData, (XtPointer) this);i++;
XtSetArg(args[i], XmNdeleteResponse, XmDO_NOTHING);i++;
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
MrmRegisterNames(reglist, reglist_num);
parent_wid_clog = XtCreatePopupShell( clog_name,
topLevelShellWidgetClass, parent_wid, args, i);
sts = MrmFetchWidgetOverride( s_DRMh, (char*) "clog_window", parent_wid_clog,
(char*) clog_name, args, 1, &toplevel, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch %s\n", clog_name);
sts = MrmFetchWidget(s_DRMh, (char*) "filterForm", toplevel,
&filter_form, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch filter dialog\n");
sts = MrmFetchWidget(s_DRMh, (char*) "fileselForm", toplevel,
&filesel_form, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch filesel dialog\n");
MrmCloseHierarchy(s_DRMh);
if ( clog_compiled_translations == NULL)
{
XtAppAddActions( XtWidgetToApplicationContext( toplevel),
clog_actions, XtNumber(clog_actions));
clog_compiled_translations = XtParseTranslationTable( clog_translations);
}
XtOverrideTranslations( toplevel, clog_compiled_translations);
i = 0;
XtSetArg(args[i],XmNwidth,1000);i++;
XtSetArg(args[i],XmNheight,800);i++;
XtSetValues( toplevel ,args,i);
XtManageChild( toplevel);
// Create clognav
clognav = new CLogNavMotif( this, form_clog, &clognav_widget);
XtPopup( parent_wid_clog, XtGrabNone);
// Connect the window manager close-button to exit
flow_AddCloseVMProtocolCb( parent_wid_clog,
(XtCallbackProc)activate_exit, this);
wow = new CoWowMotif( toplevel);
*status = 1;
}
CoXHelpMotif::CoXHelpMotif(
Widget xa_parent_wid,
void *xa_parent_ctx,
xhelp_eUtility utility,
int *xa_sts) :
CoXHelp(xa_parent_ctx,utility,xa_sts), parent_wid(xa_parent_wid)
{
char uid_filename[120] = {"xtt_xhelp.uid"};
char *uid_filename_p = uid_filename;
Arg args[20];
pwr_tStatus sts;
char title[80];
int i;
MrmHierarchy s_DRMh;
MrmType dclass;
char name[] = "Proview/R Navigator";
static char translations[] =
"<FocusIn>: xhelp_inputfocus()\n";
static XtTranslations compiled_translations = NULL;
static XtActionsRec actions[] =
{
{(char*) "xhelp_inputfocus", (XtActionProc) CoXHelpMotif::action_inputfocus}
};
static MrmRegisterArg reglist[] = {
{(char*) "xhelp_ctx", 0 },
{(char*) "xhelp_activate_exit",(caddr_t)CoXHelpMotif::activate_exit },
{(char*) "xhelp_activate_zoom_in",(caddr_t)CoXHelpMotif::activate_zoom_in },
{(char*) "xhelp_activate_zoom_out",(caddr_t)CoXHelpMotif::activate_zoom_out },
{(char*) "xhelp_activate_zoom_reset",(caddr_t)CoXHelpMotif::activate_zoom_reset },
{(char*) "xhelp_activate_search",(caddr_t)CoXHelpMotif::activate_search },
{(char*) "xhelp_activate_searchnext",(caddr_t)CoXHelpMotif::activate_searchnext },
{(char*) "xhelp_activate_searchprevious",(caddr_t)CoXHelpMotif::activate_searchprevious },
{(char*) "xhelp_activate_india_ok",(caddr_t)CoXHelpMotif::activate_india_ok },
{(char*) "xhelp_activate_india_cancel",(caddr_t)CoXHelpMotif::activate_india_cancel },
{(char*) "xhelp_create_india_label",(caddr_t)CoXHelpMotif::create_india_label },
{(char*) "xhelp_create_india_text",(caddr_t)CoXHelpMotif::create_india_text },
{(char*) "xhelp_activate_help",(caddr_t)CoXHelpMotif::activate_help },
{(char*) "xhelp_create_xhelpnav_form",(caddr_t)CoXHelpMotif::create_xhelpnav_form }
};
static int reglist_num = (sizeof reglist / sizeof reglist[0]);
Lng::get_uid( uid_filename, uid_filename);
// Motif
MrmInitialize();
strcpy( title, Lng::translate("Help"));
reglist[0].value = (caddr_t) this;
// Save the context structure in the widget
i = 0;
XtSetArg (args[i], XmNuserData, (XtPointer) this);i++;
XtSetArg( args[i], XmNdeleteResponse, XmDO_NOTHING);i++;
sts = MrmOpenHierarchy( 1, &uid_filename_p, NULL, &s_DRMh);
if (sts != MrmSUCCESS) printf("can't open %s\n", uid_filename);
MrmRegisterNames(reglist, reglist_num);
parent_wid = XtCreatePopupShell( title,
topLevelShellWidgetClass, parent_wid, args, i);
sts = MrmFetchWidgetOverride( s_DRMh, (char*) "xhelp_window", parent_wid,
name, args, 1, &toplevel, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch %s\n", name);
sts = MrmFetchWidget(s_DRMh, (char*) "input_dialog", toplevel,
&india_widget, &dclass);
if (sts != MrmSUCCESS) printf("can't fetch input dialog\n");
MrmCloseHierarchy(s_DRMh);
if (compiled_translations == NULL)
XtAppAddActions( XtWidgetToApplicationContext(toplevel),
actions, XtNumber(actions));
if (compiled_translations == NULL)
compiled_translations = XtParseTranslationTable(translations);
XtOverrideTranslations( toplevel, compiled_translations);
i = 0;
XtSetArg(args[i],XmNwidth,500);i++;
XtSetArg(args[i],XmNheight,700);i++;
XtSetValues( toplevel ,args,i);
XtManageChild( toplevel);
xhelpnav = new CoXHelpNavMotif( (void *)this, xhelpnav_form, title, utility, &brow_widget,
&sts);
xhelpnav->open_URL_cb = CoXHelp::open_URL;
// XtPopup( parent_wid, XtGrabNone);
// displayed = 1;
XtRealizeWidget( parent_wid);
// Connect the window manager close-button to exit
flow_AddCloseVMProtocolCb( parent_wid,
(XtCallbackProc)CoXHelpMotif::activate_exit, this);
*xa_sts = 1;
}
/*
* Main Program
*/
int main(int argc, char **argv)
{
Display *display;
Arg args[256];
Cardinal ac;
/*SUPPRESS 591*/
Boolean argok;
XtAppContext context;
Widget w;
Widget parent;
/* Begin user code block <declarations> */
/* End user code block <declarations> */
/*
* Hierarchy variable declarations
* Set "*newMrmStyle:False" in ~/.bxrc for bx25 style declarations
*/
MrmHierarchy HierarchyID;
MrmType MrmWClass;
static char *UidFile [] = { BX_UID_FILE_NAME };
MRMRegisterArg NamesList[49];
Cardinal Nlac;
Nlac = 0;
NamesList[Nlac].name = "CloseTree";
NamesList[Nlac++].value = (XtPointer) CloseTree;
NamesList[Nlac].name = "CommandEntered";
NamesList[Nlac++].value = (XtPointer) CommandEntered;
NamesList[Nlac].name = "CreateTree";
NamesList[Nlac++].value = (XtPointer) CreateTree;
NamesList[Nlac].name = "MDisplayData";
NamesList[Nlac++].value = (XtPointer) MDisplayData;
NamesList[Nlac].name = "MDoAction";
NamesList[Nlac++].value = (XtPointer) MDoAction;
NamesList[Nlac].name = "MessageClear";
NamesList[Nlac++].value = (XtPointer) MessageClear;
NamesList[Nlac].name = "MessageDismiss";
NamesList[Nlac++].value = (XtPointer) MessageDismiss;
NamesList[Nlac].name = "ModifyData";
NamesList[Nlac++].value = (XtPointer) ModifyData;
NamesList[Nlac].name = "MenuUnmap";
NamesList[Nlac++].value = (XtPointer) MenuUnmap;
NamesList[Nlac].name = "BxManageCB";
NamesList[Nlac++].value = (XtPointer) BxManageCB;
NamesList[Nlac].name = "MSetupDevice";
NamesList[Nlac++].value = (XtPointer) MSetupDevice;
NamesList[Nlac].name = "SetDefault";
NamesList[Nlac++].value = (XtPointer) SetDefault;
NamesList[Nlac].name = "MModifyData";
NamesList[Nlac++].value = (XtPointer) MModifyData;
NamesList[Nlac].name = "DisplayNci";
NamesList[Nlac++].value = (XtPointer) DisplayNci;
NamesList[Nlac].name = "BxExitCB";
NamesList[Nlac++].value = (XtPointer) BxExitCB;
NamesList[Nlac].name = "MTurnOnOff";
NamesList[Nlac++].value = (XtPointer) MTurnOnOff;
NamesList[Nlac].name = "DisplayData";
NamesList[Nlac++].value = (XtPointer) DisplayData;
NamesList[Nlac].name = "MSetDefault";
NamesList[Nlac++].value = (XtPointer) MSetDefault;
NamesList[Nlac].name = "MDisplayNci";
NamesList[Nlac++].value = (XtPointer) MDisplayNci;
NamesList[Nlac].name = "TurnOnOff";
NamesList[Nlac++].value = (XtPointer) TurnOnOff;
NamesList[Nlac].name = "DoAction";
NamesList[Nlac++].value = (XtPointer) DoAction;
NamesList[Nlac].name = "OpenTree";
NamesList[Nlac++].value = (XtPointer) OpenTree;
NamesList[Nlac].name = "AddListTree";
NamesList[Nlac++].value = (XtPointer) AddListTree;
NamesList[Nlac].name = "SetupDevice";
NamesList[Nlac++].value = (XtPointer) SetupDevice;
NamesList[Nlac].name = "AddNode";
NamesList[Nlac++].value = (XtPointer) AddNode;
#ifdef __hpux
NamesList[Nlac].name = "AddListTree";
NamesList[Nlac++].value = (XtPointer) AddListTree;
#endif
NamesList[Nlac].name = "AddNodeApply";
NamesList[Nlac++].value = (XtPointer) AddNodeApply;
NamesList[Nlac].name = "AddNodeDismiss";
NamesList[Nlac++].value = (XtPointer) AddNodeDismiss;
NamesList[Nlac].name = "SetUsage";
NamesList[Nlac++].value = (XtPointer) SetUsage;
NamesList[Nlac].name = "AddDeviceDismiss";
NamesList[Nlac++].value = (XtPointer) AddDeviceDismiss;
NamesList[Nlac].name = "CreateAddDevice";
NamesList[Nlac++].value = (XtPointer) CreateAddDevice;
NamesList[Nlac].name = "AddDevice";
NamesList[Nlac++].value = (XtPointer) AddDevice;
NamesList[Nlac].name = "WriteTree";
NamesList[Nlac++].value = (XtPointer) WriteTree;
NamesList[Nlac].name = "ModifyTags";
NamesList[Nlac++].value = (XtPointer) ModifyTags;
NamesList[Nlac].name = "tag_button_proc";
NamesList[Nlac++].value = (XtPointer) tag_button_proc;
NamesList[Nlac].name = "tag_selection_proc";
NamesList[Nlac++].value = (XtPointer) tag_selection_proc;
#ifdef __hpux
NamesList[Nlac].name = "WriteTree";
NamesList[Nlac++].value = (XtPointer) WriteTree;
#endif
NamesList[Nlac].name = "DeleteNode";
NamesList[Nlac++].value = (XtPointer) DeleteNode;
NamesList[Nlac].name = "DeleteNodeNow";
NamesList[Nlac++].value = (XtPointer) DeleteNodeNow;
NamesList[Nlac].name = "RenameNode";
NamesList[Nlac++].value = (XtPointer) RenameNode;
NamesList[Nlac].name = "AddNodeStart";
NamesList[Nlac++].value = (XtPointer) AddNodeStart;
NamesList[Nlac].name = NULL;
NamesList[Nlac].value = NULL;
MrmInitialize();
XtToolkitInitialize();
context = XtCreateApplicationContext();
display = XtOpenDisplay(context, 0, BX_APP_NAME, BX_APP_CLASS,
#ifndef XtSpecificationRelease
options, XtNumber(options), (Cardinal*)&argc, argv);
#else
#if XtSpecificationRelease == 4
options, XtNumber(options), (Cardinal*)&argc, argv);
#else
options, XtNumber(options), &argc, argv);
#endif
#endif
if(display == NULL)
{
XtWarning("cannot open display");
exit(1);
}
/*
* So converters work.
*/
XtInitializeWidgetClass(applicationShellWidgetClass);
/*
* Install the tearOffModel resource converter
*/
#if (XmVersion >= 1002)
XmRepTypeInstallTearOffModelConverter();
#endif
/*
* Register special BuilderXcessory converters
*/
RegisterBxConverters(context);
/* Begin user code block <create_shells> */
XmdsInitialize();
/* End user code block <create_shells> */
/*
* The applicationShell is created as an unrealized
* parent for multiple topLevelShells. The topLevelShells
* are created as popup children of the applicationShell.
* This is a recommendation of Paul Asente & Ralph Swick in
* _X_Window_System_Toolkit_ p. 677.
*/
ac = 0;
AppShell = parent = XtAppCreateShell( BX_APP_NAME, BX_APP_CLASS,
applicationShellWidgetClass, display, args, ac);
MrmRegisterNames(NamesList, Nlac);
HierarchyID = 0;
MrmOpenHierarchy((MrmCount)(1), UidFile, 0, &HierarchyID);
XtInitializeWidgetClass(topLevelShellWidgetClass);
ac = 0;
XtSetArg(args[ac], XmNtitle, "Traverser"); ac++;
XtSetArg(args[ac], XmNiconName, "Traverser"); ac++;
XtSetArg(args[ac], XmNx, 947); ac++;
XtSetArg(args[ac], XmNy, 349); ac++;
XtSetArg(args[ac], XmNwidth, 509); ac++;
XtSetArg(args[ac], XmNheight, 672); ac++;
TopLevelShell = XtCreatePopupShell( "topLevelShell",
topLevelShellWidgetClass, AppShell, args, ac);
MainWindow = NULL;
MrmFetchWidget(HierarchyID, "mainWindow", TopLevelShell,
&MainWindow, &MrmWClass);
WriteDialog = NULL;
MrmFetchWidget(HierarchyID, "writeDialog", MainWindow,
&WriteDialog, &MrmWClass);
AddDialog = NULL;
MrmFetchWidget(HierarchyID, "addDialog", MainWindow,
&AddDialog, &MrmWClass);
AddDeviceDialog = NULL;
MrmFetchWidget(HierarchyID, "addDeviceDialog", MainWindow,
&AddDeviceDialog, &MrmWClass);
OpenDialog = NULL;
MrmFetchWidget(HierarchyID, "openDialog", MainWindow,
&OpenDialog, &MrmWClass);
MrmCloseHierarchy(HierarchyID);
XtManageChild(MainWindow);
XtPopup(XtParent(MainWindow), XtGrabNone);
/* Begin user code block <app_procedures> */
/* End user code block <app_procedures> */
/* Begin user code block <main_loop> */
/* End user code block <main_loop> */
XtVaSetValues(TopLevelShell,XmNdeleteResponse, XmDO_NOTHING, NULL);
XmAddWMProtocolCallback(TopLevelShell,XmInternAtom(XtDisplay(TopLevelShell),"WM_DELETE_WINDOW",True),(XtCallbackProc)CloseWindow,NULL);
XtAppMainLoop(context);
/*
* A return value even though XtAppMainLoop never ends.
*/
return(0);
}
