Mercurial > emacs
comparison lwlib/lwlib-Xm.c @ 8784:0166e4ab659a
*** empty log message ***
author | Paul Reilly <pmr@pajato.com> |
---|---|
date | Fri, 16 Sep 1994 17:37:03 +0000 |
parents | 93bb7e0935ba |
children | b62d47fc7fc2 |
comparison
equal
deleted
inserted
replaced
8783:226c214398a6 | 8784:0166e4ab659a |
---|---|
35 #include <Xm/CascadeB.h> | 35 #include <Xm/CascadeB.h> |
36 #include <Xm/DrawingA.h> | 36 #include <Xm/DrawingA.h> |
37 #include <Xm/FileSB.h> | 37 #include <Xm/FileSB.h> |
38 #include <Xm/Label.h> | 38 #include <Xm/Label.h> |
39 #include <Xm/List.h> | 39 #include <Xm/List.h> |
40 #include <Xm/MainW.h> | |
40 #include <Xm/MenuShell.h> | 41 #include <Xm/MenuShell.h> |
41 #include <Xm/MessageB.h> | 42 #include <Xm/MessageB.h> |
43 #include <Xm/PanedW.h> | |
42 #include <Xm/PushB.h> | 44 #include <Xm/PushB.h> |
43 #include <Xm/PushBG.h> | 45 #include <Xm/PushBG.h> |
44 #include <Xm/ArrowB.h> | 46 #include <Xm/ArrowB.h> |
45 #include <Xm/SelectioB.h> | 47 #include <Xm/SelectioB.h> |
46 #include <Xm/Text.h> | 48 #include <Xm/Text.h> |
82 make_destroyed_instance (char* name, char* type, Widget widget, Widget parent, | 84 make_destroyed_instance (char* name, char* type, Widget widget, Widget parent, |
83 Boolean pop_up_p) | 85 Boolean pop_up_p) |
84 { | 86 { |
85 destroyed_instance* instance = | 87 destroyed_instance* instance = |
86 (destroyed_instance*)malloc (sizeof (destroyed_instance)); | 88 (destroyed_instance*)malloc (sizeof (destroyed_instance)); |
87 instance->name = strdup (name); | 89 instance->name = safe_strdup (name); |
88 instance->type = strdup (type); | 90 instance->type = safe_strdup (type); |
89 instance->widget = widget; | 91 instance->widget = widget; |
90 instance->parent = parent; | 92 instance->parent = parent; |
91 instance->pop_up_p = pop_up_p; | 93 instance->pop_up_p = pop_up_p; |
92 instance->next = NULL; | 94 instance->next = NULL; |
93 return instance; | 95 return instance; |
633 XtVaGetValues (toggle, XmNset, &set, 0); | 635 XtVaGetValues (toggle, XmNset, &set, 0); |
634 if (set) | 636 if (set) |
635 { | 637 { |
636 if (val->value) | 638 if (val->value) |
637 free (val->value); | 639 free (val->value); |
638 val->value = strdup (XtName (toggle)); | 640 val->value = safe_strdup (XtName (toggle)); |
639 } | 641 } |
640 } | 642 } |
641 val->edited = True; | 643 val->edited = True; |
642 } | 644 } |
643 } | 645 } |
657 i += 1; | 659 i += 1; |
658 for (j = 0; j < pos_cnt; j++) | 660 for (j = 0; j < pos_cnt; j++) |
659 if (pos_list [j] == i) | 661 if (pos_list [j] == i) |
660 { | 662 { |
661 cur->selected = True; | 663 cur->selected = True; |
662 val->value = strdup (cur->name); | 664 val->value = safe_strdup (cur->name); |
663 } | 665 } |
664 } | 666 } |
665 val->edited = 1; | 667 val->edited = 1; |
666 XtFree ((char *) pos_list); | 668 XtFree ((char *) pos_list); |
667 } | 669 } |
1150 XtAddCallback (XtParent (result), XmNpopdownCallback, remove_grabs, | 1152 XtAddCallback (XtParent (result), XmNpopdownCallback, remove_grabs, |
1151 (XtPointer)result); | 1153 (XtPointer)result); |
1152 parent->core.window = parent_window; | 1154 parent->core.window = parent_window; |
1153 return result; | 1155 return result; |
1154 } | 1156 } |
1157 static Widget | |
1158 make_main (widget_instance* instance) | |
1159 { | |
1160 Widget parent = instance->parent; | |
1161 Widget result; | |
1162 Arg al[2]; | |
1163 int ac; | |
1164 | |
1165 ac = 0; | |
1166 XtSetArg (al[ac], XtNborderWidth, 0); ac++; | |
1167 XtSetArg (al[ac], XmNspacing, 0); ac++; | |
1168 result = XmCreateMainWindow (parent, instance->info->name, al, ac); | |
1169 return result; | |
1170 } | |
1155 | 1171 |
1156 /* Table of functions to create widgets */ | 1172 /* Table of functions to create widgets */ |
1157 | 1173 |
1158 #ifdef ENERGIZE | 1174 #ifdef ENERGIZE |
1159 | 1175 |
1258 widget_creation_entry | 1274 widget_creation_entry |
1259 xm_creation_table [] = | 1275 xm_creation_table [] = |
1260 { | 1276 { |
1261 {"menubar", make_menubar}, | 1277 {"menubar", make_menubar}, |
1262 {"popup", make_popup_menu}, | 1278 {"popup", make_popup_menu}, |
1279 {"main", make_main}, | |
1263 #ifdef ENERGIZE | 1280 #ifdef ENERGIZE |
1264 {"project_p_sheet", make_project_p_sheet}, | 1281 {"project_p_sheet", make_project_p_sheet}, |
1265 {"debugger_p_sheet", make_debugger_p_sheet}, | 1282 {"debugger_p_sheet", make_debugger_p_sheet}, |
1266 {"breaklist_psheet", make_breaklist_p_sheet}, | 1283 {"breaklist_psheet", make_breaklist_p_sheet}, |
1267 {"leb_psheet", make_le_browser_p_sheet}, | 1284 {"leb_psheet", make_le_browser_p_sheet}, |