aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoakim Verona2012-07-23 15:28:30 +0200
committerJoakim Verona2012-07-23 15:28:30 +0200
commit0c5c85cf2b350c965bb1ffa5b2d77c2adebc406b (patch)
treece71559e64412dcdec03c5d2b427674e709f5da8
parent660d17cd2c207a41ddafff655bb3c2dd84d20538 (diff)
downloademacs-0c5c85cf2b350c965bb1ffa5b2d77c2adebc406b.tar.gz
emacs-0c5c85cf2b350c965bb1ffa5b2d77c2adebc406b.zip
small test changes
-rw-r--r--lisp/xwidget-test.el14
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 )