Ok. I have this problem where I paste a large amount of text in an area box 500x500.  
Then I send it thru an encryption process which changes the data and does a "show" on 
the same area window.  The problem is that I dont see the data unless I use the arrow 
keys to move up and then it scrolls into view.  Here is a bit of the code:

encrypto-pad: layout [

backdrop blue

banner "Encrypto PAD" silver

crypto: area 500x500

across

toggle "Encrypt" "Decrypt" [either value [encrypt-decrypt-func 
'decrypt][encrypt-decrypt-func 'encrypt]] 

button "Process" [

if crypto/text = "" [alert "NO DATA" return]

open crypt-port

insert crypt-port copy crypto/text

update crypt-port

crypto/text: to-string copy crypt-port

close crypt-port

show crypto


]

button "Clear" [clear crypto/text crypto/data show crypto]

button "Close" [hide-popup]

]


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to