summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorsurles <surles>1999-04-16 18:26:58 (GMT)
committersurles <surles>1999-04-16 18:26:58 (GMT)
commitad0ec6667208da688eab7d28382358f4c37d837a (patch)
tree54c3fcc1616709c2a5e363b84f4c7467640a36d4 /generic
parent4e4fb1b6feaf44e52e345a9b03520c979225e4dc (diff)
downloadtk-ad0ec6667208da688eab7d28382358f4c37d837a.zip
tk-ad0ec6667208da688eab7d28382358f4c37d837a.tar.gz
tk-ad0ec6667208da688eab7d28382358f4c37d837a.tar.bz2
fixed Tk comment errors
Diffstat (limited to 'generic')
-rw-r--r--generic/tk.h8
-rw-r--r--generic/tk3d.c4
-rw-r--r--generic/tkBind.c6
-rw-r--r--generic/tkClipboard.c8
-rw-r--r--generic/tkColor.c5
-rw-r--r--generic/tkConfig.c4
-rw-r--r--generic/tkGet.c14
-rw-r--r--generic/tkInt.h8
-rw-r--r--generic/tkMenu.c6
-rw-r--r--generic/tkOldConfig.c6
-rw-r--r--generic/tkPlace.c4
-rw-r--r--generic/tkTextDisp.c4
-rw-r--r--generic/tkUtil.c4
-rw-r--r--generic/tkWindow.c4
14 files changed, 42 insertions, 43 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)