Source

xemacs-21.4 / tests / gutter-test.el

cvs abe6d1d 

cvs 74fd4e0 
cvs abe6d1d 
cvs 74fd4e0 
cvs abe6d1d 
cvs 74fd4e0 
cvs abe6d1d 

cvs 74fd4e0 
cvs abe6d1d 
cvs 74fd4e0 


cvs abe6d1d 
cvs 74fd4e0 

cvs abe6d1d 




















(setq str "Hello\nAgain")
(setq str-ext (make-extent 0 5 str))
(set-extent-begin-glyph 
 str-ext
 (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-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
 (make-glyph 
  [layout :orientation vertical 
	  :justify left :margin-width 4 
	  :items ([string :data "Fontifying glyphs.c..."]
		  [layout :orientation horizontal 
			  :items 
			  ([progress-gauge :value 0 :pixel-height 24
					   :pixel-width 250 :descriptor 
					   "Progress"]
			   [button :pixel-height 24
				   :descriptor " Stop " 
				   :callback (quote quit)])])]))

(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)