Use Windows.pkg
Use DFClient.pkg

Object oCodeSpyStatus is a ToolPanel
    Set Size to 52 387
    Set Locate_Mode to CENTER_ON_PARENT
    Set Label to "Parsing files..."

    Object oTxt1 is a TextBox
        Set Auto_Size_State to False
        Set Location to 5 5
        Set Size to 12 120
        Set Label to "Current File:"
    End_Object

    Object oTxt2 is a TextBox
        Set Auto_Size_State to False
        Set Location to 19 5
        Set Size to 13 375
        Set Border_Style to Border_StaticEdge
    End_Object

    Set Popup_State to True

    Procedure ShowInfo String sFile
        If (not(Active_State(Self))) ;
            Send Popup
        Set Label of (oTxt2(Self)) to sFile
    End_Procedure

End_Object