falso
/
cdesktopenv
mirror of https://git.code.sf.net/p/cdesktopenv/code
1
0
Fork 0
Code Issues Releases Wiki Activity
cdesktopenv/cde/programs/dtappbuilder/src/ab/dtbuilder.c.src

2343 lines
68 KiB
Plaintext
Raw Blame History

/*** DTB_USER_CODE_START vvv Add file header below vvv ***/
/*
* $TOG: dtbuilder.c.src /main/19 1999/11/04 18:02:34 mgreess $
*
* RESTRICTED CONFIDENTIAL INFORMATION:
*
* The information in this document is subject to special
* restrictions in a confidential disclosure agreement between
* HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
* document outside HP, IBM, Sun, USL, SCO, or Univel without
* Sun's specific written approval. This document and all copies
* and derivative works thereof must be returned or destroyed at
* Sun's request.
*
* (c) Copyright 1996 Digital Equipment Corporation.
* (c) Copyright 1996 Hewlett-Packard Company.
* (c) Copyright 1996 International Business Machines Corp.
* (c) Copyright 1993,1996 Sun Microsystems, Inc.
* (c) Copyright 1996 Novell, Inc.
* (c) Copyright 1996 FUJITSU LIMITED.
* (c) Copyright 1996 Hitachi.
*/
/*** DTB_USER_CODE_END ^^^ Add file header above ^^^ ***/
/*
* File: dtbuilder.c
* Contains: main() and cross-module connections
*
* This file was generated by dtcodegen, from project dtbuilder
*
* Any text may be added between the DTB_USER_CODE_START and
* DTB_USER_CODE_END comments (even non-C code). Descriptive comments
* are provided only as an aid.
*
* ** EDIT ONLY WITHIN SECTIONS MARKED WITH DTB_USER_CODE COMMENTS. **
* ** ALL OTHER MODIFICATIONS WILL BE OVERWRITTEN. DO NOT MODIFY OR **
* ** DELETE THE GENERATED COMMENTS! **
*/
#include <stdint.h>
#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <sys/param.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <X11/Intrinsic.h>
#include <Xm/Xm.h>
#include <Xm/MwmUtil.h>
#include <Xm/Protocols.h>
#include <Dt/Help.h>
#include <Dt/HelpQuickD.h>
#include <Dt/HelpDialog.h>
#include <Dt/Session.h>
#include <Dt/MsgCatP.h>
#include "palette_ui.h"
#include "about_box_ui.h"
#include "brws_ui.h"
#include "proj_ui.h"
#include "cgen_win_ui.h"
#include "conn_ui.h"
#include "appfw_ui.h"
#include "color_chooser_ui.h"
#include "dnd_ed_ui.h"
#include "help_ed_ui.h"
#include "attch_ed_ui.h"
#include "revolv_ui.h"
#include "button_ui.h"
#include "choice_ui.h"
#include "combobox_ui.h"
#include "cpanel_ui.h"
#include "custdlg_ui.h"
#include "drawp_ui.h"
#include "group_ui.h"
#include "label_ui.h"
#include "list_ui.h"
#include "mainwin_ui.h"
#include "menu_ui.h"
#include "menubar_ui.h"
#include "scale_ui.h"
#include "sep_ui.h"
#include "spinbox_ui.h"
#include "termp_ui.h"
#include "textf_ui.h"
#include "textp_ui.h"
#include "cgen_props_ui.h"
#include "cgen_env_ui.h"
#include "fchooser_ui.h"
#include "message_ed_ui.h"
#include "panedwin_ed_ui.h"
#include "dtbuilder.h"
#include "dtb_utils.h"
/**************************************************************************
*** DTB_USER_CODE_START
***
*** All necessary header files have been included.
***
*** Add include files, types, macros, externs, and user functions here.
***/
#include <ctype.h>
#include <signal.h>
#include <X11/xpm.h>
#include <Xm/FileSB.h>
#include <Xm/Label.h>
#include <Xm/RowColumn.h>
#include <Xm/ToggleB.h>
#include <Dt/Dt.h>
#include <Dt/Term.h>
#include <Dt/Action.h>
#include <Dt/Dts.h>
#include "dt_envcontrol.h"
#include <ab_private/MwmUtil.h>
#include <ab_private/obj_notify.h>
#include <ab_private/trav.h>
#include <ab_private/proj.h>
#include "dtb_utils.h"
#include "ui_util.h"
#include "x_util.h"
#include "ab.h"
#include "abobj.h"
#include "abobj_set.h"
#include "ab_resources.h"
#include "ab_dnd.h"
#include "ab_bil.h"
#include <ab_private/brws.h>
#include <ab_private/pal.h>
#include <ab_private/prop.h>
#include <ab_private/attch_ed.h>
#include <ab_private/abobj_edit.h>
#include <ab_private/conn.h>
#ifdef HAVE_EDITRES
#include <X11/Xmu/Editres.h>
#endif
#ifdef DEBUG /* performance testing */
#include <sys/times.h>
typedef struct
{
double startSeconds;
double endSeconds;
double elapsedSeconds;
} ABTimedIntervalRec, *ABTimedInterval;
typedef struct
{
ABTimedIntervalRec realTime;
ABTimedIntervalRec CPUTime;
} ABProfiledIntervalRec, *ABProfiledInterval;
static int get_cur_times(double *realTimeOut, double *cpuTimeOut);
static int get_start_times(ABProfiledInterval);
static int get_end_times(ABProfiledInterval);
static int calc_elapsed_times(ABProfiledInterval);
static int print_startup_time(
ABProfiledInterval totalTime
);
#endif /* DEBUG/performance */
#define Offset(field) XtOffsetOf(DtbAppResourceRec, field)
/*
* Data for init proc that gets called after main window is up.
*/
typedef struct {
Boolean free_me;
Widget toplevel_widget;
int argc;
String *argv;
} ABInitProcInfoRec, *ABInitProcInfo;
/*************************************************************************
** **
** Private Function Declarations **
** **
**************************************************************************/
static void init_ab_timer_proc(
XtPointer clientData,
XtIntervalId *intervalIdPtr
);
static Boolean init_ab_work_proc(
XtPointer clientData
);
static int init_ab(
ABInitProcInfo init_info
);
static int palette_title_rename_handler(
ObjEvAttChangeInfo info
);
static int att_change_dirty_OCB(
ObjEvAttChangeInfo info
);
static int err_output_handler(
STRING errmsg
);
static int output_handler(
STRING msg
);
static Widget create_import_rbox(
Widget parent
);
static void import_change_modeCB(
Widget widget,
XtPointer clientData,
XtPointer callData
);
static void import_formatCB(
Widget widget,
XtPointer clientData,
XtPointer callData
);
static Boolean name_proj_work_proc(
XtPointer clientData
);
static void exit_dtbuilder(int);
static void reloadDB(XtPointer client_data);
/*************************************************************************
** **
** Data **
** **
**************************************************************************/
extern void proj_show_dialog();
extern void layout_show_dialog();
#ifdef DEBUG /* performance testing */
static ABProfiledIntervalRec startupTime;
#endif
/*
* This routine is called when the main palette is completely painted and
* ready to go.
*/
static int
init_ab(ABInitProcInfo init_info)
{
char *current_project = NULL;
char *shown_modules = NULL;
char *type = NULL;
XrmValue value;
struct sigaction exit_action;
BOOL reopenFailed = FALSE;
/*
* Set up output handlers so that errors in libraries will pop up
* error dialogs
*
* All other error/warning/status messages (i.e., those sent to either
* stdout or stderr) will not be redirected. If the invoker cares where
* those messages go, they should redirect them via the shell.
*/
util_set_output_handler(output_handler);
util_set_err_output_handler(err_output_handler);
XrmGetResource(AB_db, AB_XRM_CUR_PROJECT, AB_XRM_CUR_PROJECT,
&type, &value);
current_project = (char *)value.addr;
XrmGetResource(AB_db, AB_XRM_SHOWN_MODULES, AB_XRM_SHOWN_MODULES,
&type, &value);
shown_modules = (char *)value.addr;
obj_add_rename_callback(att_change_dirty_OCB,NULL);
obj_add_rename_callback(palette_title_rename_handler,NULL);
/* Catch ctrl-C, hangup, quit, and terminate signals.
* If there are unsaved edits, post a dialog asking
* the user whether (s)he really wants to quit dtbuilder.
*/
exit_action.sa_handler = exit_dtbuilder;
exit_action.sa_flags = 0;
sigemptyset(&(exit_action.sa_mask));
if ((sigaction(SIGINT, &exit_action, NULL) < 0) ||
(sigaction(SIGHUP, &exit_action, NULL) < 0) ||
(sigaction(SIGQUIT, &exit_action, NULL) < 0) ||
(sigaction(SIGTERM, &exit_action, NULL) < 0))
{
return -1;
}
/*
* Load file on command line
*/
if (current_project || init_info->argc >= 2)
{
BOOL file_is_project = FALSE;
STRING user_file_name;
char file_name[MAXPATHLEN] = "";
STRING errmsg = NULL;
char errmsg_buf[MAXPATHLEN] = "";
int ret = 0;
char *dataType = NULL;
DTB_MODAL_ANSWER answer = DTB_ANSWER_NONE;
if (current_project)
{
user_file_name = current_project;
}
else
{
user_file_name = init_info->argv[1];
}
snprintf(file_name, sizeof(file_name), "%s", user_file_name);
if (!util_file_exists(file_name))
{
*file_name = 0;
}
if ((*file_name) == 0)
{
sprintf(file_name, "%s.bip", user_file_name);
if (!util_file_exists(file_name))
{
*file_name = 0;
}
}
if ((*file_name) == 0)
{
sprintf(file_name, "%s.bil", user_file_name);
if (!util_file_exists(file_name))
{
*file_name = 0;
}
}
if ((*file_name) == 0)
{
sprintf(errmsg_buf, CATGETS(Dtb_project_catd, 100, 2, "File not found: %s"), user_file_name);
errmsg = errmsg_buf;
}
else
{
dataType = (char *) DtDtsFileToDataType(file_name);
if ( (strcmp(dataType, BIP) == 0) ||
(strcmp(dataType, BIX) == 0) )
{
file_is_project = TRUE;
ret = ab_check_and_open_bip(file_name);
}
else if (strcmp(dataType, BIL) == 0)
{
file_is_project = FALSE;
answer = dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_palette_import_by_msg, NULL, NULL, NULL);
switch (answer)
{
case DTB_ANSWER_ACTION1: /* Copy */
ret = ab_check_and_import_bil(file_name, TRUE);
break;
case DTB_ANSWER_ACTION2: /* Reference */
ret = ab_check_and_import_bil(file_name, FALSE);
break;
case DTB_ANSWER_CANCEL:
ret = -1;
break;
}
if ((ret < 0) && (answer != DTB_ANSWER_CANCEL))
{
sprintf(errmsg_buf, CATGETS(Dtb_project_catd, 100, 1, "Could not import module %s"), file_name);
errmsg = errmsg_buf;
}
}
else
{
STRING fmtStr = NULL, msg = NULL;
XmString xm_str = NULL;
fmtStr = XtNewString(CATGETS(Dtb_project_catd, 100, 103,
"Cannot determine file type for %s.\nDo you want to load the file as a project or a module?"));
msg = (STRING) util_malloc(strlen(fmtStr) + strlen(file_name) + 1);
sprintf(msg, fmtStr, file_name);
xm_str = XmStringCreateLocalized(msg);
answer = dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_ld_as_bip_or_bil_msg, xm_str, NULL, NULL);
XtFree(fmtStr);
util_free(msg);
XmStringFree(xm_str);
switch (answer)
{
case DTB_ANSWER_ACTION1: /* Load as Project */
file_is_project = TRUE;
ret = ab_check_and_open_bip(file_name);
break;
case DTB_ANSWER_ACTION2: /*Load as Module */
file_is_project = FALSE;
answer = dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_palette_import_by_msg, NULL, NULL, NULL);
switch (answer)
{
case DTB_ANSWER_ACTION1: /* Copy */
ret = ab_check_and_import_bil(file_name, TRUE);
break;
case DTB_ANSWER_ACTION2: /* Reference */
ret = ab_check_and_import_bil(file_name, FALSE);
break;
case DTB_ANSWER_CANCEL:
ret = -1;
break;
}
break;
case DTB_ANSWER_CANCEL:
ret = -1;
break;
}
}
}
/*
* Load is done.
*/
if (ret > 0)
{
/* load was successful */
objxm_tree_configure(proj_get_project(), OBJXM_CONFIG_BUILD);
if (file_is_project)
{
proj_show_dialog();
proj_show_proj_dir();
if (shown_modules)
{
AB_TRAVERSAL trav;
ABObj proj = proj_get_project(),
module;
char *cur_module_name,
*found_module_name;
for (trav_open(&trav, proj, AB_TRAV_MODULES);
(module = trav_next(&trav)) != NULL; )
{
cur_module_name = obj_get_name(module);
found_module_name = strstr(shown_modules, cur_module_name);
if (found_module_name)
{
if (!strcmp(cur_module_name, found_module_name) ||
isspace(found_module_name[strlen(cur_module_name)]))
{
if( abobj_show_tree(module, TRUE) == -1 )
{
fprintf(stderr, "Failed to show module %s\n",
cur_module_name);
}
}
}
}
}
}
}
else if (errmsg != NULL) /* load failed */
{
XmString xm_buf = XmStringCreateLocalized(errmsg);
dtb_proj_cmdline_load_file_msg_initialize(&dtb_proj_cmdline_load_file_msg);
dtb_show_message(dtb_get_toplevel_widget(),
&dtb_proj_cmdline_load_file_msg, xm_buf, NULL);
XmStringFree(xm_buf);
}
} /* argc >= 2 */
/*
* Enable the visible windows
*/
ab_set_busy_cursor(FALSE);
/*
if ((init_info != NULL) && (init_info->free_me))
{
util_free(init_info);
}
*/
#ifdef DEBUG /* performance testing */
get_end_times(&startupTime);
print_startup_time(&startupTime);
#endif /* DEBUG */
return True;
}
/*
* This is called immediately after startup, and if we have an expose
* events still pending, checks again in another 250ms. When we have
* no expose events pending (e.g., all our startup is done), we call
* ab_init()
*/
static void
init_ab_timer_proc(
XtPointer clientData,
XtIntervalId *intervalIdPtr
)
{
ABInitProcInfo init_info = (ABInitProcInfo)clientData;
XtAppContext app = XtWidgetToApplicationContext(
init_info->toplevel_widget);
int num_events = 0;
num_events = x_get_num_pending_expose_events(
XtDisplay(init_info->toplevel_widget));
if (num_events < 1)
{
/* no expose events - we're up and running */
init_ab(init_info);
}
else
{
XtAppAddTimeOut(app, 250, init_ab_timer_proc, (XtPointer)init_info);
}
}
/*
* This is added just before XtAppMainLoop is called, and all of our
* start up work should really be done, by now. We're going to check,
* though
*/
static Boolean
init_ab_work_proc(XtPointer clientData)
{
ABInitProcInfo init_info = (ABInitProcInfo)clientData;
XtAppAddTimeOut(XtWidgetToApplicationContext(init_info->toplevel_widget),
1, init_ab_timer_proc, (XtPointer)init_info);
return True;
}
static int
palette_title_rename_handler(
ObjEvAttChangeInfo info
)
{
ABObj proj = info->obj;
if (proj != proj_get_project())
{
return 0;
}
abobj_update_proj_name(proj);
abobj_update_palette_title(proj);
return 0;
}
/*
* Sets the dirty flag when an attribute changes.
*/
static int
att_change_dirty_OCB(
ObjEvAttChangeInfo info
)
{
ABObj obj = info->obj;
if ( obj_is_salient(obj)
&& (obj_get_project(obj) != NULL)
&& (info->old_name != NULL) )
{
abobj_set_save_needed(obj, TRUE);
}
return 0;
}
/* Expects an internationalized error string.
* Posts an error message in a dialog.
*/
static int
err_output_handler(
STRING errmsg
)
{
STRING help_text = NULL;
STRING help_vol = NULL;
STRING help_loc = NULL;
XmString xm_buf = NULL;
DtbObjectHelpData help_data = NULL;
xm_buf = XmStringCreateLocalized(errmsg);
dtb_proj_error_msg_initialize(&dtb_proj_error_msg);
util_get_help_data(&help_text, &help_vol, &help_loc);
if (!util_strempty(help_text))
{
help_data = (DtbObjectHelpData) util_malloc(sizeof(DtbObjectHelpDataRec));
help_data->help_text = help_text;
help_data->help_volume = help_vol;
help_data->help_locationID = help_loc;
}
else
{
/* If there is no help text to display,
* then remove the Help button.
*/
dtb_proj_error_msg.help_button = False;
}
if (!util_strempty(help_text))
(void)dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_error_msg, xm_buf, help_data, NULL);
else
(void)dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_error_msg, xm_buf, NULL, NULL);
XmStringFree(xm_buf);
if (help_data)
util_free(help_data);
dtb_proj_error_msg.help_button = True;
ui_sync_display_of_widget(dtb_get_toplevel_widget());
return 0;
}
/*
* We're just going to eat all other output
*/
static int
output_handler(STRING msg)
{
if (debugging())
{
fprintf(stderr, "%s", msg);
}
else
{
STRING help_text = NULL;
STRING help_vol = NULL;
STRING help_loc = NULL;
XmString xm_buf = NULL;
DtbObjectHelpDataRec help_data;
xm_buf = XmStringCreateLocalized(msg);
dtb_proj_info_msg_initialize(&dtb_proj_info_msg);
util_get_help_data(&help_text, &help_vol, &help_loc);
if (!util_strempty(help_text))
{
help_data.help_text = help_text ? (STRING) XtNewString(help_text) : NULL;
help_data.help_volume = help_vol ? (STRING) XtNewString(help_vol) : NULL;
help_data.help_locationID = help_loc ? (STRING) XtNewString(help_loc) : NULL;
}
else
{
/* If there is no help text to display,
* then remove the Help button.
*/
dtb_proj_info_msg.help_button = False;
}
if (!util_strempty(help_text))
{
dtb_show_message(dtb_get_toplevel_widget(),
&dtb_proj_info_msg, xm_buf, &help_data);
/*
* Free help data strings
*/
if (help_data.help_text)
XtFree(help_data.help_text);
if (help_data.help_volume)
XtFree(help_data.help_volume);
if (help_data.help_locationID)
XtFree(help_data.help_locationID);
}
else
dtb_show_message(dtb_get_toplevel_widget(),
&dtb_proj_info_msg, xm_buf, NULL);
XmStringFree(xm_buf);
ui_sync_display_of_widget(dtb_get_toplevel_widget());
}
return 0;
}
static Boolean
ab_save_sessionCB
(
Widget widget,
char *session_file,
char ***argv,
int *argc
)
{
FILE *fp;
AB_TRAVERSAL trav;
ABObj proj,
module;
char *proj_name;
Boolean first = True,
curProjWritten = False,
shownModulesWritten = False;
if (!(fp = util_fopen_locked(session_file, "w+")))
{
fprintf(stderr, "fopen of session file %s failed.\n", session_file);
return False;
}
chmod(session_file, S_IRUSR | S_IRGRP | S_IWUSR | S_IWGRP);
/*
* Current Project
*/
proj = proj_get_project();
if (proj)
{
if (proj_name = obj_get_file(proj))
{
fprintf(fp, "%s:%s",
AB_XRM_CUR_PROJECT, proj_name);
curProjWritten = True;
}
}
if (curProjWritten)
{
fprintf(fp, "\n");
/*
* Shown modules
*/
for (trav_open(&trav, proj, AB_TRAV_MODULES);
(module = trav_next(&trav)) != NULL; )
{
if (obj_has_flag(module, MappedFlag))
{
if (first)
{
fprintf(fp, "%s: %s",
AB_XRM_SHOWN_MODULES, obj_get_name(module));
first = False;
}
else
{
fprintf(fp," %s", obj_get_name(module));
}
shownModulesWritten = True;
}
}
}
fclose(fp);
if (curProjWritten | shownModulesWritten)
return (True);
return(False);
}
static Boolean
ab_restore_sessionCB
(
Widget widget,
char *session_file
)
{
XrmDatabase db;
/*** Open the resource database file ***/
if ((db = XrmGetFileDatabase (session_file)) == NULL)
return (False);
AB_db = db;
return (True);
}
#ifdef DEBUG /* performance testing */
static int
get_start_times(ABProfiledInterval interval)
{
return get_cur_times(&(interval->realTime.startSeconds),
&(interval->CPUTime.startSeconds));
}
static int
get_end_times(ABProfiledInterval interval)
{
return get_cur_times(&(interval->realTime.endSeconds),
&(interval->CPUTime.endSeconds));
}
static int
calc_elapsed_times(ABProfiledInterval interval)
{
interval->realTime.elapsedSeconds =
interval->realTime.endSeconds - interval->realTime.startSeconds;
interval->CPUTime.elapsedSeconds =
interval->CPUTime.endSeconds - interval->CPUTime.startSeconds;
return 0;
}
static int
print_startup_time(ABProfiledInterval totalTime)
{
/*
* Print out statistics about load
*/
calc_elapsed_times(totalTime);
fprintf(stderr, "\nStartup Time (Real/CPU) seconds: ");
fprintf(stderr, "(%lg/%lg)\n",
totalTime->realTime.elapsedSeconds,
totalTime->CPUTime.elapsedSeconds);
return 0;
}
static int
get_cur_times(double *realTimeOut, double *cpuTimeOut)
{
static BOOL initialized = FALSE;
static long ticks_per_second = 1;
struct tms timeInfo;
double realTime;
double cpuTime;
if (!initialized)
{
initialized = TRUE;
ticks_per_second = sysconf(_SC_CLK_TCK);
}
realTime = times(&timeInfo);
cpuTime = timeInfo.tms_utime + timeInfo.tms_stime
+ timeInfo.tms_cutime + timeInfo.tms_cstime;
*realTimeOut = realTime / ticks_per_second;
*cpuTimeOut = cpuTime / ticks_per_second;
return 0;
}
#endif /* DEBUG/performance */
static Widget
create_import_rbox(
Widget parent
)
{
Arg args[10];
int n;
Widget parent_rbox = NULL,
format_rbox = NULL,
method_rbox = NULL,
rbox = NULL,
rbox_label = NULL,
BIL_item = NULL,
UIL_item = NULL,
Copy_item = NULL,
Ref_item = NULL;
XmString label_xmstring = NULL;
/****************************************************
* Create the parent row-column which will hold the *
* 'Import Format' and 'Import By' radioboxes. *
****************************************************/
parent_rbox = XtVaCreateManagedWidget("parent_rbox",
xmRowColumnWidgetClass,
parent,
XmNspacing, 0,
XmNpacking, XmPACK_COLUMN,
XmNnumColumns, 1,
XmNisHomogeneous, True,
XmNentryClass, xmRowColumnWidgetClass,
XmNentryAlignment, XmALIGNMENT_BASELINE_BOTTOM,
XmNorientation, XmVERTICAL,
NULL);
/****************************************************
* Create the 'Import Format' radiobox. *
****************************************************/
format_rbox = XtVaCreateManagedWidget("format_rbox",
xmRowColumnWidgetClass,
parent_rbox,
XmNspacing, 0,
XmNpacking, XmPACK_TIGHT,
XmNisHomogeneous, False,
XmNadjustLast, True,
XmNmarginWidth, 0,
XmNmarginHeight, 0,
XmNentryAlignment, XmALIGNMENT_END,
XmNorientation, XmHORIZONTAL,
NULL);
label_xmstring = XmStringCreateLocalized(
CATGETS(Dtb_project_catd, 100, 46,"Import Format:"));
rbox_label = XtVaCreateManagedWidget("rbox_label",
xmLabelWidgetClass,
format_rbox,
XmNlabelType, XmSTRING,
XmNlabelString, label_xmstring,
NULL);
XmStringFree(label_xmstring);
label_xmstring = NULL;
n = 0;
XtSetArg(args[n], XmNradioBehavior, True); ++n;
XtSetArg(args[n], XmNentryClass, xmToggleButtonWidgetClass); ++n;
XtSetArg(args[n], XmNnumColumns, 1); ++n;
XtSetArg(args[n], XmNisHomogeneous, True); ++n;
XtSetArg(args[n], XmNspacing, 0); ++n;
XtSetArg(args[n], XmNrowColumnType, XmWORK_AREA); ++n;
XtSetArg(args[n], XmNpacking, XmPACK_TIGHT); ++n;
XtSetArg(args[n], XmNorientation, XmHORIZONTAL); ++n;
rbox = XmCreateRadioBox(format_rbox, "rbox", args, n);
XtManageChild(rbox);
label_xmstring = XmStringCreateLocalized(
CATGETS(Dtb_project_catd, 100, 47,"BIL"));
BIL_item = XtVaCreateManagedWidget("bil_item",
xmToggleButtonWidgetClass,
rbox,
XmNset, True,
XmNlabelString, label_xmstring,
NULL);
XtAddCallback(BIL_item,
XmNvalueChangedCallback, import_formatCB,
(XtPointer) IMPORT_AS_BIL);
XmStringFree(label_xmstring);
label_xmstring = NULL;
label_xmstring = XmStringCreateLocalized(
CATGETS(Dtb_project_catd, 100, 48,"UIL"));
UIL_item = XtVaCreateManagedWidget("uil_item",
xmToggleButtonWidgetClass,
rbox,
XmNset, False,
XmNlabelString, label_xmstring,
NULL);
XtAddCallback(UIL_item,
XmNvalueChangedCallback, import_formatCB,
(XtPointer) IMPORT_AS_UIL);
XmStringFree(label_xmstring);
label_xmstring = NULL;
/****************************************************
* Create the 'Import By' radiobox. *
****************************************************/
method_rbox = XtVaCreateManagedWidget("method_rbox",
xmRowColumnWidgetClass,
parent_rbox,
XmNspacing, 0,
XmNpacking, XmPACK_TIGHT,
XmNisHomogeneous, False,
XmNadjustLast, True,
XmNmarginWidth, 0,
XmNmarginHeight, 0,
XmNentryAlignment, XmALIGNMENT_END,
XmNorientation, XmHORIZONTAL,
NULL);
/* Pass in the 'Import By:' radiobox handle to the
* 'change format' callback, so that it can make it
* active (if importing as BIL) or inactive (if
* importing as UIL).
*/
XtVaSetValues(parent_rbox,
XmNuserData, (XtPointer) method_rbox,
NULL);
label_xmstring = XmStringCreateLocalized(
CATGETS(Dtb_project_catd, 100, 49,"Import By:"));
rbox_label = XtVaCreateManagedWidget("rbox_label",
xmLabelWidgetClass,
method_rbox,
XmNlabelType, XmSTRING,
XmNlabelString, label_xmstring,
NULL);
XmStringFree(label_xmstring);
label_xmstring = NULL;
n = 0;
XtSetArg(args[n], XmNnumColumns, 1); ++n;
XtSetArg(args[n], XmNspacing, 0); ++n;
XtSetArg(args[n], XmNpacking, XmPACK_TIGHT); ++n;
XtSetArg(args[n], XmNorientation, XmHORIZONTAL); ++n;
rbox = XmCreateRadioBox(method_rbox, "rbox", args, n);
XtManageChild(rbox);
label_xmstring = XmStringCreateLocalized(
CATGETS(Dtb_project_catd, 100, 50,"Copy"));
Copy_item = XtVaCreateManagedWidget("Copy_item",
xmToggleButtonWidgetClass,
rbox,
XmNset, True,
XmNlabelString, label_xmstring,
NULL);
XtAddCallback(Copy_item,
XmNvalueChangedCallback, import_change_modeCB,
(XtPointer) IMPORT_BY_COPY);
XmStringFree(label_xmstring);
label_xmstring = NULL;
label_xmstring = XmStringCreateLocalized(
CATGETS(Dtb_project_catd, 100, 51,"Reference"));
Ref_item = XtVaCreateManagedWidget("Ref_item",
xmToggleButtonWidgetClass,
rbox,
XmNset, False,
XmNlabelString, label_xmstring,
NULL);
XtAddCallback(Ref_item,
XmNvalueChangedCallback, import_change_modeCB,
(XtPointer) IMPORT_BY_REF);
XmStringFree(label_xmstring);
label_xmstring = NULL;
return (parent_rbox);
}
static void
import_change_modeCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
XmToggleButtonCallbackStruct *state =
(XmToggleButtonCallbackStruct *)callData;
int ImportMode = (int)(intptr_t) clientData;
ChooserInfo info = 0;
if (state->set)
{
XtVaGetValues(AB_generic_chooser,
XmNuserData, &info,
NULL);
switch (ImportMode)
{
case IMPORT_BY_COPY:
info->ImportByCopy = TRUE;
break;
case IMPORT_BY_REF:
info->ImportByCopy = FALSE;
break;
}
}
}
static void
import_formatCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
XmToggleButtonCallbackStruct *state =
(XmToggleButtonCallbackStruct *)callData;
int ImportFormat = (int)(intptr_t) clientData;
ChooserInfo info = NULL;
Widget method_rbox = NULL;
if (state->set)
{
XtVaGetValues(AB_generic_chooser,
XmNuserData, &info,
NULL);
XtVaGetValues(info->child,
XmNuserData, &method_rbox,
NULL);
switch (ImportFormat)
{
case IMPORT_AS_BIL:
info->ImportAsBil = TRUE;
/* Set the file filter string to match
* on files with ".bil" extension.
*/
XtVaSetValues(AB_generic_chooser,
XtVaTypedArg, XmNpattern,
XtRString, "*.bil",
sizeof("*.bil"), NULL);
if (!XtIsSensitive(method_rbox))
{
XtSetSensitive(method_rbox, True);
}
break;
case IMPORT_AS_UIL:
info->ImportAsBil = FALSE;
/* Set the file filter string to match
* on files with ".uil" extension.
*/
XtVaSetValues(AB_generic_chooser,
XtVaTypedArg, XmNpattern,
XtRString, "*.uil",
sizeof("*.uil"), NULL);
/* If importing a UIL file, then set the 'Import By'
* radiobox inactive, since it does not apply.
*/
if (XtIsSensitive(method_rbox))
{
XtSetSensitive(method_rbox, False);
}
break;
}
}
}
/*** DTB_USER_CODE_END
***
*** End of user code section
***
**************************************************************************/
/* Workaround for XPG4 API compatibility */
#if !defined(NL_CAT_LOCALE)
#define NL_CAT_LOCALE 0
#endif
/* Handle for standard message catalog for the project */
nl_catd Dtb_project_catd;
/*
* command line options...
*/
static XrmOptionDescRec optionDescList[] = {
{"-session", "*session", XrmoptionSepArg, (XPointer)NULL}
/*** DTB_USER_CODE_START vvv Add structure fields below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add structure fields above ^^^ ***/
};
/*
* Application Resources
*/
static XtResource resources[] = {
{"session", "Session", XtRString, sizeof(String),
XtOffsetOf(DtbAppResourceRec, session_file), XtRImmediate, (XtPointer)NULL}
/*** DTB_USER_CODE_START vvv Add structure fields below vvv ***/
,
{"useSmallDragCursor", "UseSmallDragCursor", XtRBoolean, sizeof(Boolean),
Offset(use_small_drag_cursor), XtRImmediate, (XtPointer)False},
{"impliedApply", "ImpliedApply", XtRBoolean, sizeof(Boolean),
Offset(implied_apply), XtRImmediate, (XtPointer)False}
/*** DTB_USER_CODE_END ^^^ Add structure fields above ^^^ ***/
};
DtbAppResourceRec dtb_app_resource_rec;
/*
* main for application dtbuilder
*/
int
main(int argc, char **argv)
{
Widget toplevel = (Widget)NULL;
Display *display = (Display*)NULL;
XtAppContext app = (XtAppContext)NULL;
String *fallback_resources = (String*)NULL;
ArgList init_args = (ArgList)NULL;
Cardinal num_init_args = (Cardinal)0;
ArgList get_resources_args = (ArgList)NULL;
Cardinal num_get_resources_args = (Cardinal)0;
Atom save_yourself_atom = (Atom)NULL;
XtLanguageProc language_proc = (XtLanguageProc)NULL;
XtPointer language_proc_client_data = (XtPointer)NULL;
/**************************************************************************
*** DTB_USER_CODE_START
***
*** No initialization has been done.
***
*** Add local variables and code.
***/
Widget main_widget = (Widget) NULL,
layout_menu = (Widget) NULL;
ABInitProcInfo init_proc_info = NULL;
int status = 0;
Pixmap xpm_pixmap = 0;
int num_mouse_buttons = 0;
#ifdef DEBUG /* performance testing */
get_start_times(&startupTime);
#endif /* DEBUG */
/*
* Initialize common functionality
*
* Do this first!! Other function calls may depend on this.
*/
util_init(&argc, &argv);
if (!debugging())
{
util_set_verbosity(0); /* if we're not debugging, disable output */
}
/*
** This next routine must be called so that the DtTerm widgets can
** work around a motif problem in keyboard traversal. See the DtTerm
** widget documentation for more details.
*/
(void) DtTermInitialize();
/*
** Set up CDE environment variables. This is required for CDE components
** that must be able to handle variations in CDE environment variables
** across various hardware platforms. It is not a public part of CDE.
*/
_DtEnvControl(DT_ENV_SET);
/*** DTB_USER_CODE_END
***
*** End of user code section
***
**************************************************************************/
/* NULL language_proc installs the default Xt language procedure */
XtSetLanguageProc((XtAppContext)NULL,
language_proc, language_proc_client_data);
toplevel = XtAppInitialize(&app, "Dtbuilder",
optionDescList, XtNumber(optionDescList),
&argc, argv, fallback_resources,
init_args, num_init_args);
/*
* Get display and verify initialization was successful.
*/
if (toplevel != NULL)
{
display = XtDisplayOfObject(toplevel);
}
/*
* Open the standard message catalog for the project.
*/
Dtb_project_catd = CATOPEN(DTB_PROJECT_CATALOG, NL_CAT_LOCALE);
if (Dtb_project_catd == (nl_catd)-1)
{
fprintf(stderr, "WARNING: Could not open message catalog: %s. Messages will be defaults.\n",
DTB_PROJECT_CATALOG);
}
if (display == NULL)
{
fprintf(stderr, "Could not open display.");
exit(1);
}
/*
* Save the toplevel widget so it can be fetched later as needed.
*/
dtb_save_toplevel_widget(toplevel);
/*
* Save the command used to invoke the application.
*/
dtb_save_command(argv[0]);
XtGetApplicationResources(toplevel, (XtPointer)&dtb_app_resource_rec,
resources, XtNumber(resources),
get_resources_args, num_get_resources_args);
/**************************************************************************
*** DTB_USER_CODE_START
***
*** A connection to the X server has been established, and all
*** initialization has been done.
***
*** Add extra initialization code after this comment.
***/
AB_toplevel = dtb_get_toplevel_widget();
DtAppInitialize(app, XtDisplay(dtb_get_toplevel_widget()),
dtb_get_toplevel_widget(), argv[0], "Dtbuilder");
/* Load the data types database. Necessary for DnD. */
DtDbLoad();
DtDbReloadNotify(reloadDB, (XtPointer) NULL);
/* Set icon pixmap, if there is one */
/* status = XpmCreatePixmapFromData(XtDisplay(dtb_get_toplevel_widget()),
DefaultRootWindow(XtDisplay(dtb_get_toplevel_widget())),
ab_pm, &xpm_pixmap, (Pixmap *)NULL, (XpmAttributes *)NULL); */
if(status == XpmSuccess)
{
XtVaSetValues(dtb_get_toplevel_widget(), XmNiconPixmap, xpm_pixmap, NULL);
}
/*
* Setup Palette to be "leader" window so that when it is
* iconified, all other windows get brought down; when it
* is re-opened, all windows will be restored to their
* original state at the time dtbuilder was iconified.
*/
ab_register_window(AB_toplevel, AB_WIN_LEADER, WindowUp,
NULL, AB_WPOS_UNSPECIFIED, palP_exit_dtbuilderCB, NULL);
/*
* Determine if Button2 should be used for Transfer
*/
XtVaGetValues((Widget)XmGetXmDisplay(display),
"enableBtn1Transfer", &AB_btn1_transfer,
NULL);
/*
* Determine which button should be used to invoke PopupMenus
* by querying the display for number of mouse buttons.
* NOTE: we are basically punting here on 1 button mice.
*/
num_mouse_buttons = XGetPointerMapping(display, (unsigned char *)NULL, 0);
AB_BMenu = (num_mouse_buttons > 2? Button3 : Button2);
/*** DTB_USER_CODE_END
***
*** End of user code section
***
**************************************************************************/
if (dtb_app_resource_rec.session_file)
{
dtb_set_client_session_restoreCB((DtbClientSessionRestoreCB)Session_restoreCB);
(void)dtb_session_restore(toplevel, dtb_app_resource_rec.session_file);
}
/*
* Initialize all global variables.
*/
dtbPaletteAbPaletteMainInfo_clear(&dtb_palette_ab_palette_main);
dtb_palette_exit_msg_initialize(&dtb_palette_exit_msg);
dtb_palette_chld_or_layr_msg_initialize(&dtb_palette_chld_or_layr_msg);
dtb_palette_layered_pane_msg_initialize(&dtb_palette_layered_pane_msg);
dtb_palette_layr_pw_msg_initialize(&dtb_palette_layr_pw_msg);
dtb_palette_chld_layr_pw_msg_initialize(&dtb_palette_chld_layr_pw_msg);
dtb_palette_info_msg_initialize(&dtb_palette_info_msg);
dtb_palette_open_ro_proj_msg_initialize(&dtb_palette_open_ro_proj_msg);
dtb_palette_import_ro_msg_initialize(&dtb_palette_import_ro_msg);
dtb_palette_empty_proj_msg_initialize(&dtb_palette_empty_proj_msg);
dtb_palette_error_msg_initialize(&dtb_palette_error_msg);
dtb_palette_import_by_msg_initialize(&dtb_palette_import_by_msg);
dtb_palette_drop_err_msg_initialize(&dtb_palette_drop_err_msg);
dtb_palette_wrn_msg_initialize(&dtb_palette_wrn_msg);
dtb_palette_prevent_close_msg_initialize(&dtb_palette_prevent_close_msg);
dtb_palette_child_of_group_msg_initialize(&dtb_palette_child_of_group_msg);
dtbAboutBoxDialogInfo_clear(&dtb_about_box_dialog);
dtbAboutBoxDialog2Info_clear(&dtb_about_box_dialog2);
dtbBrwsMainwindowInfo_clear(&dtb_brws_mainwindow);
dtbProjProjMainInfo_clear(&dtb_proj_proj_main);
dtb_proj_vrfy_mod_name_msg_initialize(&dtb_proj_vrfy_mod_name_msg);
dtb_proj_vrfy_proj_name_msg_initialize(&dtb_proj_vrfy_proj_name_msg);
dtb_proj_vrfy_c_ident_msg_initialize(&dtb_proj_vrfy_c_ident_msg);
dtb_proj_no_name_msg_initialize(&dtb_proj_no_name_msg);
dtb_proj_brws_mod_msg_initialize(&dtb_proj_brws_mod_msg);
dtb_proj_create_proj_msg_initialize(&dtb_proj_create_proj_msg);
dtb_proj_close_proj_msg_initialize(&dtb_proj_close_proj_msg);
dtb_proj_no_mem_msg_initialize(&dtb_proj_no_mem_msg);
dtb_proj_error_msg_initialize(&dtb_proj_error_msg);
dtb_proj_wrn_msg_initialize(&dtb_proj_wrn_msg);
dtb_proj_overwrite_msg_initialize(&dtb_proj_overwrite_msg);
dtb_proj_save_proj_as_msg_initialize(&dtb_proj_save_proj_as_msg);
dtb_proj_save_as_mod_msg_initialize(&dtb_proj_save_as_mod_msg);
dtb_proj_open_proj_warn_msg_initialize(&dtb_proj_open_proj_warn_msg);
dtb_proj_cmdline_load_file_msg_initialize(&dtb_proj_cmdline_load_file_msg);
dtb_proj_bix_save_msg_initialize(&dtb_proj_bix_save_msg);
dtb_proj_unique_name_msg_initialize(&dtb_proj_unique_name_msg);
dtb_proj_info_msg_initialize(&dtb_proj_info_msg);
dtb_proj_del_mod_msg_initialize(&dtb_proj_del_mod_msg);
dtb_proj_ld_as_bip_or_bil_msg_initialize(&dtb_proj_ld_as_bip_or_bil_msg);
dtbCgenWinMainwindowInfo_clear(&dtb_cgen_win_mainwindow);
dtb_cgen_win_query_save_or_abort_msg_initialize(&dtb_cgen_win_query_save_or_abort_msg);
dtb_cgen_win_query_save_or_gen_old_msg_initialize(&dtb_cgen_win_query_save_or_gen_old_msg);
dtb_cgen_win_modify_path_msg_initialize(&dtb_cgen_win_modify_path_msg);
dtb_cgen_win_no_makefile_msg_initialize(&dtb_cgen_win_no_makefile_msg);
dtb_cgen_win_wrong_makefile_msg_initialize(&dtb_cgen_win_wrong_makefile_msg);
dtb_cgen_win_no_exe_msg_initialize(&dtb_cgen_win_no_exe_msg);
dtbConnConnDialogInfo_clear(&dtb_conn_conn_dialog);
dtb_conn_no_func_msg_initialize(&dtb_conn_no_func_msg);
dtbConnExecCodeDialogInfo_clear(&dtb_conn_exec_code_dialog);
dtbAppfwDialogInfo_clear(&dtb_appfw_dialog);
dtb_appfw_appfw_pending_msg_initialize(&dtb_appfw_appfw_pending_msg);
dtbColorChooserDialogInfo_clear(&dtb_color_chooser_dialog);
dtb_color_chooser_message_initialize(&dtb_color_chooser_message);
dtbDndEdDialogInfo_clear(&dtb_dnd_ed_dialog);
dtbHelpEdHelpEditorInfo_clear(&dtb_help_ed_help_editor);
dtb_help_ed_wrn_msg_initialize(&dtb_help_ed_wrn_msg);
dtbAttchEdAttchEdDialogInfo_clear(&dtb_attch_ed_attch_ed_dialog);
dtb_attch_ed_wrn_msg_initialize(&dtb_attch_ed_wrn_msg);
dtb_attch_ed_grp_member_wrn_initialize(&dtb_attch_ed_grp_member_wrn);
dtbRevolvPropDialogInfo_clear(&dtb_revolv_prop_dialog);
dtb_revolv_prop_pend_msg_initialize(&dtb_revolv_prop_pend_msg);
dtb_revolv_wrn_msg_initialize(&dtb_revolv_wrn_msg);
dtbButtonPropDialogInfo_clear(&dtb_button_prop_dialog);
dtbChoicePropDialogInfo_clear(&dtb_choice_prop_dialog);
dtbComboboxPropDialogInfo_clear(&dtb_combobox_prop_dialog);
dtbCpanelPropDialogInfo_clear(&dtb_cpanel_prop_dialog);
dtbCustdlgPropDialogInfo_clear(&dtb_custdlg_prop_dialog);
dtb_custdlg_remove_bpanel_msg_initialize(&dtb_custdlg_remove_bpanel_msg);
dtb_custdlg_remove_footer_msg_initialize(&dtb_custdlg_remove_footer_msg);
dtbDrawpPropDialogInfo_clear(&dtb_drawp_prop_dialog);
dtbGroupPropDialogInfo_clear(&dtb_group_prop_dialog);
dtbLabelPropDialogInfo_clear(&dtb_label_prop_dialog);
dtbListPropDialogInfo_clear(&dtb_list_prop_dialog);
dtbMainwinPropDialogInfo_clear(&dtb_mainwin_prop_dialog);
dtb_mainwin_remove_mbar_msg_initialize(&dtb_mainwin_remove_mbar_msg);
dtb_mainwin_remove_tbar_msg_initialize(&dtb_mainwin_remove_tbar_msg);
dtb_mainwin_remove_footer_msg_initialize(&dtb_mainwin_remove_footer_msg);
dtbMenuPropDialogInfo_clear(&dtb_menu_prop_dialog);
dtbMenubarPropDialogInfo_clear(&dtb_menubar_prop_dialog);
dtbScalePropDialogInfo_clear(&dtb_scale_prop_dialog);
dtbSepPropDialogInfo_clear(&dtb_sep_prop_dialog);
dtbSpinboxPropDialogInfo_clear(&dtb_spinbox_prop_dialog);
dtb_spinbox_chg_type_msg_initialize(&dtb_spinbox_chg_type_msg);
dtbTermpPropDialogInfo_clear(&dtb_termp_prop_dialog);
dtbTextfPropDialogInfo_clear(&dtb_textf_prop_dialog);
dtbTextpPropDialogInfo_clear(&dtb_textp_prop_dialog);
dtbCgenPropsCgenPropsDlgInfo_clear(&dtb_cgen_props_cgen_props_dlg);
dtb_cgen_props_no_sel_mod_msg_initialize(&dtb_cgen_props_no_sel_mod_msg);
dtbCgenEnvDialogInfo_clear(&dtb_cgen_env_dialog);
dtbFchooserPropDialogInfo_clear(&dtb_fchooser_prop_dialog);
dtbMessageEdDialogInfo_clear(&dtb_message_ed_dialog);
dtb_message_ed_act1_def_btn_msg_initialize(&dtb_message_ed_act1_def_btn_msg);
dtb_message_ed_act2_def_btn_msg_initialize(&dtb_message_ed_act2_def_btn_msg);
dtb_message_ed_cancel_def_btn_msg_initialize(&dtb_message_ed_cancel_def_btn_msg);
dtb_message_ed_act1_lbl_msg_initialize(&dtb_message_ed_act1_lbl_msg);
dtb_message_ed_act2_lbl_msg_initialize(&dtb_message_ed_act2_lbl_msg);
dtb_message_ed_act3_def_btn_msg_initialize(&dtb_message_ed_act3_def_btn_msg);
dtb_message_ed_act3_lbl_msg_initialize(&dtb_message_ed_act3_lbl_msg);
dtb_message_ed_wrn_msg_initialize(&dtb_message_ed_wrn_msg);
dtb_message_ed_no_btns_msg_initialize(&dtb_message_ed_no_btns_msg);
dtbPanedwinEdDialogInfo_clear(&dtb_panedwin_ed_dialog);
dtb_panedwin_ed_pw_east_attach_msg_initialize(&dtb_panedwin_ed_pw_east_attach_msg);
dtb_panedwin_ed_pw_west_attach_msg_initialize(&dtb_panedwin_ed_pw_west_attach_msg);
/*
* Set up the application's root window.
*/
dtb_palette_ab_palette_main.ab_palette_main = toplevel;
XtVaSetValues(dtb_palette_ab_palette_main.ab_palette_main,
XmNallowShellResize, True,
XmNtitle, XtNewString(CATGETS(Dtb_project_catd, 6, 1, "Application Builder")),
XmNiconName, XtNewString(CATGETS(Dtb_project_catd, 6, 135, "dtbuilder")),
XmNinitialState, NormalState,
XmNmwmDecorations, MWM_DECOR_ALL | MWM_DECOR_RESIZEH,
XmNmwmFunctions, MWM_FUNC_ALL | MWM_FUNC_RESIZE,
NULL);
dtb_palette_ab_palette_main_initialize(&(dtb_palette_ab_palette_main), dtb_get_toplevel_widget());
/*
* Map any initially-visible windows
*/
save_yourself_atom = XmInternAtom(XtDisplay(toplevel),
"WM_SAVE_YOURSELF", False);
dtb_set_client_session_saveCB((DtbClientSessionSaveCB)Session_saveCB);
XmAddWMProtocolCallback(toplevel, save_yourself_atom,
dtb_session_save, (XtPointer)NULL);
/**************************************************************************
*** DTB_USER_CODE_START
***
*** All initially-mapped widgets have been created, but not
*** realized. Set resources on widgets, or perform other operations
*** that must be completed before the toplevel widget is
*** realized.
***/
/*** DTB_USER_CODE_END
***
*** End of user code section
***
**************************************************************************/
XtRealizeWidget(toplevel);
/**************************************************************************
*** DTB_USER_CODE_START
***
*** The initially-mapped widgets have all been realized, and
*** the Xt main loop is about to be entered.
***/
#ifdef HAVE_EDITRES
XtAddEventHandler(toplevel, 0, True,
(XtEventHandler) _XEditResCheckMessages,
(XtPointer) NULL);
#endif
/* Load bitmaps for drag cursor */
x_load_cursor_bitmaps(dtb_get_toplevel_widget());
/* Set up "Actions" for manipulating ui objects */
abobj_register_build_actions(app);
/* Set up "Actions" for browser */
brws_register_actions(app);
/* Set up "Actions" for project window */
proj_register_actions(app);
/* Register Menu Palette Obj */
pal_register_item_info(NULL, ab_menu_palitem, (int)AB_NO_SUBTYPE,
NULL, 0);
/* Register Group Palette Obj */
pal_register_item_info(NULL, ab_group_palitem, (int)AB_CONT_GROUP,
"Group", 0);
/* Register Paned Window Palette Obj */
pal_register_item_info(NULL, ab_panedwin_palitem, (int)AB_CONT_PANED,
NULL, 0);
pal_register_item_info(NULL, ab_button_palitem, (int)AB_BUT_DRAWN,
"Drawn Button", 0);
/* Register All Editable objects which are not Palette Items */
pal_register_editable_obj(AB_TYPE_PROJECT, (int)AB_NO_SUBTYPE,
"Application", NULL);
pal_register_editable_obj(AB_TYPE_LAYERS, (int)AB_NO_SUBTYPE,
"Layers", NULL);
pal_register_editable_obj(AB_TYPE_MESSAGE, (int)AB_NO_SUBTYPE,
"Message", NULL);
pal_register_editable_obj(AB_TYPE_ITEM, AB_ITEM_FOR_CHOICE,
"Choice Item", NULL);
pal_register_editable_obj(AB_TYPE_ITEM, AB_ITEM_FOR_MENU,
"Menu Item", NULL);
pal_register_editable_obj(AB_TYPE_ITEM, AB_ITEM_FOR_MENUBAR,
"Menubar Item", NULL);
/* Initialize ObjXm */
objxm_init(dtb_get_toplevel_widget());
objxm_set_cvt_filename_to_pixmap_callback(ab_cvt_image_file_to_pixmap);
objxm_set_post_instantiate_callback(ab_post_instantiate);
/* Initialize project */
proj_init();
/* Initialize browser */
brws_init();
/* Initialize Props */
prop_init(dtb_get_toplevel_widget());
/* Initialize Attachments editor */
attch_ed_init();
/* Initialize connections notify callback */
conn_init();
/* Initialize edit notify callback */
abobj_edit_init();
/* Initialize strings */
abobj_strings_init();
/*
* Initialize layout menu
*/
XtDestroyWidget(dtb_palette_ab_palette_main.palette_menubar_Layout_item_layout_pulldown_items.Item1_item);
XtVaGetValues(dtb_palette_ab_palette_main.palette_menubar_items.Layout_item,
XmNsubMenuId, &layout_menu,
NULL);
abobj_build_layout_menu(layout_menu);
main_widget = dtb_palette_ab_palette_main.ab_palette_main_mainwin;
ab_dnd_register_drop_file(main_widget);
ab_palette_set_active(TRUE);
/*
* Set up to have init_ab() called when our primary window is up
*/
init_proc_info = (ABInitProcInfo)XtMalloc(sizeof(ABInitProcInfoRec));
if (init_proc_info == NULL)
{
dtb_proj_no_mem_msg_initialize(&dtb_proj_no_mem_msg);
(void)dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_no_mem_msg, NULL, NULL, NULL);
exit(1);
}
init_proc_info->free_me = True; /* dynamically allocated */
init_proc_info->toplevel_widget = NULL;
init_proc_info->argc = argc;
init_proc_info->argv = (String *)argv;
init_proc_info->toplevel_widget = dtb_get_toplevel_widget();
ab_set_busy_cursor(TRUE);
XtAppAddWorkProc(app, init_ab_work_proc, (XtPointer)init_proc_info);
/*** DTB_USER_CODE_END
***
*** End of user code section
***
**************************************************************************/
/*
* Enter event loop
*/
XtAppMainLoop(app);
return 0;
}
void
palette_help_pulldown_About_Application_Builder_item_CB1(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
DtbAboutBoxDialogInfo instance = (DtbAboutBoxDialogInfo)clientData;
if (!(instance->initialized))
{
dtb_about_box_dialog_initialize(instance, dtb_palette_ab_palette_main.ab_palette_main);
}
XtManageChild(instance->dialog_shellform);
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
brws_help_pulldown_About_Application_Builder_item_CB1(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
DtbAboutBoxDialogInfo instance = (DtbAboutBoxDialogInfo)clientData;
if (!(instance->initialized))
{
dtb_about_box_dialog_initialize(instance, dtb_palette_ab_palette_main.ab_palette_main);
}
XtManageChild(instance->dialog_shellform);
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_proj_help_menu_About_Application_Builder_item_CB1(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
DtbAboutBoxDialogInfo instance = (DtbAboutBoxDialogInfo)clientData;
if (!(instance->initialized))
{
dtb_about_box_dialog_initialize(instance, dtb_palette_ab_palette_main.ab_palette_main);
}
XtManageChild(instance->dialog_shellform);
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
Boolean
Session_saveCB(Widget widget, String session_file, char ***argv, int *argc)
{
Boolean ret_value = False;
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
FILE *fp;
AB_TRAVERSAL trav;
ABObj proj,
module;
char *proj_name;
Boolean first = True,
curProjWritten = False,
shownModulesWritten = False;
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*
* Save application state in either session file and/or
* command line vector.
*
* Session File:
* Open the file "session_file"
* Write application state information into it
* Close the file
* Set "ret_value" to True
* (Setting "ret_value" to True is important if you are using
* session files! Do not set it to True if you are not using
* session files.)
*
* Command line vector:
* Allocate an argv vector
* Fill it up with the appropriate strings
* Return the argv vector in "argv" i.e.
* *argv = my_new_argv;
* Return the size of the vector in argc
*/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
if (!(fp = util_fopen_locked(session_file, "w+")))
{
fprintf(stderr, "fopen of session file %s failed.\n", session_file);
return False;
}
chmod(session_file, S_IRUSR | S_IRGRP | S_IWUSR | S_IWGRP);
/*
* Current Project
*/
proj = proj_get_project();
if (proj)
{
if (proj_name = obj_get_file(proj))
{
fprintf(fp, "%s:%s",
AB_XRM_CUR_PROJECT, proj_name);
curProjWritten = True;
}
}
if (curProjWritten)
{
fprintf(fp, "\n");
/*
* Shown modules
*/
for (trav_open(&trav, proj, AB_TRAV_MODULES);
(module = trav_next(&trav)) != NULL; )
{
if (obj_has_flag(module, MappedFlag))
{
if (first)
{
fprintf(fp, "%s: %s",
AB_XRM_SHOWN_MODULES, obj_get_name(module));
first = False;
}
else
{
fprintf(fp," %s", obj_get_name(module));
}
shownModulesWritten = True;
}
}
}
fclose(fp);
if (curProjWritten | shownModulesWritten)
ret_value = True;
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
return ret_value;
}
Boolean
Session_restoreCB(Widget widget, char *session_file)
{
Boolean ret_value = False;
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
XrmDatabase db;
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*
* Restore application state via session file.
* Use contents of "session file" to bring the application
* to the desired state.
* Set "ret_value" to True to indicate success.
*/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
if ((db = XrmGetFileDatabase (session_file)) != NULL)
{
ret_value = True;
AB_db = db;
}
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
return ret_value;
}
void
cgen_win_help_pulldown_About_Application_Builder_item_CB1(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
DtbAboutBoxDialogInfo instance = (DtbAboutBoxDialogInfo)clientData;
if (!(instance->initialized))
{
dtb_about_box_dialog_initialize(instance, dtb_palette_ab_palette_main.ab_palette_main);
}
XtManageChild(instance->dialog_shellform);
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_show_new_proj_dlgCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
DTB_MODAL_ANSWER answer = DTB_ANSWER_NONE;
ABObj project = proj_get_project();
XtAppContext app;
app = XtDisplayToApplicationContext(XtDisplay(widget));
if (proj_check_unsaved_edits(project))
{
dtb_proj_create_proj_msg_initialize(&dtb_proj_create_proj_msg);
answer = dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_create_proj_msg, NULL, NULL, NULL);
switch (answer)
{
case DTB_ANSWER_ACTION1:
/* Close out the old project (= destroying
* the old project + creating a new default
* project named "Untitled"). Then popup the
* "Name Project" dialog.
*/
proj_destroy_project(project);
/* Register the workproc that will popup
* the "Name Project" dialog.
*/
XtAppAddWorkProc(app, name_proj_work_proc,
(XtPointer) NULL);
break;
case DTB_ANSWER_NONE:
case DTB_ANSWER_CANCEL:
break;
}
} /* End check unsaved edits */
else
{
proj_destroy_project(project);
XtAppAddWorkProc(app, name_proj_work_proc,
(XtPointer) NULL);
}
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_show_open_chooserCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
ChooserInfo info = NULL;
DTB_MODAL_ANSWER answer = DTB_ANSWER_NONE;
ABObj project = proj_get_project();
static DtbObjectHelpDataRec chooser_help_data = {
"",
"AppBuilder",
"ABFileSelDialog",
};
char *tmp_txt;
XmString ok_label;
char *title;
XtCallbackRec ok_callback[] = {
{(XtCallbackProc)proj_open_proj_okCB, (XtPointer) NULL},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
XtCallbackRec cancel_callback[] = {
{(XtCallbackProc)proj_cancelCB, (XtPointer) NULL},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
XtCallbackRec popdown_callback[] = {
{(XtCallbackProc)proj_unmap_chooserCB, (XtPointer) NULL},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
XtCallbackRec help_callback[] = {
{(XtCallbackProc)dtb_help_dispatch, (XtPointer) &chooser_help_data},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
/* Before loading in the new project, check if
* there are unsaved edits in the existing project.
* If so, post a warning and allow the user to
* cancel the operation.
*/
if (proj_check_unsaved_edits(project))
{
dtb_proj_open_proj_warn_msg_initialize(
&dtb_proj_open_proj_warn_msg);
answer = dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_open_proj_warn_msg,
NULL, NULL, NULL);
switch (answer)
{
case DTB_ANSWER_ACTION1:
/* Go ahead and destroy the old project. */
proj_destroy_project(project);
break;
case DTB_ANSWER_CANCEL:
return;
}
}
/* Create the file chooser if it hasn't already
* been created by anyone else, then set the
* appropriate resources.
*/
if (AB_generic_chooser == NULL)
{
AB_generic_chooser = XmCreateFileSelectionDialog(
widget,
"AB_generic_chooser",
(ArgList) NULL,
(Cardinal) 0);
info = (ChooserInfo) calloc(sizeof(ChooserInfoRec), 1);
XtVaSetValues(AB_generic_chooser,
XmNuserData, (XtPointer) info,
NULL);
/* Set up help info for shared chooser */
tmp_txt = CATGETS(Dtb_project_catd,110,1,"Use the File Selection Dialog to specify which file should be used for saving and loading modules or projects");
chooser_help_data.help_text = XtMalloc(strlen(tmp_txt)+1);
strcpy(chooser_help_data.help_text,tmp_txt);
}
else if (XtIsManaged(AB_generic_chooser))
{
ui_win_front(AB_generic_chooser);
return;
}
XtVaGetValues(AB_generic_chooser,
XmNuserData, &info,
NULL);
info->child = (Widget) NULL;
info->chooser_type = AB_OPEN_PROJ_CHOOSER;
ok_label = XmStringCreateLocalized(CATGETS(Dtb_project_catd, 100, 233, "Open"));
XtVaSetValues(AB_generic_chooser,
XmNautoUnmanage, FALSE,
XtVaTypedArg, XmNpattern,
XtRString, "*.bi[px]",
sizeof("*.bi[px]"),
XmNokLabelString, ok_label,
XmNokCallback, &ok_callback,
XmNcancelCallback, &cancel_callback,
XmNhelpCallback, &help_callback,
NULL);
XmStringFree(ok_label);
title = XtNewString(CATGETS(Dtb_project_catd, 100, 234, "Open Project"));
XtVaSetValues(XtParent(AB_generic_chooser),
XmNtitle, title,
XmNpopdownCallback, &popdown_callback,
NULL);
XtFree(title);
XtManageChild(AB_generic_chooser);
ui_win_front(AB_generic_chooser);
/* Set File and Project Organizer Project and Module menu
* items inactive, until this file chooser is dismissed.
*/
pal_set_File_menu(AB_OPEN_PROJ_CHOOSER, FALSE);
proj_set_menus(AB_OPEN_PROJ_CHOOSER, FALSE);
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_save_projCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
proj_save_needed(NULL);
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_show_save_proj_as_chooserCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
proj_show_save_proj_as_chooser(widget, NULL);
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_show_new_module_dlgCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
proj_show_name_dlg(NULL, dtb_get_toplevel_widget());
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_close_projCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
DTB_MODAL_ANSWER answer = DTB_ANSWER_NONE;
ABObj project = proj_get_project();
if (proj_check_unsaved_edits(project))
{
dtb_proj_close_proj_msg_initialize(&dtb_proj_close_proj_msg);
answer = dtb_show_modal_message(dtb_get_toplevel_widget(),
&dtb_proj_close_proj_msg, NULL, NULL, NULL);
switch (answer)
{
case DTB_ANSWER_ACTION1:
/* Set the mouse pointer to the stopwatch */
ab_set_busy_cursor(TRUE);
ui_sync_display_of_widget(AB_toplevel);
/* Go ahead and destroy the old project
* and create a new default project named
* "Untitled".
*/
proj_destroy_project(project);
/* Reset the mouse pointer. */
ab_set_busy_cursor(FALSE);
break;
case DTB_ANSWER_NONE:
case DTB_ANSWER_CANCEL:
break;
}
}
else
{
ab_set_busy_cursor(TRUE);
ui_sync_display_of_widget(AB_toplevel);
proj_destroy_project(project);
ab_set_busy_cursor(FALSE);
}
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
void
proj_show_import_chooserCB(
Widget widget,
XtPointer clientData,
XtPointer callData
)
{
/*** DTB_USER_CODE_START vvv Add C variables and code below vvv ***/
Widget import_rbox = NULL;
ChooserInfo info = NULL;
XmString ok_label;
char *title;
XtCallbackRec ok_callback[] = {
{(XtCallbackProc)proj_import_okCB, (XtPointer) NULL},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
XtCallbackRec cancel_callback[] = {
{(XtCallbackProc)proj_cancelCB, (XtPointer) NULL},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
XtCallbackRec popdown_callback[] = {
{(XtCallbackProc)proj_unmap_chooserCB, (XtPointer) NULL},
{(XtCallbackProc) NULL, (XtPointer) NULL}
};
/*** DTB_USER_CODE_END ^^^ Add C variables and code above ^^^ ***/
/*** DTB_USER_CODE_START vvv Add C code below vvv ***/
/* Create the file chooser if it hasn't already
* been created by anyone else, then set the
* appropriate resources.
*/
if (AB_generic_chooser == NULL)
{
AB_generic_chooser = XmCreateFileSelectionDialog(
widget,
"AB_generic_chooser",
(ArgList) NULL,
(Cardinal) 0);
info = (ChooserInfo)calloc(sizeof(ChooserInfoRec), 1);
XtVaSetValues(AB_generic_chooser,
XmNuserData, (XtPointer) info,
NULL);
}
else if (XtIsManaged(AB_generic_chooser))
{
ui_win_front(AB_generic_chooser);
return;
}
XtVaGetValues(AB_generic_chooser,
XmNuserData, &info,
NULL);
/* Create the Import by Reference/Copy exclusive choice */
import_rbox = create_import_rbox(AB_generic_chooser);
info->child = import_rbox;
info->chooser_type = AB_IMPORT_CHOOSER;
info->ImportAsBil = TRUE;
info->ImportByCopy = TRUE;
ok_label = XmStringCreateLocalized(CATGETS(Dtb_project_catd, 100, 235, "Import"));
XtVaSetValues(AB_generic_chooser,
XmNautoUnmanage, FALSE,
XtVaTypedArg, XmNpattern,
XtRString, "*.bil",
sizeof("*.bil"),
XmNokLabelString, ok_label,
XmNokCallback, &ok_callback,
XmNcancelCallback, &cancel_callback,
NULL);
XmStringFree(ok_label);
title = XtNewString(CATGETS(Dtb_project_catd, 100, 236, "Import File"));
XtVaSetValues(XtParent(AB_generic_chooser),
XmNtitle, title,
XmNpopdownCallback, &popdown_callback,
NULL);
XtFree(title);
XtManageChild(AB_generic_chooser);
ui_win_front(AB_generic_chooser);
/* Set File and Project Organizer Project and Module menu
* items inactive, until this file chooser is dismissed.
*/
pal_set_File_menu(AB_IMPORT_CHOOSER, FALSE);
proj_set_menus(AB_IMPORT_CHOOSER, FALSE);
/*** DTB_USER_CODE_END ^^^ Add C code above ^^^ ***/
}
/**************************************************************************
*** DTB_USER_CODE_START
***
*** All automatically-generated data and functions have been defined.
***
*** Add new functions here, or at the top of the file.
***/
static Boolean
name_proj_work_proc(
XtPointer clientData
)
{
proj_name_proj();
return True;
}
static void
exit_dtbuilder(int n)
{
struct sigaction exit_action;
struct sigaction ign_action;
ign_action.sa_handler = (void (*)())SIG_IGN;
ign_action.sa_flags = 0;
sigemptyset(&(ign_action.sa_mask));
/* While we're in the signal handler, ignore
* the following signals. We don't want them
* to queue up and then cause the "Unsaved
* edits" dialog to be posted repeatedly, after
* exiting the signal handler.
*/
sigaction(SIGINT, &ign_action, &exit_action);
sigaction(SIGHUP, &ign_action, &exit_action);
sigaction(SIGQUIT, &ign_action, &exit_action);
sigaction(SIGTERM, &ign_action, &exit_action);
ab_exit_dtbuilder();
/* Re-install the old signal handler (this function)
* after the user has responded to the "unsaved edits"
* dialog.
*/
sigaction(SIGINT, &exit_action, NULL);
sigaction(SIGHUP, &exit_action, NULL);
sigaction(SIGQUIT, &exit_action, NULL);
sigaction(SIGTERM, &exit_action, NULL);
}
static void
reloadDB(
XtPointer clientData
)
{
/* Read in the new databases */
DtDbLoad();
}
/*** DTB_USER_CODE_END
***
*** End of user code section
***
**************************************************************************/
Reference in New Issue View Git Blame Copy Permalink