TIP: Click on subject to list as thread! ANSI
echo: qedit
to: MIKE CHAMBERS
from: JORJ STRUMOLO
date: 1995-10-21 14:31:00
subject: TSE: bits and borders

MC> There are dozens of features in TSE today
  > because one or two people asked for them.
 Features in TSE and marketing decisions by SemWare are different
 issues.  Since we will not agree on the latter, it's dropped,
 and we'll stick to the former.  I managed to internalize an
 activity I do whenever a file is unloaded, archive-bit wiping
 (previously I'd done a Dos() to wipe a file's archive-bit):
proc ClearCFN()
   integer A      A=FileExists(CurrFileName())
   SetFileAttr(CurrFileName(),A & ~ _archive_)
end
 This works, but I wonder why I can't simply do
 SetFileAttr(CurrFileName(),~ _archive_) -- possibly with
 a slightly different syntax if this isn't quite right,
 but this doesn't produce an error message, tho it also
 doesn't do anything.  After all, I know the file exists
 already, and I don't care what the attributes are,
 I just want to assure the archive bit is wiped.
 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
 do that, since it reports the directory itself as a file, and no
 one could come up with a satisfactory way around that.  It seems
 a simple question.  Given C:\Tek\Tse\As\, do any files exist
 there, besides '.' and '..'?
 Another thing I've semi-internalized is video border setting.
 DESQview will retain frame colors, but won't start a new window
 with one unless it's explicitly told to, which used to require
 a batch file or alias.  I've got TSE to now do a Dos() in Main()
 to do it, which saves a bit of time and memory.  (I tried
 putting it in WhenLoaded(), but got various conflicts there.)
 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?
 -- SPEED 2.00 #1019: Anonymous was a woman.
--- QScan/PCB v1.17b / 01-0175
---------------
* Origin: Eagle's Nest Comm., Inc Prov, RI 401-621-4600 (1:323/150)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.