X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=tests%2Fglyph-test.el;h=31bdc9aaddd63a2b77378215650e9c4e75f223ec;hp=d0aaf9a143224aaf9a304822357e7edec4e60042;hb=44e716ef11bd794a51f8c5b56c4f3f10a7dbf217;hpb=2416430cb588c7f7a7ca990d536c092f3af3a0b9

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
index d0aaf9a..31bdc9a 100644
--- a/tests/glyph-test.el
+++ b/tests/glyph-test.el
@@ -25,6 +25,29 @@
 			:face modeline-mousable
 			:descriptor "ok" :callback foo 
 			:selected t])))
+
+;; tree view
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (setq tree (make-glyph 
+	       [tree :width 10
+		     :descriptor "My Tree"
+		     :properties (:items (["One" foo]
+					  (["Two" foo]
+					   ["Four" foo]
+					   "Six")
+					  "Three"))])))
+
+;; tab control
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (setq tab (make-glyph 
+	    [tab :descriptor "My Tab"
+		 :face default
+		 :properties (:items (["One" foo]
+				      ["Two" foo]
+				      ["Three" foo]))])))
+
 ;; progress gauge
 (set-extent-begin-glyph 
  (make-extent (point) (point))
@@ -63,6 +86,7 @@
 (set-extent-begin-glyph 
  (make-extent (point) (point))
  (make-glyph [button :descriptor ["A Big Button" foo ]]))
+
 ;; edit box
 (set-extent-begin-glyph 
  (make-extent (point) (point))