Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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