hg/stx-libbasic: Rectangle.st@592f07591ca2 (annotated)

1 a27a279701f8 Initial revision claus parents: diff changeset	1	"
5 67342904af11 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	3	All Rights Reserved
1 a27a279701f8 Initial revision claus parents: diff changeset	4
a27a279701f8 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
a27a279701f8 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
a27a279701f8 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
a27a279701f8 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
a27a279701f8 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
a27a279701f8 Initial revision claus parents: diff changeset	10	hereby transferred.
a27a279701f8 Initial revision claus parents: diff changeset	11	"
a27a279701f8 Initial revision claus parents: diff changeset	12
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	13	Geometric subclass:#Rectangle
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	14	instanceVariableNames:'left top width height'
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	15	classVariableNames:''
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	16	poolDictionaries:''
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	17	category:'Graphics-Geometry'
1 a27a279701f8 Initial revision claus parents: diff changeset	18	!
a27a279701f8 Initial revision claus parents: diff changeset	19
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	20	!Rectangle class methodsFor:'documentation'!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	21
88 81dacba7a63a * empty log message * claus parents: 77 diff changeset	22	copyright
81dacba7a63a * empty log message * claus parents: 77 diff changeset	23	"
81dacba7a63a * empty log message * claus parents: 77 diff changeset	24	COPYRIGHT (c) 1989 by Claus Gittinger
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	25	All Rights Reserved
88 81dacba7a63a * empty log message * claus parents: 77 diff changeset	26
81dacba7a63a * empty log message * claus parents: 77 diff changeset	27	This software is furnished under a license and may be used
81dacba7a63a * empty log message * claus parents: 77 diff changeset	28	only in accordance with the terms of that license and with the
81dacba7a63a * empty log message * claus parents: 77 diff changeset	29	inclusion of the above copyright notice. This software may not
81dacba7a63a * empty log message * claus parents: 77 diff changeset	30	be provided or otherwise made available to, or used by, any
81dacba7a63a * empty log message * claus parents: 77 diff changeset	31	other person. No title to or ownership of the software is
81dacba7a63a * empty log message * claus parents: 77 diff changeset	32	hereby transferred.
81dacba7a63a * empty log message * claus parents: 77 diff changeset	33	"
81dacba7a63a * empty log message * claus parents: 77 diff changeset	34	!
81dacba7a63a * empty log message * claus parents: 77 diff changeset	35
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	36	documentation
6c38ca59927f * empty log message * claus parents: 59 diff changeset	37	"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	38	Rectangles represent a rectangular area in 2D space.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	39
6c38ca59927f * empty log message * claus parents: 59 diff changeset	40	notice, my implementation does not use origin/corner as instance objects
6c38ca59927f * empty log message * claus parents: 59 diff changeset	41	but left/top/width/height to save space and allocations. This means, that my
6c38ca59927f * empty log message * claus parents: 59 diff changeset	42	Rectangles cannot be used to represent Rectangles in a higher than 2D
6c38ca59927f * empty log message * claus parents: 59 diff changeset	43	space. (i.e. only valid if origin/corner are 2D Points)
6c38ca59927f * empty log message * claus parents: 59 diff changeset	44
6c38ca59927f * empty log message * claus parents: 59 diff changeset	45	(aside from that, you will not see any difference from the outside)
6c38ca59927f * empty log message * claus parents: 59 diff changeset	46
6c38ca59927f * empty log message * claus parents: 59 diff changeset	47	Instance variables:
6c38ca59927f * empty log message * claus parents: 59 diff changeset	48
1290 15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	49	left <Number> the left coordinate (i.e origin x)
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	50	top <Number> the top coordinate (i.e origin y)
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	51	width <Number> the width of the rectangle
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	52	height <Number> the height of the rectangle
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	53
6c38ca59927f * empty log message * claus parents: 59 diff changeset	54	I am not certain, if implementing Rectangle different was a good idea -
6c38ca59927f * empty log message * claus parents: 59 diff changeset	55	subclasses may expect things to be different ...
6c38ca59927f * empty log message * claus parents: 59 diff changeset	56	Therefore, this may change.
1290 15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	57
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	58	[author:]
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	59	Claus Gittinger
15ba3221b89b documentation Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	60
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	61	[see also:]
1355 ab14ef139343 doku Claus Gittinger <cg@exept.de> parents: 1354 diff changeset	62	Point Polygon Circle EllipticalArc Spline
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	63	LayoutOrigin LayoutFrame AlignmentOrigin Layout
1390 64e57403f80d docu Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	64	View GraphicsContext StrokingWrapper FillingWrapper
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	65	"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	66	! !
6c38ca59927f * empty log message * claus parents: 59 diff changeset	67
1 a27a279701f8 Initial revision claus parents: diff changeset	68	!Rectangle class methodsFor:'instance creation'!
a27a279701f8 Initial revision claus parents: diff changeset	69
3239 1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	70	decodeFromLiteralArray:anArray
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	71	"create & return a new instance from information encoded in anArray.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	72	Redefined for faster creation."
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	73
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	74	\|l t w h\|
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	75
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	76	l := anArray at:2.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	77	t := anArray at:3.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	78	w := (anArray at:4) - l.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	79	h := (anArray at:5) - t.
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	80	^ self left:l top:t width:w height:h
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	81
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	82	"
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	83	Rectangle decodeFromLiteralArray:#(Rectangle 100 200 300 500)
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	84	"
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	85
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	86	"Created: / 28.1.1998 / 17:46:52 / cg"
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	87	!
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	88
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	89	fromUser
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	90	"let user specify a rectangle on the screen, return it"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	91
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	92	^ Screen current rectangleFromUser
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	93
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	94	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	95	Rectangle fromUser
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	96	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	97	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	98
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	99	left:left right:right top:top bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	100	"create and return a new Rectangle giving left, top, right and bottom coordinates"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	101
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	102	^ (self basicNew) left:left right:right top:top bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	103	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	104
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	105	left:left top:top extent:extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	106	"create and return a new Rectangle giving left, top, and
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	107	an extent point."
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	108
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	109	^ (self basicNew) left:left top:top extent:extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	110
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	111	"Created: 8.5.1996 / 20:56:29 / cg"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	112	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	113
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	114	left:left top:top right:right bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	115	"create and return a new Rectangle giving left, top, right and bottom coordinates"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	116
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	117	^ (self basicNew) left:left top:top right:right bottom:bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	118	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	119
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	120	left:left top:top width:w height:h
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	121	"create and return a new Rectangle giving left and top coordinates
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	122	and width, height"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	123
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	124	%{ /* NOCONTEXT */
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	125	REGISTER OBJ newRect;
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	126	OBJ t;
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	127	int spc;
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	128
2894 344aec8ba014 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	129	if (__CanDoQuickNew(OHDR_SIZE + 4sizeof(OBJ))) { / OBJECT ALLOCATION */
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	130	if (self == Rectangle) {
835 8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	131	/*
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	132	* short cut - rectangles are created so often ...
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	133	*/
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	134	__qCheckedAlignedNew(newRect, OHDR_SIZE + 4*sizeof(OBJ));
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	135
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	136	__InstPtr(newRect)->o_class = Rectangle;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	137	__InstPtr(newRect)->i_instvars[0] = left;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	138	__InstPtr(newRect)->i_instvars[1] = top;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	139	__InstPtr(newRect)->i_instvars[2] = w;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	140	__InstPtr(newRect)->i_instvars[3] = h;
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	141
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	142	if (! (__bothSmallInteger(left, top) &&
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	143	__bothSmallInteger(w, h))) {
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	144	spc = __qSpace(newRect);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	145	__STORE_SPC(newRect, left, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	146	__STORE_SPC(newRect, top, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	147	__STORE_SPC(newRect, w, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	148	__STORE_SPC(newRect, h, spc);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	149	}
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	150
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	151	RETURN ( newRect );
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	152	}
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	153	}
1507 ac16087c0e95 * empty log message * Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	154	%}.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	155	^ (self basicNew) left:left top:top width:w height:h
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	156	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	157
1 a27a279701f8 Initial revision claus parents: diff changeset	158	origin:origin corner:corner
a27a279701f8 Initial revision claus parents: diff changeset	159	"create and return a new Rectangle giving top-left and bottom-right points"
a27a279701f8 Initial revision claus parents: diff changeset	160
a27a279701f8 Initial revision claus parents: diff changeset	161	^ (self basicNew) origin:origin corner:corner
a27a279701f8 Initial revision claus parents: diff changeset	162	!
a27a279701f8 Initial revision claus parents: diff changeset	163
a27a279701f8 Initial revision claus parents: diff changeset	164	origin:origin extent:extent
a27a279701f8 Initial revision claus parents: diff changeset	165	"create and return a new Rectangle giving top-left point and extent point"
a27a279701f8 Initial revision claus parents: diff changeset	166
a27a279701f8 Initial revision claus parents: diff changeset	167	%{ /* NOCONTEXT */
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	168	REGISTER OBJ newRect;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	169	OBJ t;
31df3850e98c * empty log message * claus parents: 259 diff changeset	170	int spc;
1 a27a279701f8 Initial revision claus parents: diff changeset	171
2894 344aec8ba014 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	172	if (__CanDoQuickNew(OHDR_SIZE + 4sizeof(OBJ))) { / OBJECT ALLOCATION */
835 8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	173	/*
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	174	* short cut - rectangles are created so often ...
8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	175	*/
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	176	if (self == Rectangle) {
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	177	if (__isPoint(origin) && __isPoint(extent)) {
835 8bd6f4aa8130 * empty log message * Claus Gittinger <cg@exept.de> parents: 829 diff changeset	178	__qCheckedAlignedNew(newRect, OHDR_SIZE + 4*sizeof(OBJ));
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	179	__InstPtr(newRect)->o_class = Rectangle;
325 46bca6125b93 . claus parents: 308 diff changeset	180	spc = __qSpace(newRect);
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	181
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	182	t = __PointInstPtr(origin)->p_x;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	183	__InstPtr(newRect)->i_instvars[0] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	184	__STORE_SPC(newRect, t, spc);
31df3850e98c * empty log message * claus parents: 259 diff changeset	185
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	186	t = __PointInstPtr(origin)->p_y;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	187	__InstPtr(newRect)->i_instvars[1] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	188	__STORE_SPC(newRect, t, spc);
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	189
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	190	t = __PointInstPtr(extent)->p_x;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	191	__InstPtr(newRect)->i_instvars[2] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	192	__STORE_SPC(newRect, t, spc);
31df3850e98c * empty log message * claus parents: 259 diff changeset	193
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	194	t = __PointInstPtr(extent)->p_y;
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	195	__InstPtr(newRect)->i_instvars[3] = t;
293 31df3850e98c * empty log message * claus parents: 259 diff changeset	196	__STORE_SPC(newRect, t, spc);
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	197	RETURN ( newRect );
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	198	}
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	199	}
1 a27a279701f8 Initial revision claus parents: diff changeset	200	}
1507 ac16087c0e95 * empty log message * Claus Gittinger <cg@exept.de> parents: 1454 diff changeset	201	%}.
1 a27a279701f8 Initial revision claus parents: diff changeset	202	^ (self basicNew) origin:origin extent:extent
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	203	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	204
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	205	origin:origin width:w height:h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	206	"create and return a new Rectangle giving top-left and extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	207	as individual width/height"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	208
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	209	^ (self basicNew) origin:origin width:w height:h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	210
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	211	"Created: 8.5.1996 / 20:55:53 / cg"
2372 9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	212	!
9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	213
3239 1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	214	vertex:vertex1Point vertex:vertex2Point
2372 9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	215	"create and return a new instance of the receiver,
3239 1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	216	given two diagonally opposite vertices."
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	217
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	218	^ self
1114c37ca259 faster decodeFromLiteralEncoding Claus Gittinger <cg@exept.de> parents: 2894 diff changeset	219	origin: (vertex1Point min: vertex2Point)
2372 9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	220	corner: (vertex1Point max: vertex2Point)
9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	221
9a98e1acd063 added #vertex:vertex: - ST-80 compatibility. Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	222	"Created: 10.2.1997 / 12:14:32 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	223	! !
a27a279701f8 Initial revision claus parents: diff changeset	224
a27a279701f8 Initial revision claus parents: diff changeset	225	!Rectangle methodsFor:'accessing'!
a27a279701f8 Initial revision claus parents: diff changeset	226
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	227	area
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	228	"return the area
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	229	- for screen Rectangles this is the number of pixels"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	230
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	231	^ width * height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	232	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	233
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	234	bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	235	"return the y coordinate of the bottom"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	236
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	237	^ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	238	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	239
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	240	bottom:aNumber
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	241	"set the bottom edge"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	242
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	243	height := aNumber - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	244	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	245
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	246	bottomCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	247	"return the bottom center point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	248
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	249	^ (left + (width / 2)) @ (top + height)
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	250
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	251	"Modified: 4.6.1996 / 16:04:08 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	252	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	253
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	254	bottomLeft
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	255	"return the bottom-left point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	256
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	257	^ left @ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	258	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	259
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	260	bottomRight
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	261	"return the bottom-right point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	262
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	263	^ (left + width) @ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	264	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	265
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	266	center
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	267	"return the point in the center of the receiver"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	268
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	269	^ (left + (width / 2)) @ (top + (height / 2))
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	270
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	271	"Modified: 4.6.1996 / 16:03:53 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	272	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	273
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	274	corner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	275	"return the corner"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	276
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	277	^ (left + width) @ (top + height)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	278	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	279
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	280	corner:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	281	"set the bottom-right corner"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	282
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	283	width := aPoint x - left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	284	height := aPoint y - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	285	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	286
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	287	extent
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	288	"return the extent"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	289
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	290	^ width @ height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	291	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	292
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	293	extent:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	294	"set the extent from the argument, aPoint with width taken from aPoint x
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	295	and height taken from aPoint y"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	296
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	297	width := aPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	298	height := aPoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	299	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	300
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	301	height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	302	"return the height of the rectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	303
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	304	^ height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	305	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	306
2441 9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	307	height:aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	308	"change the height of the rectangle.
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	309	logically, this changes the corner to get the given height."
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	310
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	311	height := aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	312
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	313	"Created: 3.3.1997 / 16:33:22 / cg"
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	314	!
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	315
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	316	left
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	317	"return the x-coordinate of the top-left origin"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	318
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	319	^ left
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	320	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	321
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	322	left:aNumber
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	323	"set the left edge"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	324
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	325	width := width + (left - aNumber).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	326	left := aNumber
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	327	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	328
1 a27a279701f8 Initial revision claus parents: diff changeset	329	left:newLeft right:right top:newTop bottom:bottom
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	330	"set the rectangle given left, top, right and bottom coordinates."
1 a27a279701f8 Initial revision claus parents: diff changeset	331
a27a279701f8 Initial revision claus parents: diff changeset	332	left := newLeft.
a27a279701f8 Initial revision claus parents: diff changeset	333	top := newTop.
a27a279701f8 Initial revision claus parents: diff changeset	334	width := right - left.
a27a279701f8 Initial revision claus parents: diff changeset	335	height := bottom - top
a27a279701f8 Initial revision claus parents: diff changeset	336	!
a27a279701f8 Initial revision claus parents: diff changeset	337
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	338	left:newLeft top:newTop extent:extent
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	339	"set the rectangle given left, top, coordinates and an extent"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	340
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	341	left := newLeft.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	342	top := newTop.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	343	width := extent x.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	344	height := extent y
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	345
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	346	"Created: 8.5.1996 / 20:55:10 / cg"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	347	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	348
1 a27a279701f8 Initial revision claus parents: diff changeset	349	left:newLeft top:newTop right:right bottom:bottom
a27a279701f8 Initial revision claus parents: diff changeset	350	"set the rectangle given left, top, right and bottom coordinates"
a27a279701f8 Initial revision claus parents: diff changeset	351
a27a279701f8 Initial revision claus parents: diff changeset	352	left := newLeft.
a27a279701f8 Initial revision claus parents: diff changeset	353	top := newTop.
a27a279701f8 Initial revision claus parents: diff changeset	354	width := right - left.
a27a279701f8 Initial revision claus parents: diff changeset	355	height := bottom - top
a27a279701f8 Initial revision claus parents: diff changeset	356	!
a27a279701f8 Initial revision claus parents: diff changeset	357
a27a279701f8 Initial revision claus parents: diff changeset	358	left:newLeft top:newTop width:newWidth height:newHeight
a27a279701f8 Initial revision claus parents: diff changeset	359	"set the rectangle given left, top coordinates and width, height"
a27a279701f8 Initial revision claus parents: diff changeset	360
a27a279701f8 Initial revision claus parents: diff changeset	361	left := newLeft.
a27a279701f8 Initial revision claus parents: diff changeset	362	top := newTop.
a27a279701f8 Initial revision claus parents: diff changeset	363	width := newWidth.
a27a279701f8 Initial revision claus parents: diff changeset	364	height := newHeight
a27a279701f8 Initial revision claus parents: diff changeset	365	!
a27a279701f8 Initial revision claus parents: diff changeset	366
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	367	leftCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	368	"return the left center point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	369
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	370	^ left @ (top + (height / 2))
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	371
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	372	"Modified: 4.6.1996 / 16:04:01 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	373	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	374
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	375	origin
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	376	"return the origin"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	377
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	378	^ left @ top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	379	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	380
1 a27a279701f8 Initial revision claus parents: diff changeset	381	origin:aPoint
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	382	"set the top-left origin. The corner remains unchanged."
6c38ca59927f * empty log message * claus parents: 59 diff changeset	383
6c38ca59927f * empty log message * claus parents: 59 diff changeset	384	\|newTop newLeft\|
1 a27a279701f8 Initial revision claus parents: diff changeset	385
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	386	newTop := aPoint y.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	387	newLeft := aPoint x.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	388	height := height + (top - newTop).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	389	width := width + (left - newLeft).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	390	left := newLeft.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	391	top := newTop
1 a27a279701f8 Initial revision claus parents: diff changeset	392	!
a27a279701f8 Initial revision claus parents: diff changeset	393
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	394	origin:origin corner:corner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	395	"set both origin and corner"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	396
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	397	left := origin x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	398	top := origin y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	399	width := corner x - left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	400	height := corner y - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	401	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	402
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	403	origin:origin extent:extent
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	404	"set both origin and extent"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	405
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	406	left := origin x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	407	top := origin y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	408	width := extent x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	409	height := extent y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	410	!
1 a27a279701f8 Initial revision claus parents: diff changeset	411
1356 a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	412	origin:origin width:w height:h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	413	"set both origin and extent;
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	414	the extent is given as individual width and height"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	415
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	416	left := origin x.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	417	top := origin y.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	418	width := w.
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	419	height := h
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	420
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	421	"Created: 8.5.1996 / 20:53:53 / cg"
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	422	!
a37a6ac34caf checkin from browser Claus Gittinger <cg@exept.de> parents: 1355 diff changeset	423
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	424	right
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	425	"return the x coordinate of the right"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	426
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	427	^ (left + width)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	428	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	429
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	430	right:aNumber
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	431	"set the right edge"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	432
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	433	width := aNumber - left
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	434	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	435
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	436	rightCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	437	"return the right center point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	438
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	439	^ (left + width) @ (top + (height / 2))
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	440
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	441	"Modified: 4.6.1996 / 16:09:05 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	442	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	443
3269 6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	444	setLeft:newLeft
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	445	"set left without adjusting width"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	446
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	447	left := newLeft.
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	448
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	449	"Modified: / 22.1.1998 / 09:40:35 / av"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	450	"Created: / 3.2.1998 / 19:01:06 / cg"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	451	!
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	452
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	453	setTop:newTop
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	454	"set top without adjusting height"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	455
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	456	top := newTop.
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	457
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	458	"Modified: / 20.1.1998 / 18:25:35 / av"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	459	"Created: / 3.2.1998 / 19:01:01 / cg"
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	460	!
6e3c86ce2a51 added #setTop: & #setLeft: Claus Gittinger <cg@exept.de> parents: 3239 diff changeset	461
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	462	top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	463	"return the y-coordinate of the top-left"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	464
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	465	^ top
1 a27a279701f8 Initial revision claus parents: diff changeset	466	!
a27a279701f8 Initial revision claus parents: diff changeset	467
a27a279701f8 Initial revision claus parents: diff changeset	468	top:aNumber
a27a279701f8 Initial revision claus parents: diff changeset	469	"set the top edge"
a27a279701f8 Initial revision claus parents: diff changeset	470
a27a279701f8 Initial revision claus parents: diff changeset	471	height := height + (top - aNumber).
a27a279701f8 Initial revision claus parents: diff changeset	472	top := aNumber
a27a279701f8 Initial revision claus parents: diff changeset	473	!
a27a279701f8 Initial revision claus parents: diff changeset	474
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	475	topCenter
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	476	"return the top center point"
1 a27a279701f8 Initial revision claus parents: diff changeset	477
1453 eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	478	^ (left + (width / 2)) @ top
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	479
eb73ecdb25ab center methods should not use // Claus Gittinger <cg@exept.de> parents: 1443 diff changeset	480	"Modified: 4.6.1996 / 16:09:09 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	481	!
a27a279701f8 Initial revision claus parents: diff changeset	482
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	483	topLeft
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	484	"return the top-left point - the same as origin"
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	485
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	486	^ left @ top
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	487	!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	488
6c38ca59927f * empty log message * claus parents: 59 diff changeset	489	topLeft:aPoint
6c38ca59927f * empty log message * claus parents: 59 diff changeset	490	"Set the top and left edges.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	491	The bottom right remains unchanged."
6c38ca59927f * empty log message * claus parents: 59 diff changeset	492
6c38ca59927f * empty log message * claus parents: 59 diff changeset	493	\|newTop\|
6c38ca59927f * empty log message * claus parents: 59 diff changeset	494
6c38ca59927f * empty log message * claus parents: 59 diff changeset	495	newTop := aPoint y.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	496	height := height + (top - newTop).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	497	top := newTop.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	498	width := aPoint x - left
6c38ca59927f * empty log message * claus parents: 59 diff changeset	499	!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	500
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	501	topRight
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	502	"return the top-right point"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	503
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	504	^ (left + width) @ top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	505	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	506
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	507	topRight:aPoint
6c38ca59927f * empty log message * claus parents: 59 diff changeset	508	"Set the top and right edges.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	509	The bottom left remains unchanged."
6c38ca59927f * empty log message * claus parents: 59 diff changeset	510
6c38ca59927f * empty log message * claus parents: 59 diff changeset	511	\|newTop\|
6c38ca59927f * empty log message * claus parents: 59 diff changeset	512
6c38ca59927f * empty log message * claus parents: 59 diff changeset	513	newTop := aPoint y.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	514	height := height + (top - newTop).
6c38ca59927f * empty log message * claus parents: 59 diff changeset	515	top := newTop.
6c38ca59927f * empty log message * claus parents: 59 diff changeset	516	width := aPoint x - left
6c38ca59927f * empty log message * claus parents: 59 diff changeset	517	!
6c38ca59927f * empty log message * claus parents: 59 diff changeset	518
6c38ca59927f * empty log message * claus parents: 59 diff changeset	519	width
6c38ca59927f * empty log message * claus parents: 59 diff changeset	520	"return the width of the rectangle"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	521
6c38ca59927f * empty log message * claus parents: 59 diff changeset	522	^ width
2441 9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	523	!
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	524
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	525	width:aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	526	"change the width of the rectangle.
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	527	logically, this changes the corner to get the given width."
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	528
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	529	width := aNumber
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	530
9ca4dbc0dc64 added #width: and #height: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	531	"Created: 3.3.1997 / 16:33:48 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	532	! !
a27a279701f8 Initial revision claus parents: diff changeset	533
a27a279701f8 Initial revision claus parents: diff changeset	534	!Rectangle methodsFor:'comparing'!
a27a279701f8 Initial revision claus parents: diff changeset	535
a27a279701f8 Initial revision claus parents: diff changeset	536	= aRectangle
a27a279701f8 Initial revision claus parents: diff changeset	537	"return true, if the argument aRectangle represents the same
a27a279701f8 Initial revision claus parents: diff changeset	538	rectangle as the receiver"
a27a279701f8 Initial revision claus parents: diff changeset	539
a27a279701f8 Initial revision claus parents: diff changeset	540	%{ /* NOCONTEXT */
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	541	/*
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	542	* because rectangles are often compared in the graphics code,
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	543	* handle the common case quickly
4a86aad06603 * empty log message * claus parents: 32 diff changeset	544	*/
329 f14fc5ac11b7 . claus parents: 326 diff changeset	545	if (__isNonNilObject(aRectangle)
f14fc5ac11b7 . claus parents: 326 diff changeset	546	&& __qClass(aRectangle) == Rectangle) {
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	547	if ((__InstPtr(self)->i_instvars[0] == __InstPtr(aRectangle)->i_instvars[0])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	548	&& (__InstPtr(self)->i_instvars[1] == __InstPtr(aRectangle)->i_instvars[1])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	549	&& (__InstPtr(self)->i_instvars[2] == __InstPtr(aRectangle)->i_instvars[2])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	550	&& (__InstPtr(self)->i_instvars[3] == __InstPtr(aRectangle)->i_instvars[3])) {
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	551	RETURN ( true );
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	552	}
1133 961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	553	if (__bothSmallInteger(__InstPtr(self)->i_instvars[0], __InstPtr(aRectangle)->i_instvars[0])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	554	&& __bothSmallInteger(__InstPtr(self)->i_instvars[1], __InstPtr(aRectangle)->i_instvars[1])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	555	&& __bothSmallInteger(__InstPtr(self)->i_instvars[2], __InstPtr(aRectangle)->i_instvars[2])
961f2b095c22 underline cleanup Claus Gittinger <cg@exept.de> parents: 1124 diff changeset	556	&& __bothSmallInteger(__InstPtr(self)->i_instvars[3], __InstPtr(aRectangle)->i_instvars[3])) {
325 46bca6125b93 . claus parents: 308 diff changeset	557	RETURN ( false );
46bca6125b93 . claus parents: 308 diff changeset	558	}
1 a27a279701f8 Initial revision claus parents: diff changeset	559	}
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	560	%}.
259 a5c9efa2ac05 claus parents: 217 diff changeset	561	(aRectangle species ~~ self species) ifTrue:[^ false].
1 a27a279701f8 Initial revision claus parents: diff changeset	562
a27a279701f8 Initial revision claus parents: diff changeset	563	left = aRectangle left ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	564	top = aRectangle top ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	565	width = aRectangle width ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	566	height = aRectangle height ifFalse:[^ false].
a27a279701f8 Initial revision claus parents: diff changeset	567	^ true
59 4a86aad06603 * empty log message * claus parents: 32 diff changeset	568	!
4a86aad06603 * empty log message * claus parents: 32 diff changeset	569
4a86aad06603 * empty log message * claus parents: 32 diff changeset	570	hash
4a86aad06603 * empty log message * claus parents: 32 diff changeset	571	"return an integer useful for hashing -
4a86aad06603 * empty log message * claus parents: 32 diff changeset	572	redefined since = is redefined here"
4a86aad06603 * empty log message * claus parents: 32 diff changeset	573
4a86aad06603 * empty log message * claus parents: 32 diff changeset	574	^ ((left hash bitShift:16) bitXor:(top hash bitShift:16))
4a86aad06603 * empty log message * claus parents: 32 diff changeset	575	+ ((width hash) bitXor:(height hash))
1 a27a279701f8 Initial revision claus parents: diff changeset	576	! !
a27a279701f8 Initial revision claus parents: diff changeset	577
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	578	!Rectangle methodsFor:'converting'!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	579
6c5ce0e1e7a8 . claus parents: 329 diff changeset	580	asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	581	"return a layoutFrame in which fractions (top, left, bottom, right)
6c5ce0e1e7a8 . claus parents: 329 diff changeset	582	are taken from corresponding edges of the receiver.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	583	You have to make certain that those are in 0..1."
6c5ce0e1e7a8 . claus parents: 329 diff changeset	584
6c5ce0e1e7a8 . claus parents: 329 diff changeset	585	\|l\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	586
6c5ce0e1e7a8 . claus parents: 329 diff changeset	587	l := LayoutFrame new.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	588	l
6c5ce0e1e7a8 . claus parents: 329 diff changeset	589	leftFraction:(self left);
6c5ce0e1e7a8 . claus parents: 329 diff changeset	590	rightFraction:(self right);
6c5ce0e1e7a8 . claus parents: 329 diff changeset	591	topFraction:(self top);
6c5ce0e1e7a8 . claus parents: 329 diff changeset	592	bottomFraction:(self bottom).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	593	^ l
6c5ce0e1e7a8 . claus parents: 329 diff changeset	594
6c5ce0e1e7a8 . claus parents: 329 diff changeset	595	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	596	(0.5@0.5 corner:0.75@0.75) asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	597	(0.5@0.5 corner:0.75@0.75) asOffsetLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	598	(0.5@0.5 corner:0.75@0.75) asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	599	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	600	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	601
6c5ce0e1e7a8 . claus parents: 329 diff changeset	602	asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	603	"return a layoutFrame in which offsets (top, left, bottom, right)
6c5ce0e1e7a8 . claus parents: 329 diff changeset	604	are taken from corresponding edges of the receiver.
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	605	If all values are between 0.0 .. 1.0, a fractionalLayout is created,
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	606	otherwise, an offsetLayout"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	607
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	608	\|newLayout l r t b\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	609
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	610	newLayout := LayoutFrame new.
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	611	l := left.
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	612	r := (self right).
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	613	t := top.
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	614	b := (self bottom).
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	615	((l between:0.0 and:1.0)
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	616	and:[(r between:0.0 and:1.0)
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	617	and:[(t between:0.0 and:1.0)
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	618	and:[(b between:0.0 and:1.0)]]]) ifTrue:[
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	619	newLayout
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	620	leftFraction:l;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	621	rightFraction:r;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	622	topFraction:t;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	623	bottomFraction:b.
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	624	] ifFalse:[
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	625	newLayout
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	626	leftOffset:l;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	627	rightFraction:0 offset:r;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	628	topOffset:t;
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	629	bottomFraction:0 offset:b.
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	630	].
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	631	^ newLayout
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	632
6c5ce0e1e7a8 . claus parents: 329 diff changeset	633	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	634	(0.5@0.5 corner:0.75@0.75) asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	635	(0.5@0.5 corner:0.75@0.75) asOffsetLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	636	(0.5@0.5 corner:0.75@0.75) asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	637	(0@0 corner:1@1) asLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	638	(0@0 corner:1@1) asFractionalLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	639	(0@0 corner:1@1) asOffsetLayout
6c5ce0e1e7a8 . claus parents: 329 diff changeset	640	"
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	641
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	642	"Modified: 5.6.1996 / 00:45:46 / cg"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	643	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	644
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	645	asOffsetLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	646	"return a layoutFrame in which offsets (top, left, bottom, right)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	647	are taken from corresponding edges of the receiver.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	648	You have to make certain that those are in 0..1."
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	649
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	650	\|newLayout\|
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	651
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	652	newLayout := LayoutFrame new.
7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	653	newLayout
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	654	leftOffset:(self left);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	655	rightFraction:0 offset:(self right);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	656	topOffset:(self top);
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	657	bottomFraction:0 offset:(self bottom).
1151 7991d983b17d * empty log message * Claus Gittinger <cg@exept.de> parents: 1149 diff changeset	658	^ newLayout
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	659
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	660	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	661	(0.5@0.5 corner:0.75@0.75) asFractionalLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	662	(0.5@0.5 corner:0.75@0.75) asOffsetLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	663	(0.5@0.5 corner:0.75@0.75) asLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	664
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	665	(10@10 corner:20@20) asFractionalLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	666	(10@10 corner:20@20) asOffsetLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	667	(10@10 corner:20@20) asLayout
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	668	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	669
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	670	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	671
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	672	asPointArray
6c5ce0e1e7a8 . claus parents: 329 diff changeset	673	"return an array containing my corners (clockwise) and
6c5ce0e1e7a8 . claus parents: 329 diff changeset	674	the origin again as 5th element. Can be used to convert
6c5ce0e1e7a8 . claus parents: 329 diff changeset	675	a rectangle into a polygon."
6c5ce0e1e7a8 . claus parents: 329 diff changeset	676
6c5ce0e1e7a8 . claus parents: 329 diff changeset	677	\|org\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	678
6c5ce0e1e7a8 . claus parents: 329 diff changeset	679	^ Array with:(org := self origin)
6c5ce0e1e7a8 . claus parents: 329 diff changeset	680	with:self topRight
6c5ce0e1e7a8 . claus parents: 329 diff changeset	681	with:self corner
6c5ce0e1e7a8 . claus parents: 329 diff changeset	682	with:self bottomLeft
6c5ce0e1e7a8 . claus parents: 329 diff changeset	683	with:org
6c5ce0e1e7a8 . claus parents: 329 diff changeset	684
6c5ce0e1e7a8 . claus parents: 329 diff changeset	685	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	686	(10@10 corner:100@100) asPointArray
6c5ce0e1e7a8 . claus parents: 329 diff changeset	687	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	688	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	689
1354 0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	690	asPolygon
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	691	"return a polygon from the receiver"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	692
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	693	^ Polygon vertices:self asPointArray
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	694
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	695	"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	696	(10@10 corner:100@100) asPolygon
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	697	"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	698
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	699	"Modified: 8.5.1996 / 20:14:44 / cg"
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	700	!
0515d1ed37e4 doku Claus Gittinger <cg@exept.de> parents: 1349 diff changeset	701
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	702	fromLiteralArrayEncoding:encoding
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	703	"read my values from an encoding.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	704	The encoding is supposed to be of the form: (Rectangle orgX orgY cornX cornY)"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	705
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	706	left := encoding at:2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	707	top := encoding at:3.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	708	width := (encoding at:4) - left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	709	height := (encoding at:5) - top
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	710
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	711
6c5ce0e1e7a8 . claus parents: 329 diff changeset	712	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	713	Rectangle new fromLiteralArrayEncoding:#(Rectangle 100 200 300 500)
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	714	"
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	715	!
5b5a130ccd09 revision added claus parents: 362 diff changeset	716
421 a0807a38319d . claus parents: 384 diff changeset	717	literalArrayEncoding
1245 c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	718	"encode myself as an array, from which a copy of the receiver
c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	719	can be reconstructed with #decodeAsLiteralArray.
421 a0807a38319d . claus parents: 384 diff changeset	720	The encoding is: (Rectangle orgX orgY cornX cornY)"
a0807a38319d . claus parents: 384 diff changeset	721
a0807a38319d . claus parents: 384 diff changeset	722	^ Array
1245 c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	723	with:#Rectangle
c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	724	with:left
c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	725	with:top
2426 3b04313af90e literalEncoding ca parents: 2381 diff changeset	726	with:(left + width)
3b04313af90e literalEncoding ca parents: 2381 diff changeset	727	with:(top + height)
421 a0807a38319d . claus parents: 384 diff changeset	728
a0807a38319d . claus parents: 384 diff changeset	729
a0807a38319d . claus parents: 384 diff changeset	730	"
a0807a38319d . claus parents: 384 diff changeset	731	Rectangle new fromLiteralArrayEncoding:#(Rectangle 100 200 300 500)
a0807a38319d . claus parents: 384 diff changeset	732	(100@200 corner:300@500) literalArrayEncoding
a0807a38319d . claus parents: 384 diff changeset	733	"
a0807a38319d . claus parents: 384 diff changeset	734
a0807a38319d . claus parents: 384 diff changeset	735	"Modified: 1.9.1995 / 02:16:54 / claus"
1245 c8afea3d5af0 commentary Claus Gittinger <cg@exept.de> parents: 1151 diff changeset	736	"Modified: 22.4.1996 / 13:00:36 / cg"
421 a0807a38319d . claus parents: 384 diff changeset	737	!
a0807a38319d . claus parents: 384 diff changeset	738
3488 6e1feb9ead68 prefRect may now be a valueHolder or block Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	739	rectangleRelativeTo:aRectangle preferred:prefRectHolder
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	740	"compute a displayRectangle, treating the receiver like a
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	741	layoutFrame.
17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	742	This allows rectangles to be used interchangable with Layouts."
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	743
3488 6e1feb9ead68 prefRect may now be a valueHolder or block Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	744	^ (self asLayout) rectangleRelativeTo:aRectangle preferred:prefRectHolder
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	745
5b5a130ccd09 revision added claus parents: 362 diff changeset	746	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	747	(10@20 corner:20@30) rectangleRelativeTo:(0@0 corner:100@100) preferred:(0@0 corner:50@50)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	748
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	749	(0.5@0.5) rectangleRelativeTo:(0@0 corner:100@100) preferred:(0@0 corner:50@50)
379 5b5a130ccd09 revision added claus parents: 362 diff changeset	750	"
1454 17ff61f7f34e layout stuff & comment Claus Gittinger <cg@exept.de> parents: 1453 diff changeset	751
3488 6e1feb9ead68 prefRect may now be a valueHolder or block Claus Gittinger <cg@exept.de> parents: 3269 diff changeset	752	"Modified: / 27.5.1998 / 10:20:20 / cg"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	753	! !
6c5ce0e1e7a8 . claus parents: 329 diff changeset	754
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	755	!Rectangle methodsFor:'destructive rectangle operations'!
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	756
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	757	expandBy:delta
6c5ce0e1e7a8 . claus parents: 329 diff changeset	758	"destructively expanded the receiver in all directions
6c5ce0e1e7a8 . claus parents: 329 diff changeset	759	by amount, a Point, Rectangle or Number.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	760	Warning: this is a destructive operation, modifying the receiver
6c5ce0e1e7a8 . claus parents: 329 diff changeset	761	NOT returning a copy. You have to be certain to be the exclusive
6c5ce0e1e7a8 . claus parents: 329 diff changeset	762	owner of the receiver to avoid side effects. See also: #expandedBy:"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	763
6c5ce0e1e7a8 . claus parents: 329 diff changeset	764	\|amountPoint deltaLeft deltaTop deltaWidth deltaHeight\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	765
6c5ce0e1e7a8 . claus parents: 329 diff changeset	766	delta isNumber ifTrue:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	767	deltaLeft := deltaTop := delta.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	768	deltaWidth := deltaHeight := delta * 2.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	769	] ifFalse:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	770	delta isRectangle ifTrue:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	771	deltaLeft := delta left.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	772	deltaTop := delta top.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	773	deltaWidth := deltaLeft + delta right.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	774	deltaHeight := deltaTop + delta bottom
6c5ce0e1e7a8 . claus parents: 329 diff changeset	775	] ifFalse:[
6c5ce0e1e7a8 . claus parents: 329 diff changeset	776	amountPoint := delta asPoint.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	777	deltaLeft := amountPoint x.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	778	deltaTop := amountPoint y.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	779	deltaWidth := deltaLeft * 2.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	780	deltaHeight := deltaTop * 2.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	781	]
6c5ce0e1e7a8 . claus parents: 329 diff changeset	782	].
6c5ce0e1e7a8 . claus parents: 329 diff changeset	783
6c5ce0e1e7a8 . claus parents: 329 diff changeset	784	left := (left - deltaLeft).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	785	top := (top - deltaTop).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	786	width := (width + deltaWidth).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	787	height := (height + deltaHeight).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	788
6c5ce0e1e7a8 . claus parents: 329 diff changeset	789	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	790	\|r\|
6c5ce0e1e7a8 . claus parents: 329 diff changeset	791	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	792	r expandBy:5.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	793
6c5ce0e1e7a8 . claus parents: 329 diff changeset	794	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	795	r expandBy:(5 @ 0).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	796
6c5ce0e1e7a8 . claus parents: 329 diff changeset	797	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	798	r expandBy:(10 @ 10).
6c5ce0e1e7a8 . claus parents: 329 diff changeset	799
6c5ce0e1e7a8 . claus parents: 329 diff changeset	800	r := Rectangle origin:10@10 corner:100@100.
6c5ce0e1e7a8 . claus parents: 329 diff changeset	801	r expandBy:( 10@10 corner:20@20 )
6c5ce0e1e7a8 . claus parents: 329 diff changeset	802	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	803	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	804
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	805	moveBy:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	806	"destructively translate the rectangle by some distance.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	807	sorry for the name inconsistency - but GNU-ST named it that way"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	808
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	809	left := left + aPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	810	top := top + aPoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	811	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	812
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	813	moveTo:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	814	"destructively translate the rectangle to have its origin at aPoint."
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	815
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	816	\|diff\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	817
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	818	diff := aPoint - self origin.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	819	self origin:aPoint corner:self corner + diff
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	820	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	821
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	822	scaleBy:scale
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	823	"scale the receiver rectangle by scale (a Number or Point).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	824	This is destructive (modifies the receiver, not a copy) and
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	825	should only be used if you know, that you are the exclusive owner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	826	of the receiver. (use scaledBy if in doubt)"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	827
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	828	\|scalePoint sx sy\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	829
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	830	(scale isMemberOf:Point) ifTrue:[ "type hint to stc"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	831	sx := scale x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	832	sy := scale y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	833	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	834	scalePoint := scale asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	835	sx := scalePoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	836	sy := scalePoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	837	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	838	width := width * sx.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	839	height := height * sy.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	840	left := left * sx.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	841	top := top * sy
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	842
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	843	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	844	(Rectangle origin:10@10 corner:50@50) scaleBy:2
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	845	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	846
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	847	"its destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	848	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	849	\|r1 r2\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	850
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	851	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	852	r2 := r1 scaleBy:2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	853	r1
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	854	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	855	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	856
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	857	translateBy:amount
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	858	"translate (i.e. move) the receiver rectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	859	by amount, a Point or Number.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	860	This is destructive (modifies the receiver, not a copy) and
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	861	should only be used if you know, that you are the exclusive owner
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	862	of the receiver. (use translatedBy if in doubt)"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	863
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	864	\|amountPoint\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	865
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	866	(amount isMemberOf:Point) ifTrue:[ "type hint to stc"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	867	left := left + amount x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	868	top := top + amount y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	869	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	870	amountPoint := amount asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	871	left := left + amountPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	872	top := top + amountPoint y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	873	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	874
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	875	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	876	(Rectangle origin:10@10 corner:50@50) translateBy:10
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	877	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	878
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	879	"its destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	880	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	881	\|r1 r2\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	882
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	883	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	884	r2 := r1 translateBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	885	r1
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	886	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	887	! !
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	888
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	889	!Rectangle methodsFor:'displaying'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	890
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	891	displayFilledOn:aGC
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	892	"display a filled rectangle as represented by the receiver in
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	893	the graphicsContext, aGC"
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	894
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	895	aGC fillRectangleX:left y:top width:width height:height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	896
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	897	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	898	\|v\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	899
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	900	v := View new openAndWait.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	901
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	902	(Rectangle origin:10@10 corner:50@50) displayFilledOn:v
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	903	"
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	904
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	905	"Modified: 8.5.1996 / 14:40:42 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	906	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	907
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	908	displayStrokedOn:aGC
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	909	"display an unfilled rectangle as represented by the receiver in
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	910	the graphicsContext, aGC"
18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	911
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	912	aGC displayRectangleX:left y:top width:width height:height
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	913
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	914	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	915	\|v\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	916
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	917	v := View new openAndWait.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	918
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	919	(Rectangle origin:10@10 corner:50@50) displayStrokedOn:v
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	920	"
1314 18fabbc0e0a6 examples Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	921
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	922	"Modified: 8.5.1996 / 14:40:53 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	923	! !
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	924
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	925	!Rectangle methodsFor:'printing & storing'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	926
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	927	printOn:aStream
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	928	"print the receiver on aStream"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	929
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	930	aStream nextPutAll:(self class name).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	931	aStream nextPutAll:' origin:'.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	932	(self origin) printOn:aStream.
1443 d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	933	aStream nextPutAll:' extent:'.
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	934	(self extent) printOn:aStream
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	935
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	936	"Modified: 29.5.1996 / 00:17:39 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	937	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	938
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	939	storeOn:aStream
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	940	"store the receiver on aStream; i.e. print an expression which will
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	941	reconstruct the receiver"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	942
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	943	aStream nextPut:$(.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	944	aStream nextPutAll:(self class name).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	945	aStream nextPutAll:' origin:'.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	946	(self origin) storeOn:aStream.
1443 d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	947	aStream nextPutAll:' extent:'.
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	948	(self extent) storeOn:aStream.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	949	aStream nextPut:$)
1443 d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	950
d747d574e26d checkin from browser Claus Gittinger <cg@exept.de> parents: 1390 diff changeset	951	"Modified: 29.5.1996 / 00:17:42 / cg"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	952	! !
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	953
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	954	!Rectangle methodsFor:'queries'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	955
1349 275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	956	bounds
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	957	"return the smallest enclosing rectangle"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	958
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	959	^ self
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	960
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	961	"Created: 8.5.1996 / 13:56:24 / cg"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	962	"Modified: 8.5.1996 / 14:06:38 / cg"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	963	!
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	964
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	965	canBeFilled
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	966	"return true, if the receiver can be drawn as a filled geometric.
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	967	Always true here."
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	968
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	969	^ true
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	970
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	971	"Created: 8.5.1996 / 08:16:47 / cg"
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	972	!
275388fd5271 comments & more Geometric functionality Claus Gittinger <cg@exept.de> parents: 1314 diff changeset	973
2381 10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	974	computeBounds
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	975	"return the smallest enclosing rectangle"
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	976
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	977	^ self
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	978
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	979	"Modified: 8.5.1996 / 14:06:38 / cg"
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	980	"Created: 12.2.1997 / 11:44:45 / cg"
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	981	!
10af98758a49 added dummy Scale & InverseScale classVars. Claus Gittinger <cg@exept.de> parents: 2373 diff changeset	982
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	983	isRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	984	"return true, if the receiver is some kind of rectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	985
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	986	^ true
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	987	! !
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	988
1 a27a279701f8 Initial revision claus parents: diff changeset	989	!Rectangle methodsFor:'rectangle operations'!
a27a279701f8 Initial revision claus parents: diff changeset	990
a27a279701f8 Initial revision claus parents: diff changeset	991	+ aPoint
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	992	"return a new rectangle with same extent as receiver but
1 a27a279701f8 Initial revision claus parents: diff changeset	993	origin translated by the argument, aPoint"
a27a279701f8 Initial revision claus parents: diff changeset	994
217 a0400fdbc933 * empty log message * claus parents: 208 diff changeset	995	\|amountPoint\|
a0400fdbc933 * empty log message * claus parents: 208 diff changeset	996
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	997	(aPoint isMemberOf:SmallInteger) ifTrue:[
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	998	"/ this is an stc optimization
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	999	^ Rectangle
2373 e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1000	left:(left + aPoint)
e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1001	top:(top + aPoint)
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1002	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1003	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1004	].
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1005
217 a0400fdbc933 * empty log message * claus parents: 208 diff changeset	1006	amountPoint := aPoint asPoint.
a0400fdbc933 * empty log message * claus parents: 208 diff changeset	1007	^ Rectangle left:(left + amountPoint x)
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1008	top:(top + amountPoint y)
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1009	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1010	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1011
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1012	"Modified: 25.1.1997 / 17:29:53 / cg"
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1013	!
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1014
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1015	- aPoint
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1016	"return a new rectangle with same extent as receiver but
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1017	origin translated by the argument, aPoint"
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1018
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1019	\|amountPoint\|
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1020
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1021	(aPoint isMemberOf:SmallInteger) ifTrue:[
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1022	"/ this is an stc optimization
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1023	^ Rectangle
2373 e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1024	left:(left - aPoint)
e5bc707209cd oops - +/- were wrong Claus Gittinger <cg@exept.de> parents: 2372 diff changeset	1025	top:(top - aPoint)
2274 891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1026	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1027	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1028	].
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1029
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1030	amountPoint := aPoint asPoint.
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1031	^ Rectangle left:(left - amountPoint x)
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1032	top:(top - amountPoint y)
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1033	width:width
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1034	height:height
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1035
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1036	"Modified: 25.1.1997 / 17:29:53 / cg"
891194fa4b17 * empty log message * Claus Gittinger <cg@exept.de> parents: 1507 diff changeset	1037	"Created: 25.1.1997 / 17:30:21 / cg"
1 a27a279701f8 Initial revision claus parents: diff changeset	1038	!
a27a279701f8 Initial revision claus parents: diff changeset	1039
326 d2902942491d * empty log message * claus parents: 325 diff changeset	1040	align:offset with:someCoordinate
d2902942491d * empty log message * claus parents: 325 diff changeset	1041	"return a new rectangle which is translated (i.e. moved)
d2902942491d * empty log message * claus parents: 325 diff changeset	1042	such that the point offset in mySelf is placed on someCoordinate."
d2902942491d * empty log message * claus parents: 325 diff changeset	1043
d2902942491d * empty log message * claus parents: 325 diff changeset	1044	^ Rectangle origin:(someCoordinate - offset + self origin)
d2902942491d * empty log message * claus parents: 325 diff changeset	1045	extent:(self extent)
d2902942491d * empty log message * claus parents: 325 diff changeset	1046	"
d2902942491d * empty log message * claus parents: 325 diff changeset	1047	\|r\|
d2902942491d * empty log message * claus parents: 325 diff changeset	1048
d2902942491d * empty log message * claus parents: 325 diff changeset	1049	r := Rectangle origin:10@10 corner:50@50.
d2902942491d * empty log message * claus parents: 325 diff changeset	1050	r align:(r center) with:100@100.
d2902942491d * empty log message * claus parents: 325 diff changeset	1051	"
d2902942491d * empty log message * claus parents: 325 diff changeset	1052	!
d2902942491d * empty log message * claus parents: 325 diff changeset	1053
1 a27a279701f8 Initial revision claus parents: diff changeset	1054	amountToTranslateWithin: aRectangle
a27a279701f8 Initial revision claus parents: diff changeset	1055	"for GNU-ST compatibility"
a27a279701f8 Initial revision claus parents: diff changeset	1056
a27a279701f8 Initial revision claus parents: diff changeset	1057	^(aRectangle origin) - self origin
a27a279701f8 Initial revision claus parents: diff changeset	1058	!
a27a279701f8 Initial revision claus parents: diff changeset	1059
a27a279701f8 Initial revision claus parents: diff changeset	1060	areasOutside: aRectangle
a27a279701f8 Initial revision claus parents: diff changeset	1061	"----------------------------------------------------------------
a27a279701f8 Initial revision claus parents: diff changeset	1062	\| added for GNU-ST compatibility
a27a279701f8 Initial revision claus parents: diff changeset	1063	\|
a27a279701f8 Initial revision claus parents: diff changeset	1064	\| author: Doug McCallum <uunet!!ico.isc.com!!dougm>
a27a279701f8 Initial revision claus parents: diff changeset	1065	\|
a27a279701f8 Initial revision claus parents: diff changeset	1066	\|areasOutside: aRectangle
a27a279701f8 Initial revision claus parents: diff changeset	1067	\| most complicated of the Rectangle primitives
a27a279701f8 Initial revision claus parents: diff changeset	1068	\| The basic methodology is to first determine that there is an
a27a279701f8 Initial revision claus parents: diff changeset	1069	\| intersection by finding the overlapping rectangle. From the
a27a279701f8 Initial revision claus parents: diff changeset	1070	\| overlapping rectangle, first determine if it runs along an edge.
a27a279701f8 Initial revision claus parents: diff changeset	1071	\| If it doesn't, extend the rectangle up to the top edge and add
a27a279701f8 Initial revision claus parents: diff changeset	1072	\| the new rectangle to the collection and start the rest of the
a27a279701f8 Initial revision claus parents: diff changeset	1073	\| process. If the left edge does not touch the left edge of self,
a27a279701f8 Initial revision claus parents: diff changeset	1074	\| extend it to the edge saving the new rectangle. Then do the
a27a279701f8 Initial revision claus parents: diff changeset	1075	\| same to the right edge. Then check top and bottom edges. Most
a27a279701f8 Initial revision claus parents: diff changeset	1076	\| of the time only 2 or 3 rectangles get formed, occasionally 4.
a27a279701f8 Initial revision claus parents: diff changeset	1077	\| It should be possible to never get more than 3 but requires more
a27a279701f8 Initial revision claus parents: diff changeset	1078	\| work.
a27a279701f8 Initial revision claus parents: diff changeset	1079	----------------------------------------------------------------"
a27a279701f8 Initial revision claus parents: diff changeset	1080
a27a279701f8 Initial revision claus parents: diff changeset	1081	\| collect iRect tmp \|
1124 53f6970d9d7d * empty log message * Claus Gittinger <cg@exept.de> parents: 867 diff changeset	1082
360 90c3608b92a3 . claus parents: 359 diff changeset	1083	iRect := self intersect: aRectangle.
1124 53f6970d9d7d * empty log message * Claus Gittinger <cg@exept.de> parents: 867 diff changeset	1084	iRect isNil ifTrue: [^nil]. "case of no intersection"
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1085	"the collect collection gathers Rectangles"
360 90c3608b92a3 . claus parents: 359 diff changeset	1086	collect := OrderedCollection new: 4.
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1087	"is it floating or on the edge?"
1 a27a279701f8 Initial revision claus parents: diff changeset	1088	(((((iRect top) ~= self top)
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1089	and: [ (iRect bottom) ~= self bottom ])
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1090	and: [ (iRect left) ~= self left ])
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1091	and: [ (iRect right) ~= self right ] )
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1092	ifTrue: "entirely in the center."
360 90c3608b92a3 . claus parents: 359 diff changeset	1093	[tmp := Rectangle origin: (Point x: iRect left y: self top)
90c3608b92a3 . claus parents: 359 diff changeset	1094	corner: iRect bottomRight.
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1095	collect add: tmp.
360 90c3608b92a3 . claus parents: 359 diff changeset	1096	iRect := iRect merge: tmp].
1 a27a279701f8 Initial revision claus parents: diff changeset	1097	((iRect left) ~= self left)
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1098	ifTrue: "doesn't touch left edge so make it touch"
360 90c3608b92a3 . claus parents: 359 diff changeset	1099	[tmp := Rectangle origin: (Point x: self left y: iRect top)
90c3608b92a3 . claus parents: 359 diff changeset	1100	corner: iRect bottomLeft.
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1101	collect add: tmp.
a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1102	"merge new (tmp) with overlap to keep track"
360 90c3608b92a3 . claus parents: 359 diff changeset	1103	iRect := iRect merge: tmp].
1 a27a279701f8 Initial revision claus parents: diff changeset	1104	((iRect right) ~= self right)
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1105	ifTrue: "doesn't touch right edge so extend it"
360 90c3608b92a3 . claus parents: 359 diff changeset	1106	[tmp := Rectangle origin: iRect topRight
90c3608b92a3 . claus parents: 359 diff changeset	1107	corner: (Point x: self right y: iRect bottom).
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1108	collect add: tmp.
360 90c3608b92a3 . claus parents: 359 diff changeset	1109	iRect := iRect merge: tmp].
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	1110	(((iRect left) ~= self left) or: [(iRect top) ~= self top])
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1111	ifTrue: "whole top part can be taken now"
360 90c3608b92a3 . claus parents: 359 diff changeset	1112	[tmp := Rectangle origin: self origin corner: iRect topRight.
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1113	collect add: tmp].
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	1114	(((iRect right) ~= self right) or: [(iRect bottom) ~= self bottom])
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1115	ifTrue: "whole bottom open and can be taken"
360 90c3608b92a3 . claus parents: 359 diff changeset	1116	[tmp := Rectangle origin: iRect bottomLeft corner: self corner.
186 a4c3032fc825 * empty log message * claus parents: 93 diff changeset	1117	collect add: tmp].
1 a27a279701f8 Initial revision claus parents: diff changeset	1118	^collect
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	1119	!
1 a27a279701f8 Initial revision claus parents: diff changeset	1120
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1121	expandedBy:delta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1122	"return a new rectangle which is expanded in all directions
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1123	by amount, a Point, Rectangle or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1124
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1125	^ self copy expandBy:delta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1126
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1127	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1128	\|r\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1129	r := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1130	r expandedBy:5.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1131	r expandedBy:(5 @ 0).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1132	r expandedBy:(10 @ 10).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1133	r expandedBy:( 10@10 corner:20@20 )
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1134	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1135	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1136
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1137	insetBy: delta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1138	"return a new rectangle which is inset in all directions
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1139	by delta, a Point, Rectangle or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1140
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1141	\|amountPoint deltaLeft deltaTop deltaWidth deltaHeight\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1142
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1143	delta isNumber ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1144	deltaLeft := deltaTop := delta.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1145	deltaWidth := deltaHeight := delta * 2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1146	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1147	delta isRectangle ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1148	deltaLeft := delta left.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1149	deltaTop := delta top.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1150	deltaWidth := deltaLeft + delta right.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1151	deltaHeight := deltaTop + delta bottom
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1152	] ifFalse:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1153	amountPoint := delta asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1154	deltaLeft := amountPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1155	deltaTop := amountPoint y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1156	deltaWidth := deltaLeft * 2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1157	deltaHeight := deltaTop * 2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1158	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1159	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1160
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1161	^ Rectangle left:(left + deltaLeft)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1162	top:(top + deltaTop)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1163	width:(width - deltaWidth)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1164	height:(height - deltaHeight)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1165	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1166	\|r\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1167	r := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1168	r insetBy:5.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1169	r insetBy:(5 @ 0).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1170	r insetBy:(10 @ 10).
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1171	r insetBy:( 10@10 corner:20@20 )
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1172	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1173	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1174
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1175	insetOriginBy:originDelta cornerBy:cornerDelta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1176	"return a new rectangle which is inset by originDelta
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1177	and cornerDelta; both may be instances of Point or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1178
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1179	^ Rectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1180	origin:(left @ top) + originDelta asPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1181	corner:(self corner - cornerDelta asPoint)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1182	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1183	\|r\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1184	r := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1185	r insetOriginBy:5 cornerBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1186	r insetOriginBy:10@5 cornerBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1187	r insetOriginBy:10 cornerBy:10@5.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1188	r insetOriginBy:10@10 cornerBy:20@20.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1189	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1190	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1191
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1192	intersect:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1193	"return a new rectangle covering the intersection of the receiver
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1194	and the argument, aRectangle.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1195	the rectangles must intersect for a valid return"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1196
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1197	^ Rectangle left:(left max:(aRectangle left))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1198	right:((left + width) min:(aRectangle right))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1199	top:(top max:(aRectangle top))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1200	bottom:((top + height) min:(aRectangle bottom))
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1201
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1202	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1203	\|r1 r2\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1204
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1205	r1 := Rectangle origin:10@10 corner:100@100.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1206	r2 := Rectangle origin:50@50 corner:150@75.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1207	r1 intersect:r2
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1208	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1209	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1210
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1211	merge:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1212	"return a new rectangle covering both the receiver
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1213	and the argument, aRectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1214
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1215	^ Rectangle left:(left min:(aRectangle left))
4859 592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1216	right:((left + width) max:(aRectangle right))
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1217	top:(top min:(aRectangle top))
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1218	bottom:((top + height) max:(aRectangle bottom))
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1219
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1220	"
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1221	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1222	merge:(Rectangle origin:20@20 corner:110@110)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1223
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1224	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1225	merge:(Rectangle origin:20@20 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1226	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1227	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1228
77 6c38ca59927f * empty log message * claus parents: 59 diff changeset	1229	nonIntersections:aRectangle
6c38ca59927f * empty log message * claus parents: 59 diff changeset	1230	"this is the same as areasOutside: - for ST/V compatibility only"
6c38ca59927f * empty log message * claus parents: 59 diff changeset	1231
6c38ca59927f * empty log message * claus parents: 59 diff changeset	1232	^ self areasOutside:aRectangle
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1233	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1234
4859 592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1235	quickMerge: aRectangle
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1236	"return the receiver if it encloses the given rectangle,
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1237	or the merge of the two rectangles if it doesn't.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1238	This method is an optimization to reduce extra rectangle creations."
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1239
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1240	\| useRcvr rLeft rTop rRight rBottom Origin rCorner minX maxX minY maxY \|
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1241
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1242	useRcvr := true.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1243	rLeft := aRectangle left.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1244	rTop := aRectangle top.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1245	rRight := aRectangle right.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1246	rBottom := aRectangle bottom.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1247	minX := rLeft < left ifTrue: [useRcvr := false. rLeft] ifFalse: [left].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1248	maxX := rRight > self right ifTrue: [useRcvr := false. rRight] ifFalse: [self right].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1249	minY := rTop < top ifTrue: [useRcvr := false. rTop] ifFalse: [top].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1250	maxY := rBottom > self bottom ifTrue: [useRcvr := false. rBottom] ifFalse: [self bottom].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1251
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1252	useRcvr ifTrue: [^ self].
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1253	^ Rectangle left:minX top:minY right:maxX bottom:maxY.
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1254
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1255	"
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1256	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1257	quickMerge:(Rectangle origin:20@20 corner:110@110)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1258
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1259	(Rectangle origin:10@10 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1260	quickMerge:(Rectangle origin:20@20 corner:100@100)
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1261	"
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1262
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1263	!
592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1264
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1265	rounded
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1266	"return a copy of the receiver with rounded coordinates"
1 a27a279701f8 Initial revision claus parents: diff changeset	1267
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1268	^ Rectangle left:(left rounded)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1269	top:(top rounded)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1270	width:(width rounded)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1271	height:(height rounded)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1272	!
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1273
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1274	scaledBy:scale
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1275	"return a new rectangle which is the receiver
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1276	scaled by scale"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1277
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1278	\|scalePoint sx sy\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1279
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1280	scalePoint := scale asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1281	sx := scalePoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1282	sy := scalePoint y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1283	^ Rectangle left:left * sx
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1284	top:top * sy
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1285	width:(width * sx)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1286	height:(height * sy)
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1287	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1288	(Rectangle origin:10@10 corner:50@50) scaledBy:2
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1289	"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1290
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1291	"its NOT destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1292	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1293	\|r1 r2\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1294
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1295	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1296	r2 := r1 scaledBy:2.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1297	r1
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1298	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1299	!
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1300
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1301	translatedBy:amount
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1302	"return a new rectangle which is translated (i.e. moved)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1303	by amount, aPoint or Number"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1304
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1305	\|amountPoint\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1306
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1307	amountPoint := amount asPoint.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1308	^ Rectangle left:(left + amountPoint x)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1309	top:(top + amountPoint y)
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1310	width:width
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1311	height:height
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1312	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1313	(Rectangle origin:10@10 corner:50@50) translatedBy:10
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1314	"
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1315
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1316	"its NOT destructive:"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1317	"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1318	\|r1 r2\|
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1319
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1320	r1 := Rectangle origin:10@10 corner:50@50.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1321	r2 := r1 translatedBy:10.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1322	r1
356 6c5ce0e1e7a8 . claus parents: 329 diff changeset	1323	"
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1324	! !
6c5ce0e1e7a8 . claus parents: 329 diff changeset	1325
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1326	!Rectangle methodsFor:'testing'!
1 a27a279701f8 Initial revision claus parents: diff changeset	1327
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1328	contains:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1329	"return true, if the argument, aRectangle is equal to or
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1330	is contained fully within the receiver"
1 a27a279701f8 Initial revision claus parents: diff changeset	1331
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1332	%{ /* NOCONTEXT */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1333	/*
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1334	* claus: this may be often called by objectView
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1335	* the primitive code below (although lookung ugly)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1336	* speeds that up by almost a factor of 2 ...
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1337	*/
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1338	OBJ slf = self;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1339	OBJ rct = aRectangle;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1340
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1341	if (__isNonNilObject(rct)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1342	&& __qClass(rct) == Rectangle) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1343	OBJ r_l, r_w, r_t, r_h, l, w, t, h;
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1344	INT r_ir, r_il, r_ib, r_it;
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1345	INT il, it, ir, ib, iw, ih;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1346
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1347	r_l = __OINST(rct, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1348	l = __OINST(slf, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1349	if (__bothSmallInteger(r_l, l)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1350	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1351	il = (INT)(l);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1352	r_il = (INT)(r_l);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1353	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1354	il = __intVal(l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1355	r_il = __intVal(r_l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1356	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1357	if (il > r_il) { RETURN (false); } /* left > aRectangle left */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1358
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1359	r_t = __OINST(rct, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1360	t = __OINST(slf, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1361	if (__bothSmallInteger(r_t, t)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1362	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1363	it = (INT)(t);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1364	r_it = (INT)(r_t);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1365	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1366	it = __intVal(t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1367	r_it = __intVal(r_t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1368	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1369	if (it > r_it) { RETURN (false); } /* top > aRectangle top */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1370
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1371	r_w = __OINST(rct, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1372	w = __OINST(slf, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1373	if (__bothSmallInteger(r_w, w)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1374	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1375	ir = il + (INT)(w);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1376	r_ir = r_il + (INT)(r_w);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1377	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1378	ir = il + __intVal(w);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1379	r_ir = r_il + __intVal(r_w);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1380	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1381	if (ir < r_ir) { RETURN (false); } /* (left + width) < aRectangle right */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1382
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1383	r_h = __OINST(rct, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1384	h = __OINST(slf, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1385	if (__bothSmallInteger(r_h, h)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1386	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1387	ib = it + (INT)(h);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1388	r_ib = r_it + (INT)(r_h);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1389	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1390	ib = it + __intVal(h);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1391	r_ib = r_it + __intVal(r_h);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1392	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1393	if (ib < r_ib) { RETURN (false); } /* (top + height) < aRectangle bottom */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1394	RETURN (true);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1395	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1396	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1397	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1398	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1399	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1400	%}.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1401	(left <= aRectangle left) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1402	((left + width) >= aRectangle right) ifTrue:[
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1403	(top <= aRectangle top) ifTrue:[
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1404	((top + height) >= aRectangle bottom) ifTrue:[
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1405	^ true
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1406	]
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1407	]
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1408	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1409	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1410	^ false
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1411
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1412	"
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1413	(0@0 corner:100@100) contains:(10@10 corner:90@90)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1414	(0@0 corner:100@100) contains:(10@10 corner:100@100)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1415	(0@0 corner:100@100) contains:(10@10 corner:110@100)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1416	(0@0 corner:100@100) contains:(10@10 corner:100@110)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1417	(10@10 corner:100@100) contains:(0@10 corner:100@100)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1418	"
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1419	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1420
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1421	containsPoint:aPoint
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1422	"return true, if the argument, aPoint is contained in the receiver"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1423
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1424	\|px py\|
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1425
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1426	px := aPoint x.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1427	(px < left) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1428	(px > (left + width)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1429	py := aPoint y.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1430	(py < top) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1431	(py > (top + height)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1432	^ true
1 a27a279701f8 Initial revision claus parents: diff changeset	1433	!
a27a279701f8 Initial revision claus parents: diff changeset	1434
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1435	containsPointX:x y:y
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1436	"return true, if the point defined by x@y is contained in the receiver.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1437	This is the same as containsPoint:, but can be used if the coordinates
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1438	are already available as separate numbers to avoid useless creation of a
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1439	temporary point."
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1440
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1441	(x < left) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1442	(x > (left + width)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1443	(y < top) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1444	(y > (top + height)) ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1445	^ true
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1446	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1447
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1448	intersects:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1449	"return true, if the intersection between the argument, aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1450	and the receiver is not empty"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1451
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1452	\|b r\|
1 a27a279701f8 Initial revision claus parents: diff changeset	1453
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1454	%{ /* NOCONTEXT */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1455	/*
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1456	* claus: this is one of the mostly called methods in
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1457	* the objectView - the primitive code below (although lookung ugly)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1458	* speeds up drawing by almost a factor of 2 ...
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1459	*/
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1460	OBJ slf = self;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1461	OBJ rct = aRectangle;
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1462
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1463	if (__isNonNilObject(rct)
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1464	&& __qClass(rct) == Rectangle) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1465	OBJ r_l, r_w, r_t, r_h, l, w, t, h;
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1466	INT r_ir, r_il, r_ib, r_it;
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1467	INT il, it, ir, ib, iw, ih;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1468
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1469	r_l = __OINST(rct, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1470	r_w = __OINST(rct, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1471
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1472	if (__bothSmallInteger(r_l, r_w)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1473	r_t = __OINST(rct, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1474	r_h = __OINST(rct, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1475
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1476	l = __OINST(slf, left);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1477	w = __OINST(slf, width);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1478
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1479	if (__bothSmallInteger(l, w)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1480	t = __OINST(slf, top);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1481	h = __OINST(slf, height);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1482
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1483	#ifndef POSITIVE_ADDRESSES /* tag in low-bit */
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1484	r_il = (INT)(r_l);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1485	r_ir = r_il + (INT)(r_w) - 1;
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1486	il = (INT)(l);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1487	if (r_ir < il) { RETURN (false); }
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1488	ir = il + (INT)(w) - 1;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1489	if (r_il > ir) { RETURN (false); }
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1490	#else /* tag in hi-bit */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1491	r_il = __intVal(r_l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1492	r_ir = r_il + __intVal(r_w); /* aRectangle right */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1493	il = __intVal(l);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1494	if (r_ir < il) { RETURN (false); } /* (aRectangle right) < left */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1495
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1496	ir = il + __intVal(w);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1497	if (r_il > ir) { RETURN (false); } /* (aRectangle left) > r */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1498	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1499
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1500	if (__bothSmallInteger(r_t, r_h)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1501	if (__bothSmallInteger(t, h)) {
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1502	#ifndef POSITIVE_ADDRESSES
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1503	r_it = (INT)(r_t);
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1504	r_ib = r_it + (INT)(r_h) - 1; /* aRectangle bottom */
7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1505	it = (INT)(t);
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1506	if (r_ib < it) { RETURN (false); } /* (aRectangle bottom) < top */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1507
2770 7c4ab842329f alpha changes Claus Gittinger <cg@exept.de> parents: 2441 diff changeset	1508	ib = it + (INT)(h) - 1;
1149 69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1509	if (r_it > ib) { RETURN (false); } /* (aRectangle top) > b */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1510	#else
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1511	r_it = __intVal(r_t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1512	r_ib = r_it + __intVal(r_h); /* aRectangle bottom */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1513	it = __intVal(t);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1514	if (r_ib < it) { RETURN (false); } /* (aRectangle bottom) < top */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1515
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1516	ib = it + __intVal(h);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1517	if (r_it > ib) { RETURN (false); } /* (aRectangle top) > b */
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1518	#endif
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1519	RETURN (true);
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1520	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1521	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1522	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1523	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1524	}
69b30e3494fa added specially tuned code for #intersects: & #contains: (for objectView performance) Claus Gittinger <cg@exept.de> parents: 1133 diff changeset	1525	%}.
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1526	(aRectangle right) < left ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1527	(aRectangle bottom) < top ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1528	r := left + width.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1529	(aRectangle left) > r ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1530	b := top + height.
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1531	(aRectangle top) > b ifTrue:[^ false].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1532	^ true
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1533	!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1534
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1535	isContainedIn:aRectangle
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1536	"return true, if the receiver is fully contained within
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1537	the argument, aRectangle"
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1538
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1539	(aRectangle left <= left) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1540	(aRectangle right >= (left + width)) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1541	(aRectangle top <= top) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1542	(aRectangle bottom >= (top + height)) ifTrue:[
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1543	^ true
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1544	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1545	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1546	]
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1547	].
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1548	^ false
1 a27a279701f8 Initial revision claus parents: diff changeset	1549	! !
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1550
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1551	!Rectangle class methodsFor:'documentation'!
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1552
f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1553	version
4859 592f07591ca2 added #quickMerge:; Claus Gittinger <cg@exept.de> parents: 3488 diff changeset	1554	^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.59 1999-10-06 20:22:28 cg Exp $'
637 f71df465819c version at the end Claus Gittinger <cg@exept.de> parents: 530 diff changeset	1555	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 06 Oct 1999 22:22:28 +0200
changeset 4859	592f07591ca2
parent 3488	6e1feb9ead68
child 4860	ac3a625492b2
permissions	-rw-r--r--