static int
choice_prop_load(
ABObjPtr obj,
AB_PROP_TYPE type,
unsigned long loadkey
)
{
PropChoiceSettingsRec *pcs = &(prop_choice_settings_rec[type]);
AB_CHOICE_TYPE ctype;
BOOL load_all = (loadkey & LoadAll);
if (obj == NULL)
{
if (pcs->current_obj != NULL)
obj = pcs->current_obj;
else
return ERROR;
}
else if (!obj_is_choice(obj))
return ERROR;
else
pcs->current_obj = obj;
/* Load Name */
if (load_all || loadkey & LoadName)
prop_field_set_value(&(pcs->name), obj_get_name(obj), False);
if (load_all)
{
/* Load Label Type/Position */
prop_options_set_value(&(pcs->label_type), (XtPointer)obj->label_type, False);
prop_options_set_value(&(pcs->label_pos), (XtPointer)obj_get_label_position(obj), False);
/* Load Label */
prop_setup_label_field(&(pcs->label), NULL,
obj->label_type, obj_get_label(obj), AB_LINE_UNDEF);
/* Load Choice Type */
ctype = obj_get_choice_type(obj);
prop_options_set_value(&(pcs->choice_type), (XtPointer)ctype, False);
setup_type_settings(type, ctype);
/* Load Row/Column*/
prop_radiobox_set_value(&(pcs->row_col), (XtPointer)obj_get_orientation(obj), False);
prop_field_set_numeric_value(&(pcs->row_col_count), obj_get_num_columns(obj), False);
/* Load Initial State */
prop_checkbox_set_value(&(pcs->init_state), AB_STATE_VISIBLE,
obj_is_initially_visible(obj), False);
prop_checkbox_set_value(&(pcs->init_state), AB_STATE_ACTIVE,
obj_is_initially_active(obj), False);
/* Load Color */
prop_colorfield_set_value(&(pcs->bg_color), obj_get_bg_color(obj), False);
prop_colorfield_set_value(&(pcs->fg_color), obj_get_fg_color(obj), False);
/* Load Choice Items */
prop_item_editor_load(&(pcs->items), obj);
turnoff_changebars(type);
}
/* Load Position */
if (load_all || loadkey & LoadPosition)
prop_load_obj_position(obj, &(pcs->pos));
return OK;
}
static int
scale_prop_load(
ABObjPtr obj,
AB_PROP_TYPE type,
unsigned long loadkey
)
{
PropScaleSettingsRec *pss = &(prop_scale_settings_rec[type]);
AB_ORIENTATION orient;
BOOL load_all = (loadkey & LoadAll);
if (obj == NULL)
{
if (pss->current_obj != NULL)
obj = pss->current_obj;
else
return ERROR;
}
else if (!obj_is_scale(obj))
return ERROR;
else
pss->current_obj = obj;
/* Load Name */
if (load_all || loadkey & LoadName)
prop_field_set_value(&(pss->name), obj_get_name(obj), False);
if (load_all)
{
/* Load Label Type/Position */
prop_options_set_value(&(pss->label_type), (XtPointer)obj->label_type, False);
prop_options_set_value(&(pss->label_pos), (XtPointer)obj_get_label_position(obj), False);
/* Load Label */
prop_setup_label_field(&(pss->label), NULL,
obj->label_type, obj_get_label(obj), AB_LINE_UNDEF);
/* Load Scale Type */
prop_radiobox_set_value(&(pss->scale_type),
(XtPointer)obj_get_read_only(obj), False);
/* Load Orientation */
orient = obj_get_orientation(obj);
prop_radiobox_set_value(&(pss->orient), (XtPointer)orient, False);
setup_direction_setting(type, orient);
/* Load Direction */
prop_options_set_value(&(pss->dir), (XtPointer)obj_get_direction(obj), False);
/* Load Value Range */
prop_field_set_numeric_value(&(pss->min), obj_get_min_value(obj), False);
prop_field_set_numeric_value(&(pss->max), obj_get_max_value(obj), False);
prop_field_set_numeric_value(&(pss->incr), obj_get_increment(obj), False);
/* Load Decimal Points */
prop_field_set_numeric_value(&(pss->decimal),
obj_get_decimal_points(obj), False);
/* Load Initial Value/Show Value */
prop_field_set_numeric_value(&(pss->ivalue),
obj_get_initial_value_int(obj), False);
prop_checkbox_set_value(&(pss->show_value), SHOW_VALUE_KEY,
obj_get_show_value(obj), False);
/* Load Initial State */
prop_checkbox_set_value(&(pss->init_state), AB_STATE_VISIBLE,
obj_is_initially_visible(obj), False);
prop_checkbox_set_value(&(pss->init_state), AB_STATE_ACTIVE,
obj_is_initially_active(obj), False);
/* Load Color */
prop_colorfield_set_value(&(pss->bg_color), obj_get_bg_color(obj), False);
prop_colorfield_set_value(&(pss->fg_color), obj_get_fg_color(obj), False);
turnoff_changebars(type);
}
/* Load Geometry */
if (load_all || loadkey & LoadPosition)
prop_load_obj_position(obj, &(pss->geometry));
if (load_all || loadkey & LoadSize)
prop_load_obj_size(obj, &(pss->geometry));
return OK;
}
/*
* Write main() for the given project.
*/
static int
write_main(GenCodeInfo genCodeInfo, ABObj project)
{
int returnValue = 0;
File codeFile = genCodeInfo->code_file;
ABObj window = NULL;
int initialized = FALSE;
ABObj main_window= NULL;
AB_TRAVERSAL trav;
BOOL mainWindowHasIcon = FALSE;
abmfP_gencode_enter_func(genCodeInfo);
main_window = abmfP_get_root_window(project);
if (main_window != NULL)
{
mfobj_set_flags(main_window, CGenFlagTreatAsAppShell);
}
mainWindowHasIcon =
( (main_window != NULL)
&& ( (obj_get_icon(main_window) != NULL)
|| (obj_get_icon_mask(main_window) != NULL)) );
abio_puts(codeFile, "\n\n");
abio_puts(codeFile, abmfP_comment_begin);
abio_puts(codeFile, abmfP_comment_continue);
abio_printf(codeFile, "main for application %s\n",
obj_get_name(project));
abio_puts(codeFile, abmfP_comment_end);
/*
* Write func declaration.
*/
abio_puts(codeFile, "int\n");
if (genCodeInfo->prototype_funcs)
{
abio_puts(codeFile, "main(int argc, char **argv)\n");
}
else
{
abio_puts(codeFile, "main(argc, argv)\n");
abio_indent(codeFile);
abio_puts(codeFile, "int\t\targc;\n");
abio_puts(codeFile, "char\t\t**argv;\n");
abio_outdent(codeFile);
}
abio_puts(codeFile, "{\n");
abio_set_indent(codeFile, 1);
/*
* Local variables
*/
abio_puts(codeFile, "Widget\t\ttoplevel = (Widget)NULL;\n");
abio_puts(codeFile, "Display\t\t*display = (Display*)NULL;\n");
abio_puts(codeFile, "XtAppContext\tapp = (XtAppContext)NULL;\n");
abio_puts(codeFile, "String\t\t*fallback_resources = (String*)NULL;\n");
abio_puts(codeFile, "ArgList\t\tinit_args = (ArgList)NULL;\n");
abio_puts(codeFile, "Cardinal\t\tnum_init_args = (Cardinal)0;\n");
abio_puts(codeFile, "ArgList\t\tget_resources_args = (ArgList)NULL;\n");
abio_puts(codeFile, "Cardinal\t\tnum_get_resources_args = (Cardinal)0;\n");
abio_puts(codeFile, "Atom\t\tsave_yourself_atom = (Atom)NULL;\n");
write_main_i18n_local_vars(genCodeInfo, project);
write_main_tooltalk_local_vars(genCodeInfo, project);
abio_puts(codeFile, nlstr);
if (mainWindowHasIcon)
{
abmfP_icon_pixmap_var(genCodeInfo) = istr_const("icon_pixmap");
abmfP_icon_mask_pixmap_var(genCodeInfo) =
istr_const("icon_mask_pixmap");
abio_puts(codeFile, "Pixmap\ticon_pixmap = NULL;\n");
abio_puts(codeFile, "Pixmap\ticon_mask_pixmap = NULL;\n");
}
abmfP_write_user_long_seg(genCodeInfo,
" No initialization has been done.\n"
" ***\n"
" *** Add local variables and code."
);
if (genCodeInfo->i18n_method == ABMF_I18N_XPG4_API)
write_main_xt_i18n(genCodeInfo, project);
/*
* Create a parent shell for every other shell and don't realize it. This
* way, we can be consistent with our hierarchy.
*/
abio_printf(codeFile,"toplevel = XtAppInitialize(&app, \"%s\",\n",
abmfP_capitalize_first_char(obj_get_name(project)));
abio_indent(codeFile);
abio_puts(codeFile, "optionDescList, XtNumber(optionDescList),\n");
abio_puts(codeFile, "&argc, argv, fallback_resources,\n");
abio_puts(codeFile, "init_args, num_init_args);\n\n");
abio_outdent(codeFile);
abmfP_write_c_comment(genCodeInfo, FALSE,
"Get display and verify initialization was successful.");
abio_puts(codeFile, "if (toplevel != NULL)\n");
abmfP_write_c_block_begin(genCodeInfo);
abio_puts(codeFile, "display = XtDisplayOfObject(toplevel);\n");
abmfP_write_c_block_end(genCodeInfo);
if (genCodeInfo->i18n_method == ABMF_I18N_XPG4_API)
write_main_msg_i18n(genCodeInfo, project);
abio_puts(codeFile, "if (display == NULL)\n");
abmfP_write_c_block_begin(genCodeInfo);
abio_puts(codeFile, "fprintf(stderr, \"Could not open display.\");\n");
abio_puts(codeFile, "exit(1);\n");
abmfP_write_c_block_end(genCodeInfo);
/* Save the toplevel widget so it can be fetched later as needed */
abio_puts(codeFile,"\n");
abmfP_write_c_comment(genCodeInfo, FALSE,
"Save the toplevel widget so it can be fetched later as needed.");
abio_puts(codeFile, "dtb_save_toplevel_widget(toplevel);\n");
/* Save the command used to invoke the application */
abio_puts(codeFile,"\n");
abmfP_write_c_comment(genCodeInfo, FALSE,
"Save the command used to invoke the application.");
abio_puts(codeFile, "dtb_save_command(argv[0]);\n");
/*
* Get application resources
*/
abio_puts(codeFile,"\n");
abio_puts(codeFile, "XtGetApplicationResources(toplevel, (XtPointer)&dtb_app_resource_rec,\n");
abio_indent(codeFile);
abio_puts(codeFile, "resources, XtNumber(resources),\n");
abio_puts(codeFile, "get_resources_args, num_get_resources_args);\n");
abio_outdent(codeFile);
abio_puts(codeFile, nlstr);
/*
* User segment after initialization
*/
abmfP_write_user_long_seg(genCodeInfo,
" A connection to the X server has been established, and all\n"
" *** initialization has been done.\n"
" ***\n"
" *** Add extra initialization code after this comment."
);
/*
* Call session restore callback (if needed)
*/
write_main_session_restore(genCodeInfo, project);
/*
* Initialize all global variables
*/
abio_puts(codeFile, nlstr);
abmfP_write_c_comment(genCodeInfo, FALSE,
"Initialize all global variables.");
for (trav_open(&trav, project, AB_TRAV_SALIENT_UI);
(window= trav_next(&trav)) != NULL; )
{
if (!obj_is_defined(window))
{
continue;
}
if (obj_is_message(window))
{
abio_printf(codeFile, "%s(&%s);\n",
abmfP_get_msg_clear_proc_name(window),
abmfP_get_c_struct_global_name(window));
}
else if (obj_is_window(window))
{
abio_printf(codeFile, "%s(&%s);\n",
abmfP_get_clear_proc_name(window),
abmfP_get_c_struct_global_name(window));
}
}
trav_close(&trav);
abio_puts(codeFile, "\n");
if (main_window != NULL)
{
abmfP_write_c_comment(genCodeInfo, FALSE,
"Set up the application's root window.");
abio_printf(codeFile, "%s = toplevel;\n",
abmfP_get_c_name_global(main_window));
if (obj_get_icon(main_window) != NULL)
{
abio_printf(codeFile, "%s(%s,\n",
abmfP_lib_cvt_image_file_to_pixmap->name,
abmfP_get_c_name_global(main_window));
abio_indent(codeFile);
abio_put_string(codeFile, obj_get_icon(main_window));
abio_printf(codeFile, ", &%s);\n",
istr_string(abmfP_icon_pixmap_var(genCodeInfo)));
abio_outdent(codeFile);
abmfP_icon_pixmap_var_has_value(genCodeInfo) = TRUE;
}
if (obj_get_icon_mask(main_window) != NULL)
{
abio_printf(codeFile, "%s(%s,\n",
abmfP_lib_cvt_image_file_to_pixmap->name,
abmfP_get_c_name_global(main_window));
abio_indent(codeFile);
abio_put_string(codeFile, obj_get_icon_mask(main_window));
abio_printf(codeFile, ", &%s);\n",
istr_string(abmfP_icon_mask_pixmap_var(genCodeInfo)));
abio_outdent(codeFile);
abmfP_icon_mask_pixmap_var_has_value(genCodeInfo) = TRUE;
}
if (abmfP_get_num_args_of_classes(main_window, ABMF_ARGCLASS_ALL) > 0)
{
abmfP_xt_va_list_open_setvalues(genCodeInfo, main_window);
abmfP_obj_spew_args(genCodeInfo,
main_window, ABMF_ARGCLASS_ALL, ABMF_ARGFMT_VA_LIST);
if (!obj_get_resizable(main_window))
{
abio_printf(codeFile,
"XmNmwmDecorations, MWM_DECOR_ALL | MWM_DECOR_RESIZEH,\n");
abio_printf(codeFile,
"XmNmwmFunctions, MWM_FUNC_ALL | MWM_FUNC_RESIZE,\n");
}
abmfP_xt_va_list_close(genCodeInfo);
}
}
abio_puts(codeFile, nlstr);
if ((main_window != NULL) && (obj_is_initially_visible(main_window)))
{
/* ApplicationShell doesn't require "show" action for mapping */
write_map_window(genCodeInfo, main_window, False);
}
/*
* Display any initially mapped windows
*/
abio_puts(codeFile, nlstr);
abmfP_write_c_comment(genCodeInfo, FALSE,
"Map any initially-visible windows");
for (trav_open(&trav, project, AB_TRAV_WINDOWS);
(window = trav_next(&trav)) != NULL;)
{
if ( (window != main_window) &&
(obj_is_initially_visible(window)) &&
obj_is_defined(window)
)
{
write_map_window(genCodeInfo, window, True);
}
}
trav_close(&trav);
/*
* Get WM_SAVE_YOURSELF atom
*/
abio_puts(codeFile, "\n");
abio_puts(codeFile, "save_yourself_atom = XmInternAtom(XtDisplay(toplevel),\n");
abio_puts(codeFile, "\t\"WM_SAVE_YOURSELF\", False);\n");
/*
* Register callback for WM_SAVE_YOURSELF
*/
write_main_register_save_yourself(genCodeInfo, project, "save_yourself_atom");
/*
* User seg before realize
*/
abmfP_write_user_long_seg(genCodeInfo,
" All initially-mapped widgets have been created, but not\n"
" *** realized. Set resources on widgets, or perform other operations\n"
" *** that must be completed before the toplevel widget is\n"
" *** realized."
);
/*
* Realize the widget hierarchy
*/
abio_puts(codeFile, "XtRealizeWidget(toplevel);\n\n");
/*
* Write ToolTalk Initialization if needed
*/
write_main_tooltalk_init(genCodeInfo, project);
/*
* User seg before event loop
*/
abmfP_write_user_long_seg(genCodeInfo,
" The initially-mapped widgets have all been realized, and\n"
" *** the Xt main loop is about to be entered."
);
abio_puts(codeFile, nlstr);
abmfP_write_c_comment(genCodeInfo, FALSE, "Enter event loop");
abio_puts(codeFile, "XtAppMainLoop(app);\n");
/*
* Write func footer.
*/
abio_printf(codeFile, "return 0;\n");
abio_set_indent(codeFile, 0);
abio_puts(codeFile, "}\n\n");
abmfP_gencode_exit_func(genCodeInfo);
return returnValue;
}
static int
custdlg_prop_load(
ABObj obj,
AB_PROP_TYPE type,
unsigned long loadkey
)
{
ABObj area;
PropCustdlgSettingsRec *pcs = &(prop_custdlg_settings_rec[type]);
BOOL load_all = (loadkey & LoadAll);
if (obj == NULL)
{
if (pcs->current_obj != NULL)
obj = pcs->current_obj;
else
return ERROR;
}
else if (!obj_is_popup_win(obj))
return ERROR;
else
pcs->current_obj = obj;
/* Load Name */
if (load_all || loadkey & LoadName)
prop_field_set_value(&(pcs->name), obj_get_name(obj), False);
if (load_all)
{
/* Load Window Parent */
prop_obj_options_load(&(pcs->win_parent), proj_get_project());
prop_obj_options_set_value(&(pcs->win_parent),
obj_get_win_parent(obj), False);
/* Load Title */
prop_field_set_value(&(pcs->title), obj_get_label(obj), False);
/* Load Resize Mode */
prop_radiobox_set_value(&(pcs->resize_mode),
(XtPointer)obj_get_resizable(obj), False);
/* Load Window Areas */
area = objxm_comp_custdlg_get_area(obj, AB_CONT_BUTTON_PANEL);
prop_checkbox_set_value(&(pcs->areas), AB_CONT_BUTTON_PANEL,
area != NULL, False);
area = objxm_comp_custdlg_get_area(obj, AB_CONT_FOOTER);
prop_checkbox_set_value(&(pcs->areas), AB_CONT_FOOTER,
area != NULL, False);
/* Load Default Button */
prop_obj_options_load(&(pcs->default_but),
objxm_comp_custdlg_get_area(obj, AB_CONT_BUTTON_PANEL));
prop_obj_options_set_value(&(pcs->default_but),
obj_get_default_act_button(obj), False);
/* Load Help Button */
prop_obj_options_load(&(pcs->help_but),
objxm_comp_custdlg_get_area(obj, AB_CONT_BUTTON_PANEL));
prop_obj_options_set_value(&(pcs->help_but),
obj_get_help_act_button(obj), False);
/* Load Size Policy */
prop_radiobox_set_value(&(pcs->size_policy),
abobj_width_resizable(obj)?
(XtPointer)SIZE_FIXED_KEY :
(XtPointer)SIZE_OF_CONTENTS_KEY, False);
/* Load Initial State */
prop_checkbox_set_value(&(pcs->init_state), AB_STATE_VISIBLE,
obj_is_initially_visible(obj), False);
/* Load Color */
prop_colorfield_set_value(&(pcs->bg_color), obj_get_bg_color(obj), False);
prop_colorfield_set_value(&(pcs->fg_color), obj_get_fg_color(obj), False);
turnoff_changebars(type);
}
/* Load Size */
if (load_all || loadkey & LoadSize)
prop_load_obj_size(obj, &(pcs->geometry));
return OK;
}