XEmacs 21.2.7

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

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
new file mode 100644 (file)
index 0000000..8a61ceb
--- /dev/null
+++ b/tests/glyph-test.el
@@ -0,0 +1,56 @@
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
+
+(defun foo ()
+  (interactive) 
+  (setq ok-select (not ok-select)))
+
+;; button in a group
+(setq ok-select nil)
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph [button :descriptor ["ok     " (setq ok-select t)
+                                 :style radio :selected ok-select]]))
+;; button in a group
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph [button :descriptor ["ok" (setq ok-select nil) :style radio 
+                                 :selected (not 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]])))
+;; 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"]])))
+;; 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"))])))
+
+;; line
+(set-extent-begin-glyph 
+ (make-extent (point) (point))
+ (make-glyph [label :pixel-width 150 :descriptor "Hello"]))
+
+;; scrollbar
+;(set-extent-begin-glyph 
+; (make-extent (point) (point))
+; (make-glyph [scrollbar :width 50 :height 20 :descriptor ["Hello"]]))
+
+;; generic subwindow
+(setq sw (make-glyph [subwindow :pixel-width 50 :pixel-height 50]))
+(set-extent-begin-glyph (make-extent (point) (point)) sw)
+