suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix problem with radio buttons under X11

Browse Source 
Closes PR 10951
 Marge to 5.0.1
This commit is contained in:
Matthew Flatt 2010-07-20 10:18:06 -06:00
parent 8dfe2a6a91
commit 167d048773
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/wxxt/src/XWidgets/xwGroup.c
View File

@ -155,12 +155,11 @@ static void off_cb(toggle,client_data,call_data)Widget toggle;XtPointer client
Cardinal bits = sizeof(((XfwfGroupWidget)self)->xfwfGroup.selection) * 8;
switch (((XfwfGroupWidget)self)->xfwfGroup.selectionStyle) {
case XfwfSingleSelection:
/* $selection = -1L; break; */ /* Allows nothing selected - disabled */
case XfwfOneSelection:
XtVaSetValues(toggle, XtNon, True, NULL); /* Undo */
break;
case XfwfSingleSelection:
((XfwfGroupWidget)self)->xfwfGroup.selection = -1L; /* Nothing selected */
break;
case XfwfMultipleSelection:
if (toggle_ord < bits) ((XfwfGroupWidget)self)->xfwfGroup.selection &= ~(1L << toggle_ord);
break;

5
src/wxxt/src/XWidgets/xwGroup.w
View File

@ -327,12 +327,11 @@ be turned off, except by turning on another one.
Cardinal bits = sizeof($selection) * 8;
switch ($selectionStyle) {
case XfwfSingleSelection:
/* $selection = -1L; break; */ /* Allows nothing selected - disabled */
case XfwfOneSelection:
XtVaSetValues(toggle, XtNon, True, NULL); /* Undo */
break;
case XfwfSingleSelection:
$selection = -1L; /* Nothing selected */
break;
case XfwfMultipleSelection:
if (toggle_ord < bits) $selection &= ~(1L << toggle_ord);
break;

1
src/wxxt/src/XWidgets/xwGroupP.h
View File

@ -5,7 +5,6 @@
#define ___XWGROUPP_H
#include <./xwRowColP.h>
#include <./xwGroup.h>
#include <stdint.h>
_XFUNCPROTOBEGIN
typedef struct {