| TIP: Click on subject to list as thread! | ANSI |
| echo: | |
|---|---|
| to: | |
| from: | |
| date: | |
| subject: | RE: How to open a file in Read-Only mode04:06:5507/26/97 |
From: "Chris Antos (Exchange)"
there's no way to *truly* make it readonly, but this macro does a fair
job. there's nothing it can do about other macros that may be loaded
and have other keys assigned to them.
> -----Original Message-----
> From: Fabio Ferrero [SMTP:nutella@tin.it]
> Sent: Friday, July 25, 1997 7:36 AM
> To: tsepro@semware.com
> Subject: Re: How to open a file in Read-Only mode ?
>
> On 24 Jul 97 at 13:15, tsepro@semware.com wrote about How to open a
> file in Read-Only mod:
>
> > 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
> I use this macro:
>
> ---cut---
> forward proc birulip()
>
> Keydef ro
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> Abandoneditor()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> Pagedown()
> Abandoneditor()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> birulip()
> RollUp()
> RollDown()
> Up()
> Down()
> end
>
> proc birulip()
> sound(1000)
> delay(1)
> nosound()
> end
>
> proc main()
> set(persistentrecentfiles, off)
> enable(ro, _DEFAULT_)
> end
>
> ---end---
>
> Bye.
>
> ___
> (o.o)
> {(___)}
> ==="="===
> nutella@tin.it
---
---------------
* 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™.