diff options
| author | Joakim Verona | 2012-07-23 15:28:30 +0200 |
|---|---|---|
| committer | Joakim Verona | 2012-07-23 15:28:30 +0200 |
| commit | 0c5c85cf2b350c965bb1ffa5b2d77c2adebc406b (patch) | |
| tree | ce71559e64412dcdec03c5d2b427674e709f5da8 | |
| parent | 660d17cd2c207a41ddafff655bb3c2dd84d20538 (diff) | |
| download | emacs-0c5c85cf2b350c965bb1ffa5b2d77c2adebc406b.tar.gz emacs-0c5c85cf2b350c965bb1ffa5b2d77c2adebc406b.zip | |
small test changes
| -rw-r--r-- | lisp/xwidget-test.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/xwidget-test.el b/lisp/xwidget-test.el index 5aaff75b436..eabfc0a2817 100644 --- a/lisp/xwidget-test.el +++ b/lisp/xwidget-test.el | |||
| @@ -87,10 +87,24 @@ | |||
| 87 | 87 | ||
| 88 | (defun xwgir-test () | 88 | (defun xwgir-test () |
| 89 | (interactive) | 89 | (interactive) |
| 90 | (xwgir-require-namespace "Gtk" "3.0") | ||
| 91 | (put 'color-selection :xwgir-class '("Gtk" "ColorSelection")) | ||
| 92 | |||
| 90 | (xwgir-demo-a-xwgir-button) | 93 | (xwgir-demo-a-xwgir-button) |
| 91 | (xwgir-call-method (xwidget-at 1) "set_label" '( "xwgir set label!")) | 94 | (xwgir-call-method (xwidget-at 1) "set_label" '( "xwgir set label!")) |
| 92 | ) | 95 | ) |
| 93 | 96 | ||
| 97 | |||
| 98 | ;; tentative testcase: | ||
| 99 | ;; (xwgir-require-namespace "WebKit" "3.0") | ||
| 100 | |||
| 101 | ;; (put 'webkit-osr :xwgir-class '("WebKit" "WebView")) | ||
| 102 | ;; (xwgir-call-method (xwidget-at 1) "set_zoom_level" '(3.0)) | ||
| 103 | |||
| 104 | ;; (xwgir-require-namespace "Gtk" "3.0") | ||
| 105 | ;; (put 'color-selection :xwgir-class '("Gtk" "ColorSelection")) | ||
| 106 | |||
| 107 | |||
| 94 | (xwidget-demo "basic" | 108 | (xwidget-demo "basic" |
| 95 | (xwidget-insert (point-min) 'button "button" 40 50 ) | 109 | (xwidget-insert (point-min) 'button "button" 40 50 ) |
| 96 | (xwidget-insert 15 'toggle "toggle" 60 30 ) | 110 | (xwidget-insert 15 'toggle "toggle" 60 30 ) |