diff options
| -rw-r--r-- | test/xwidget-test-manual.el | 6 |
1 files changed, 6 insertions, 0 deletions
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 @@ | |||
| 39 | (xwidget-insert (point-min) 'Button "button" 60 50) | 39 | (xwidget-insert (point-min) 'Button "button" 60 50) |
| 40 | (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic)) | 40 | (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic)) |
| 41 | 41 | ||
| 42 | (xwidget-demo "a-button-bidi" | ||
| 43 | (xwidget-insert (point-min) 'Button "button" 60 50) | ||
| 44 | (set (make-local-variable 'bidi-paragraph-direction) 'right-to-left) | ||
| 45 | (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic)) | ||
| 46 | |||
| 47 | |||
| 42 | (xwidget-demo "a-toggle-button" | 48 | (xwidget-demo "a-toggle-button" |
| 43 | (xwidget-insert (point-min) 'ToggleButton "toggle" 60 50) | 49 | (xwidget-insert (point-min) 'ToggleButton "toggle" 60 50) |
| 44 | (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic)) | 50 | (define-key (current-local-map) [xwidget-event] 'xwidget-handler-demo-basic)) |