home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
e
/
epmmac2.zip
/
SELECT.E
< prev
next >
Wrap
Text File
|
1992-08-03
|
4KB
|
122 lines
compile if not defined(LOCAL_MOUSE_SUPPORT)
const LOCAL_MOUSE_SUPPORT = 0
compile endif
const
TransparentMouseHandler = "TransparentMouseHandler"
compile if eversion >= '4.12'
; SELECT.E Bryan Lewis 1/2/89
;
; This replaces the clumsy old select_edit_keys() procedure, which had to
; be explicitly called after any action that might change the current file.
; This DEFSELECT event is automatically triggered whenever the current file
; after an action is different from the one before the action. It never
; needs to be (and can't be) explicitly called.
;
; This is triggered after all command processing is done, if the then-current
; file is different from the one before the command. If a command switches
; to a temporary file but switches back to the original file before ending,
; this event will not be triggered.
;
; Because of other improvements -- keyset, tabs and margins are bound to
; the file now, and are selected at load time in a DEFLOAD event -- there's
; not much work to be done here.
;
defproc select_edit_keys()
/* Dummy proc for compatibility. Select_edit_keys() isn't used any more.*/
defselect
universal messy
compile if LOCAL_MOUSE_SUPPORT
universal LMousePrefix
universal EPM_utility_array_ID
compile endif
compile if WANT_EBOOKIE = 'DYNALINK'
universal bkm_avail
compile endif
compile if WANT_EPM_SHELL
universal shell_index
if shell_index then
is_shell = leftstr(.filename, 15) = ".command_shell_"
SetMenuAttribute( 103, 16384, is_shell)
; SetMenuAttribute( 104, 16384, is_shell)
endif
compile endif
compile if LOCAL_MOUSE_SUPPORT
getfileid ThisFile
OldRC = Rc
rc = get_array_value(EPM_utility_array_ID, "LocalMausSet."ThisFile, NewMSName)
if RC then
if rc=-330 then
-- no mouseset bound to file yet, assume blank.
LMousePrefix = TransparentMouseHandler"."
else
call messagenwait('RC='RC)
endif
RC = OldRC
else
LMousePrefix = NewMSName"."
endif
compile endif
compile if WANT_EBOOKIE
compile if WANT_EBOOKIE = 'DYNALINK'
if bkm_avail <> '' then
compile endif
call bkm_defselect()
compile if WANT_EBOOKIE = 'DYNALINK'
endif
compile endif
compile endif -- WANT_EBOOKIE
-- sayerror 'DEFSELECT occurred for file '.filename'.'
compile else -- This is for the old way of doing SELECT.
compile if SHOW_MODIFY_METHOD
defproc show_modify
compile endif
compile if SHOW_MODIFY_METHOD = 'COLOR'
if .modify then
.markcolor= MODIFIED_MARKCOLOR
.windowcolor= MODIFIED_WINDOWCOLOR
else
.markcolor= MARKCOLOR
.windowcolor= WINDOWCOLOR
endif
compile endif
compile if SHOW_MODIFY_METHOD = 'FKTEXTCOLOR'
if .modify then
.functionkeytextcolor= MODIFIED_FKTEXTCOLOR
else
.functionkeytextcolor= FUNCTIONKEYTEXTCOLOR
endif
compile endif
compile if SHOW_MODIFY_METHOD = 'TITLE'
if .modify then
.filenamecolor= MODIFIED_FILENAMECOLOR
.monofilenamecolor= MODIFIED_MONOFILENAMECOLOR
else
.filenamecolor= FILENAMECOLOR
.monofilenamecolor= MONOFILENAMECOLOR
endif
compile endif
defproc select_edit_keys /* Selection keys for particular file extension */
compile if ALTERNATE_KEYSETS
universal expand_on
universal messy
ext=filetype()
compile endif
keys edit_keys /* default keyset */
compile if SHOW_MODIFY_METHOD
call show_modify()
compile endif
compile endif