writing from right to left

hi there i'm trying to write an application that allows writing from right to left in text fields: rebol[] alphanum: charset [#" " #"0" - #"9" #"A" - #"Z" #"a" - #"z"] view layout [ keyc: field RIGHT "" do [ evtfunc: insert-event-func [ if equal? event/type 'key [ either (find alphanum event/key)[ insert head keyc/text to-string event/key ];either true [if event/key = #"^H" [remove head keyc/text];if ];either false show keyc ];if if equal? event/type 'close [ remove-event-func :evtfunc ];if RETURN event ];evtfunc ];do ];layout my problem starts when pressing the mouse: i don't know how to handle it so it wan't disturbe. any ideas? thank you Shlomo