Mercurial > hg > xemacs-beta

comparison lisp/x11/x-mouse.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
141 (or (x-get-resource "modeLinePointer" "Cursor" 'string device) 141 (or (x-get-resource "modeLinePointer" "Cursor" 'string device)
142 "sb_v_double_arrow")) 142 "sb_v_double_arrow"))
143 (set-glyph-image gc-pointer-glyph 143 (set-glyph-image gc-pointer-glyph
144 (or (x-get-resource "gcPointer" "Cursor" 'string device) 144 (or (x-get-resource "gcPointer" "Cursor" 'string device)
145 "watch")) 145 "watch"))
146 (set-glyph-image scrollbar-pointer-glyph 146 (when (featurep 'scrollbar)
147 (or (x-get-resource "scrollbarPointer" "Cursor" 'string device) 147 (set-glyph-image
148 "top_left_arrow")) 148 scrollbar-pointer-glyph
149 (or (x-get-resource "scrollbarPointer" "Cursor" 'string device)
150 "top_left_arrow")))
149 (set-glyph-image busy-pointer-glyph 151 (set-glyph-image busy-pointer-glyph
150 (or (x-get-resource "busyPointer" "Cursor" 'string device) 152 (or (x-get-resource "busyPointer" "Cursor" 'string device)
151 "watch")) 153 "watch"))
152 (set-glyph-image toolbar-pointer-glyph 154 (set-glyph-image toolbar-pointer-glyph
153 (or (x-get-resource "toolBarPointer" "Cursor" 'string device) 155 (or (x-get-resource "toolBarPointer" "Cursor" 'string device)