fixed Tk comment errors

17 files changed, 48 insertions, 49 deletions

diff --git a/generic/tk.h b/generic/tk.h
index 11c0433..fb48ef6 100644
--- a/generic/tk.h
+++ b/generic/tk.h
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tk.h,v 1.21 1999/04/16 01:51:09 stanton Exp $
+ * RCS: @(#) $Id: tk.h,v 1.22 1999/04/16 18:30:26 surles Exp $
  */
 
 #ifndef _TK
@@ -193,9 +193,9 @@ typedef struct Tk_OptionSpec {
 #define TK_OPTION_NULL_OK		1
 
 /*
- * Macro to use to fill in "offset" fields of Tk_OptionSpecs.
- * Computes number of bytes from beginning of structure to a
- * given field.
+ * Macro to use to fill in "offset" fields of the Tk_OptionSpec.
+ * struct.  Computes number of bytes from beginning of structure
+ * to a given field.
  */
 
 #ifdef offsetof
diff --git a/generic/tk3d.c b/generic/tk3d.c
index cd5343a..e721767 100644
--- a/generic/tk3d.c
+++ b/generic/tk3d.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tk3d.c,v 1.3 1999/04/16 01:51:10 stanton Exp $
+ * RCS: @(#) $Id: tk3d.c,v 1.4 1999/04/16 18:30:26 surles Exp $
  */
 
 #include "tk3d.h"
@@ -71,7 +71,7 @@ static Tcl_ObjType borderObjType = {
  * Side effects:
  *	The border is added to an internal database with a reference
  *	count. For each call to this procedure, there should eventually
- *	be a call to Tk_FreeBorderFromObj so that the database is
+ *	be a call to FreeBorderObjProc so that the database is
  *	cleaned up when borders aren't in use anymore.
  *
  *----------------------------------------------------------------------
diff --git a/generic/tkBind.c b/generic/tkBind.c
index e0daec8..c2ea8c8 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- *  RCS: @(#) $Id: tkBind.c,v 1.6 1999/04/16 01:51:10 stanton Exp $
+ *  RCS: @(#) $Id: tkBind.c,v 1.7 1999/04/16 18:30:27 surles Exp $
  */
 
 #include "tkPort.h"
@@ -825,7 +825,7 @@ TkBindFree(mainPtr)
  *
  * Results:
  *	The return value is a token for the new table, which must
- *	be passed to procedures like Tk_CreatBinding.
+ *	be passed to procedures like Tk_CreateBinding.
  *
  * Side effects:
  *	Memory is allocated for the new table.
@@ -2976,7 +2976,7 @@ DeleteVirtualEvent(interp, vetPtr, virtString, eventString)
 		} else {
 		    for ( ; ; prevPtr = prevPtr->nextSeqPtr) {
 			if (prevPtr == NULL) {
-			    panic("Tk_DeleteVirtualEvent couldn't find on hash chain");
+			    panic("DeleteVirtualEvent couldn't find on hash chain");
 			}
 			if (prevPtr->nextSeqPtr == psPtr) {
 			    prevPtr->nextSeqPtr = psPtr->nextSeqPtr;
diff --git a/generic/tkClipboard.c b/generic/tkClipboard.c
index e2a5187..9986a43 100644
--- a/generic/tkClipboard.c
+++ b/generic/tkClipboard.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkClipboard.c,v 1.3 1999/04/16 01:51:12 stanton Exp $
+ * RCS: @(#) $Id: tkClipboard.c,v 1.4 1999/04/16 18:30:27 surles Exp $
  */
 
 #include "tkInt.h"
@@ -222,7 +222,7 @@ ClipboardLostSel(clientData)
  *
  *	Take control of the clipboard and clear out the previous
  *	contents.  This procedure must be invoked before any
- *	calls to Tk_AppendToClipboard.
+ *	calls to Tk_ClipboardAppend.
  *
  * Results:
  *	A standard Tcl result.  If an error occurs, an error message is
@@ -233,7 +233,7 @@ ClipboardLostSel(clientData)
  *	directed to the clipboard manager routines associated with
  *	clipWindow for the display of tkwin.  In order to guarantee
  *	atomicity, no event handling should occur between
- *	Tk_ClipboardClear and the following Tk_AppendToClipboard
+ *	Tk_ClipboardClear and the following Tk_ClipboardAppend
  *	calls.  This procedure may cause a user-defined LostSel command 
  * 	to be invoked when the CLIPBOARD is claimed, so any calling
  *	function should be reentrant at the point Tk_ClipboardClear is
@@ -307,7 +307,7 @@ Tk_ClipboardClear(interp, tkwin)
  *	be returned.  Tk_ClipboardClear must be called before a sequence
  *	of Tk_ClipboardAppend calls can be issued.  In order to guarantee
  *	atomicity, no event handling should occur between Tk_ClipboardClear
- *	and the following Tk_AppendToClipboard calls.
+ *	and the following Tk_ClipboardAppend calls.
  *
  * Results:
  *	A standard Tcl result.  If an error is returned, an error message
diff --git a/generic/tkColor.c b/generic/tkColor.c
index e37b331..41e4097 100644
--- a/generic/tkColor.c
+++ b/generic/tkColor.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkColor.c,v 1.3 1999/04/16 01:51:12 stanton Exp $
+ * RCS: @(#) $Id: tkColor.c,v 1.4 1999/04/16 18:30:27 surles Exp $
  */
 
 #include "tkColor.h"
@@ -403,8 +403,7 @@ Tk_NameOfColor(colorPtr)
 GC
 Tk_GCForColor(colorPtr, drawable)
     XColor *colorPtr;		/* Color for which a GC is desired. Must
-				 * have been allocated by Tk_GetColor or
-				 * Tk_GetColorByName. */
+				 * have been allocated by Tk_GetColor. */
     Drawable drawable;		/* Drawable in which the color will be
 				 * used (must have same screen and depth
 				 * as the one for which the color was
diff --git a/generic/tkConfig.c b/generic/tkConfig.c
index 0b78f4a..9f905e3 100644
--- a/generic/tkConfig.c
+++ b/generic/tkConfig.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkConfig.c,v 1.3 1999/04/16 01:51:12 stanton Exp $
+ * RCS: @(#) $Id: tkConfig.c,v 1.4 1999/04/16 18:30:27 surles Exp $
  */
 
 /*
@@ -39,7 +39,7 @@
 
 /*
  * The following two structures are used along with Tk_OptionSpec
- * structures to manage configuration options.  Tk_OptionSpecs are
+ * structures to manage configuration options.  Tk_OptionSpec is
  * static templates that are compiled into the code of a widget
  * or other object manager.  However, to look up options efficiently
  * we need to supplement the static information with additional
diff --git a/generic/tkGet.c b/generic/tkGet.c
index 95833a1..51e7a4d 100644
--- a/generic/tkGet.c
+++ b/generic/tkGet.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkGet.c,v 1.3 1999/04/16 01:51:14 stanton Exp $
+ * RCS: @(#) $Id: tkGet.c,v 1.4 1999/04/16 18:30:27 surles Exp $
  */
 
 #include "tkInt.h"
@@ -22,8 +22,8 @@
 /*
  * One of these structures is created per thread to store 
  * thread-specific data.  In this case, it is used to house the 
- * Tk_Uids used by each thread.  The "dataKey" below is used to 
- * locate the ThreadSpecificData for the current thread.
+ * Tk_Uid structs used by each thread.  The "dataKey" below is 
+ * used to locate the ThreadSpecificData for the current thread.
  */
 
 typedef struct ThreadSpecificData {
@@ -200,7 +200,7 @@ Tk_NameOfAnchor(anchor)
  *
  * Tk_GetJoinStyle --
  *
- *	Given a string, return the corresponding Tk_JoinStyle.
+ *	Given a string, return the corresponding Tk JoinStyle.
  *
  * Results:
  *	The return value is a standard Tcl return result.  If
@@ -252,7 +252,7 @@ Tk_GetJoinStyle(interp, string, joinPtr)
  *
  * Tk_NameOfJoinStyle --
  *
- *	Given a Tk_JoinStyle, return the string that corresponds
+ *	Given a Tk JoinStyle, return the string that corresponds
  *	to it.
  *
  * Results:
@@ -282,7 +282,7 @@ Tk_NameOfJoinStyle(join)
  *
  * Tk_GetCapStyle --
  *
- *	Given a string, return the corresponding Tk_CapStyle.
+ *	Given a string, return the corresponding Tk CapStyle.
  *
  * Results:
  *	The return value is a standard Tcl return result.  If
@@ -334,7 +334,7 @@ Tk_GetCapStyle(interp, string, capPtr)
  *
  * Tk_NameOfCapStyle --
  *
- *	Given a Tk_CapStyle, return the string that corresponds
+ *	Given a Tk CapStyle, return the string that corresponds
  *	to it.
  *
  * Results:
diff --git a/generic/tkInt.h b/generic/tkInt.h
index 68091bc..9f90cbb 100644
--- a/generic/tkInt.h
+++ b/generic/tkInt.h
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: $Id: tkInt.h,v 1.10 1999/04/16 01:51:15 stanton Exp $ 
+ * RCS: $Id: tkInt.h,v 1.11 1999/04/16 18:30:27 surles Exp $ 
  */
 
 #ifndef _TKINT
@@ -86,7 +86,7 @@ typedef struct TkCursor {
 				 * disposal and retrieval of cursors. */
     int resourceRefCount;	/* Number of active uses of this cursor (each
 				 * active use corresponds to a call to
-				 * Tk_AllocPreserveFromObj or Tk_GetPreserve).
+				 * Tk_AllocPreserveFromObj or Tk_Preserve).
 				 * If this count is 0, then this structure
 				 * is no longer valid and it isn't present
 				 * in a hash table: it is being kept around
@@ -293,7 +293,7 @@ typedef struct TkDisplay {
      * Information used by tkGet.c only:
      */
   
-    Tcl_HashTable uidTable;     /* Stores all Tk_Uids used in a thread. */
+    Tcl_HashTable uidTable;     /* Stores all Tk_Uid  used in a thread. */
     int uidInit;                /* 0 means uidTable needs initializing. */
 
     /*
@@ -550,7 +550,7 @@ typedef struct TkEventHandler {
 
 /*
  * Tk keeps one of the following data structures for each main
- * window (created by a call to Tk_CreateMainWindow).  It stores
+ * window (created by a call to TkCreateMainWindow).  It stores
  * information that is shared by all of the windows associated
  * with a particular main window.
  */
diff --git a/generic/tkMenu.c b/generic/tkMenu.c
index 5a3de18..7d6ad52 100644
--- a/generic/tkMenu.c
+++ b/generic/tkMenu.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMenu.c,v 1.3 1999/04/16 01:51:19 stanton Exp $
+ * RCS: @(#) $Id: tkMenu.c,v 1.4 1999/04/16 18:30:28 surles Exp $
  */
 
 /*
@@ -1204,7 +1204,7 @@ DestroyMenuInstance(menuPtr)
 
     /*
      * Free up all the stuff that requires special handling, then
-     * let Tk_FreeConfigurationOptions handle all the standard option-related
+     * let Tk_FreeConfigOptions handle all the standard option-related
      * stuff.
      */
 
@@ -1403,7 +1403,7 @@ DestroyMenuEntry(memPtr)
 
     /*
      * Free up all the stuff that requires special handling, then
-     * let Tk_FreeConfigurationOptions handle all the standard option-related
+     * let Tk_FreeConfigOptions handle all the standard option-related
      * stuff.
      */
 
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c
index 4b783e6..2e146a8 100644
--- a/generic/tkOldConfig.c
+++ b/generic/tkOldConfig.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkOldConfig.c,v 1.2 1999/04/16 01:51:20 stanton Exp $
+ * RCS: @(#) $Id: tkOldConfig.c,v 1.3 1999/04/16 18:30:28 surles Exp $
  */
 
 #include "tkPort.h"
@@ -99,8 +99,8 @@ Tk_ConfigureWidget(interp, tkwin, specs, argc, argv, widgRec, flags)
 
     /*
      * Pass one:  scan through all the option specs, replacing strings
-     * with Tk_Uids (if this hasn't been done already) and clearing
-     * the TK_CONFIG_OPTION_SPECIFIED flags.
+     * with Tk_Uid structs (if this hasn't been done already) and
+     * clearing the TK_CONFIG_OPTION_SPECIFIED flags.
      */
 
     for (specPtr = specs; specPtr->type != TK_CONFIG_END; specPtr++) {
diff --git a/generic/tkPlace.c b/generic/tkPlace.c
index 6fa2e46..338f1c2 100644
--- a/generic/tkPlace.c
+++ b/generic/tkPlace.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkPlace.c,v 1.3 1999/04/16 01:51:20 stanton Exp $
+ * RCS: @(#) $Id: tkPlace.c,v 1.4 1999/04/16 18:30:28 surles Exp $
  */
 
 #include "tkPort.h"
@@ -839,7 +839,7 @@ RecomputePlacement(clientData)
 	/*
 	 * Step 5: reconfigure the window and map it if needed.  If the
 	 * slave is a child of the master, we do this ourselves.  If the
-	 * slave isn't a child of the master, let Tk_MaintainWindow do
+	 * slave isn't a child of the master, let Tk_MaintainGeometry do
 	 * the work (it will re-adjust things as relevant windows map,
 	 * unmap, and move).
 	 */
diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c
index d1f05fa..2018467 100644
--- a/generic/tkTextDisp.c
+++ b/generic/tkTextDisp.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkTextDisp.c,v 1.4 1999/04/16 01:51:23 stanton Exp $
+ * RCS: @(#) $Id: tkTextDisp.c,v 1.5 1999/04/16 18:30:28 surles Exp $
  */
 
 #include "tkPort.h"
@@ -4936,7 +4936,7 @@ NextTabStop(tkfont, x, tabOrigin)
  *
  *	Determine the number of characters from the string that will fit
  *	in the given horizontal span.  The measurement is done under the
- *	assumption that Tk_DisplayChars will be used to actually display
+ *	assumption that Tk_DrawTextLayout will be used to actually display
  *	the characters.
  *
  *	If tabs are encountered in the string, they will be expanded
diff --git a/generic/tkUtil.c b/generic/tkUtil.c
index 3124f68..4013bc2 100644
--- a/generic/tkUtil.c
+++ b/generic/tkUtil.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUtil.c,v 1.3 1999/04/16 01:51:24 stanton Exp $
+ * RCS: @(#) $Id: tkUtil.c,v 1.4 1999/04/16 18:30:28 surles Exp $
  */
 
 #include "tkInt.h"
@@ -72,7 +72,7 @@ TkDrawInsetFocusHighlight(tkwin, gc, width, drawable, padding)
      * two things to worry about:
      *
      * 1) The widget must draw the background color covering
-     *    the focus ring area before calling Tk_DrawFocus.
+     *    the focus ring area before calling Tk_DrawFocusHighlight.
      * 2) It is impossible to draw a focus ring of width 1.
      *    (For the Macintosh Look & Feel use width of 3)
      */
diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index ad2e4e1..adc4a8c 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWindow.c,v 1.6 1999/04/16 01:51:25 stanton Exp $
+ * RCS: @(#) $Id: tkWindow.c,v 1.7 1999/04/16 18:30:29 surles Exp $
  */
 
 #include "tkPort.h"
@@ -38,7 +38,7 @@ typedef struct ThreadSpecificData {
 static Tcl_ThreadDataKey dataKey;
 
 /* 
- * The Mutex below is used to lock access to the Tk_Uids above. 
+ * The Mutex below is used to lock access to the Tk_Uid structs above. 
  */
 
 TCL_DECLARE_MUTEX(windowMutex)
diff --git a/unix/tkUnixXId.c b/unix/tkUnixXId.c
index 833011c..453102a 100644
--- a/unix/tkUnixXId.c
+++ b/unix/tkUnixXId.c
@@ -17,7 +17,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkUnixXId.c,v 1.3 1999/04/16 01:51:48 stanton Exp $
+ * RCS: @(#) $Id: tkUnixXId.c,v 1.4 1999/04/16 18:26:58 surles Exp $
  */
 
 /*
@@ -69,7 +69,7 @@ static void		WindowIdCleanup2 _ANSI_ARGS_((ClientData clientData));
  *	None.
  *
  * Side effects:
- *	The official allocator for the display is set up to be Tk_AllocXID.
+ *	The official allocator for the display is set up to be AllocXId.
  *
  *----------------------------------------------------------------------
  */
diff --git a/win/tkWinButton.c b/win/tkWinButton.c
index 16fcf9e..aa91860 100644
--- a/win/tkWinButton.c
+++ b/win/tkWinButton.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWinButton.c,v 1.3 1999/04/16 01:51:49 stanton Exp $
+ * RCS: @(#) $Id: tkWinButton.c,v 1.4 1999/04/16 18:29:02 surles Exp $
  */
 
 #define OEMRESOURCE
@@ -66,7 +66,7 @@ enum {
 
 /*
  * Cached information about the boxes bitmap, and the default border 
- * width for a button in string form for use in Tk_OptionSpecs for 
+ * width for a button in string form for use in Tk_OptionSpec for 
  * the various button widget classes.
  */
 
diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c
index bb3eb19..5f79f93 100644
--- a/win/tkWinDialog.c
+++ b/win/tkWinDialog.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWinDialog.c,v 1.3 1999/04/16 01:51:50 stanton Exp $
+ * RCS: @(#) $Id: tkWinDialog.c,v 1.4 1999/04/16 18:29:03 surles Exp $
  *
  */
 
@@ -32,7 +32,7 @@ typedef struct ThreadSpecificData {
 static Tcl_ThreadDataKey dataKey;
 
 /*
- * The following structures are used by Tk_MessageBox() to parse 
+ * The following structures are used by Tk_MessageBoxCmd() to parse 
  * arguments and return results.
  */