# Richard.Suchenwirth # Subject: Re: Hebrew goes backward? # The main feature of Tk is its flexibility, so with little effort I # concocted a "right to left entry" whose text content is right-justified, # and which moves the cursor to the left after each key input: # example usage: rentry .e -background grey -textvar foo ... proc rentry {w args} { bind rentry { if [string length %A] {%W icursor [expr [%W index insert]-1]} } eval entry $w -justify right $args bindtags $w [list $w Entry rentry . all] }