home *** CD-ROM | disk | FTP | other *** search
- SetNewLook © Copyright 1993 Jonathan Potter
-
- This is a simple patch for v39 machines only that will force all windows
- opening on public screens (including the Workbench screen) to set the
- WFLG_NEWLOOKMENUS flag. Also, all menu items that are the old colour style
- (pen 0 on pen 1) are remapped to use the "new-look" colours of pen 2 on pen 1
- (actually it uses BARDETAILPEN and BARBLOCKPEN). I wrote the specifically
- for WShell (it used to look dreadful with old style menus) but it should
- work with any program.
-
- To run it, simply put
-
- Run >nil: <nil: SetNewLook
-
- in your startup-sequence. It can be removed with the Break command or by
- running it again.
-
- This program patches three OS-routines; OpenWindow(), OpenWindowTagList()
- and SetMenuStrip(). Any other programs that may patch these will cause
- problems if you try to exit SetNewLook while they are running. There is
- no checking done when the patches are removed so in this instance your
- system will probably crash. The solution is to run any other patches
- BEFORE you run SetNewLook.
-
-
-
- Jonathan Potter
- P.O. Box 289
- Goodwood, SA 5034
- Australia
-
- Phone +61-8-293-2788
-
- jpotter@itd.adelaide.edu.au
-