// f_DefaultWorkspacePath.pkg
// --------------------------

Use Windows.Pkg
Use cRegistry.Pkg

// Returns the default path for vdf project workspaces. The returned path is stripped of any
// trailing '\' characters.
Function DefaultWorkspacePath Global Returns String
    String sFolder
    Handle hoRegistry
    Boolean bOpened bValueExists
           
    Get Create U_cRegistry To hoRegistry
    If (hoRegistry > 0) Begin
        Get OpenKey of hoRegistry ("SOFTWARE\Data Access Worldwide\Visual DataFlex Tools\" + SysConf (SYSCONF_DATAFLEX_REV) + "\Studio\Workspaces") To bOpened
        If (bOpened) Begin
            Get ValueExists Of hoRegistry "LastWorkspaceFolder" To bValueExists
            If (bValueExists) Begin
                Get ReadString of hoRegistry "LastWorkspaceFolder" To sFolder
            End
            Send CloseKey Of hoRegistry
        End    
        Send Destroy Of hoRegistry
    End
    
    Move (Trim (sFolder)) To sFolder
    If (sFolder = "") Begin
        // Default to c:\Visual DataFlex Projects....
        Move "c:\Visual DataFlex Projects" To sFolder
    End
	
	If (Right (sFolder, 1) = "\") Begin
        Move (Left (sFolder, Length (sFolder) - 1)) To sFolder
    End
    
    Function_Return sFolder
End_Function // DefaultWorkspacePath