Mercurial > hg > xemacs-beta

comparison lisp/x11/x-mouse.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 25f70ba0133c
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
142 (or (x-get-resource "modeLinePointer" "Cursor" 'string device) 142 (or (x-get-resource "modeLinePointer" "Cursor" 'string device)
143 "sb_v_double_arrow")) 143 "sb_v_double_arrow"))
144 (set-glyph-image gc-pointer-glyph 144 (set-glyph-image gc-pointer-glyph
145 (or (x-get-resource "gcPointer" "Cursor" 'string device) 145 (or (x-get-resource "gcPointer" "Cursor" 'string device)
146 "watch")) 146 "watch"))
147 (set-glyph-image scrollbar-pointer-glyph 147 (when (featurep 'scrollbar)
148 (or (x-get-resource "scrollbarPointer" "Cursor" 'string device) 148 (set-glyph-image
149 "top_left_arrow")) 149 scrollbar-pointer-glyph
150 (or (x-get-resource "scrollbarPointer" "Cursor" 'string device)
151 "top_left_arrow")))
150 (set-glyph-image busy-pointer-glyph 152 (set-glyph-image busy-pointer-glyph
151 (or (x-get-resource "busyPointer" "Cursor" 'string device) 153 (or (x-get-resource "busyPointer" "Cursor" 'string device)
152 "watch")) 154 "watch"))
153 (set-glyph-image toolbar-pointer-glyph 155 (set-glyph-image toolbar-pointer-glyph
154 (or (x-get-resource "toolBarPointer" "Cursor" 'string device) 156 (or (x-get-resource "toolBarPointer" "Cursor" 'string device)