//---------------------------------------------------------------------------------->
//*** Procedure: CreateWorkspace
//*** Purpose  : Create the workspace object since we need it to open the
//***            import data file
//---------------------------------------------------------------------------------->

#IF (FMAC_VERSION < |CI12)
Use cWorkspace.pkg
#ELSE
Use cApplication.pkg
#ENDIF

Class cImportApplication is a cApplication
    Procedure Construct_Object
        Forward Send Construct_Object
        Property String psAppWorkspace ""
    End_Procedure
    Procedure OnCreate
        Handle hoWorkspace
        Send DoOpenWorkspace (psAppWorkspace(Self))
    	Set psAutoOpenWorkspace to (psAppWorkspace(Self))
        Forward Send OnCreate
    End_Procedure
End_Class

Procedure CreateWorkspace for Desktop String sWSName
    Local Integer hoWS
    Local Integer eWSOpen

    //*** Setup environment
    #IF (FMAC_VERSION < |CI8)
        Object oWorkspace Is A Workspace
            Set WorkspaceName To sWSName
            Move Current_object To hoWS
        End_Object // oWorkspace

    #ELSEIF (FMAC_VERSION < |CI12)
        Object oWorkspace Is A cWorkspace
            Move Current_object To hoWS
        End_Object // oWorkspace

        Get OpenWorkspace Of hoWs sWSName To eWSOpen
    #ELSE
        Object oApplication is a cImportApplication
            Set psAppWorkspace to sWSName
        End_Object    // oApplication
    #ENDIF

End_Procedure // ProcessWorkspace