Mercurial > hg > xemacs-beta

comparison lisp/glyphs.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c5d627a313b1
children 57709be46d1b
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
509 "*The shape of the mouse-pointer when over a toolbar. 509 "*The shape of the mouse-pointer when over a toolbar.
510 This is a glyph; use `set-glyph-image' to change it. 510 This is a glyph; use `set-glyph-image' to change it.
511 If unspecified in a particular domain, `nontext-pointer-glyph' is used.") 511 If unspecified in a particular domain, `nontext-pointer-glyph' is used.")
512 (set-glyph-face toolbar-pointer-glyph 'pointer) 512 (set-glyph-face toolbar-pointer-glyph 'pointer)
513 513
514 (defvar divider-pointer-glyph (make-pointer-glyph)
515 "*The shape of the mouse-pointer when over a window divider.
516 This is a glyph; use `set-glyph-image' to change it.
517 If unspecified in a particular domain, `nontext-pointer-glyph' is used.")
518 (set-glyph-face divider-pointer-glyph 'pointer)
519
514 ;; The following three are in C. 520 ;; The following three are in C.
515 (if (featurep 'menubar) 521 (if (featurep 'menubar)
516 (set-glyph-face menubar-pointer-glyph 'pointer)) 522 (set-glyph-face menubar-pointer-glyph 'pointer))
517 (if (featurep 'scrollbar) 523 (if (featurep 'scrollbar)
518 (set-glyph-face scrollbar-pointer-glyph 'pointer)) 524 (set-glyph-face scrollbar-pointer-glyph 'pointer))
544 (define-constant-glyph 'nontext-pointer-glyph) 550 (define-constant-glyph 'nontext-pointer-glyph)
545 (define-constant-glyph 'modeline-pointer-glyph) 551 (define-constant-glyph 'modeline-pointer-glyph)
546 (define-constant-glyph 'selection-pointer-glyph) 552 (define-constant-glyph 'selection-pointer-glyph)
547 (define-constant-glyph 'busy-pointer-glyph) 553 (define-constant-glyph 'busy-pointer-glyph)
548 (define-constant-glyph 'gc-pointer-glyph) 554 (define-constant-glyph 'gc-pointer-glyph)
555 (define-constant-glyph 'divider-pointer-glyph)
549 (define-constant-glyph 'toolbar-pointer-glyph) 556 (define-constant-glyph 'toolbar-pointer-glyph)
550 (define-constant-glyph 'menubar-pointer-glyph) 557 (define-constant-glyph 'menubar-pointer-glyph)
551 (define-constant-glyph 'scrollbar-pointer-glyph) 558 (define-constant-glyph 'scrollbar-pointer-glyph)
552 559
553 (define-constant-glyph 'octal-escape-glyph) 560 (define-constant-glyph 'octal-escape-glyph)