TIP: Click on subject to list as thread! ANSI
echo: qedit
to: ALL
from: KYLE WATKINS
date: 1997-07-26 05:22:00
subject: RE: How to open a file in Read-Only mode05:22:3107/26/97

From: Kyle Watkins 
Stephane Gibier[SMTP:sgibier@hol.fr] wrote:
> Hello,
>=20
> Is there a way top open a file in a logical Read-Only mode ? In this
> mode, all text editing features would be disabled. Note that this
> logical mode is not the same thing that the physical Read-Only file
> mode.
>=20
> Any ideas ?
> --=20
> St=E9phane Gibier
> Cet article repr=E9sente mon avis personnel et non celui de ma =
compagnie
Hi Stephane,
You may try something similar to the following.  Just modify the
following as necessary, compile and then execute the macro to
start browsing the current file.  Pressing  gets you
out of browse mode.
// The following is based on one of the examples in the manual.
// See Process() in the on-line help or manual.
// Just add the additional keys you need available while "Browsing"
            keydef BrowseKeys
                        BegLine()
                         EndLine()
                   BegFile()
                   EndFile()
                    Up()
                  Down()
                 Right()
                  Left()
                        PageUp()
                        PageDown()
                      EndProcess()
                    "Press  to exit browse mode"
            end
            proc Browse()
              if Enable(BrowseKeys, _EXCLUSIVE_)
                  Message("Press  to exit browse mode")
                  Process()
                  Disable(BrowseKeys)
              endif
            end
proc main()
    Browse()
end
//
Also, you may want to download BROWSE22.ZIP from our ftp site or web =
site.
It will be in the Tse-Pro directory on the ftp site =
(ftp://ftp.semware.com).
The description for the file is:
BROWSE v2.2 - macro for TSE Pro v2.5 and
2.6 makes it a brawny clone of Buerg's LIST
Plus. By David Daniel Anderson; 4 April,
1997.
Let me know if this is what you want.
Kyle Watkins (SemWare Support)
---
---------------
* Origin: apana>>>>>fidonet [sawasdi.apana.org.au] (3:800/846.13)

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™.