XEmacs 21.2.19 "Shinjuku".

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

diff --git a/tests/glyph-test.el b/tests/glyph-test.el
index fa8859b..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))
- (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)