Use Windows.pkg
Use SourceCode.inc  

Class cRefactorTextbox is a TextBox

    Procedure Construct_Object
        Forward Send Construct_Object
        Property Handle phoCheckbox

        Set Auto_Size_State to False
        Set TextColor to clGreenGrey
    End_Procedure

    Procedure End_Construct_Object
        Forward Send End_Construct_Object

    End_Procedure

    Procedure Mouse_Down Integer iWindowNumber Integer iPosition
        Handle hoCheckbox

        Forward Send Mouse_Down iWindowNumber iPosition
        Get phoCheckbox to hoCheckbox
        If (hoCheckbox <> 0) Begin
            Send DoToggle of hoCheckbox
        End
    End_Procedure

End_Class