Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 278:90d73dddcdc4 r21-0b37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b37
author cvs
date Mon, 13 Aug 2007 10:31:29 +0200
parents 6330739388db
children 7df0dd720c89
comparison
equal deleted inserted replaced
277:cfdf3ff11843 278:90d73dddcdc4
425 ;; inactive-count reaches 0, the button/field/glyph is reactivated. 425 ;; inactive-count reaches 0, the button/field/glyph is reactivated.
426 426
427 (defun widget-activation-widget-mapper (extent action) 427 (defun widget-activation-widget-mapper (extent action)
428 "Activate or deactivate EXTENT's widget (button or field). 428 "Activate or deactivate EXTENT's widget (button or field).
429 Suitable for use with `map-extents'." 429 Suitable for use with `map-extents'."
430 (message "FUCK")
431 (ecase action 430 (ecase action
432 (:activate 431 (:activate
433 (decf (extent-property extent :inactive-count)) 432 (decf (extent-property extent :inactive-count))
434 (when (zerop (extent-property extent :inactive-count)) 433 (when (zerop (extent-property extent :inactive-count))
435 (set-extent-properties 434 (set-extent-properties
448 (set-extent-properties 447 (set-extent-properties
449 extent '(mouse-face nil help-echo nil keymap nil))))) 448 extent '(mouse-face nil help-echo nil keymap nil)))))
450 nil) 449 nil)
451 450
452 (defun widget-activation-glyph-mapper (extent action) 451 (defun widget-activation-glyph-mapper (extent action)
453 (message "FUCK")
454 (let ((activate-p (if (eq action :activate) t nil))) 452 (let ((activate-p (if (eq action :activate) t nil)))
455 (if activate-p 453 (if activate-p
456 (decf (extent-property extent :inactive-count)) 454 (decf (extent-property extent :inactive-count))
457 (incf (extent-property extent :inactive-count 0))) 455 (incf (extent-property extent :inactive-count 0)))
458 (when (or (and activate-p 456 (when (or (and activate-p