I would also like to offer another suggestion for a workaround ( but please don't see this as dismissive to your request ). We work very hard here at Wilson WindowWare to listen to our user and resolve their issues quickly.
The workaround I would like to suggest is that you simply name your Radio button controls with the Value of the button.
#DefineFunction ExampleCallbackProc(Example_Handle,Example_Message,Example_Name,Example_EventInfo,Example_ChangeInfo)
InitDialogConstants() ; Initialize Dialog Constants
ON_EQUAL = @TRUE ; Initialize variable ON_EQUAL
switch Example_Message ; Switch based on Dialog Message type
case MSG_INIT ; Standard Initialization message
DialogProcOptions(Example_Handle,MSG_BUTTONPUSHED,@TRUE)
DialogProcOptions(Example_Handle,MSG_RADIOPUSHED,@TRUE)
return(RET_DO_DEFAULT)
case MSG_BUTTONPUSHED
if Example_Name == "PushButton_OK" ; OK
return(RET_DO_DEFAULT)
elseif Example_Name == "PushButton_Cancel" ; Cancel
return(RET_DO_CANCEL)
endif ; Example_Name
return(RET_DO_DEFAULT)
case MSG_RADIOPUSHED ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
radiovalue = Int(Example_Name)
Pause('radiovalue',radiovalue)
return(RET_DO_DEFAULT)
endswitch ; Example_Message
return(RET_DO_DEFAULT)
#EndFunction ; End of Dialog Callback ExampleCallbackProc
tunes = "My Shirona":@TAB:"In the Mood":@TAB:"Staying Alive":@TAB:"Rock Lobster":@TAB:"Tequila"
song="Yellow Submarine"
music=2 ;sets this radiobutton as default
volume=1 ;pre-selects checkbox.
ExampleFormat=`WWWDLGED,6.2`
ExampleCaption=`Music Selection`
ExampleX=120
ExampleY=050
ExampleWidth=128
ExampleHeight=137
ExampleNumControls=013
ExampleProcedure=`ExampleCallbackProc`
ExampleFont=`DEFAULT`
ExampleTextColor=`DEFAULT`
ExampleBackground=`DEFAULT,DEFAULT`
ExampleConfig=0
Example001=`009,117,050,014,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example002=`069,117,050,014,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example003=`085,075,036,016,RADIOBUTTON,"1",music,"Blues",1,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT` ;!!!!!!!!!!!!!!!!!!!!!!!!
Example004=`085,059,036,016,RADIOBUTTON,"2",music,"Jazz",2,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT` ;!!!!!!!!!!!!!!!!!!!!!!!!
Example005=`085,041,036,016,RADIOBUTTON,"3",music,"Rock",3,5,DEFAULT,DEFAULT,DEFAULT,DEFAULT` ;!!!!!!!!!!!!!!!!!!!!!!!!
Example006=`047,095,036,014,CHECKBOX,"CheckBox_LOUD!",volume,"LOUD!",1,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example007=`085,095,036,014,CHECKBOX,"CheckBox_Quiet",volume2,"Quiet",2,7,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example008=`009,095,036,014,STATICTEXT,"StaticText_VOLUME",DEFAULT,"VOLUME",DEFAULT,8,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example009=`007,005,110,014,STATICTEXT,"StaticText_2",DEFAULT,"What is your listening pleasure?",DEFAULT,9,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example010=`007,051,064,040,ITEMBOX,"ItemBox_1",tunes,DEFAULT,DEFAULT,10,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example011=`067,025,056,014,STATICTEXT,"StaticText_3",DEFAULT,"Type Preferred?",DEFAULT,11,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example012=`007,021,058,014,VARYTEXT,"VaryText_1",song,"Choose a title",DEFAULT,12,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
Example013=`007,037,062,014,EDITBOX,"EditBox_1",song,DEFAULT,DEFAULT,13,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("Example")
Pause(0,music)