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},