Add Workspace Parameter: Difference between revisions

m
Use RefClass instead of the legacy U_ notation
mNo edit summary
m (Use RefClass instead of the legacy U_ notation)
 
Line 8: Line 8:
     String sWorkspaceWSFile  
     String sWorkspaceWSFile  
     Handle hoWorkspace hoIniFile
     Handle hoWorkspace hoIniFile
     Move (phoWorkSpace(ghoApplication)) to hoWorkspace
     Move (phoWorkSpace(ghoApplication)) to hoWorkspace
     Get psWorkspaceWSFile of hoWorkspace to sWorkspaceWSFile  
     Get psWorkspaceWSFile of hoWorkspace to sWorkspaceWSFile  
     Get Create U_cIniFile to hoIniFile
     Get Create (RefClass(cIniFile)) to hoIniFile
     Set psFilename of hoIniFile to sWorkspaceWSFile  
     If (hoIniFile) Begin
    Get ReadString of hoIniFile 'Workspace' sKey ' ' to sValue
        Set psFilename of hoIniFile to sWorkspaceWSFile  
    Send Destroy of hoIniFile  
        Get ReadString of hoIniFile 'Workspace' sKey ' ' to sValue
        Send Destroy of hoIniFile  
    End
     Function_Return sValue
     Function_Return sValue
  End_Function
  End_Function
Line 24: Line 27:
</source>
</source>


Add a new DocsFolder option to the .ws file like so:
<source lang="ini">
<source lang="ini">
  //The .ws file may look like this:
  //The .ws file may look like this: