Mercurial > hg > xemacs-beta

comparison lisp/utils/floating-toolbar.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 8fc7fe29b841
children e45d5e7c476e
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
84 (provide 'floating-toolbar) 84 (provide 'floating-toolbar)
85 85
86 (require 'toolbar) 86 (require 'toolbar)
87 (require 'x) 87 (require 'x)
88 88
89 (defvar floating-toolbar-version "1.01" 89 (defvar floating-toolbar-version "1.02"
90 "Version string for the floating-toolbar package.") 90 "Version string for the floating-toolbar package.")
91 91
92 (defvar floating-toolbar-use-sound nil 92 (defvar floating-toolbar-use-sound nil
93 "*Non-nil value means play a sound to herald the appearance 93 "*Non-nil value means play a sound to herald the appearance
94 and disappearance of the floating toolbar. 94 and disappearance of the floating toolbar.
310 (set-frame-position floating-toolbar-frame x y)) 310 (set-frame-position floating-toolbar-frame x y))
311 311
312 (defun floating-toolbar-make-junk-frame () 312 (defun floating-toolbar-make-junk-frame ()
313 (let ((window-min-height 1) 313 (let ((window-min-height 1)
314 (window-min-width 1)) 314 (window-min-width 1))
315 (make-frame '(minibuffer t initially-unmapped t width 1 height 1)))) 315 (save-excursion
316 (set-buffer (generate-new-buffer "*junk-frame-buffer*"))
317 (prog1
318 (make-frame '(minibuffer t initially-unmapped t width 1 height 1))
319 (rename-buffer " *junk-frame-buffer*" t)))))
316 320
317 (defun floating-toolbar-make-toolbar-frame (x y) 321 (defun floating-toolbar-make-toolbar-frame (x y)
318 (save-excursion 322 (save-excursion
319 (let ((window-min-height 1) 323 (let ((window-min-height 1)
320 (window-min-width 1) 324 (window-min-width 1)