Hi Yannis,
I've been there.
Code:
Class RadiogroupSub Is A Radiogroup
Procedure End_Construct_Object
Forward Send End_Construct_Object
Set Label to (Xlate(Label(Self)))
End_Procedure //Construct_Object
{WebProperty=Client} // This enables the 'designer' to show labels. Otherwise labels won't be rendered
Procedure Set Label String sLabel
Forward Set Label To (Xlate(sLabel))
End_Procedure
End_Class //RadiogroupSub
Class RadioSub is a Radio
Procedure End_Construct_Object
Forward Send End_Construct_Object
Set Label to (Xlate(Label(Self)))
End_Procedure //Construct_Object
{WebProperty=Client} // This enables the 'designer' to show labels. Otherwise labels won't be rendered
Procedure Set Label String sLabel
Forward Set Label To (Xlate(sLabel))
End_Procedure
End_Class //RadioSub
-Sture