Commits

Anonymous committed 73cefb3

2005-04-27 Stephen J. Turnbull <stephen@xemacs.org>

* balloon-help.el (balloon-help-gutter-possible):
(balloon-help-make-help-frame):
Whack gutters, too.
(balloon-help-make-junk-frame):
(balloon-help-make-help-frame):
Use override-redirect to suppress WM decorations.
(balloon-help-make-help-frame): Convert alist to plist.

Comments (0)

Files changed (2)

+2005-04-27  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* balloon-help.el (balloon-help-gutter-possible):
+	(balloon-help-make-help-frame):
+	Whack gutters, too.
+	(balloon-help-make-junk-frame):
+	(balloon-help-make-help-frame):
+	Use override-redirect to suppress WM decorations.
+	(balloon-help-make-help-frame): Convert alist to plist.
+
 2005-05-07  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 2.23 released.
 (defvar balloon-help-menubar-possible (featurep 'menubar))
 (defvar balloon-help-toolbar-possible (featurep 'toolbar))
 (defvar balloon-help-scrollbar-possible (featurep 'scrollbar))
+(defvar balloon-help-gutter-possible (featurep 'gutter))
 
 (defvar balloon-help-display-pending nil
   "Non-nil value means the help frame will be visible as soon
 	(setq balloon-help-junk-frame
 	      (make-frame '(minibuffer t
 			    initially-unmapped t
+			    override-redirect t	; get rid of WM decorations
 			    width 1
 			    height 1)))
       (set-window-buffer (frame-selected-window balloon-help-junk-frame)
 	   (window-min-height 1)
 	   (window-min-width 1)
 	   (junk-frame (balloon-help-make-junk-frame))
-	   (frame (make-frame (list
-			       '(initially-unmapped . t)
-			       '(internal-border-width . 1)
-			       ;; try to evade frame decorations
-			       (cons 'name balloon-help-frame-name)
-			       (cons 'border-width balloon-help-border-width)
-			       (cons 'border-color balloon-help-border-color)
-			       (cons 'top y)
-			       (cons 'left x)
-			       (cons 'popup junk-frame)
-			       (cons 'minibuffer
-				     (minibuffer-window junk-frame))
-			       '(width . 3)
-			       '(height . 1)))))
+	   (frame (make-frame `(initially-unmapped t
+				internal-border-width 0
+				;; try to suppress frame decorations
+				override-redirect t
+				name ,balloon-help-frame-name
+				border-width ,balloon-help-border-width
+				border-color ,balloon-help-border-color
+				top ,y
+				left ,x
+				popup ,junk-frame
+				minibuffer ,(minibuffer-window junk-frame)
+				width 3
+				height 1))))
       (set-face-font 'default balloon-help-font frame)
       (set-face-foreground 'default balloon-help-foreground frame)
       (set-face-background 'default balloon-help-background frame)
 	(set-specifier left-toolbar (cons frame nil))
 	(set-specifier right-toolbar (cons frame nil))
 	(set-specifier bottom-toolbar (cons frame nil)))
+      (when balloon-help-gutter-possible
+	(set-specifier top-gutter-height (cons frame 0))
+	(set-specifier left-gutter-width (cons frame 0))
+	(set-specifier right-gutter-width (cons frame 0))
+	(set-specifier bottom-gutter-height (cons frame 0))
+	(set-specifier top-gutter-visible-p (cons frame nil))
+	(set-specifier left-gutter-visible-p (cons frame nil))
+	(set-specifier right-gutter-visible-p (cons frame nil))
+	(set-specifier bottom-gutter-visible-p (cons frame nil))
+	(set-specifier top-gutter (cons frame nil))
+	(set-specifier left-gutter (cons frame nil))
+	(set-specifier right-gutter (cons frame nil))
+	(set-specifier bottom-gutter (cons frame nil)))
       (when balloon-help-scrollbar-possible
 	(set-specifier scrollbar-width (cons frame 0))
 	(set-specifier scrollbar-height (cons frame 0)))