From xemacs-m  Sat Mar  8 04:19:23 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id EAA01509
	for <xemacs-beta@xemacs.org>; Sat, 8 Mar 1997 04:19:22 -0600 (CST)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id LAA03086; Sat, 8 Mar 1997 11:08:46 +0100
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id LAA17461; Sat, 8 Mar 1997 11:17:38 +0100
Sender: abraham@dina.kvl.dk
To: xemacs-beta@xemacs.org
Subject: Balloon Help vs Help Echo
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 08 Mar 1997 11:17:38 +0100
Message-ID: <rjd8tavgal.fsf@zuse.dina.kvl.dk>
Lines: 39
X-Mailer: Gnus v5.4.17/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit


Why does balllon help and help echo use different properties?  It
seems wasteful (and poor design) to specify the same information
twice.  Instead, there should be a user option specifying where the
help messages should be displayed (ballon, echo area, both).

Unrelated question:  Why are the balloons named "xclock:*balloon-help*"?  

------- Start of forwarded message -------
To: abraham@dina.kvl.dk
Subject: help-echo for widget on XEmacs
From: Hunter Kelly <retnuh@corona.pixar.com>
Date: 07 Mar 1997 19:38:07 -0800
Message-ID: <yvtzpwf834w.fsf@corona.pixar.com>

The following patch (against widget 1.56) turns on the help echo for
widgets when the mouse passes over the widget-button.

Hunter

--- wid-edit.el.orig    Fri Mar  7 18:36:54 1997
+++ wid-edit.el Fri Mar  7 19:32:01 1997
@@ -314,7 +314,13 @@
 
 (defun widget-specify-button (widget from to)
   ;; Specify button for WIDGET between FROM and TO.
-  (let ((face (widget-apply widget :button-face-get)))
+  (let ((face (widget-apply widget :button-face-get))
+       (help (widget-get widget :help-echo)))
+    (unless (not (and help (string-match "XEmacs" emacs-version)))
+      (if (not (stringp help))
+         (setq help '(lambda (e) (widget-echo-help
+                                  (extent-start-position e)))))
+      (add-text-properties from to (list 'help-echo help)))
     (add-text-properties from to (list 'button widget
                                       'mouse-face widget-mouse-face
                                       'start-open t

------- End of forwarded message -------

