Mercurial > hg > xemacs-beta

comparison lisp/utils/floating-toolbar.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
188 (xleft-toolbar-width 188 (xleft-toolbar-width
189 (if (specifier-instance left-toolbar) 189 (if (specifier-instance left-toolbar)
190 (specifier-instance left-toolbar-width) 190 (specifier-instance left-toolbar-width)
191 0)) 191 0))
192 ;; better than nothing 192 ;; better than nothing
193 (menubar-height (if current-menubar 22 0))) 193 (menubar-height (if (and (featurep 'menubar)
194 current-menubar) 22 0)))
194 (setq x (+ left xleft-toolbar-width (event-x-pixel event)) 195 (setq x (+ left xleft-toolbar-width (event-x-pixel event))
195 y (+ top xtop-toolbar-height menubar-height 196 y (+ top xtop-toolbar-height menubar-height
196 (event-y-pixel event)))) 197 (event-y-pixel event))))
197 ;; for toolbar spec buffer local variable values 198 ;; for toolbar spec buffer local variable values
198 (and buffer (set-buffer buffer)) 199 (and buffer (set-buffer buffer))