* library/balloon.tcl (balloon): Document `balloon withdraw'.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 81f667c..c3e5b26 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-30  Tom Tromey  <tromey@cygnus.com>
+
+       * library/balloon.tcl (balloon): Document `balloon withdraw'.
+
 2000-11-27  Tom Tromey  <tromey@cygnus.com>
 
        * library/debug.tcl (logfile): Also recognize stderr.

diff --git a/libgui/library/balloon.tcl b/libgui/library/balloon.tcl
index b4589d6..875c549 100644 (file)
--- a/libgui/library/balloon.tcl
+++ b/libgui/library/balloon.tcl
@@ -1,5 +1,5 @@
 # balloon.tcl - Balloon help.
-# Copyright (C) 1997, 1998 Cygnus Solutions.
+# Copyright (C) 1997, 1998, 2000 Cygnus Solutions.
 # Written by Tom Tromey <tromey@cygnus.com>.
 
 # KNOWN BUGS:
@@ -523,6 +523,9 @@ proc BALLOON_command_variable {window args} {
 #    balloon help is on.  If NAME is specified but empty,
 #    no variable is set.  If NAME not specified, then the
 #    current variable name is returned.
+#  balloon withdraw WINDOW
+#    Withdraw the balloon window associated with WINDOW.  This should
+#    be used sparingly.
 proc balloon {key args} {
   if {[info commands BALLOON_command_$key] == "" } then {
     error "unrecognized key \"$key\""