Whitespace/style improvements

1 files changed, 150 insertions, 146 deletions

diff --git a/generic/tkGeometry.c b/generic/tkGeometry.c
index f2b1ffa..46df67e 100644
--- a/generic/tkGeometry.c
+++ b/generic/tkGeometry.c
@@ -1,25 +1,25 @@
-/* 
+/*
  * tkGeometry.c --
  *
- *	This file contains generic Tk code for geometry management
- *	(stuff that's used by all geometry managers).
+ *	This file contains generic Tk code for geometry management (stuff
+ *	that's used by all geometry managers).
  *
  * Copyright (c) 1990-1994 The Regents of the University of California.
  * Copyright (c) 1994-1995 Sun Microsystems, Inc.
  *
- * See the file "license.terms" for information on usage and redistribution
- * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ * See the file "license.terms" for information on usage and redistribution of
+ * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkGeometry.c,v 1.5 2001/09/26 20:25:17 pspjuth Exp $
+ * RCS: @(#) $Id: tkGeometry.c,v 1.6 2005/09/08 23:52:52 dkf Exp $
  */
 
 #include "tkPort.h"
 #include "tkInt.h"
 
 /*
- * Data structures of the following type are used by Tk_MaintainGeometry.
- * For each slave managed by Tk_MaintainGeometry, there is one of these
- * structures associated with its master.
+ * Data structures of the following type are used by Tk_MaintainGeometry. For
+ * each slave managed by Tk_MaintainGeometry, there is one of these structures
+ * associated with its master.
  */
 
 typedef struct MaintainSlave {
@@ -31,68 +31,67 @@ typedef struct MaintainSlave {
 				 * master. */
     int width, height;		/* Desired dimensions of slave. */
     struct MaintainSlave *nextPtr;
-				/* Next in list of Maintains associated
-				 * with master. */
+				/* Next in list of Maintains associated with
+				 * master. */
 } MaintainSlave;
 
 /*
- * For each window that has been specified as a master to
- * Tk_MaintainGeometry, there is a structure of the following type:
+ * For each window that has been specified as a master to Tk_MaintainGeometry,
+ * there is a structure of the following type:
  */
 
 typedef struct MaintainMaster {
-    Tk_Window ancestor;		/* The lowest ancestor of this window
-				 * for which we have *not* created a
-				 * StructureNotify handler.  May be the
-				 * same as the window itself. */
-    int checkScheduled;		/* Non-zero means that there is already a
-				 * call to MaintainCheckProc scheduled as
-				 * an idle handler. */
-    MaintainSlave *slavePtr;	/* First in list of all slaves associated
-				 * with this master. */
+    Tk_Window ancestor;		/* The lowest ancestor of this window for
+				 * which we have *not* created a
+				 * StructureNotify handler. May be the same as
+				 * the window itself. */
+    int checkScheduled;		/* Non-zero means that there is already a call
+				 * to MaintainCheckProc scheduled as an idle
+				 * handler. */
+    MaintainSlave *slavePtr;	/* First in list of all slaves associated with
+				 * this master. */
 } MaintainMaster;
 
 /*
  * Prototypes for static procedures in this file:
  */
 
-static void		MaintainCheckProc _ANSI_ARGS_((ClientData clientData));
-static void		MaintainMasterProc _ANSI_ARGS_((ClientData clientData,
-			    XEvent *eventPtr));
-static void		MaintainSlaveProc _ANSI_ARGS_((ClientData clientData,
-			    XEvent *eventPtr));
+static void		MaintainCheckProc(ClientData clientData);
+static void		MaintainMasterProc(ClientData clientData,
+			    XEvent *eventPtr);
+static void		MaintainSlaveProc(ClientData clientData,
+			    XEvent *eventPtr);
 
 /*
  *--------------------------------------------------------------
  *
  * Tk_ManageGeometry --
  *
- *	Arrange for a particular procedure to manage the geometry
- *	of a given slave window.
+ *	Arrange for a particular procedure to manage the geometry of a given
+ *	slave window.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	Proc becomes the new geometry manager for tkwin, replacing
- *	any previous geometry manager.  The geometry manager will
- *	be notified (by calling procedures in *mgrPtr) when interesting
- *	things happen in the future.  If there was an existing geometry
- *	manager for tkwin different from the new one, it is notified
- *	by calling its lostSlaveProc.
+ *	Proc becomes the new geometry manager for tkwin, replacing any
+ *	previous geometry manager. The geometry manager will be notified (by
+ *	calling procedures in *mgrPtr) when interesting things happen in the
+ *	future. If there was an existing geometry manager for tkwin different
+ *	from the new one, it is notified by calling its lostSlaveProc.
  *
  *--------------------------------------------------------------
  */
 
 void
 Tk_ManageGeometry(tkwin, mgrPtr, clientData)
-    Tk_Window tkwin;		/* Window whose geometry is to
-				 * be managed by proc.  */
-    Tk_GeomMgr *mgrPtr;		/* Static structure describing the
-				 * geometry manager.  This structure
-				 * must never go away. */
-    ClientData clientData;	/* Arbitrary one-word argument to
-				 * pass to geometry manager procedures. */
+    Tk_Window tkwin;		/* Window whose geometry is to be managed by
+				 * proc. */
+    Tk_GeomMgr *mgrPtr;		/* Static structure describing the geometry
+				 * manager. This structure must never go
+				 * away. */
+    ClientData clientData;	/* Arbitrary one-word argument to pass to
+				 * geometry manager procedures. */
 {
     register TkWindow *winPtr = (TkWindow *) tkwin;
 
@@ -112,20 +111,18 @@ Tk_ManageGeometry(tkwin, mgrPtr, clientData)
  *
  * Tk_GeometryRequest --
  *
- *	This procedure is invoked by widget code to indicate
- *	its preferences about the size of a window it manages.
- *	In general, widget code should call this procedure
- *	rather than Tk_ResizeWindow.
+ *	This procedure is invoked by widget code to indicate its preferences
+ *	about the size of a window it manages. In general, widget code should
+ *	call this procedure rather than Tk_ResizeWindow.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	The geometry manager for tkwin (if any) is invoked to
- *	handle the request.  If possible, it will reconfigure
- *	tkwin and/or other windows to satisfy the request.  The
- *	caller gets no indication of success or failure, but it
- *	will get X events if the window size was actually
+ *	The geometry manager for tkwin (if any) is invoked to handle the
+ *	request. If possible, it will reconfigure tkwin and/or other windows
+ *	to satisfy the request. The caller gets no indication of success or
+ *	failure, but it will get X events if the window size was actually
  *	changed.
  *
  *--------------------------------------------------------------
@@ -133,16 +130,16 @@ Tk_ManageGeometry(tkwin, mgrPtr, clientData)
 
 void
 Tk_GeometryRequest(tkwin, reqWidth, reqHeight)
-    Tk_Window tkwin;		/* Window that geometry information
-				 * pertains to. */
-    int reqWidth, reqHeight;	/* Minimum desired dimensions for
-				 * window, in pixels. */
+    Tk_Window tkwin;		/* Window that geometry information pertains
+				 * to. */
+    int reqWidth, reqHeight;	/* Minimum desired dimensions for window, in
+				 * pixels. */
 {
     register TkWindow *winPtr = (TkWindow *) tkwin;
 
     /*
-     * X gets very upset if a window requests a width or height of
-     * zero, so rounds requested sizes up to at least 1.
+     * X gets very upset if a window requests a width or height of zero, so
+     * rounds requested sizes up to at least 1.
      */
 
     if (reqWidth <= 0) {
@@ -167,9 +164,9 @@ Tk_GeometryRequest(tkwin, reqWidth, reqHeight)
  *
  * Tk_SetInternalBorderEx --
  *
- *	Notify relevant geometry managers that a window has an internal
- *	border of a given width and that child windows should not be
- *	placed on that border.
+ *	Notify relevant geometry managers that a window has an internal border
+ *	of a given width and that child windows should not be placed on that
+ *	border.
  *
  * Results:
  *	None.
@@ -225,10 +222,10 @@ Tk_SetInternalBorderEx(tkwin, left, right, top, bottom)
 
     /*
      * All the slaves for which this is the master window must now be
-     * repositioned to take account of the new internal border width.
-     * To signal all the geometry managers to do this, just resize the
-     * window to its current size.  The ConfigureNotify event will
-     * cause geometry managers to recompute everything.
+     * repositioned to take account of the new internal border width. To
+     * signal all the geometry managers to do this, just resize the window to
+     * its current size. The ConfigureNotify event will cause geometry
+     * managers to recompute everything.
      */
 
     if (changed) {
@@ -240,17 +237,16 @@ Tk_SetInternalBorderEx(tkwin, left, right, top, bottom)
  *
  * Tk_SetInternalBorder --
  *
- *	Notify relevant geometry managers that a window has an internal
- *	border of a given width and that child windows should not be
- *	placed on that border.
+ *	Notify relevant geometry managers that a window has an internal border
+ *	of a given width and that child windows should not be placed on that
+ *	border.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	The border width is recorded for the window, and all geometry
- *	managers of all children are notified so that can re-layout, if
- *	necessary.
+ *	The border width is recorded for the window, and all geometry managers
+ *	of all children are notified so that can re-layout, if necessary.
  *
  *----------------------------------------------------------------------
  */
@@ -268,15 +264,15 @@ Tk_SetInternalBorder(tkwin, width)
  *
  * Tk_SetMinimumRequestSize --
  *
- *	Notify relevant geometry managers that a window has a minimum
- *	request size.
+ *	Notify relevant geometry managers that a window has a minimum request
+ *	size.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	The minimum request size is recorded for the window, and 
- *      a new size is requested for the window, if necessary.
+ *	The minimum request size is recorded for the window, and a new size is
+ *	requested for the window, if necessary.
  *
  *----------------------------------------------------------------------
  */
@@ -297,11 +293,11 @@ Tk_SetMinimumRequestSize(tkwin, minWidth, minHeight)
     winPtr->minReqHeight = minHeight;
 
     /*
-     * The changed min size may cause geometry managers to get a
-     * different result, so make them recompute.
-     * To signal all the geometry managers to do this, just resize the
-     * window to its current size.  The ConfigureNotify event will
-     * cause geometry managers to recompute everything.
+     * The changed min size may cause geometry managers to get a different
+     * result, so make them recompute. To signal all the geometry managers to
+     * do this, just resize the window to its current size. The
+     * ConfigureNotify event will cause geometry managers to recompute
+     * everything.
      */
 
     Tk_ResizeWindow(tkwin, Tk_Width(tkwin), Tk_Height(tkwin));
@@ -312,24 +308,24 @@ Tk_SetMinimumRequestSize(tkwin, minWidth, minHeight)
  *
  * Tk_MaintainGeometry --
  *
- *	This procedure is invoked by geometry managers to handle slaves
- *	whose master's are not their parents.  It translates the desired
- *	geometry for the slave into the coordinate system of the parent
- *	and respositions the slave if it isn't already at the right place.
- *	Furthermore, it sets up event handlers so that if the master (or
- *	any of its ancestors up to the slave's parent) is mapped, unmapped,
- *	or moved, then the slave will be adjusted to match.
+ *	This procedure is invoked by geometry managers to handle slaves whose
+ *	master's are not their parents. It translates the desired geometry for
+ *	the slave into the coordinate system of the parent and respositions
+ *	the slave if it isn't already at the right place. Furthermore, it sets
+ *	up event handlers so that if the master (or any of its ancestors up to
+ *	the slave's parent) is mapped, unmapped, or moved, then the slave will
+ *	be adjusted to match.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	Event handlers are created and state is allocated to keep track
- *	of slave.  Note:  if slave was already managed for master by
- *	Tk_MaintainGeometry, then the previous information is replaced
- *	with the new information.  The caller must eventually call
- *	Tk_UnmaintainGeometry to eliminate the correspondence (or, the
- *	state is automatically freed when either window is destroyed).
+ *	Event handlers are created and state is allocated to keep track of
+ *	slave. Note: if slave was already managed for master by
+ *	Tk_MaintainGeometry, then the previous information is replaced with
+ *	the new information. The caller must eventually call
+ *	Tk_UnmaintainGeometry to eliminate the correspondence (or, the state
+ *	is automatically freed when either window is destroyed).
  *
  *----------------------------------------------------------------------
  */
@@ -337,8 +333,8 @@ Tk_SetMinimumRequestSize(tkwin, minWidth, minHeight)
 void
 Tk_MaintainGeometry(slave, master, x, y, width, height)
     Tk_Window slave;		/* Slave for geometry management. */
-    Tk_Window master;		/* Master for slave; must be a descendant
-				 * of slave's parent. */
+    Tk_Window master;		/* Master for slave; must be a descendant of
+				 * slave's parent. */
     int x, y;			/* Desired position of slave within master. */
     int width, height;		/* Desired dimensions for slave. */
 {
@@ -356,6 +352,7 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
 	 * call to Tk_MoveResizeWindow; the parent/child relationship will
 	 * take care of the rest.
 	 */
+
 	Tk_MoveResizeWindow(slave, x, y, width, height);
 
 	/*
@@ -363,6 +360,7 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
 	 * until the master is mapped later (in which case mapping the slave
 	 * is taken care of elsewhere).
 	 */
+
 	if (Tk_IsMapped(master)) {
 	    Tk_MapWindow(slave);
 	}
@@ -375,13 +373,13 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
     }
 
     /*
-     * See if there is already a MaintainMaster structure for the master;
-     * if not, then create one.
+     * See if there is already a MaintainMaster structure for the master; if
+     * not, then create one.
      */
 
     parent = Tk_Parent(slave);
-    hPtr = Tcl_CreateHashEntry(&dispPtr->maintainHashTable, 
-            (char *) master, &new);
+    hPtr = Tcl_CreateHashEntry(&dispPtr->maintainHashTable,
+	    (char *) master, &new);
     if (!new) {
 	masterPtr = (MaintainMaster *) Tcl_GetHashValue(hPtr);
     } else {
@@ -393,8 +391,8 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
     }
 
     /*
-     * Create a MaintainSlave structure for the slave if there isn't
-     * already one.
+     * Create a MaintainSlave structure for the slave if there isn't already
+     * one.
      */
 
     for (slavePtr = masterPtr->slavePtr; slavePtr != NULL;
@@ -412,10 +410,10 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
 	    (ClientData) slavePtr);
 
     /*
-     * Make sure that there are event handlers registered for all
-     * the windows between master and slave's parent (including master
-     * but not slave's parent).  There may already be handlers for master
-     * and some of its ancestors (masterPtr->ancestor tells how many).
+     * Make sure that there are event handlers registered for all the windows
+     * between master and slave's parent (including master but not slave's
+     * parent). There may already be handlers for master and some of its
+     * ancestors (masterPtr->ancestor tells how many).
      */
 
     for (ancestor = master; ancestor != parent;
@@ -428,11 +426,11 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
     }
 
     /*
-     * Fill in up-to-date information in the structure, then update the
-     * window if it's not currently in the right place or state.
+     * Fill in up-to-date information in the structure, then update the window
+     * if it's not currently in the right place or state.
      */
 
-    gotSlave:
+  gotSlave:
     slavePtr->x = x;
     slavePtr->y = y;
     slavePtr->width = width;
@@ -466,17 +464,16 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
  *
  * Tk_UnmaintainGeometry --
  *
- *	This procedure cancels a previous Tk_MaintainGeometry call,
- *	so that the relationship between slave and master is no longer
- *	maintained.
+ *	This procedure cancels a previous Tk_MaintainGeometry call, so that
+ *	the relationship between slave and master is no longer maintained.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	The slave is unmapped and state is released, so that slave won't
- *	track master any more.  If we weren't previously managing slave
- *	relative to master, then this procedure has no effect.
+ *	The slave is unmapped and state is released, so that slave won't track
+ *	master any more. If we weren't previously managing slave relative to
+ *	master, then this procedure has no effect.
  *
  *----------------------------------------------------------------------
  */
@@ -484,8 +481,8 @@ Tk_MaintainGeometry(slave, master, x, y, width, height)
 void
 Tk_UnmaintainGeometry(slave, master)
     Tk_Window slave;		/* Slave for geometry management. */
-    Tk_Window master;		/* Master for slave; must be a descendant
-				 * of slave's parent. */
+    Tk_Window master;		/* Master for slave; must be a descendant of
+				 * slave's parent. */
 {
     Tcl_HashEntry *hPtr;
     MaintainMaster *masterPtr;
@@ -497,11 +494,11 @@ Tk_UnmaintainGeometry(slave, master)
 	/*
 	 * If the slave is a direct descendant of the master,
 	 * Tk_MaintainGeometry will not have set up any of the extra
-	 * infrastructure.  Don't even bother to look for it, just return.
+	 * infrastructure. Don't even bother to look for it, just return.
 	 */
 	return;
     }
-    
+
     if (!dispPtr->geomInit) {
 	dispPtr->geomInit = 1;
 	Tcl_InitHashTable(&dispPtr->maintainHashTable, TCL_ONE_WORD_KEYS);
@@ -556,27 +553,27 @@ Tk_UnmaintainGeometry(slave, master)
  *
  * MaintainMasterProc --
  *
- *	This procedure is invoked by the Tk event dispatcher in
- *	response to StructureNotify events on the master or one
- *	of its ancestors, on behalf of Tk_MaintainGeometry.
+ *	This procedure is invoked by the Tk event dispatcher in response to
+ *	StructureNotify events on the master or one of its ancestors, on
+ *	behalf of Tk_MaintainGeometry.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	It schedules a call to MaintainCheckProc, which will eventually
- *	caused the postions and mapped states to be recalculated for all
- *	the maintained slaves of the master.  Or, if the master window is
- *	being deleted then state is cleaned up.
+ *	It schedules a call to MaintainCheckProc, which will eventually caused
+ *	the postions and mapped states to be recalculated for all the
+ *	maintained slaves of the master. Or, if the master window is being
+ *	deleted then state is cleaned up.
  *
  *----------------------------------------------------------------------
  */
 
 static void
 MaintainMasterProc(clientData, eventPtr)
-    ClientData clientData;		/* Pointer to MaintainMaster structure
-					 * for the master window. */
-    XEvent *eventPtr;			/* Describes what just happened. */
+    ClientData clientData;	/* Pointer to MaintainMaster structure for the
+				 * master window. */
+    XEvent *eventPtr;		/* Describes what just happened. */
 {
     MaintainMaster *masterPtr = (MaintainMaster *) clientData;
     MaintainSlave *slavePtr;
@@ -591,9 +588,9 @@ MaintainMasterProc(clientData, eventPtr)
 	}
     } else if (eventPtr->type == DestroyNotify) {
 	/*
-	 * Delete all of the state associated with this master, but
-	 * be careful not to use masterPtr after the last slave is
-	 * deleted, since its memory will have been freed.
+	 * Delete all of the state associated with this master, but be careful
+	 * not to use masterPtr after the last slave is deleted, since its
+	 * memory will have been freed.
 	 */
 
 	done = 0;
@@ -612,25 +609,25 @@ MaintainMasterProc(clientData, eventPtr)
  *
  * MaintainSlaveProc --
  *
- *	This procedure is invoked by the Tk event dispatcher in
- *	response to StructureNotify events on a slave being managed
- *	by Tk_MaintainGeometry.
+ *	This procedure is invoked by the Tk event dispatcher in response to
+ *	StructureNotify events on a slave being managed by
+ *	Tk_MaintainGeometry.
  *
  * Results:
  *	None.
  *
  * Side effects:
- *	If the event is a DestroyNotify event then the Maintain state
- *	and event handlers for this slave are deleted.
+ *	If the event is a DestroyNotify event then the Maintain state and
+ *	event handlers for this slave are deleted.
  *
  *----------------------------------------------------------------------
  */
 
 static void
 MaintainSlaveProc(clientData, eventPtr)
-    ClientData clientData;		/* Pointer to MaintainSlave structure
-					 * for master-slave pair. */
-    XEvent *eventPtr;			/* Describes what just happened. */
+    ClientData clientData;	/* Pointer to MaintainSlave structure for
+				 * master-slave pair. */
+    XEvent *eventPtr;		/* Describes what just happened. */
 {
     MaintainSlave *slavePtr = (MaintainSlave *) clientData;
 
@@ -644,12 +641,11 @@ MaintainSlaveProc(clientData, eventPtr)
  *
  * MaintainCheckProc --
  *
- *	This procedure is invoked by the Tk event dispatcher as an
- *	idle handler, when a master or one of its ancestors has been
- *	reconfigured, mapped, or unmapped.  Its job is to scan all of
- *	the slaves for the master and reposition them, map them, or
- *	unmap them as needed to maintain their geometry relative to
- *	the master.
+ *	This procedure is invoked by the Tk event dispatcher as an idle
+ *	handler, when a master or one of its ancestors has been reconfigured,
+ *	mapped, or unmapped. Its job is to scan all of the slaves for the
+ *	master and reposition them, map them, or unmap them as needed to
+ *	maintain their geometry relative to the master.
  *
  * Results:
  *	None.
@@ -662,8 +658,8 @@ MaintainSlaveProc(clientData, eventPtr)
 
 static void
 MaintainCheckProc(clientData)
-    ClientData clientData;		/* Pointer to MaintainMaster structure
-					 * for the master window. */
+    ClientData clientData;	/* Pointer to MaintainMaster structure for the
+				 * master window. */
 {
     MaintainMaster *masterPtr = (MaintainMaster *) clientData;
     MaintainSlave *slavePtr;
@@ -698,3 +694,11 @@ MaintainCheckProc(clientData)
 	}
     }
 }
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */