--------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEU00002 Date: 10/22/95 From: MARCUS LIMOSANI Time: 11:31am \/To: GEORGE DE BRUIN (Read 4 times) Subj: TSE 2.50 Gday George 16 Oct 95 12:36, George De Bruin wrote to Marcus Limosani: >> I was editing the TSE.UI file to customize TSE, and found that I could >> not redefine for some reason. It does not appear under the >> showkey macro either... Is there some reason for this?? GB> It seems to work here okay on a couple of machines I tested. GB> Could it be that you are using a keyboard driver, or some other TSR that GB> is doing something with the keyboard? I am not using anything special for the keyboard, and I doubt 4DOS would be interfering.. TTYL Marcus Limosani. marcusl@melbpc.org.au Fidonet : 3:633/262 --- FastEcho 1.45/RA 2.02+ * Origin: The Infinity Links BBS (3:633/262) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEU00003 Date: 10/21/95 From: GEOFF DOHERTY Time: 11:40pm \/To: HSIEH BC (Read 4 times) Subj: Re: Macros -=> Quoting my new chum Hsieh Bc re: Re: Macros <=- HB> It has been duly recorded that on 04 Oct 95 20:44:03, Geoff Doherty HB> Hi Greg, Ummmm.....It's Geoff, not Greg B-) HB> Thanks a lot for your suggestions. I've already been initiated into HB> the mysterious art of macro writing, although to that end, I'm still HB> very much a novice. You did a good job of summarizing everything HB> though. HB> Hmmm...don't get much mail from Down Under. Does Qld stand for HB> Queensland? It sure does....beautiful one day....perfect the next! Geoff ... "My likely historical significance is a terrible burden." - Calvin --- Blue Wave/Max v2.20 * Origin: Soft-Tech, Qld, Australia +61-7-869-2666 (3:640/201) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEU00004 Date: 10/23/95 From: GEORGE DE BRUIN Time: 12:54pm \/To: JORJ STRUMOLO (Read 5 times) Subj: TSE: bits and borders > Speaking of FileExists(), or any other command that would manage > it, is there a way to test if a file, any file, exists in a > directory (which will exist). Previously, FileExists() couldn't Try the FindFirst() / FindNext() commands, or you may just want to use BuildPickBuffer(). Using any of these commands you should be able to determine if a file exists in a sudbirectory. > How does DOS handle screen border colors, I wonder? Is there > any way to do this with low-level stuff, instead of popping > quickly out of the editor and then back in on a start under DV? Not very well (ie DOS support). You can set it using the low level functions in TSE: proc SetVidBorder(integer b) register r // Set the video border attribute r.bx = b shl 8 // attr in bh r.ax = 1001h // for Int 10h function 01h call intr(10h, r) // set the border end SetVidBorder(Color(Cyan on Black)) SetVidBorder(Color(Black on Black)) George J. De Bruin SemWare Technical Support ------------------------------------------------------------------------------ SemWare Corporation Phone: (770) 641-9002 FAX: (770) 640-6213 WEB: http://www.semware.com FTP: ftp.semware.com george.de.bruin@semware.com ------------------------------------------------------------------------------ --- TSEmr 1.0 #10000 The SemWare Editor Pro. 2.5 & TSE Jr 4.0 DOS, Mem-Res, OS/2 --- FidoPCB v1.4 [ff151/a] * Origin: SemWare Support BBS * 404-641-8968 * (1:133/314) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEW00000 Date: 10/25/95 From: JORJ STRUMOLO Time: 06:38pm \/To: GEORGE DE BRUIN (Read 4 times) Subj: TSE: more internalizing GDB> Try the FindFirst() / FindNext() commands It works, tho FindFirst() is picky, and I had to add prep and post stuff in the first and third lines, when all I really wanted was the second, to see if any files exist there. I don't want to actually do anything with string s, just see if there is one. public proc PruneAutoSave() string dta[80]='',s[80] SetDTA(dta) if FindFirst(GetEnvStr("AS")+"\*.*") s=DecodeDTA(dta) Message(s) Dos("@select/haoe del/q (%AS\*.*)^@0d wky^@1d wkg",_dont_prompt_) UpdateDisplay(_statusline_refresh_) else Message(" AutoSave directory empty.") endif end PruneAutoSave GDB> proc SetVidBorder(integer b) > register r > r.bx = b shl 8 // attr in bh > r.ax = 1001h // for Int 10h function 01h call > intr(10h, r) // set the border > end I don't profess to understand this, but it does seem to work, which means that two of the things I had to shell to DOS to do have been internalized. That really only leaves one more thing, which should be easy to do in TSE, with a macro already done for it. Problem is, I've never gotten the tagline macro to work for me. It's David Marcus's PickList one of May 1993, and I've copied the sample setup almost word-for-word, and it doesn't work right. proc sample_picklist_use() string tag[254] = '' // max length for selected text SetGlobalStr('picklist_fn', 'your_picklist_file_name') SetGlobalStr('picklist_title', 'your_picklist_title') SetGlobalInt('picklist_maxwidth', Length(tag)) ... ExecMacro('picklist') if GetGlobalInt('picklist_return') tag=GetGlobalStr('picklist_result') .... else Warn('No entry selected!') endif .... end public proc PickTag() string tag[100] = '' SetGlobalStr('picklist_fn','C:\SR\Wave\Data\Omni.tag') SetGlobalStr('picklist_title','Select Tag') SetGlobalInt('picklist_maxwidth',Length(tag)) ExecMacro('PickList') if GetGlobalInt('picklist_return') tag=GetGlobalStr('picklist_result') InsertText(tag) // varies else Message(' No entry selected.') endif end For the line that varies, I've also tried InsertText(GetGlobalStr("picklist_result")) InsertText(GetGlobalStr("picklist_return")) InsertText(GetGlobalStr(tag)) Nothing ever inserts any text, tho if I escape from the (oddly small and offcentered) window, I do get the no-entry message. Where'm I going wrong? -- SPEED 2.00 #1019: For the Snark WAS a Boojum, you see. * Carroll --- QScan/PCB v1.17b / 01-0175 * Origin: Eagle's Nest Comm., Inc Prov, RI 401-621-4600 (1:323/150) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEX00000 Date: 10/25/95 From: RAJ GABRIELSE Time: 10:07am \/To: MORTEN CHRISTENSEN (Read 4 times) Subj: Quote macro Psst...they say that Morten Christensen on 17-Oct-95 at 22:37:08 gave the follwing answer for the $64.000,- question...? Well hi there, Morten, MC> I have an alternative macro for the quote-rewrapping. > I have netmailed it to Ingrid. If you are interestet, > send me a message. Well, I certainly would like one...could you possibly net/E-mail me one too? TIA Raj ...internet: bdaraj@pc-server1.dcmr.nl Where the strange and bizarre become normal... --- Terminate 3.00/Pro * Origin: Hello, I am point number ޺۳ݳݳ (2:2802/322.2) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEX00001 Date: 10/26/95 From: HSIEH BC Time: 07:06pm \/To: GEOFF DOHERTY (Read 4 times) Subj: Macros It has been duly recorded that on 21 Oct 95 19:40:12, Geoff Doherty said to Hsieh Bc... HB> Hi Greg, GD> Ummmm.....It's Geoff, not Greg B-) Oops...the blunder of all blunders...my sincere apology, Geoff, for this mistake. My brain must've been on a vacation on the beautiful Gold Coast then. %-( HB> Hmmm...don't get much mail from Down Under. Does Qld stand for HB> Queensland? GD> It sure does....beautiful one day....perfect the next! What other Fidonet echos do you frequent? Could you please post your Internet address, if you have one? Regards, HBC ... 2+2=5 for sufficiently large values of 2 --- RA 2.02+/GEcho 1.11+ * Origin: CUTnPASTE BBS *SINGAPORE* (65)759-2994/-4115 (6:600/641) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: CEY00000 Date: 10/27/95 From: GEORGE DE BRUIN Time: 06:25pm \/To: MARCUS LIMOSANI (Read 4 times) Subj: TSE 2.50 > I am not using anything special for the keyboard, and I doubt 4DOS would > be interfering.. As Sammy said, I doubt that 4DOS would be interferring either. At this point I would guess that it has something to do with they keyboard BIOS. George J. De Bruin SemWare Technical Support ------------------------------------------------------------------------------ SemWare Corporation Phone: (770) 641-9002 FAX: (770) 640-6213 WEB: http://www.semware.com FTP: ftp.semware.com george.de.bruin@semware.com