X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Fglyph-test.el;h=b5d172705bf34db0d54b57b388ca55c0f874b290;hb=b171deb6c5c28b5b61705c234543d0d865157f19;hp=425b1b8b7dcf8fc5bc9cdd3571edcf47783d1f35;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git-

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
index 425b1b8..b5d1727 100644
--- a/tests/glyph-test.el
+++ b/tests/glyph-test.el
@@ -18,7 +18,8 @@
  (make-extent (point) (point))
  (setq radio-button1 
        (make-glyph 
-	[button :descriptor ["ok1" (setq ok-select t)
+	[button :face widget
+		:descriptor ["ok1" (setq ok-select t)
 			     :style radio :selected ok-select]])))
 ;; button in a group
 (set-extent-begin-glyph 
@@ -48,7 +49,7 @@
  (setq push-button 
        (make-glyph [button :width 10 :height 2
 			   :face modeline-mousable
-			   :descriptor "ok" :callback foo 
+			   :descriptor "ok" :callback foo
 			   :selected t])))
 ;; tree view
 (set-extent-begin-glyph 
@@ -82,7 +83,7 @@
 ;; progress the progress ...
 (let ((x 0))
   (while (<= x 100)
-    (set-image-instance-property (glyph-image-instance pgauge) :percent x)
+    (set-image-instance-property (glyph-image-instance pgauge) :value x)
     (setq x (+ x 5))
     (sit-for 0.1)))
 
@@ -95,7 +96,7 @@
 ;; progress the progress ...
 (let ((x 0))
   (while (<= x 100)
-    (set-image-instance-property (glyph-image-instance pg) :percent x)
+    (set-image-instance-property (glyph-image-instance pg) :value x)
     (setq x (+ x 5))
     (sit-for 0.1)))
 
@@ -147,12 +148,12 @@
 ;; layout
 (setq layout 
       (make-glyph
-       [layout :pixel-width 200 :pixel-height 250
+       [layout :descriptor "The Layout"
 	       :orientation vertical
 	       :justify left
 	       :border [string :data "Hello There Mrs"]
-	       :items ([layout :orientation horizontal
-			       :items (radio-button1 radio-button2)]
+	       :items ([native-layout :orientation horizontal
+				      :items (radio-button1 radio-button2)]
 		       edit-field toggle-button label str)]))
 (set-glyph-face layout 'gui-element)
 (set-extent-begin-glyph