From d1c711f1d22a1524af5994cfa3f8888e5bc4dc9e Mon Sep 17 00:00:00 2001 From: ericm Date: Thu, 10 Aug 2000 00:21:05 +0000 Subject: * doc/SetOptions.3: Updated documentation to reflect support for TK_OPTION_NULL_OK for TK_OPTION_DOUBLE and TK_OPTION_PIXELS. * generic/tkConfig.c: Added for TK_OPTION_NULL_OK support for TK_OPTION_DOUBLE and TK_OPTION_PIXELS. * doc/place.n: Updated, reformatted manual entry. * tests/place.test: Added many tests. * generic/tkPlace.c (Tk_PlaceObjCmd): Updated to use Tk widget-option management facilities to manage place options (-x, -y, etc.), which simplifies the placer code. Added support for [place configure pathName] and [place configure pathName -option], similar to the behavior of the configure subcommand supported by widgets. --- ChangeLog | 19 ++ doc/SetOptions.3 | 13 +- doc/place.n | 209 +++++++++-------- generic/tkConfig.c | 26 ++- generic/tkMessage.c | 4 +- generic/tkPlace.c | 650 ++++++++++++++++++++++++++-------------------------- tests/place.test | 79 ++++++- 7 files changed, 552 insertions(+), 448 deletions(-) diff --git a/ChangeLog b/ChangeLog index cf2376b..f35ea95 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,22 @@ +2000-08-09 Eric Melski + + * doc/SetOptions.3: Updated documentation to reflect support for + TK_OPTION_NULL_OK for TK_OPTION_DOUBLE and TK_OPTION_PIXELS. + + * generic/tkConfig.c: Added for TK_OPTION_NULL_OK support for + TK_OPTION_DOUBLE and TK_OPTION_PIXELS. + + * doc/place.n: Updated, reformatted manual entry. + + * tests/place.test: Added many tests. + + * generic/tkPlace.c (Tk_PlaceObjCmd): Updated to use Tk + widget-option management facilities to manage place options (-x, + -y, etc.), which simplifies the placer code. Added support for + [place configure pathName] and [place configure pathName -option], + similar to the behavior of the configure subcommand supported by + widgets. + 2000-08-08 Eric Melski * tests/place.test: Extended test suite to test error returns from diff --git a/doc/SetOptions.3 b/doc/SetOptions.3 index 8393085..29f6e72 100644 --- a/doc/SetOptions.3 +++ b/doc/SetOptions.3 @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: SetOptions.3,v 1.3 2000/05/17 21:17:19 ericm Exp $ +'\" RCS: @(#) $Id: SetOptions.3,v 1.4 2000/08/10 00:21:06 ericm Exp $ '\" .so man.macros .TH Tk_SetOptions 3 8.1 Tk "Tk Library Procedures" @@ -311,8 +311,8 @@ The \fIflags\fR field consists of one or more bits ORed together. At present only a single flag is supported: TK_OPTION_NULL_OK. If this bit is set for an option then an empty string will be accepted as the value for the option and the resulting internal form will be a -NULL pointer or \fBNone\fR, depending on the type of the option. -If the flag is not set then empty strings will result +NULL pointer, a zero value, or \fBNone\fR, depending on the type of +the option. If the flag is not set then empty strings will result in errors. TK_OPTION_NULL_OK is typically used to allow a feature to be turned off entirely, e.g. set a cursor value to @@ -371,7 +371,8 @@ option type also supports the TK_OPTION_NULL_OK flag. \fBTK_OPTION_DOUBLE\fR The string value must be a floating-point number in the format accepted by \fBstrtol\fR. The internal form is a C -\fBdouble\fR value. +\fBdouble\fR value. This option type supports the TK_OPTION_NULL_OK +flag; if a NULL value is set, the internal representation is set to zero. .TP \fBTK_OPTION_END\fR Marks the end of the template. There must be a Tk_OptionSpec structure @@ -406,7 +407,9 @@ The internal form is an integer value giving a distance in pixels, like the values returned by \fBTk_GetPixelsFromObj\fR. Note: if the \fIobjOffset\fR field isn't used then information about the original value of this option will be lost. -See \fBOBJOFFSET VS. INTERNALOFFSET\fR below for details. +See \fBOBJOFFSET VS. INTERNALOFFSET\fR below for details. This option +type supports the TK_OPTION_NULL_OK flag; if a NULL value is set, the +internal representation is set to zero. .TP \fBTK_OPTION_RELIEF\fR The value must be standard relief such as \fBraised\fR. diff --git a/doc/place.n b/doc/place.n index b51e996..3a256e1 100644 --- a/doc/place.n +++ b/doc/place.n @@ -5,7 +5,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: place.n,v 1.2 1998/09/14 18:22:59 stanton Exp $ +'\" RCS: @(#) $Id: place.n,v 1.3 2000/08/10 00:21:06 ericm Exp $ '\" .so man.macros .TH place n "" Tk "Tk Built-In Commands" @@ -16,7 +16,7 @@ place \- Geometry manager for fixed or rubber-sheet placement .SH SYNOPSIS \fBplace \fIwindow option value \fR?\fIoption value ...\fR? .sp -\fBplace configure \fIwindow option value \fR?\fIoption value ...\fR? +\fBplace configure \fIwindow \fR?\fIoption\fR? ?\fIvalue option value ...\fR? .sp \fBplace forget \fIwindow\fR .sp @@ -39,16 +39,69 @@ Lastly, the placer allows you to mix these styles of placement so that, for example, the slave has a fixed width and height but is centered inside the master. .PP -If the first argument to the \fBplace\fR command is a window path -name or \fBconfigure\fR then the command arranges for the placer -to manage the geometry of a slave whose path name is \fIwindow\fR. -The remaining arguments consist of one or more \fIoption\-value\fR -pairs that specify the way in which \fIwindow\fR's -geometry is managed. -If the placer is already managing \fIwindow\fR, then the -\fIoption\-value\fR pairs modify the configuration for \fIwindow\fR. -In this form the \fBplace\fR command returns an empty string as result. +.TP +\fBplace \fIwindow option value \fR?\fIoption value ...\fR? +Arrange for the placer to manage the geometry of a slave whose +pathName is \fIwindow\fR. The remaining arguments consist of one or +more \fIoption\-value\fR pairs that specify the way in which +\fIwindow\fR's geometry is managed. \fIOption\fR may have any of the +values accepted by the \fBplace configure\fR command. +.TP +\fBplace configure \fIwindow \fR?\fIoption\fR? ?\fIvalue option value ...\fR? +Query or modify the geometry options of the slave given by +\fIwindow\fR. If no \fIoption\fR is specified, this command returns a +list describing the available options (see \fBTk_ConfigureInfo\fR for +information on the format of this list). If \fIoption\fR is specified +with no \fIvalue\fR, then the command returns a list describing the +one named option (this list will be identical to the corresponding +sublist of the value returned if no \fIoption\fR is specified). If +one or more \fIoption\-value\fR pairs are specified, then the command +modifies the given option(s) to have the given value(s); in this case +the command returns an empty string. + The following \fIoption\-value\fR pairs are supported: +.RS +.TP +\fB\-anchor \fIwhere\fR +\fIWhere\fR specifies which point of \fIwindow\fR is to be positioned +at the (x,y) location selected by the \fB\-x\fR, \fB\-y\fR, +\fB\-relx\fR, and \fB\-rely\fR options. +The anchor point is in terms of the outer area of \fIwindow\fR +including its border, if any. +Thus if \fIwhere\fR is \fBse\fR then the lower-right corner of +\fIwindow\fR's border will appear at the given (x,y) location +in the master. +The anchor position defaults to \fBnw\fR. +.TP +\fB\-bordermode \fImode\fR +\fIMode\fR determines the degree to which borders within the +master are used in determining the placement of the slave. +The default and most common value is \fBinside\fR. +In this case the placer considers the area of the master to +be the innermost area of the master, inside any border: +an option of \fB\-x 0\fR corresponds to an x-coordinate just +inside the border and an option of \fB\-relwidth 1.0\fR +means \fIwindow\fR will fill the area inside the master's +border. + +If \fImode\fR is \fBoutside\fR then the placer considers +the area of the master to include its border; +this mode is typically used when placing \fIwindow\fR +outside its master, as with the options \fB\-x 0 \-y 0 \-anchor ne\fR. +Lastly, \fImode\fR may be specified as \fBignore\fR, in which +case borders are ignored: the area of the master is considered +to be its official X area, which includes any internal border but +no external border. A bordermode of \fBignore\fR is probably +not very useful. +.TP +\fB\-height \fIsize\fR +\fISize\fR specifies the height for \fIwindow\fR in screen units +(i.e. any of the forms accepted by \fBTk_GetPixels\fR). +The height will be the outer dimension of \fIwindow\fR including its +border, if any. +If \fIsize\fR is an empty string, or if no \fB\-height\fR or +\fB\-relheight\fR option is specified, then the height requested +internally by the window will be used. .TP \fB\-in \fImaster\fR \fIMaster\fR specifes the path name of the window relative @@ -62,12 +115,25 @@ that \fIwindow\fR is visible whenever \fImaster\fR is visible. If this option isn't specified then the master defaults to \fIwindow\fR's parent. .TP -\fB\-x \fIlocation\fR -\fILocation\fR specifies the x-coordinate within the master window -of the anchor point for \fIwindow\fR. -The location is specified in screen units (i.e. any of the forms -accepted by \fBTk_GetPixels\fR) and need not lie within the bounds -of the master window. +\fB\-relheight \fIsize\fR +\fISize\fR specifies the height for \fIwindow\fR. +In this case the height is specified as a floating-point number +relative to the height of the master: 0.5 means \fIwindow\fR will +be half as high as the master, 1.0 means \fIwindow\fR will have +the same height as the master, and so on. +If both \fB\-height\fR and \fB\-relheight\fR are specified for a slave, +their values are summed. For example, \fB\-relheight 1.0 \-height \-2\fR +makes the slave 2 pixels shorter than the master. +.TP +\fB\-relwidth \fIsize\fR +\fISize\fR specifies the width for \fIwindow\fR. +In this case the width is specified as a floating-point number +relative to the width of the master: 0.5 means \fIwindow\fR will +be half as wide as the master, 1.0 means \fIwindow\fR will have +the same width as the master, and so on. +If both \fB\-width\fR and \fB\-relwidth\fR are specified for a slave, +their values are summed. For example, \fB\-relwidth 1.0 \-width 5\fR +makes the slave 5 pixels wider than the master. .TP \fB\-relx \fIlocation\fR \fILocation\fR specifies the x-coordinate within the master window @@ -81,13 +147,6 @@ then their values are summed. For example, \fB\-relx 0.5 \-x \-2\fR positions the left edge of the slave 2 pixels to the left of the center of its master. .TP -\fB\-y \fIlocation\fR -\fILocation\fR specifies the y-coordinate within the master window -of the anchor point for \fIwindow\fR. -The location is specified in screen units (i.e. any of the forms -accepted by \fBTk_GetPixels\fR) and need not lie within the bounds -of the master window. -.TP \fB\-rely \fIlocation\fR \fILocation\fR specifies the y-coordinate within the master window of the anchor point for \fIwindow\fR. @@ -100,17 +159,6 @@ then their values are summed. For example, \fB\-rely 0.5 \-x 3\fR positions the top edge of the slave 3 pixels below the center of its master. .TP -\fB\-anchor \fIwhere\fR -\fIWhere\fR specifies which point of \fIwindow\fR is to be positioned -at the (x,y) location selected by the \fB\-x\fR, \fB\-y\fR, -\fB\-relx\fR, and \fB\-rely\fR options. -The anchor point is in terms of the outer area of \fIwindow\fR -including its border, if any. -Thus if \fIwhere\fR is \fBse\fR then the lower-right corner of -\fIwindow\fR's border will appear at the given (x,y) location -in the master. -The anchor position defaults to \fBnw\fR. -.TP \fB\-width \fIsize\fR \fISize\fR specifies the width for \fIwindow\fR in screen units (i.e. any of the forms accepted by \fBTk_GetPixels\fR). @@ -120,77 +168,42 @@ If \fIsize\fR is an empty string, or if no \fB\-width\fR or \fB\-relwidth\fR option is specified, then the width requested internally by the window will be used. .TP -\fB\-relwidth \fIsize\fR -\fISize\fR specifies the width for \fIwindow\fR. -In this case the width is specified as a floating-point number -relative to the width of the master: 0.5 means \fIwindow\fR will -be half as wide as the master, 1.0 means \fIwindow\fR will have -the same width as the master, and so on. -If both \fB\-width\fR and \fB\-relwidth\fR are specified for a slave, -their values are summed. For example, \fB\-relwidth 1.0 \-width 5\fR -makes the slave 5 pixels wider than the master. -.TP -\fB\-height \fIsize\fR -\fISize\fR specifies the height for \fIwindow\fR in screen units -(i.e. any of the forms accepted by \fBTk_GetPixels\fR). -The height will be the outer dimension of \fIwindow\fR including its -border, if any. -If \fIsize\fR is an empty string, or if no \fB\-height\fR or -\fB\-relheight\fR option is specified, then the height requested -internally by the window will be used. -.TP -\fB\-relheight \fIsize\fR -\fISize\fR specifies the height for \fIwindow\fR. -In this case the height is specified as a floating-point number -relative to the height of the master: 0.5 means \fIwindow\fR will -be half as high as the master, 1.0 means \fIwindow\fR will have -the same height as the master, and so on. -If both \fB\-height\fR and \fB\-relheight\fR are specified for a slave, -their values are summed. For example, \fB\-relheight 1.0 \-height \-2\fR -makes the slave 2 pixels shorter than the master. +\fB\-x \fIlocation\fR +\fILocation\fR specifies the x-coordinate within the master window +of the anchor point for \fIwindow\fR. +The location is specified in screen units (i.e. any of the forms +accepted by \fBTk_GetPixels\fR) and need not lie within the bounds +of the master window. .TP -\fB\-bordermode \fImode\fR -\fIMode\fR determines the degree to which borders within the -master are used in determining the placement of the slave. -The default and most common value is \fBinside\fR. -In this case the placer considers the area of the master to -be the innermost area of the master, inside any border: -an option of \fB\-x 0\fR corresponds to an x-coordinate just -inside the border and an option of \fB\-relwidth 1.0\fR -means \fIwindow\fR will fill the area inside the master's -border. -If \fImode\fR is \fBoutside\fR then the placer considers -the area of the master to include its border; -this mode is typically used when placing \fIwindow\fR -outside its master, as with the options \fB\-x 0 \-y 0 \-anchor ne\fR. -Lastly, \fImode\fR may be specified as \fBignore\fR, in which -case borders are ignored: the area of the master is considered -to be its official X area, which includes any internal border but -no external border. A bordermode of \fBignore\fR is probably -not very useful. +\fB\-y \fIlocation\fR +\fILocation\fR specifies the y-coordinate within the master window +of the anchor point for \fIwindow\fR. +The location is specified in screen units (i.e. any of the forms +accepted by \fBTk_GetPixels\fR) and need not lie within the bounds +of the master window. .PP If the same value is specified separately with two different options, such as \fB\-x\fR and \fB\-relx\fR, then the most recent option is used and the older one is ignored. -.PP -The \fBplace slaves\fR command returns a list of all the slave -windows for which \fIwindow\fR is the master. -If there are no slaves for \fIwindow\fR then an empty string is -returned. -.PP -The \fBplace forget\fR command causes the placer to stop managing -the geometry of \fIwindow\fR. As a side effect of this command -\fIwindow\fR will be unmapped so that it doesn't appear on the -screen. -If \fIwindow\fR isn't currently managed by the placer then the -command has no effect. -\fBPlace forget\fR returns an empty string as result. -.PP -The \fBplace info\fR command returns a list giving the current -configuration of \fIwindow\fR. +.RE +.TP +\fBplace forget \fIwindow\fR +Causes the placer to stop managing the geometry of \fIwindow\fR. As a +side effect of this command \fIwindow\fR will be unmapped so that it +doesn't appear on the screen. If \fIwindow\fR isn't currently managed +by the placer then the command has no effect. This command returns an +empty string. +.TP +\fBplace info \fIwindow\fR +Returns a list giving the current configuration of \fIwindow\fR. The list consists of \fIoption\-value\fR pairs in exactly the same form as might be specified to the \fBplace configure\fR command. +.TP +\fBplace slaves \fIwindow\fR +Returns a list of all the slave windows for which \fIwindow\fR is the master. +If there are no slaves for \fIwindow\fR then an empty string is returned. + If the configuration of a window has been retrieved with \fBplace info\fR, that configuration can be restored later by first using \fBplace forget\fR to erase any existing information diff --git a/generic/tkConfig.c b/generic/tkConfig.c index 0f2bea5..28ebf98 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.9 2000/05/17 21:17:20 ericm Exp $ + * RCS: @(#) $Id: tkConfig.c,v 1.10 2000/08/10 00:21:07 ericm Exp $ */ /* @@ -685,10 +685,15 @@ DoObjConfig(interp, recordPtr, optionPtr, valuePtr, tkwin, savedOptionPtr) case TK_OPTION_DOUBLE: { double new; - if (Tcl_GetDoubleFromObj(interp, valuePtr, &new) - != TCL_OK) { - return TCL_ERROR; + if (nullOK && ObjectIsEmpty(valuePtr)) { + valuePtr = NULL; + new = 0; + } else { + if (Tcl_GetDoubleFromObj(interp, valuePtr, &new) != TCL_OK) { + return TCL_ERROR; + } } + if (internalPtr != NULL) { *((double *) oldInternalPtr) = *((double *) internalPtr); *((double *) internalPtr) = new; @@ -866,10 +871,15 @@ DoObjConfig(interp, recordPtr, optionPtr, valuePtr, tkwin, savedOptionPtr) } case TK_OPTION_PIXELS: { int new; - - if (Tk_GetPixelsFromObj(interp, tkwin, valuePtr, - &new) != TCL_OK) { - return TCL_ERROR; + + if (nullOK && ObjectIsEmpty(valuePtr)) { + valuePtr = NULL; + new = 0; + } else { + if (Tk_GetPixelsFromObj(interp, tkwin, valuePtr, + &new) != TCL_OK) { + return TCL_ERROR; + } } if (internalPtr != NULL) { *((int *) oldInternalPtr) = *((int *) internalPtr); diff --git a/generic/tkMessage.c b/generic/tkMessage.c index 2f85885..69233b2 100644 --- a/generic/tkMessage.c +++ b/generic/tkMessage.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: tkMessage.c,v 1.6 2000/08/02 01:33:33 ericm Exp $ + * RCS: @(#) $Id: tkMessage.c,v 1.7 2000/08/10 00:21:07 ericm Exp $ */ #include "tkPort.h" @@ -230,7 +230,7 @@ Tk_MessageObjCmd(clientData, interp, objc, objv) { register Message *msgPtr; Tk_OptionTable optionTable; - Tk_Window tkwin = (Tk_Window) clientData; + Tk_Window tkwin; optionTable = (Tk_OptionTable) clientData; if (optionTable == NULL) { diff --git a/generic/tkPlace.c b/generic/tkPlace.c index 9525bc5..2214926 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.7 2000/08/08 19:21:19 ericm Exp $ + * RCS: @(#) $Id: tkPlace.c,v 1.8 2000/08/10 00:21:07 ericm Exp $ */ #include "tkPort.h" @@ -28,11 +28,9 @@ * master's actual window size. */ -#ifdef USE_WIDGET_CONFIG static char *borderModeStrings[] = { "inside", "outside", "ignore", (char *) NULL }; -#endif /* USE_WIDGET_CONFIG */ typedef enum {BM_INSIDE, BM_OUTSIDE, BM_IGNORE} BorderMode; @@ -43,6 +41,7 @@ typedef enum {BM_INSIDE, BM_OUTSIDE, BM_IGNORE} BorderMode; typedef struct Slave { Tk_Window tkwin; /* Tk's token for window. */ + Tk_Window inTkwin; /* Token for the -in window. */ struct Master *masterPtr; /* Pointer to information for window * relative to which tkwin is placed. * This isn't necessarily the logical @@ -50,7 +49,6 @@ typedef struct Slave { * master was deleted or never assigned. */ struct Slave *nextPtr; /* Next in list of windows placed relative * to same master (NULL for end of list). */ - /* * Geometry information for window; where there are both relative * and absolute values for the same attribute (e.g. x and relX) only @@ -58,19 +56,17 @@ typedef struct Slave { */ int x, y; /* X and Y pixel coordinates for tkwin. */ -#ifdef USE_WIDGET_CONFIGURE Tcl_Obj *xPtr, *yPtr; /* Tcl_Obj rep's of x, y coords, to keep * pixel spec. information */ -#endif /* USE_WIDGET_CONFIGURE */ double relX, relY; /* X and Y coordinates relative to size of * master. */ int width, height; /* Absolute dimensions for tkwin. */ -#ifdef USE_WIDGET_CONFIGURE Tcl_Obj *widthPtr; /* Tcl_Obj rep of width, to keep pixel spec */ Tcl_Obj *heightPtr; /* Tcl_Obj rep of height, to keep pixel spec */ -#endif /* USE_WIDGET_CONFIGURE */ double relWidth, relHeight; /* Dimensions for tkwin relative to size of * master. */ + Tcl_Obj *relWidthPtr; + Tcl_Obj *relHeightPtr; Tk_Anchor anchor; /* Which point on tkwin is placed at the * given position. */ BorderMode borderMode; /* How to treat borders of master window. */ @@ -78,7 +74,11 @@ typedef struct Slave { * definitions. */ } Slave; -#ifdef USE_WIDGET_CONFIG +/* + * Type masks for options: + */ +#define IN_MASK 1 + static Tk_OptionSpec optionSpecs[] = { {TK_OPTION_ANCHOR, "-anchor", NULL, NULL, "nw", -1, Tk_Offset(Slave, anchor), 0, 0, 0}, @@ -86,26 +86,27 @@ static Tk_OptionSpec optionSpecs[] = { Tk_Offset(Slave, borderMode), 0, (ClientData) borderModeStrings, 0}, {TK_OPTION_PIXELS, "-height", NULL, NULL, "", Tk_Offset(Slave, heightPtr), Tk_Offset(Slave, height), TK_OPTION_NULL_OK, 0, 0}, - {TK_OPTION_WINDOW, "-in", NULL, NULL, "", -1, Tk_Offset(Slave, tkwin), - 0, 0, 0}, - {TK_OPTION_DOUBLE, "-relheight", NULL, NULL, "0", -1, - Tk_Offset(Slave, relHeight), 0, 0, 0}, - {TK_OPTION_DOUBLE, "-relwidth", NULL, NULL, "0", -1, - Tk_Offset(Slave, relWidth), 0, 0, 0}, + {TK_OPTION_WINDOW, "-in", NULL, NULL, "", -1, Tk_Offset(Slave, inTkwin), + 0, 0, IN_MASK}, + {TK_OPTION_DOUBLE, "-relheight", NULL, NULL, "", + Tk_Offset(Slave, relHeightPtr), Tk_Offset(Slave, relHeight), + TK_OPTION_NULL_OK, 0, 0}, + {TK_OPTION_DOUBLE, "-relwidth", NULL, NULL, "", + Tk_Offset(Slave, relWidthPtr), Tk_Offset(Slave, relWidth), + TK_OPTION_NULL_OK, 0, 0}, {TK_OPTION_DOUBLE, "-relx", NULL, NULL, "0", -1, Tk_Offset(Slave, relX), 0, 0, 0}, {TK_OPTION_DOUBLE, "-rely", NULL, NULL, "0", -1, Tk_Offset(Slave, relY), 0, 0, 0}, {TK_OPTION_PIXELS, "-width", NULL, NULL, "", Tk_Offset(Slave, widthPtr), Tk_Offset(Slave, width), TK_OPTION_NULL_OK, 0, 0}, - {TK_OPTION_PIXELS, "-x", NULL, NULL, "", Tk_Offset(Slave, xPtr), + {TK_OPTION_PIXELS, "-x", NULL, NULL, "0", Tk_Offset(Slave, xPtr), Tk_Offset(Slave, x), TK_OPTION_NULL_OK, 0, 0}, - {TK_OPTION_PIXELS, "-y", NULL, NULL, "", Tk_Offset(Slave, yPtr), + {TK_OPTION_PIXELS, "-y", NULL, NULL, "0", Tk_Offset(Slave, yPtr), Tk_Offset(Slave, y), TK_OPTION_NULL_OK, 0, 0}, {TK_OPTION_END, (char *) NULL, (char *) NULL, (char *) NULL, (char *) NULL, 0, -1, 0, 0, 0} }; -#endif /* USE_WIDGET_CONFIG */ /* * Flag definitions for Slave structures: @@ -165,8 +166,13 @@ static Tk_GeomMgr placerType = { static void SlaveStructureProc _ANSI_ARGS_((ClientData clientData, XEvent *eventPtr)); static int ConfigureSlave _ANSI_ARGS_((Tcl_Interp *interp, - Slave *slavePtr, int objc, Tcl_Obj *CONST objv[])); + Tk_Window tkwin, Tk_OptionTable table, + int objc, Tcl_Obj *CONST objv[])); +static int PlaceInfoCommand _ANSI_ARGS_((Tcl_Interp *interp, + Tk_Window tkwin)); +static Slave * CreateSlave _ANSI_ARGS_((Tk_Window tkwin)); static Slave * FindSlave _ANSI_ARGS_((Tk_Window tkwin)); +static Master * CreateMaster _ANSI_ARGS_((Tk_Window tkwin)); static Master * FindMaster _ANSI_ARGS_((Tk_Window tkwin)); static void MasterStructureProc _ANSI_ARGS_((ClientData clientData, XEvent *eventPtr)); @@ -200,9 +206,9 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) { Tk_Window tkwin; Slave *slavePtr; - Tcl_HashEntry *hPtr; char *string; TkDisplay *dispPtr; + Tk_OptionTable optionTable = (Tk_OptionTable)clientData; static char *optionStrings[] = { "configure", "forget", "info", "slaves", (char *) NULL }; enum options { PLACE_CONFIGURE, PLACE_FORGET, PLACE_INFO, PLACE_SLAVES }; @@ -214,12 +220,29 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) return TCL_ERROR; } - string = Tcl_GetString(objv[1]); - + if (optionTable == NULL) { + Tcl_CmdInfo info; + char *name; + + /* + * We haven't created the option table for this widget class + * yet. Do it now and save the table as the clientData for + * the command, so we'll have access to it in future + * invocations of the command. + */ + + optionTable = Tk_CreateOptionTable(interp, optionSpecs); + name = Tcl_GetString(objv[0]); + Tcl_GetCommandInfo(interp, name, &info); + info.objClientData = (ClientData) optionTable; + Tcl_SetCommandInfo(interp, name, &info); + } + /* * Handle special shortcut where window name is first argument. */ + string = Tcl_GetString(objv[1]); if (string[0] == '.') { tkwin = Tk_NameToWindow(interp, string, Tk_MainWindow(interp)); if (tkwin == NULL) { @@ -237,8 +260,7 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) dispPtr->placeInit = 1; } - slavePtr = FindSlave(tkwin); - return ConfigureSlave(interp, slavePtr, objc-2, objv+2); + return ConfigureSlave(interp, tkwin, optionTable, objc-2, objv+2); } /* @@ -270,13 +292,25 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) switch ((enum options) index) { case PLACE_CONFIGURE: { - if (objc < 5) { - Tcl_WrongNumArgs(interp, 2, objv, - "pathName option value ?option value ...?"); - return TCL_ERROR; + Tcl_Obj *objPtr; + if (objc == 3 || objc == 4) { + slavePtr = FindSlave(tkwin); + if (slavePtr == NULL) { + return TCL_OK; + } + objPtr = Tk_GetOptionInfo(interp, (char *) slavePtr, + optionTable, + (objc == 4) ? objv[3] : (Tcl_Obj *) NULL, tkwin); + if (objPtr == NULL) { + return TCL_ERROR; + } else { + Tcl_SetObjResult(interp, objPtr); + return TCL_OK; + } + } else { + return ConfigureSlave(interp, tkwin, optionTable, objc-3, + objv+3); } - slavePtr = FindSlave(tkwin); - return ConfigureSlave(interp, slavePtr, objc-3, objv+3); } case PLACE_FORGET: { @@ -284,11 +318,10 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) Tcl_WrongNumArgs(interp, 2, objv, "pathName"); return TCL_ERROR; } - hPtr = Tcl_FindHashEntry(&dispPtr->slaveTable, (char *) tkwin); - if (hPtr == NULL) { + slavePtr = FindSlave(tkwin); + if (slavePtr == NULL) { return TCL_OK; } - slavePtr = (Slave *) Tcl_GetHashValue(hPtr); if ((slavePtr->masterPtr != NULL) && (slavePtr->masterPtr->tkwin != Tk_Parent(slavePtr->tkwin))) { @@ -296,7 +329,8 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) slavePtr->masterPtr->tkwin); } UnlinkSlave(slavePtr); - Tcl_DeleteHashEntry(hPtr); + Tcl_DeleteHashEntry(Tcl_FindHashEntry(&dispPtr->slaveTable, + (char *) tkwin)); Tk_DeleteEventHandler(tkwin, StructureNotifyMask, SlaveStructureProc, (ClientData) slavePtr); Tk_ManageGeometry(tkwin, (Tk_GeomMgr *) NULL, (ClientData) NULL); @@ -306,82 +340,29 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) } case PLACE_INFO: { - char buffer[32 + TCL_INTEGER_SPACE]; - if (objc != 3) { Tcl_WrongNumArgs(interp, 2, objv, "pathName"); return TCL_ERROR; } - hPtr = Tcl_FindHashEntry(&dispPtr->slaveTable, (char *) tkwin); - if (hPtr == NULL) { - return TCL_OK; - } - slavePtr = (Slave *) Tcl_GetHashValue(hPtr); - sprintf(buffer, "-x %d", slavePtr->x); - Tcl_AppendResult(interp, buffer, (char *) NULL); - sprintf(buffer, " -relx %.4g", slavePtr->relX); - Tcl_AppendResult(interp, buffer, (char *) NULL); - sprintf(buffer, " -y %d", slavePtr->y); - Tcl_AppendResult(interp, buffer, (char *) NULL); - sprintf(buffer, " -rely %.4g", slavePtr->relY); - Tcl_AppendResult(interp, buffer, (char *) NULL); - if (slavePtr->flags & CHILD_WIDTH) { - sprintf(buffer, " -width %d", slavePtr->width); - Tcl_AppendResult(interp, buffer, (char *) NULL); - } else { - Tcl_AppendResult(interp, " -width {}", (char *) NULL); - } - if (slavePtr->flags & CHILD_REL_WIDTH) { - sprintf(buffer, " -relwidth %.4g", slavePtr->relWidth); - Tcl_AppendResult(interp, buffer, (char *) NULL); - } else { - Tcl_AppendResult(interp, " -relwidth {}", (char *) NULL); - } - if (slavePtr->flags & CHILD_HEIGHT) { - sprintf(buffer, " -height %d", slavePtr->height); - Tcl_AppendResult(interp, buffer, (char *) NULL); - } else { - Tcl_AppendResult(interp, " -height {}", (char *) NULL); - } - if (slavePtr->flags & CHILD_REL_HEIGHT) { - sprintf(buffer, " -relheight %.4g", slavePtr->relHeight); - Tcl_AppendResult(interp, buffer, (char *) NULL); - } else { - Tcl_AppendResult(interp, " -relheight {}", (char *) NULL); - } - - Tcl_AppendResult(interp, " -anchor ", - Tk_NameOfAnchor(slavePtr->anchor), - (char *) NULL); - if (slavePtr->borderMode == BM_OUTSIDE) { - Tcl_AppendResult(interp, " -bordermode outside", - (char *) NULL); - } else if (slavePtr->borderMode == BM_IGNORE) { - Tcl_AppendResult(interp, " -bordermode ignore", (char *) NULL); - } - if ((slavePtr->masterPtr != NULL) - && (slavePtr->masterPtr->tkwin != - Tk_Parent(slavePtr->tkwin))) { - Tcl_AppendResult(interp, " -in ", - Tk_PathName(slavePtr->masterPtr->tkwin), - (char *) NULL); - } - break; + return PlaceInfoCommand(interp, tkwin); } case PLACE_SLAVES: { + Master *masterPtr; + Tcl_Obj *listPtr; if (objc != 3) { Tcl_WrongNumArgs(interp, 2, objv, "pathName"); return TCL_ERROR; } - hPtr = Tcl_FindHashEntry(&dispPtr->masterTable, (char *) tkwin); - if (hPtr != NULL) { - Master *masterPtr; - masterPtr = (Master *) Tcl_GetHashValue(hPtr); + masterPtr = FindMaster(tkwin); + if (masterPtr != NULL) { + listPtr = Tcl_NewObj(); for (slavePtr = masterPtr->slavePtr; slavePtr != NULL; slavePtr = slavePtr->nextPtr) { - Tcl_AppendElement(interp, Tk_PathName(slavePtr->tkwin)); + Tcl_ListObjAppendElement(interp, listPtr, + Tcl_NewStringObj(Tk_PathName(slavePtr->tkwin),-1)); } + Tcl_SetObjResult(interp, listPtr); } break; } @@ -393,13 +374,13 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) /* *---------------------------------------------------------------------- * - * FindSlave -- + * CreateSlave -- * * Given a Tk_Window token, find the Slave structure corresponding - * to that token (making a new one if necessary). + * to that token, creating a new one if necessary. * * Results: - * None. + * Pointer to the Slave structure. * * Side effects: * A new Slave structure may be created. @@ -408,7 +389,7 @@ Tk_PlaceObjCmd(clientData, interp, objc, objv) */ static Slave * -FindSlave(tkwin) +CreateSlave(tkwin) Tk_Window tkwin; /* Token for desired slave. */ { Tcl_HashEntry *hPtr; @@ -419,16 +400,11 @@ FindSlave(tkwin) hPtr = Tcl_CreateHashEntry(&dispPtr->slaveTable, (char *) tkwin, &new); if (new) { slavePtr = (Slave *) ckalloc(sizeof(Slave)); - slavePtr->tkwin = tkwin; - slavePtr->masterPtr = NULL; - slavePtr->nextPtr = NULL; - slavePtr->x = slavePtr->y = 0; - slavePtr->relX = slavePtr->relY = (float) 0.0; - slavePtr->width = slavePtr->height = 0; - slavePtr->relWidth = slavePtr->relHeight = (float) 0.0; - slavePtr->anchor = TK_ANCHOR_NW; - slavePtr->borderMode = BM_INSIDE; - slavePtr->flags = 0; + memset(slavePtr, 0, sizeof(Slave)); + slavePtr->tkwin = tkwin; + slavePtr->inTkwin = None; + slavePtr->anchor = TK_ANCHOR_NW; + slavePtr->borderMode = BM_INSIDE; Tcl_SetHashValue(hPtr, slavePtr); Tk_CreateEventHandler(tkwin, StructureNotifyMask, SlaveStructureProc, (ClientData) slavePtr); @@ -442,6 +418,40 @@ FindSlave(tkwin) /* *---------------------------------------------------------------------- * + * FindSlave -- + * + * Given a Tk_Window token, find the Slave structure corresponding + * to that token. This is purely a lookup function; it will not + * create a record if one does not yet exist. + * + * Results: + * Pointer to Slave structure; NULL if none exists. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +static Slave * +FindSlave(tkwin) + Tk_Window tkwin; /* Token for desired slave. */ +{ + Tcl_HashEntry *hPtr; + register Slave *slavePtr; + TkDisplay * dispPtr = ((TkWindow *) tkwin)->dispPtr; + + hPtr = Tcl_FindHashEntry(&dispPtr->slaveTable, (char *) tkwin); + if (hPtr == NULL) { + return NULL; + } + slavePtr = (Slave *) Tcl_GetHashValue(hPtr); + return slavePtr; +} + +/* + *---------------------------------------------------------------------- + * * UnlinkSlave -- * * This procedure removes a slave window from the chain of slaves @@ -487,13 +497,13 @@ UnlinkSlave(slavePtr) /* *---------------------------------------------------------------------- * - * FindMaster -- + * CreateMaster -- * * Given a Tk_Window token, find the Master structure corresponding - * to that token (making a new one if necessary). + * to that token, creating a new one if necessary. * * Results: - * None. + * Pointer to the Master structure. * * Side effects: * A new Master structure may be created. @@ -502,7 +512,7 @@ UnlinkSlave(slavePtr) */ static Master * -FindMaster(tkwin) +CreateMaster(tkwin) Tk_Window tkwin; /* Token for desired master. */ { Tcl_HashEntry *hPtr; @@ -513,9 +523,9 @@ FindMaster(tkwin) hPtr = Tcl_CreateHashEntry(&dispPtr->masterTable, (char *) tkwin, &new); if (new) { masterPtr = (Master *) ckalloc(sizeof(Master)); - masterPtr->tkwin = tkwin; - masterPtr->slavePtr = NULL; - masterPtr->flags = 0; + masterPtr->tkwin = tkwin; + masterPtr->slavePtr = NULL; + masterPtr->flags = 0; Tcl_SetHashValue(hPtr, masterPtr); Tk_CreateEventHandler(masterPtr->tkwin, StructureNotifyMask, MasterStructureProc, (ClientData) masterPtr); @@ -528,6 +538,41 @@ FindMaster(tkwin) /* *---------------------------------------------------------------------- * + * FindMaster -- + * + * Given a Tk_Window token, find the Master structure corresponding + * to that token. This is simply a lookup procedure; a new record + * will not be created if one does not already exist. + * + * Results: + * Pointer to the Master structure; NULL if one does not exist for + * the given Tk_Window token. + * + * Side effects: + * None. + * + *---------------------------------------------------------------------- + */ + +static Master * +FindMaster(tkwin) + Tk_Window tkwin; /* Token for desired master. */ +{ + Tcl_HashEntry *hPtr; + register Master *masterPtr; + TkDisplay * dispPtr = ((TkWindow *) tkwin)->dispPtr; + + hPtr = Tcl_FindHashEntry(&dispPtr->masterTable, (char *) tkwin); + if (hPtr == NULL) { + return NULL; + } + masterPtr = (Master *) Tcl_GetHashValue(hPtr); + return masterPtr; +} + +/* + *---------------------------------------------------------------------- + * * ConfigureSlave -- * * This procedure is called to process an argv/argc list to @@ -545,234 +590,107 @@ FindMaster(tkwin) */ static int -ConfigureSlave(interp, slavePtr, objc, objv) +ConfigureSlave(interp, tkwin, table, objc, objv) Tcl_Interp *interp; /* Used for error reporting. */ - Slave *slavePtr; /* Pointer to current information - * about slave. */ + Tk_Window tkwin; /* Token for the window to manipulate. */ + Tk_OptionTable table; /* Token for option table. */ int objc; /* Number of config arguments. */ Tcl_Obj *CONST objv[]; /* Object values for arguments. */ { register Master *masterPtr; - int result; - Tcl_Obj **objs; - static char *optionStrings[] = { "-anchor", "-bordermode", "-height", - "-in", "-relheight", "-relwidth", - "-relx", "-rely", "-width", "-x", - "-y", (char *) NULL }; - enum options { PLACE_ANCHOR, PLACE_BORDERMODE, PLACE_HEIGHT, PLACE_IN, - PLACE_RELHEIGHT, PLACE_RELWIDTH, PLACE_RELX, PLACE_RELY, - PLACE_WIDTH, PLACE_X, PLACE_Y }; - int index; - - result = TCL_OK; - if (Tk_IsTopLevel(slavePtr->tkwin)) { + Tk_SavedOptions savedOptions; + int mask; + int result = TCL_OK; + Slave *slavePtr; + + if (Tk_IsTopLevel(tkwin)) { Tcl_AppendResult(interp, "can't use placer on top-level window \"", - Tk_PathName(slavePtr->tkwin), "\"; use wm command instead", + Tk_PathName(tkwin), "\"; use wm command instead", (char *) NULL); return TCL_ERROR; } - for (objs = (Tcl_Obj **)objv; objc > 0; objc -= 2, objs += 2) { - - /* - * Verify that the option given is a legitimate one. - */ - if (Tcl_GetIndexFromObj(interp, objs[0], optionStrings, "option", - 0, &index) != TCL_OK) { - return TCL_ERROR; - } + slavePtr = CreateSlave(tkwin); + + if (Tk_SetOptions(interp, (char *)slavePtr, table, objc, objv, + slavePtr->tkwin, &savedOptions, &mask) != TCL_OK) { + Tk_RestoreSavedOptions(&savedOptions); + result = TCL_ERROR; + goto done; + } + if (mask & IN_MASK) { + /* -in changed */ + Tk_Window tkwin; + Tk_Window ancestor; + + tkwin = slavePtr->inTkwin; + /* - * Verify that there is a value for the option. + * Make sure that the new master is either the logical parent + * of the slave or a descendant of that window, and that the + * master and slave aren't the same. */ - - if (objc < 2) { - Tcl_AppendResult(interp, "value missing for option \"", - Tcl_GetString(objs[0]), "\"", (char *) NULL); - result = TCL_ERROR; - goto done; - } - - switch ((enum options) index) { - case PLACE_ANCHOR: { - if (Tk_GetAnchor(interp, Tcl_GetString(objs[1]), - &slavePtr->anchor) != TCL_OK) { - result = TCL_ERROR; - } - break; - } - - case PLACE_BORDERMODE: { - static char *bordermodeStrings[] = { "ignore", "inside", - "outside", - (char *) NULL }; - enum bordermodes { BORDERMODE_IGNORE, BORDERMODE_INSIDE, - BORDERMODE_OUTSIDE }; - int borderIndex; - if (Tcl_GetIndexFromObj(interp, objs[1], bordermodeStrings, - "border mode", 0, &borderIndex) != TCL_OK) { - result = TCL_ERROR; - break; - } - switch ((enum bordermodes) borderIndex) { - case BORDERMODE_IGNORE: - slavePtr->borderMode = BM_IGNORE; - break; - case BORDERMODE_INSIDE: - slavePtr->borderMode = BM_INSIDE; - break; - case BORDERMODE_OUTSIDE: - slavePtr->borderMode = BM_OUTSIDE; - break; - } + + for (ancestor = tkwin; ; ancestor = Tk_Parent(ancestor)) { + if (ancestor == Tk_Parent(slavePtr->tkwin)) { break; } - - case PLACE_HEIGHT: { - if (*(Tcl_GetString(objs[1])) == 0) { - slavePtr->flags &= ~CHILD_HEIGHT; - } else { - if (Tk_GetPixelsFromObj(interp, slavePtr->tkwin, objs[1], - &slavePtr->height) != TCL_OK) { - result = TCL_ERROR; - break; - } - slavePtr->flags |= CHILD_HEIGHT; - } - break; + if (Tk_IsTopLevel(ancestor)) { + Tcl_AppendResult(interp, "can't place ", + Tk_PathName(slavePtr->tkwin), " relative to ", + Tk_PathName(tkwin), (char *) NULL); + result = TCL_ERROR; + Tk_RestoreSavedOptions(&savedOptions); + goto done; } - - case PLACE_IN: { - Tk_Window tkwin; - Tk_Window ancestor; - - tkwin = Tk_NameToWindow(interp, Tcl_GetString(objs[1]), - slavePtr->tkwin); - if (tkwin == NULL) { - result = TCL_ERROR; - break; - } - - /* - * Make sure that the new master is either the logical parent - * of the slave or a descendant of that window, and that the - * master and slave aren't the same. - */ - - for (ancestor = tkwin; ; ancestor = Tk_Parent(ancestor)) { - if (ancestor == Tk_Parent(slavePtr->tkwin)) { - break; - } - if (Tk_IsTopLevel(ancestor)) { - Tcl_AppendResult(interp, "can't place ", - Tk_PathName(slavePtr->tkwin), " relative to ", - Tk_PathName(tkwin), (char *) NULL); - result = TCL_ERROR; - goto done; - } - } - if (slavePtr->tkwin == tkwin) { - Tcl_AppendResult(interp, "can't place ", - Tk_PathName(slavePtr->tkwin), - " relative to itself", - (char *) NULL); - result = TCL_ERROR; - goto done; - } - if ((slavePtr->masterPtr != NULL) - && (slavePtr->masterPtr->tkwin == tkwin)) { - /* - * Re-using same old master. Nothing to do. - */ - } else { - if ((slavePtr->masterPtr != NULL) - && (slavePtr->masterPtr->tkwin - != Tk_Parent(slavePtr->tkwin))) { - Tk_UnmaintainGeometry(slavePtr->tkwin, - slavePtr->masterPtr->tkwin); - } - UnlinkSlave(slavePtr); - slavePtr->masterPtr = FindMaster(tkwin); - slavePtr->nextPtr = slavePtr->masterPtr->slavePtr; - slavePtr->masterPtr->slavePtr = slavePtr; - } - break; + } + if (slavePtr->tkwin == tkwin) { + Tcl_AppendResult(interp, "can't place ", + Tk_PathName(slavePtr->tkwin), " relative to itself", + (char *) NULL); + result = TCL_ERROR; + Tk_RestoreSavedOptions(&savedOptions); + goto done; + } + if ((slavePtr->masterPtr != NULL) + && (slavePtr->masterPtr->tkwin == tkwin)) { + /* + * Re-using same old master. Nothing to do. + */ + } else { + if ((slavePtr->masterPtr != NULL) + && (slavePtr->masterPtr->tkwin + != Tk_Parent(slavePtr->tkwin))) { + Tk_UnmaintainGeometry(slavePtr->tkwin, + slavePtr->masterPtr->tkwin); } + UnlinkSlave(slavePtr); + slavePtr->masterPtr = CreateMaster(tkwin); + slavePtr->nextPtr = slavePtr->masterPtr->slavePtr; + slavePtr->masterPtr->slavePtr = slavePtr; + } + } - case PLACE_RELHEIGHT: { - if (*(Tcl_GetString(objs[1])) == 0) { - slavePtr->flags &= ~CHILD_REL_HEIGHT; - } else { - if (Tcl_GetDoubleFromObj(interp, objs[1], - &slavePtr->relHeight) != TCL_OK) { - result = TCL_ERROR; - break; - } - slavePtr->flags |= CHILD_REL_HEIGHT; - } - break; - } - - case PLACE_RELWIDTH: { - if (*(Tcl_GetString(objs[1])) == 0) { - slavePtr->flags &= ~CHILD_REL_WIDTH; - } else { - if (Tcl_GetDoubleFromObj(interp, objs[1], - &slavePtr->relWidth) != TCL_OK) { - result = TCL_ERROR; - break; - } - slavePtr->flags |= CHILD_REL_WIDTH; - } - break; - } + /* + * Set slave flags. First clear the field, then add bits as needed. + */ - case PLACE_RELX: { - if (Tcl_GetDoubleFromObj(interp, objs[1], - &slavePtr->relX) != TCL_OK) { - result = TCL_ERROR; - } - break; - } - - case PLACE_RELY: { - if (Tcl_GetDoubleFromObj(interp, objs[1], - &slavePtr->relY) != TCL_OK) { - result = TCL_ERROR; - } - break; - } + slavePtr->flags = 0; + if (slavePtr->heightPtr) { + slavePtr->flags |= CHILD_HEIGHT; + } - case PLACE_WIDTH: { - if (*(Tcl_GetString(objs[1])) == 0) { - slavePtr->flags &= ~CHILD_WIDTH; - } else { - if (Tk_GetPixelsFromObj(interp, slavePtr->tkwin, objs[1], - &slavePtr->width) != TCL_OK) { - result = TCL_ERROR; - break; - } - slavePtr->flags |= CHILD_WIDTH; - } - break; - } + if (slavePtr->relHeightPtr) { + slavePtr->flags |= CHILD_REL_HEIGHT; + } - case PLACE_X: { - if (Tk_GetPixelsFromObj(interp, slavePtr->tkwin, objs[1], - &slavePtr->x) != TCL_OK) { - result = TCL_ERROR; - } - break; - } + if (slavePtr->relWidthPtr) { + slavePtr->flags |= CHILD_REL_WIDTH; + } - case PLACE_Y: { - if (Tk_GetPixelsFromObj(interp, slavePtr->tkwin, objs[1], - &slavePtr->y) != TCL_OK) { - result = TCL_ERROR; - } - break; - } - } + if (slavePtr->widthPtr) { + slavePtr->flags |= CHILD_WIDTH; } /* @@ -780,14 +698,16 @@ ConfigureSlave(interp, slavePtr, objc, objv) * Then arrange for a placement recalculation in the master. */ + Tk_FreeSavedOptions(&savedOptions); done: masterPtr = slavePtr->masterPtr; if (masterPtr == NULL) { - masterPtr = FindMaster(Tk_Parent(slavePtr->tkwin)); + masterPtr = CreateMaster(Tk_Parent(slavePtr->tkwin)); slavePtr->masterPtr = masterPtr; slavePtr->nextPtr = masterPtr->slavePtr; masterPtr->slavePtr = slavePtr; } + slavePtr->inTkwin = masterPtr->tkwin; if (!(masterPtr->flags & PARENT_RECONFIG_PENDING)) { masterPtr->flags |= PARENT_RECONFIG_PENDING; Tcl_DoWhenIdle(RecomputePlacement, (ClientData) masterPtr); @@ -798,6 +718,88 @@ ConfigureSlave(interp, slavePtr, objc, objv) /* *---------------------------------------------------------------------- * + * PlaceInfoCommand -- + * + * Implementation of the [place info] subcommand. See the user + * documentation for information on what it does. + * + * Results: + * Standard Tcl result. + * + * Side effects: + * If the given tkwin is managed by the placer, this function will + * put information about that placement in the interp's result. + * + *---------------------------------------------------------------------- + */ + +static int +PlaceInfoCommand(interp, tkwin) + Tcl_Interp *interp; /* Interp into which to place result. */ + Tk_Window tkwin; /* Token for the window to get info on. */ +{ + char buffer[32 + TCL_INTEGER_SPACE]; + Slave *slavePtr; + + slavePtr = FindSlave(tkwin); + if (slavePtr == NULL) { + return TCL_OK; + } + sprintf(buffer, "-x %d", slavePtr->x); + Tcl_AppendResult(interp, buffer, (char *) NULL); + sprintf(buffer, " -relx %.4g", slavePtr->relX); + Tcl_AppendResult(interp, buffer, (char *) NULL); + sprintf(buffer, " -y %d", slavePtr->y); + Tcl_AppendResult(interp, buffer, (char *) NULL); + sprintf(buffer, " -rely %.4g", slavePtr->relY); + Tcl_AppendResult(interp, buffer, (char *) NULL); + if (slavePtr->flags & CHILD_WIDTH) { + sprintf(buffer, " -width %d", slavePtr->width); + Tcl_AppendResult(interp, buffer, (char *) NULL); + } else { + Tcl_AppendResult(interp, " -width {}", (char *) NULL); + } + if (slavePtr->flags & CHILD_REL_WIDTH) { + sprintf(buffer, " -relwidth %.4g", slavePtr->relWidth); + Tcl_AppendResult(interp, buffer, (char *) NULL); + } else { + Tcl_AppendResult(interp, " -relwidth {}", (char *) NULL); + } + if (slavePtr->flags & CHILD_HEIGHT) { + sprintf(buffer, " -height %d", slavePtr->height); + Tcl_AppendResult(interp, buffer, (char *) NULL); + } else { + Tcl_AppendResult(interp, " -height {}", (char *) NULL); + } + if (slavePtr->flags & CHILD_REL_HEIGHT) { + sprintf(buffer, " -relheight %.4g", slavePtr->relHeight); + Tcl_AppendResult(interp, buffer, (char *) NULL); + } else { + Tcl_AppendResult(interp, " -relheight {}", (char *) NULL); + } + + Tcl_AppendResult(interp, " -anchor ", + Tk_NameOfAnchor(slavePtr->anchor), + (char *) NULL); + if (slavePtr->borderMode == BM_OUTSIDE) { + Tcl_AppendResult(interp, " -bordermode outside", + (char *) NULL); + } else if (slavePtr->borderMode == BM_IGNORE) { + Tcl_AppendResult(interp, " -bordermode ignore", (char *) NULL); + } + if ((slavePtr->masterPtr != NULL) + && (slavePtr->masterPtr->tkwin != + Tk_Parent(slavePtr->tkwin))) { + Tcl_AppendResult(interp, " -in ", + Tk_PathName(slavePtr->masterPtr->tkwin), + (char *) NULL); + } + return TCL_OK; +} + +/* + *---------------------------------------------------------------------- + * * RecomputePlacement -- * * This procedure is called as a when-idle handler. It recomputes diff --git a/tests/place.test b/tests/place.test index 86f663d..1dc2dfa 100644 --- a/tests/place.test +++ b/tests/place.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: place.test,v 1.4 2000/08/08 19:21:20 ericm Exp $ +# RCS: @(#) $Id: place.test,v 1.5 2000/08/10 00:21:08 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -77,7 +77,11 @@ test place-3.3 {ConfigureSlave procedure, -relheight option} { test place-4.1 {ConfigureSlave procedure, bad -in options} { place forget .t.f2 list [catch {place .t.f2 -in .t.f2} msg] $msg -} {1 {can't place .t.f2 relative to itself}} +} [list 1 "can't place .t.f2 relative to itself"] +test place-4.2 {ConfigureSlave procedure, bad -in option} { + place forget .t.f2 + list [catch {place .t.f2 -in .} msg] $msg +} [list 1 "can't place .t.f2 relative to ."] test place-5.1 {ConfigureSlave procedure, -relwidth option} { list [catch {place .t.f2 -relwidth abcd} msg] $msg @@ -243,58 +247,111 @@ test place-9.6 {PlaceObjCmd, configure errors} { set res [list [catch {place configure .foo} msg] $msg] destroy .foo set res -} [list 1 "wrong # args: should be \"place configure pathName option value ?option value ...?\""] +} [list 0 ""] test place-9.7 {PlaceObjCmd, configure errors} { catch {destroy .foo} frame .foo set res [list [catch {place configure .foo bar} msg] $msg] destroy .foo set res -} [list 1 "wrong # args: should be \"place configure pathName option value ?option value ...?\""] -test place-9.8 {PlaceObjCmd, forget errors} { +} [list 0 ""] +test place-9.8 {PlaceObjCmd, configure} { + catch {destroy .foo} + frame .foo + place .foo -x 0 -y 0 + set res [place configure .foo] + destroy .foo + set res +} [list {-anchor {} {} nw nw} {-bordermode {} {} inside inside} {-height {} {} {} {}} {-in {} {} {} .} {-relheight {} {} {} {}} {-relwidth {} {} {} {}} {-relx {} {} 0 0.0} {-rely {} {} 0 0.0} {-width {} {} {} {}} {-x {} {} 0 0} {-y {} {} 0 0}] +test place-9.9 {PlaceObjCmd, configure} { + catch {destroy .foo} + frame .foo + place .foo -x 0 -y 0 + set res [place configure .foo -x] + destroy .foo + set res +} [list -x {} {} 0 0] +test place-9.10 {PlaceObjCmd, forget errors} { catch {destroy .foo} frame .foo set res [list [catch {place forget .foo bar} msg] $msg] destroy .foo set res } [list 1 "wrong # args: should be \"place forget pathName\""] -test place-9.9 {PlaceObjCmd, info errors} { +test place-9.11 {PlaceObjCmd, info errors} { catch {destroy .foo} frame .foo set res [list [catch {place info .foo bar} msg] $msg] destroy .foo set res } [list 1 "wrong # args: should be \"place info pathName\""] -test place-9.10 {PlaceObjCmd, slaves errors} { +test place-9.12 {PlaceObjCmd, slaves errors} { catch {destroy .foo} frame .foo set res [list [catch {place slaves .foo bar} msg] $msg] destroy .foo set res } [list 1 "wrong # args: should be \"place slaves pathName\""] - + test place-10.1 {ConfigureSlave} { catch {destroy .foo} frame .foo set res [list [catch {place .foo -badopt} msg] $msg] destroy .foo set res -} [list 1 "bad option \"-badopt\": must be -anchor, -bordermode, -height, -in, -relheight, -relwidth, -relx, -rely, -width, -x, or -y"] +} [list 1 "unknown option \"-badopt\""] test place-10.2 {ConfigureSlave} { catch {destroy .foo} frame .foo set res [list [catch {place .foo -anchor} msg] $msg] destroy .foo set res -} [list 1 "value missing for option \"-anchor\""] +} [list 1 "value for \"-anchor\" missing"] test place-10.3 {ConfigureSlave} { catch {destroy .foo} frame .foo set res [list [catch {place .foo -bordermode j} msg] $msg] destroy .foo set res -} [list 1 "bad border mode \"j\": must be ignore, inside, or outside"] +} [list 1 "bad bordermode \"j\": must be inside, outside, or ignore"] +test place-10.4 {ConfigureSlave} { + catch {destroy .foo} + frame .foo + set res [list [catch {place configure .foo -x 0 -y} msg] $msg] + destroy .foo + set res +} [list 1 "value for \"-y\" missing"] +test place-11.1 {PlaceObjCmd, slaves command} { + catch {destroy .foo} + frame .foo + set res [place slaves .foo] + destroy .foo + set res +} {} +test place-11.2 {PlaceObjCmd, slaves command} { + catch {destroy .foo .bar} + frame .foo + frame .bar + place .bar -in .foo + set res [place slaves .foo] + destroy .foo + destroy .bar + set res +} [list .bar] + +test place-12.1 {PlaceObjCmd, forget command} { + catch {destroy .foo} + frame .foo + place .foo -width 50 -height 50 + update + set res [winfo ismapped .foo] + place forget .foo + update + lappend res [winfo ismapped .foo] + destroy .foo + set res +} [list 1 0] catch {destroy .t} -- cgit v0.12