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

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