Area

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] ]