CAS 6

---

 W←Wizard.New''
 W.Start''

 CASobjectLocation←WizGetInputs.New W
 CASobjectLocation.Title←'Select CAS Object Templates Location'

⍝ Each input must be on its own line using .AddInput
⍝ The second argument to AddInput is a variable name representing the button.
⍝ Variable names must conform to standard object naming convention.
⍝ Third is the displayed text.
 CASobjectLocation.AddInput'RadioButton' 'current' 'Current File'
 CASobjectLocation.AddInput'RadioButton' 'other' 'Other Source'

⍝ There is no default set radio button.  Must be done prior to Run
 CASobjectLocation.UserInput.current←1

⍝ Last, any wizard page must be initiated using the .Run method.
 CASobjectLocation.Run''

 useCurrent←CASobjectLocation.GetInputValue'current'

 W.End''

 ⍝ Only two options presented.  Therefore checking only one for a 1 is sufficient to move on.
 ⍝ This will get trickier with more options becuase all have to be tested until a true
 ⍝ value is found.
 :If useCurrent
     CasSession.MessageBox'Current'
 :Else
     CasSession.MessageBox'Other'
 :EndIf