Mercurial > hg > xemacs-beta

comparison lisp/x-mouse.el @ 265:8efd647ea9ca r20-5b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b31
author cvs
date Mon, 13 Aug 2007 10:25:37 +0200
parents 11cf20601dec
children c5d627a313b1
comparison
equal deleted inserted replaced
264:682d2a9d41a5 265:8efd647ea9ca
148 (set-glyph-image nontext-pointer-glyph 148 (set-glyph-image nontext-pointer-glyph
149 (or (x-get-resource "spacePointer" "Cursor" 'string device) 149 (or (x-get-resource "spacePointer" "Cursor" 'string device)
150 "xterm")) ; was "crosshair" 150 "xterm")) ; was "crosshair"
151 (set-glyph-image modeline-pointer-glyph 151 (set-glyph-image modeline-pointer-glyph
152 (or (x-get-resource "modeLinePointer" "Cursor" 'string device) 152 (or (x-get-resource "modeLinePointer" "Cursor" 'string device)
153 "fleur")) 153 ;; "fleur"))
154 "sb_v_double_arrow"))
154 (set-glyph-image gc-pointer-glyph 155 (set-glyph-image gc-pointer-glyph
155 (or (x-get-resource "gcPointer" "Cursor" 'string device) 156 (or (x-get-resource "gcPointer" "Cursor" 'string device)
156 "watch")) 157 "watch"))
157 (when (featurep 'scrollbar) 158 (when (featurep 'scrollbar)
158 (set-glyph-image 159 (set-glyph-image