xradiobutton action with procedure string output

[Konstano]

Hello,

I have a peace of a code that does not work normally.
Here it is:

Code: Select all

strdef procAstr, procBstr, procCstr, procDstr, modelm_one, modelm_two, modelm_three

sprint(modelm_one, "modelmode(%d)", 0)
sprint(modelm_two, "modelmode(%d)", 1)
sprint(modelm_three, "modelmode(%d)", 2)

proc procA() {
}

proc procB() {
}

proc procC() {
}

proc procD() {
}

proc modelmode() {local mmode
   mmode=$1
   sprint(procAstr, "procA(%d)", mmode)
   sprint(procBstr, "procB(%d)", mmode)
   sprint(procCstr, "procC(%d)", mmode)
   sprint(procDstr, "procD(%d)", mmode)
}

xpanel("")
   xlabel("")
   xradiobutton("a", modelm_one)
   xradiobutton("b", modelm_two)
   xradiobutton("c", modelm_three)

   xlabel("")
   xradiobutton("A", procAstr)
   xradiobutton("B", procBstr)
   xradiobutton("C", procCstr)
   xradiobutton("D", procDstr)   
xpanel()

My problem is if I press xradiobutton "a" procedure modelmode() works fine and procAstr=procA($1), however radiobuttons "A", "B", "C" or "D" do not activate procedures procA(), procB() and so on. I have an idea that output of proc is in format that I can not use as the action to execute. But I can not find any other solution to make code simple.

[ted]

On the contrary, it works quite normally. When hoc parses the code and sets up the xpanel,
procAstr is empty. It doesn't matter what you do to procAstr after that--the radiobutton's
action has already been specified--"do nothing."

[Konstano]

Thank you!
Stupid me.
Before your reply I rewrote it in a different way:

Code: Select all

proc modelmode() {local mmode
   mmode=$1
   sprint(procAstr, "procA(%d)", mmode)
   sprint(procBstr, "procB(%d)", mmode)
   sprint(procCstr, "procC(%d)", mmode)
   sprint(procDstr, "procD(%d)", mmode)

   xlabel("")
   xradiobutton("A", procAstr)
   xradiobutton("B", procBstr)
   xradiobutton("C", procCstr)
   xradiobutton("D", procDstr)   
}

xpanel("")
   xlabel("")
   xradiobutton("a", modelm_one)
   xradiobutton("b", modelm_two)
   xradiobutton("c", modelm_three)
xpanel()


But now I can return to the previous version and just define procAstr in the beginning.