X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tests%2Fgutter-test.el;h=c73b09f606d1e950edddb5cb27f2984df6e23c85;hb=44ea030ec31ae441e59974eb9f6b2a9404611cd8;hp=27b6d076609c273191686b6333c2a240b1da2a9e;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git.1

diff --git a/tests/gutter-test.el b/tests/gutter-test.el
index 27b6d07..41a870a 100644
--- a/tests/gutter-test.el
+++ b/tests/gutter-test.el
@@ -1,23 +1,17 @@
-(setq str "Hello\nAgain")
-(setq str-ext (make-extent 0 5 str))
+(setq str "Hello There\nHello Again")
 (set-extent-begin-glyph 
- str-ext
+ (make-extent 0 0 str)
  (make-glyph [xpm :file "../etc/xemacs-icon.xpm"]))
-(set-extent-property str-ext 'mouse-face 'highlight)
 
-(setq str2 "Hello\n")
-(setq str2-ext (make-extent 0 1 str2))
 (set-extent-begin-glyph
- str2-ext
+ (make-extent 3 3 str)
  (make-glyph 
   [button :width 5 :height 1
 	  :face modeline-mousable
-	  :callback (set-specifier bottom-gutter-visible-p '(str2))
 	  :descriptor "ok" :selected t]))
 
-(set-specifier bottom-gutter-height 'autodetect)
-(set-specifier bottom-gutter-border-width 2)
-(set-gutter-element bottom-gutter 'str str)
-(set-gutter-element bottom-gutter 'str2 str2)
-(set-gutter-element-visible-p bottom-gutter-visible-p 'str t)
-(set-gutter-element-visible-p bottom-gutter-visible-p 'str2 t)
+(set-specifier default-gutter-height 'autodetect)
+(set-specifier default-gutter-width 40)
+(set-specifier default-gutter-border-width 2)
+(set-specifier default-gutter str)
+(set-default-gutter-position 'bottom)