X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=tests%2Fglyph-test.el;h=b9c04a1bd18e27742b95a9045eb480aea2590d50;hp=67533cc890d91beb4d74753408ba8866a3ae8527;hb=b5eeb6918c29470b36f8461c402eb0c65cb19bd2;hpb=755e352634f2cf331256ecc3bf7e45facab3cdc3

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
index 67533cc..b9c04a1 100644
--- a/tests/glyph-test.el
+++ b/tests/glyph-test.el
@@ -2,6 +2,10 @@
  (make-extent (point) (point))
  (setq im (make-glyph [xpm :file "xemacs-icon.xpm"])))
 
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph [string :data "xemacs"]))
+
 (defun foo ()
   (interactive)
   (setq ok-select (not ok-select)))
@@ -64,6 +68,7 @@
  (setq tab (make-glyph 
 	    [tab-control :descriptor "My Tab"
 			 :face highlight
+			 :orientation right
 			 :properties (:items (["One" foo]
 					      ["Two" fee]
 					      ["Three" foo]))])))
@@ -104,7 +109,8 @@
 ;; normal pushbutton
 (set-extent-begin-glyph 
  (make-extent (point) (point))
- (make-glyph [button :descriptor ["A Big Button" foo ]]))
+ (setq pbutton
+       (make-glyph [button :descriptor ["A Big Button" foo ]])))
 
 ;; edit box
 (set-extent-begin-glyph