CompuServe Messages

Bill, I've been using this ARexx script I dl'd from the AForums to replace the TurboText file requester with the asl.library version. It has been working fine until I upgraded from 2.1 to WB3.1, and now I get a software error each time I use it. I've switched back to the TTX_Standard.dfn default settings in TTX but would like to find and fix the problem with this ARexx .ttx file. The author requests that you leave him e-mail to identify problems but failed to include his PPN, nor can I find him in the membership directory. I also cannot locate the original archive in my library of downloads or here in AForums libraries. Actually, there are about eight Dan Barbers listed in CIS membership but none that I can find in the Amiga Forums, but before I send blanket CMail to all of them I thought I'd direct my query here, specifically toward you. I was hoping that you (or someone else who sees this and is versed in ARexx, maybe even Dan himself) might be able to quickly see the change needed to correct this script. Any suggestions are greatly appreciated. /******************************************************************* ** name: mfr.ttx ** date: 03 Jan 1993 ** time: 21:23:02 ** purpose: Allow user of TTX to utilize standard file requesters ** version: 1.0 ** author: Dan Barber ** limitations: If you select to open a doc and you have changed ** current doc, it will prompt you for the new file ** first, then TTX will take over and tell you DO YOU ** REALLY WANT TO DO THIS? Still accepts that but it ** is a little annoying. Could be fixed using TTX ** GetFileInfo information. ** note: I am not responsible for any damages whatsoever ** this rexx may cause. Please leave me compuserve ** mail to itentify any problems/suggestions. ******************************************************************/ arg option_ind pattern_str path_str options results lib = 'rexxarplib.library' if ~show('L',lib) then do call addlib(lib,0,-30,0) if ~RESULT then exit(1) end /***********************************/ /* Get path info to tell requester */ /***********************************/ if path_str = "" then do GetCurrentDir path_str = RESULT end /*********************************************************/ /* Get file name in current doc for default in requester */ /*********************************************************/ GetFileInfo parse var RESULT num_lines changed '"' default_file_name '"' /**************************/ /* setup requester prompt */ /**************************/ if option_ind = "S" then prompt_str = "Save file as" else prompt_str = "Select file to load" /*****************/ /* ARP requester */ /*****************/ file = GetFile(10,10,path_str,default_file_name,prompt_str,,,,,,pattern_str) /******************************/ /* Get path name and tell TTX */ /******************************/ path_str = get_path_name(file) SetCurrentDir path_str if file ~= "" then do select when option_ind = "N" then OpenDoc NAME file when option_ind = "S" then SaveFileAs NAME file otherwise OpenFile file end end exit(0) /**********************************************************/ /* a little rexx function to parse full path from GetFile */ /**********************************************************/ get_path_name: arg full_file_name i = lastpos("/",full_file_name) path_str = substr(full_file_name,1,i) return path_str TIA Christopher