comparison lwlib/lwlib-Xm.c @ 805:e5083672c894

[xemacs-hg @ 2002-04-05 10:37:30 by stephent] fix XmProcessTraversal crash <873cyatoxf.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 05 Apr 2002 10:37:31 +0000
parents 4b7d425dd3c2
children 4a27df428c73
comparison
equal deleted inserted replaced
804:aaf4e86e0a2d 805:e5083672c894
1296 1296
1297 /* this is the easiest way I found to have the double click in the 1297 /* this is the easiest way I found to have the double click in the
1298 list activate the default button */ 1298 list activate the default button */
1299 XtAddCallback (value, XmNdefaultActionCallback, activate_button, button); 1299 XtAddCallback (value, XmNdefaultActionCallback, activate_button, button);
1300 } 1300 }
1301 /* else add nothing; it's a separator */
1301 1302
1302 ac = 0; 1303 ac = 0;
1303 XtSetArg(al[ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++; 1304 XtSetArg(al[ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++;
1304 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++; 1305 XtSetArg(al[ac], XmNtopAttachment, XmATTACH_FORM); ac++;
1305 XtSetArg(al[ac], XmNtopOffset, 13); ac++; 1306 XtSetArg(al[ac], XmNtopOffset, 13); ac++;
1333 if (text_input_slot || list) 1334 if (text_input_slot || list)
1334 { 1335 {
1335 XtInstallAccelerators (value, button); 1336 XtInstallAccelerators (value, button);
1336 XmProcessTraversal(value, XmTRAVERSE_CURRENT); 1337 XmProcessTraversal(value, XmTRAVERSE_CURRENT);
1337 } 1338 }
1338 else 1339 else if (radio_box)
1339 { 1340 {
1340 XtInstallAccelerators (form, button); 1341 XtInstallAccelerators (form, button);
1341 XmProcessTraversal(value, XmTRAVERSE_CURRENT); 1342 XmProcessTraversal(value, XmTRAVERSE_CURRENT);
1342 } 1343 }
1344 /* else we don' need no STEENKIN' assellerators. */
1343 1345
1344 #ifdef DND_KLUDGE 1346 #ifdef DND_KLUDGE
1345 XtFree ((char *) dnd_override); 1347 XtFree ((char *) dnd_override);
1346 #endif 1348 #endif
1347 #undef DO_DND_KLUDGE 1349 #undef DO_DND_KLUDGE