home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / filerexx / fr-rexxstrings.dfn < prev    next >
Text File  |  1995-02-27  |  3KB  |  37 lines
  1.  
  2. /** Open New File **/
  3. ExecARexxString "OPTIONS RESULTS; GetFilePath; ADDRESS FILEREXX; 'GetFile TITLE=*"Load File...*" FILE='||Result; ADDRESS; IF Result~='' THEN 'OpenFile' Result"
  4.  
  5. /** Open Window + New File **/
  6. ExecARexxString "OPTIONS RESULTS; GetFilePath; name=Result; OpenDoc; GetPort '""'; ADDRESS (Result); ADDRESS FILEREXX; 'GetFile TITLE=*"Open File...*" FILE='||name; ADDRESS; IF Result~='' THEN 'OpenFile' Result"
  7.  
  8. /** Insert File **/
  9. ExecARexxString "OPTIONS RESULTS; GetFilePath; ADDRESS FILEREXX; 'GetFile TITLE=*"Select File to insert...*" FILE='||Result; ADDRESS; IF Result~='' THEN DO; 'OpenClip' Result; IF RC = 0 THEN 'PasteClip'; END"
  10.  
  11. /** Save File **/
  12. ExecARexxString "OPTIONS RESULTS; GetFilePath; IF (RIGHT(Result,LENGTH(Result)-(LASTPOS('/',Result))))='' THEN DO; ADDRESS FILEREXX; 'GetFileSave'; ADDRESS; IF Result~='' THEN 'SetFilePath' Result; END; 'SaveFile'"
  13.  
  14. /** Save File As **/
  15. ExecARexxString "OPTIONS RESULTS; GetFilePath; ADDRESS FILEREXX; 'GetFileSave TITLE=*"Save File As...*" FILE='||Result; ADDRESS; IF Result~='' THEN DO; 'SetFilePath' Result; 'SaveFile'; END"
  16.  
  17. /** Save Clip **/
  18. ExecARexxString "OPTIONS RESULTS; GetFilePath; ADDRESS FILEREXX; 'GetFileSave TITLE=*"Save Clip as...*" FILE='||Result; ADDRESS; IF Result~='' THEN SaveClip *"NOBACKUP*" Result"
  19.  
  20. /** Open New Definition-File **/
  21. ExecARexxString "OPTIONS RESULTS; name='S:Support/TTX_Startup.dfn'; ADDRESS FILEREXX; 'GetFile PAT=#?.dfn TITLE=*"Select new Definition-File...*" FILE='||name; ADDRESS; IF Result~='' THEN 'OpenDefinitions' Result"
  22.  
  23. /** Execute ARexx-Macro --- !!! Doesn't work know !!! **/
  24. ExecARexxString "OPTIONS RESULTS; name='REXX:Documentize.ttx'; ADDRESS FILEREXX; 'GetFile PAT=#?.ttx TITLE=*"Execute an ARexxMacro...*" FILE='||name; ADDRESS; IF Result~='' THEN 'ExecARexxMacro' Result"
  25.  
  26. /** Open TTX-Macro **/
  27. ExecARexxString "OPTIONS RESULTS; name='S:Macros/'; ADDRESS FILEREXX; 'GetFile PAT=#?.mac TITLE=*"Open an Macro-File...*" FILE='||name; ADDRESS; IF Result~='' THEN OpenMacro Result"
  28.  
  29. /** Save TTX-Macro **/
  30. ExecARexxString "OPTIONS RESULTS; name='S:Macros/'; ADDRESS FILEREXX; 'GetFileSave PAT=#?.mac TITLE=*"Save an Macro-File...*" FILE='||name; ADDRESS; IF Result~='' THEN 'SaveMacro' Result"
  31.  
  32. /** Open New Preferences-File **/
  33. ExecARexxString "OPTIONS RESULTS; name='S:Support/TTX_Startup.prf'; ADDRESS FILEREXX; 'GetFile PAT=#?.prf TITLE=*"Open an Prefs-File...*" FILE='||name; ADDRESS; IF Result~='' THEN 'OpenPrefs' Result"
  34.  
  35. /** Save Preferences As **/
  36. ExecARexxString "OPTIONS RESULTS; name='S:Support/TTX_Startup.prf'; ADDRESS FILEREXX; 'GetFileSave PAT=#?.prf TITLE=*"Save an Prefs-File...*" FILE='||name; ADDRESS; IF Result~='' THEN 'SavePrefs' Result"
  37.