]> git.eshelyaron.com Git - emacs.git/commitdiff
Bidi test case for xwidgets
authorJoakim Verona <joakim@verona.se>
Fri, 16 Jan 2015 19:15:47 +0000 (20:15 +0100)
committerJoakim Verona <joakim@verona.se>
Fri, 16 Jan 2015 19:15:47 +0000 (20:15 +0100)
Create a buffer with some text and a button.
Make the buffer be right-to-left.

test/xwidget-test-manual.el

index 2ded7868df6fa5d4ba9fc796481baf46bd0b4255..85db981a53ee716a4b74ee14dcc4a317bc0a11ff 100644 (file)
               (xwidget-insert (point-min) 'Button  "button" 60  50)
               (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic))
 
+(xwidget-demo "a-button-bidi"
+              (xwidget-insert (point-min) 'Button  "button" 60  50)
+              (set (make-local-variable 'bidi-paragraph-direction) 'right-to-left)
+              (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic))
+
+
 (xwidget-demo "a-toggle-button"
               (xwidget-insert (point-min) 'ToggleButton  "toggle" 60  50)
               (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic))