In the previous posting of this message I forgot the script (now at end of
message).
Thanks, Sal
I have used the following script to block use of ALT +F4 (exit) key,
together with the line "set the blaackdrop to black". Here is my
problem. If I click on the the stack, the script will work and I'll get
the dialogue box asking for a password. However, if I click on the black
backtrop, the blacktdrop will close and the stack will remain open. Is
there a solution?
Does anyone know where I could find a list of values of each key so that I
can block their use. In particular, I am interested in the F1 to F12 keys,
start (win98) key, ESC, etc.
Many thanks.
Sal
==============
global pword
on openStack
set the backdrop to black
set the decorations of this stack to empty
set the loc of this stack to the screenLoc
get the filename of this stack
set the itemdelimiter to "/"
delete last item of it
set the directory to it
put the seconds into line 2 of field "navi" of cd "summary"
put empty into pword
end openStack
on Commandkeydown
global thePW
if thePW is not "true" then
ask password clear "What is the password?"
if it is "xxx" then
put "true" into thePW
pass Commandkeydown
else
beep
end if
else
pass Commandkeydown
end if
end Commandkeydown
---------------------------------------------------------------------
on closeStackRequest
global thePW
if thePW is not "true" then
ask password clear "What is the password?"
if it is "xxxx" then
put "true" into thePW
pass closeStackRequest
else
beep
end if
else
pass closeStackRequest
end if
end closeStackRequest
on altkeydown
global thePW
if thePW is not "true" then
ask password clear "What is the password?"
if it is "xxxx" then
put "true" into thePW
pass altkeydown
else
beep
end if
else
pass altkeydown
end if
end altkeydown
---------------------------------------------------------------------
on arrowKey whichKey
global thePW
if thePW is not "true" then
ask password clear "What is the password?"
if it is "xxxx" then
put "true" into thePW
pass arrowkey
else
beep
end if
else
pass arrowKey
end if
end arrowKey
--------------------------------------------------------------------
on keydown whichkey
if whichkey <> numtochar(27) then
if whichkey <> numtochar(96) then
if whichkey <> numtochar(1) then
if whichkey <> numtochar(4) then
if whichkey <> numtochar(5) then
pass keydown
end if
end if
end if
end if
end if
end keydown
on rawKeyDown pKeyValue
if pKeyValue <> 65388 then pass rawKeyDown
end rawKeyDown
Archives: http://www.mail-archive.com/metacard%40lists.best.com/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.
