(insert-char-range-data): Fixed.

[chise/xemacs-chise.git] / tests / glyph-test.el

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
index 8a61ceb..511bbc8 100644 (file)
--- 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))
+ (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,28 +19,101 @@
  (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 
-                                  :face modeline-mousable
-                                  :descriptor ["ok" foo :selected t]])))
+ (setq pbutton (make-glyph 
+               [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-gauge :width 10 :height 2 
+                              :descriptor "ok"])))
+;; progress the progress ...
+(let ((x 0))
+  (while (<= x 100)
+    (set-image-instance-property (glyph-image-instance pgauge) :percent x)
+    (setq x (+ x 5))
+    (sit-for 0.1)))
+
+;; progress gauge in the modeline
+(setq global-mode-string 
+      (cons (make-extent nil nil)
+           (setq pg (make-glyph 
+                     [progress-gauge :width 5 :pixel-height 16
+                                     :descriptor "ok"]))))
+;; progress the progress ...
+(let ((x 0))
+  (while (<= x 100)
+    (set-image-instance-property (glyph-image-instance pg) :percent x)
+    (setq x (+ x 5))
+    (sit-for 0.1)))
+
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph 
+  [button :face modeline-mousable
+         :descriptor "ok" :callback foo
+         :image (make-glyph 
+                 [xpm :file "../etc/xemacs-icon.xpm"])]))
+
 ;; normal pushbutton
 (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 
@@ -51,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)