Hello,

I have created sub classes of objects with a label, so they can be translated through a function at the moment they are created or set.
While most objects (forms, tabs buttons etc...) are working correctly, I have a problem with the Radio buttons which all appear blank without any label.

The code used is the same as other objects with a label property, which labels are returned correctly translated, but for all the radio buttons, all the labels are returned blank.
I saw from the debugger, that the argument used in that function, is already blank/empty at the moment of the function call, when it needs to do the translation.
For all other objects, the argument is correctly filled with the initial label

Is there something specific to the Radios that I am missing?
Below is the code for the RadioGroup (translating correctly its label) and the same code for the Radio Buttons which I was expecting to work, but it doesn't.
Any idea as to why this could happen and the Radios lose their labels on the way?
They don't have anything special either, they are set at design time and not changed or altered afterwards.


Thank you
Yannis

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

    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

    Procedure Set Label String sLabel
        Forward Set Label To (Xlate(sLabel))
    End_Procedure
End_Class //RadioSub
Thank you
Yannis