From xemacs-m  Tue Feb 25 21:08:14 1997
Received: from jens.metrix.de (jens@jens.metrix.de [194.123.88.124])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA12119
	for <xemacs-beta@xemacs.org>; Tue, 25 Feb 1997 21:08:08 -0600 (CST)
Received: (from jens@localhost) by jens.metrix.de (8.7.6/8.7.3) id EAA00661; Wed, 26 Feb 1997 04:07:54 +0100
To: xemacs-beta@xemacs.org
Subject: Re: balloon-help 1.04
References: <QQcemn13413.199702260126@crystal.WonderWorks.COM>
X-Face: Z[@OB)("ZvE?ev~1b+b!0ZUB.$%rh.9qE>dVf>q}Q/V?%d`J3gd!LR\aAZ8<Hwi]xTA(:*c;i3,?K?+rCy*^b$)a,}E?eo},}x2]5LlJysyoUOK"o[>K)'\Ulb7y-7*.If^;rHl['oa)n_M7E6w+LDKMs"G8_`c)uOS1^}.1|8Ill]7X68X-paeUOpBhz<F`B0?~^2Et~GYfw~/0]H]nx4~C_E/_mp#^7Ixc:
Reply-To: jens@lemming0.lem.uni-karlsruhe.de
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Feb_26_04:07:53_1997-1"
Content-Transfer-Encoding: 7bit
From: Jens Lautenbacher <jens@metrix.de>
Date: 26 Feb 1997 04:07:53 +0100
In-Reply-To: Kyle Jones's message of Tue, 25 Feb 1997 20:26:44 -0500 (EST)
Message-ID: <m3iv3gl0xi.fsf@jens.metrix.de>
Lines: 60
X-Mailer: Gnus v5.4.15/XEmacs 19.15

--Multipart_Wed_Feb_26_04:07:53_1997-1
Content-Type: text/plain; charset=US-ASCII


Yes it works. Nice!

just some little sugestion: The following patch allows to change the
balloon's frame width.

Using the following defaults gives a balloon very similar to some well
known commercial apps ... :-)

       (setq  balloon-help-foreground "black"
	      balloon-help-background "yellow"
	      balloon-help-font
	      "-adobe-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*"
	      balloon-help-border-color "black"
	      balloon-help-border-width 1)




--Multipart_Wed_Feb_26_04:07:53_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="balloon.diff"
Content-Transfer-Encoding: 7bit

*** /tmp/balloon-help.el	Wed Feb 26 03:39:45 1997
--- /usr/local/lib/xemacs-19.15/lisp/packages/balloon-help.el	Wed Feb 26 04:01:37 1997
***************
*** 81,86 ****
--- 81,89 ----
  (defvar balloon-help-border-color "black"
    "*The color for displaying balloon help frame's border.")
  
+ (defvar balloon-help-border-width 2
+   "*The width of the balloon help frame's border.")
+ 
  (defvar balloon-help-use-sound nil
    "*Non-nil value means play a sound to herald the appearance
  and disappearance of the help frame.
***************
*** 360,366 ****
  			       ;; try to evade frame decorations
  			       (cons 'name (or balloon-help-frame-name
  					       "xclock"))
! 			       '(border-width . 2)
  			       (cons 'border-color balloon-help-border-color)
  			       (cons 'top y)
  			       (cons 'left x)
--- 363,369 ----
  			       ;; try to evade frame decorations
  			       (cons 'name (or balloon-help-frame-name
  					       "xclock"))
! 			       '(border-width . balloon-help-border-width)
  			       (cons 'border-color balloon-help-border-color)
  			       (cons 'top y)
  			       (cons 'left x)

--Multipart_Wed_Feb_26_04:07:53_1997-1--

