projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(g2-C4-296A): Use `==ucs@iso' instead of `==ucs@unicode' for
[chise/xemacs-chise.git-]
/
lwlib
/
lwlib-Xaw.c
diff --git
a/lwlib/lwlib-Xaw.c
b/lwlib/lwlib-Xaw.c
index
a52b231
..
2fe4dc9
100644
(file)
--- a/
lwlib/lwlib-Xaw.c
+++ b/
lwlib/lwlib-Xaw.c
@@
-597,11
+597,14
@@
wm_delete_window (Widget shell, XtPointer closure, XtPointer call_data)
abort ();
XtSetArg (al [0], XtNchildren, &kids);
XtGetValues (shell, al, 1);
abort ();
XtSetArg (al [0], XtNchildren, &kids);
XtGetValues (shell, al, 1);
- if (!kids || !*kids)
- abort ();
- widget = kids [0];
- if (! XtIsSubclass (widget, dialogWidgetClass))
- abort ();
+ if (!kids || !*kids) abort ();
+
+ for (widget = *kids;
+ widget && ! XtIsSubclass (widget, dialogWidgetClass);
+ widget = *++kids)
+ ;
+ if (!widget) abort ();
+
id = lw_get_widget_id (widget);
if (! id) abort ();
id = lw_get_widget_id (widget);
if (! id) abort ();