on preOpenStack
if the short name of me <> the short name of this stack then exit preOpenStack
set the style of this stack to "modeless"
set the loc of this stack to the screenLoc
end preOpenStack
uRip P on preOpenCard choose browse tool set the loc of this stack to the screenLoc focus on fld "Password" select text of fld "Password" end preOpenCard cREVGeneral scriptChecksum Yf~6& bookmarks handlerList preOpenCard tempScript prevHandler preOpenCardscriptSelection char 107 to 106scripton preOpenCard
choose browse tool
set the loc of this stack to the screenLoc
focus on fld "Password"
select text of fld "Password"
end preOpenCard
@ BlackCheckmark.png PNG IHDR pHYs gAMA |Q cHRM z% u0 ` : o_F xIDATxb` 17 R@L:̤/@, 0@ 1I +x%@ Lħ HW ť $@PIV dĊK8 0 6 IENDB` cREVGeneral revUniqueID 1109347801497 CheckBox i - cREVGeneral revUniqueID 1109350058804 Show Script Epedit the script of fld "Password"
end mouseUp
Password )pon rawKeydown pKey local tChunk,tPassword ----- if pKey = 65288 then -- delete key put word 1 to 4 of the selectedChunk into tChunk put the uPassword of me into tPassword if word 2 of tChunk > word 4 of tChunk then put word 4 of tChunk into word 2 to 4 of tChunk end if do "put empty into" && tChunk && "of tPassword" set the uPassword of me to tPassword pass rawKeydown else pass rawKeydown end rawKeydown ------------------------------------ on keyDown pKey local tChunk,tPassword ----- if the selectedChunk = empty then pass keyDown put word 1 to 4 of the selectedChunk into tChunk put the uPassword of me into tPassword put numToChar(42) into the selectedChunk -- numToChar(42): "*" if chartonum(pKey) = 34 then -- replace any quote by "~" do "put numToChar(126) into" && tChunk && "of tPassword" else do "put" && quote & pKey & quote && "into" && tChunk && "of tPassword" set the uPassword of me to tPassword end keyDown ------------------------------------ on enterInfield Validate -- end enterInfield ------------------------------------ on returnInfield Validate -- end returnInfield ------------------------------------ on Validate local tPassword ----- put the uPassword of me into tPassword replace numToChar(126) with numToChar(34) in tPassword -- replace "~" by a quote put tPassword into fld "ClearString"-- displays the clear string -- replace this line (put tPassword...) by your statements :-) end Validate F uPassword q cREVGeneral scriptChecksum kt Vх revUniqueID 1112608588937 bookmarks handlerList 6rawKeydown keyDown enterInfield returnInfield Validate tempScript prevHandler enterInfieldscriptSelection char 903 to 902scripton rawKeydown pKey
local tChunk,tPassword
-----
if pKey = 65288 then -- delete key
put word 1 to 4 of the selectedChunk into tChunk
put the uPassword of me into tPassword
if word 2 of tChunk > word 4 of tChunk then
put word 4 of tChunk into word 2 to 4 of tChunk
end if
do "put empty into" && tChunk && "of tPassword"
set the uPassword of me to tPassword
pass rawKeydown
else pass rawKeydown
end rawKeydown
------------------------------------
on keyDown pKey
local tChunk,tPassword
-----
if the selectedChunk = empty then pass keyDown
put word 1 to 4 of the selectedChunk into tChunk
put the uPassword of me into tPassword
put numToChar(42) into the selectedChunk -- numToChar(42): "*"
if chartonum(pKey) = 34 then -- replace any quote by "~"
do "put numToChar(126) into" && tChunk && "of tPassword"
else do "put" && quote & pKey & quote && "into" && tChunk && "of tPassword"
set the uPassword of me to tPassword
end keyDown
------------------------------------
on enterInfield
Validate --
end enterInfield
------------------------------------
on returnInfield
Validate --
end returnInfield
------------------------------------
on Validate
local tPassword
-----
put the uPassword of me into tPassword
replace numToChar(126) with numToChar(34) in tPassword -- replace "~" by a quote
put tPassword into fld "ClearString"-- displays the clear string
-- replace this line (put tPassword...) by your statements :-)
end Validate
Clear Ep on mouseUp lock screen put empty into fld "Password" put empty into fld "ClearString" unlock screen set the uPassword of fld ID 1047 to empty end mouseUp k E < cREVGeneral scriptChecksum $ I57 {;t bookmarks revUniqueID 1112609234586 handlerList mouseUpscriptSelection char 108 to 107 prevHandler mouseUp tempScript scripton mouseUp
lock screen
put empty into fld "Password"
put empty into fld "ClearString"
unlock screen
set the uPassword of fld ID 1047 to empty
end mouseUp
ClearString on rawKeydown pKey local tChunk,tPassword ----- if pKey = 65288 then -- delete key put word 1 to 4 of the selectedChunk into tChunk put the uPassword of me into tPassword if word 2 of tChunk > word 4 of tChunk then put word 4 of tChunk into word 2 to 4 of tChunk end if do "put empty into" && tChunk && "of tPassword" set the uPassword of me to tPassword pass rawKeydown else pass rawKeydown end rawKeydown ------------------------------------ on keyDown pKey local tChunk,tPassword ----- if the selectedChunk = empty then pass keyDown put word 1 to 4 of the selectedChunk into tChunk put the uPassword of me into tPassword put numToChar(42) into the selectedChunk -- numToChar(42): "*" if chartonum(pKey) = 34 then -- replace any quote by "~" do "put numToChar(126) into" && tChunk && "of tPassword" else do "put" && pKey && "into" && tChunk && "of tPassword" set the uPassword of me to tPassword end keyDown ------------------------------------ on enterInfield Validate -- end enterInfield ------------------------------------ on returnInfield Validate -- end returnInfield ------------------------------------ on Validate local tPassword ----- put the uPassword of me into tPassword replace numToChar(126) with numToChar(34) in tPassword -- replace "~" by a quote put tPassword -- put the clear string into the message box -- replace this line (put tPassword) by your statements end Validate @ i uPassword dfse~ cREVGeneral scriptChecksum ?33WͣX bookmarks revUniqueID 1112616346601 handlerList 6rawKeydown keyDown enterInfield returnInfield ValidatescriptSelection char 19 to 18 prevHandler enterInfield tempScript scripton rawKeydown pKey
local tChunk,tPassword
-----
if pKey = 65288 then -- delete key
put word 1 to 4 of the selectedChunk into tChunk
put the uPassword of me into tPassword
if word 2 of tChunk > word 4 of tChunk then
put word 4 of tChunk into word 2 to 4 of tChunk
end if
do "put empty into" && tChunk && "of tPassword"
set the uPassword of me to tPassword
pass rawKeydown
else pass rawKeydown
end rawKeydown
------------------------------------
on keyDown pKey
local tChunk,tPassword
-----
if the selectedChunk = empty then pass keyDown
put word 1 to 4 of the selectedChunk into tChunk
put the uPassword of me into tPassword
put numToChar(42) into the selectedChunk -- numToChar(42): "*"
if chartonum(pKey) = 34 then -- replace any quote by "~"
do "put numToChar(126) into" && tChunk && "of tPassword"
else do "put" && pKey && "into" && tChunk && "of tPassword"
set the uPassword of me to tPassword
end keyDown
------------------------------------
on enterInfield
Validate --
end enterInfield
------------------------------------
on returnInfield
Validate --
end returnInfield
------------------------------------
on Validate
local tPassword
-----
put the uPassword of me into tPassword
replace numToChar(126) with numToChar(34) in tPassword -- replace "~" by a quote
put tPassword -- put the clear string into the message box
-- replace this line (put tPassword) by your statements
end Validate
Info p 6on linkClicked go stack "revDocs" end linkClicked cREVGeneral scriptChecksum eyj֤s bookmarks revUniqueID 1109350253372 handlerList linkClickedscriptSelection char 36 to 35 prevHandler tempScript scripton linkClicked
go stack "revDocs"
end linkClicked
#How-To stack #012 by Eric Chatonet @ " @ 4/03/05 Initial release @ 55/27/05 Modified for Tutorials Picker compatibility - F7/23/05 Corrected a bug in keyDown handler thanks to George Brackett ) 0 @ 6 hThis stack shows how to ask a password in a customary field without showing what the user types. Enjoy! @ g KRevolution provides the ask password command which diplays a modal dialog. @ @ @ $ &on mouseDown
revGoUrl "http://www.sosmartsoftware.com"
end mouseDown
@ Flche2.png z PNG IHDR Kpl_ pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?,Xv$ϯ.?~~e'P#@ 11 @ ?~23_k_?V@p /÷>|()%ţ,%-F2\@ *n w JU牓/_ o_ū(II` b`AM]Nk5 _ ,? d +@ 021~K?@fӬ ~W XXY};w<||| ߿}Kw^W @ koǑ74;Gڷo_߿uLL7qe` &Fqϟ_sPuFFf bA8`(10r =zk~ Tx NP `=l|, IENDB` cREVGeneral revUniqueID 1109350346443 Label Field cREVGeneral revUniqueID 1109354974199 GEnter any string , then press return or enter to display the result...