X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Fglyph-test.el;h=511bbc84bf3f5682d7bb06b2e708d5bc715eeff9;hb=8d23a584a95cbbdb04aee281ecc82fac1c9305d1;hp=d0aaf9a143224aaf9a304822357e7edec4e60042;hpb=f3ec20f455f3f1212d2c5ee4cadc984330da9c38;p=chise%2Fxemacs-chise.git

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
index d0aaf9a..511bbc8 100644
--- a/tests/glyph-test.el
+++ b/tests/glyph-test.el
@@ -1,10 +1,12 @@
+(setq str "Hello There")
 (set-extent-begin-glyph 
- (make-extent (point) (point))
- (setq icon (make-glyph [xpm :file "../etc/xemacs-icon.xpm"])))
+ (make-extent 0 0 str)
+ (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
 
 (defun foo ()
   (interactive) 
-  (setq ok-select (not ok-select)))
+  (ding))
+;  (setq ok-select (not ok-select)))
 
 ;; button in a group
 (setq ok-select nil)
@@ -17,20 +19,56 @@
  (make-extent (point) (point))
  (make-glyph [button :descriptor ["ok" (setq ok-select nil) :style radio 
 				  :selected (not ok-select)]]))
+;; toggle button
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (setq tbutton
+       (make-glyph [button :descriptor ["ok" (setq ok-select nil) 
+					:style toggle 
+					:selected (not ok-select)]])))
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph [button :descriptor ["ok" :style toggle 
+				  :callback 
+				  (setq ok-select (not ok-select))
+				  :selected ok-select]]))
+
 ;; normal pushbutton
 (set-extent-begin-glyph 
  (make-extent (point) (point))
  (setq pbutton (make-glyph 
-		[button :width 10 :height 2 
+		[button :width 10 :height 2
 			:face modeline-mousable
 			:descriptor "ok" :callback foo 
 			:selected t])))
+;; tree view
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (setq tree (make-glyph 
+	     [tree-view :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-control :descriptor "My Tab"
+			 :face default
+			 :properties (:items (["One" foo]
+					      ["Two" foo]
+					      ["Three" foo]))])))
+
 ;; progress gauge
 (set-extent-begin-glyph 
  (make-extent (point) (point))
  (setq pgauge (make-glyph 
-	       [progress :width 10 :height 2 
-			 :descriptor "ok"])))
+	       [progress-gauge :width 10 :height 2 
+			       :descriptor "ok"])))
 ;; progress the progress ...
 (let ((x 0))
   (while (<= x 100)
@@ -42,8 +80,8 @@
 (setq global-mode-string 
       (cons (make-extent nil nil)
 	    (setq pg (make-glyph 
-		      [progress :width 5 :pixel-height 16
-				:descriptor "ok"]))))
+		      [progress-gauge :width 5 :pixel-height 16
+				      :descriptor "ok"]))))
 ;; progress the progress ...
 (let ((x 0))
   (while (<= x 100)
@@ -63,18 +101,19 @@
 (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)) 
- (setq hedit (make-glyph [edit :pixel-width 50 :pixel-height 30
-			       :face bold-italic
-			       :descriptor ["Hello"]])))
+ (setq hedit (make-glyph [edit-field :pixel-width 50 :pixel-height 30
+				     :face bold-italic
+				     :descriptor ["Hello"]])))
 ;; combo box
 (set-extent-begin-glyph 
  (make-extent (point) (point))
  (setq hcombo (make-glyph 
-	       [combo :width 10 :height 3 :descriptor ["Hello"] 
-		      :properties (:items ("One" "Two" "Three"))])))
+	       [combo-box :width 10 :height 3 :descriptor ["Hello"] 
+			  :properties (:items ("One" "Two" "Three"))])))
 
 ;; line
 (set-extent-begin-glyph 
@@ -87,6 +126,6 @@
 ; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]]))
 
 ;; generic subwindow
-(setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 50]))
+(setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 70]))
 (set-extent-begin-glyph (make-extent (point) (point)) sw)