From: Joakim Verona <joakim@verona.se>
Date: Fri, 16 Jan 2015 19:15:47 +0000 (+0100)
Subject: Bidi test case for xwidgets
X-Git-Tag: emacs-25.0.90~2602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a10c6833eaa96328cd548eca4073808abe5aedf;p=emacs.git

Bidi test case for xwidgets

Create a buffer with some text and a button.
Make the buffer be right-to-left.
---

diff --git a/test/xwidget-test-manual.el b/test/xwidget-test-manual.el
index 2ded7868df6..85db981a53e 100644
--- a/test/xwidget-test-manual.el
+++ b/test/xwidget-test-manual.el
@@ -39,6 +39,12 @@
               (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))