Mercurial > hg > xemacs-beta

comparison lisp/modeline.el @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children b8cc9ab3f761
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
77 (set-glyph-image modeline-pointer-glyph "hand2" 'global 'x)) 77 (set-glyph-image modeline-pointer-glyph "hand2" 'global 'x))
78 ((eq val 'scrollbar) 78 ((eq val 'scrollbar)
79 (set-glyph-image modeline-pointer-glyph "fleur" 'global 'x)) 79 (set-glyph-image modeline-pointer-glyph "fleur" 'global 'x))
80 (t 80 (t
81 (set-glyph-image modeline-pointer-glyph "sb_v_double_arrow" 81 (set-glyph-image modeline-pointer-glyph "sb_v_double_arrow"
82 'global 'x))))) 82 'global 'x))))
83 (when (featurep 'mswindows)
84 (cond ((eq val t)
85 (set-glyph-image modeline-pointer-glyph
86 [mswindows-resource :resource-type cursor
87 :resource-id "SizeAll"]
88 'global 'mswindows))
89 ((eq val 'scrollbar)
90 (set-glyph-image modeline-pointer-glyph
91 [mswindows-resource :resource-type cursor
92 :resource-id "Normal"]
93 'global 'mswindows))
94 (t
95 (set-glyph-image modeline-pointer-glyph
96 [mswindows-resource :resource-type cursor
97 :resource-id "SizeNS"]
98 'global 'mswindows)))))
83 :group 'modeline) 99 :group 'modeline)
84 100
85 (defun mouse-drag-modeline (event) 101 (defun mouse-drag-modeline (event)
86 "Resize a window by dragging its modeline. 102 "Resize a window by dragging its modeline.
87 This command should be bound to a button-press event in modeline-map. 103 This command should be bound to a button-press event in modeline-map.