Mailing List Archive: writing from right to left

[REBOL] writing from right to left

From: sraikin12::hetnet::nl at: 27-Jan-2002 16:33


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