--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/FillWrpr.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,120 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+Wrapper subclass:#FillingWrapper
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!FillingWrapper class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    a wrapper for a geometric object, which is to be drawn filled.
+    This allows any geometric thingy to be used as a filled component in a view.
+
+    [author:]
+        Claus Gittinger
+"
+
+
+!
+
+examples
+"
+                                                                        [exBegin]
+        |v e component|
+
+        v := View extent:250@250.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                            startAngle:0 
+                            sweepAngle:270.
+        v addComponent:(StrokingWrapper on:e).
+
+        e := EllipticalArc boundingBox:(110@110 corner:190@190)
+                            startAngle:0 
+                            sweepAngle:270.
+        v addComponent:(FillingWrapper on:e).
+        v open
+                                                                        [exEnd]
+
+
+                                                                        [exBegin]
+        |v e component|
+
+        v := View new.
+        v extent:250@250.
+
+        e := Rectangle origin:10@10 corner:90@90.
+        component := FillingWrapper on:e.
+        component foregroundColor:Color red.
+
+        v addComponent:component.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                         startAngle:0 sweepAngle:270.
+        component := StrokingWrapper on:e.
+        component lineWidth:5.
+
+        v addComponent:component.
+
+        v addComponent:(Button label:'hello').
+
+        v open
+                                                                        [exEnd]
+"
+
+! !
+
+!FillingWrapper methodsFor:'displaying'!
+
+displayOn:aGC
+    |prevFg|
+
+    prevFg := aGC paint.
+
+    aGC paint:fgColor.
+
+    component displayFilledOn:aGC.
+
+    aGC paint:prevFg.
+
+    "Modified: 8.5.1996 / 23:48:49 / cg"
+    "Created: 8.5.1996 / 23:54:06 / cg"
+! !
+
+!FillingWrapper class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/FillWrpr.st,v 1.1 1996-05-08 22:02:28 cg Exp $'
+! !

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/FillingWrapper.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,120 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+Wrapper subclass:#FillingWrapper
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!FillingWrapper class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    a wrapper for a geometric object, which is to be drawn filled.
+    This allows any geometric thingy to be used as a filled component in a view.
+
+    [author:]
+        Claus Gittinger
+"
+
+
+!
+
+examples
+"
+                                                                        [exBegin]
+        |v e component|
+
+        v := View extent:250@250.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                            startAngle:0 
+                            sweepAngle:270.
+        v addComponent:(StrokingWrapper on:e).
+
+        e := EllipticalArc boundingBox:(110@110 corner:190@190)
+                            startAngle:0 
+                            sweepAngle:270.
+        v addComponent:(FillingWrapper on:e).
+        v open
+                                                                        [exEnd]
+
+
+                                                                        [exBegin]
+        |v e component|
+
+        v := View new.
+        v extent:250@250.
+
+        e := Rectangle origin:10@10 corner:90@90.
+        component := FillingWrapper on:e.
+        component foregroundColor:Color red.
+
+        v addComponent:component.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                         startAngle:0 sweepAngle:270.
+        component := StrokingWrapper on:e.
+        component lineWidth:5.
+
+        v addComponent:component.
+
+        v addComponent:(Button label:'hello').
+
+        v open
+                                                                        [exEnd]
+"
+
+! !
+
+!FillingWrapper methodsFor:'displaying'!
+
+displayOn:aGC
+    |prevFg|
+
+    prevFg := aGC paint.
+
+    aGC paint:fgColor.
+
+    component displayFilledOn:aGC.
+
+    aGC paint:prevFg.
+
+    "Modified: 8.5.1996 / 23:48:49 / cg"
+    "Created: 8.5.1996 / 23:54:06 / cg"
+! !
+
+!FillingWrapper class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/FillingWrapper.st,v 1.1 1996-05-08 22:02:28 cg Exp $'
+! !

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/StrokeWrpr.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,149 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+Wrapper subclass:#StrokingWrapper
+	instanceVariableNames:'lineWidth'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!StrokingWrapper class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
+documentation
+"
+    a wrapper for a geometric object, which is to be drawn stroked.
+    This allows any geometric thingy to be used as a component in a view.
+
+    [author:]
+        Claus Gittinger
+"
+
+!
+
+examples
+"
+                                                                        [exBegin]
+        |v e component|
+
+        v := (View extent:250@250) openAndWait.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                            startAngle:0 
+                            sweepAngle:270.
+        component := StrokingWrapper on:e.
+
+        component displayOn:v.
+                                                                        [exEnd]
+
+                                                                        [exBegin]
+        |v e component|
+
+        v := View new.
+        v extent:250@250.
+
+        e := Rectangle origin:10@10 corner:90@90.
+        component := FillingWrapper on:e.
+        component foregroundColor:Color red.
+
+        v addComponent:component.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                         startAngle:0 sweepAngle:270.
+        component := StrokingWrapper on:e.
+        component lineWidth:5.
+
+        v addComponent:component.
+
+        v addComponent:(Button label:'hello').
+
+        v open
+                                                                        [exEnd]
+"
+! !
+
+!StrokingWrapper methodsFor:'accessing'!
+
+bounds
+    ^ component bounds + (lineWidth - 1)
+
+    "Created: 8.5.1996 / 23:22:43 / cg"
+!
+
+lineWidth
+    ^ lineWidth
+
+    "Created: 8.5.1996 / 23:22:04 / cg"
+!
+
+lineWidth:aNumber
+    lineWidth := aNumber
+
+    "Created: 8.5.1996 / 23:22:13 / cg"
+!
+
+preferredBounds
+    ^ self bounds
+
+    "Created: 8.5.1996 / 23:23:00 / cg"
+! !
+
+!StrokingWrapper methodsFor:'displaying'!
+
+displayOn:aGC
+    |prevLineWidth prevFg|
+
+    prevLineWidth := aGC lineWidth.
+    prevFg := aGC paint.
+
+    aGC lineWidth:lineWidth.
+    aGC paint:fgColor.
+
+    component displayStrokedOn:aGC.
+
+    aGC lineWidth:prevLineWidth.
+    aGC paint:prevFg.
+
+    "Created: 8.5.1996 / 23:24:04 / cg"
+    "Modified: 8.5.1996 / 23:54:22 / cg"
+! !
+
+!StrokingWrapper methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    lineWidth := 1.
+
+    "Created: 8.5.1996 / 23:49:27 / cg"
+! !
+
+!StrokingWrapper class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/StrokeWrpr.st,v 1.1 1996-05-08 22:02:04 cg Exp $'
+! !

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/StrokingWrapper.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,149 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+Wrapper subclass:#StrokingWrapper
+	instanceVariableNames:'lineWidth'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!StrokingWrapper class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
+documentation
+"
+    a wrapper for a geometric object, which is to be drawn stroked.
+    This allows any geometric thingy to be used as a component in a view.
+
+    [author:]
+        Claus Gittinger
+"
+
+!
+
+examples
+"
+                                                                        [exBegin]
+        |v e component|
+
+        v := (View extent:250@250) openAndWait.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                            startAngle:0 
+                            sweepAngle:270.
+        component := StrokingWrapper on:e.
+
+        component displayOn:v.
+                                                                        [exEnd]
+
+                                                                        [exBegin]
+        |v e component|
+
+        v := View new.
+        v extent:250@250.
+
+        e := Rectangle origin:10@10 corner:90@90.
+        component := FillingWrapper on:e.
+        component foregroundColor:Color red.
+
+        v addComponent:component.
+
+        e := EllipticalArc boundingBox:(10@10 corner:90@90)
+                         startAngle:0 sweepAngle:270.
+        component := StrokingWrapper on:e.
+        component lineWidth:5.
+
+        v addComponent:component.
+
+        v addComponent:(Button label:'hello').
+
+        v open
+                                                                        [exEnd]
+"
+! !
+
+!StrokingWrapper methodsFor:'accessing'!
+
+bounds
+    ^ component bounds + (lineWidth - 1)
+
+    "Created: 8.5.1996 / 23:22:43 / cg"
+!
+
+lineWidth
+    ^ lineWidth
+
+    "Created: 8.5.1996 / 23:22:04 / cg"
+!
+
+lineWidth:aNumber
+    lineWidth := aNumber
+
+    "Created: 8.5.1996 / 23:22:13 / cg"
+!
+
+preferredBounds
+    ^ self bounds
+
+    "Created: 8.5.1996 / 23:23:00 / cg"
+! !
+
+!StrokingWrapper methodsFor:'displaying'!
+
+displayOn:aGC
+    |prevLineWidth prevFg|
+
+    prevLineWidth := aGC lineWidth.
+    prevFg := aGC paint.
+
+    aGC lineWidth:lineWidth.
+    aGC paint:fgColor.
+
+    component displayStrokedOn:aGC.
+
+    aGC lineWidth:prevLineWidth.
+    aGC paint:prevFg.
+
+    "Created: 8.5.1996 / 23:24:04 / cg"
+    "Modified: 8.5.1996 / 23:54:22 / cg"
+! !
+
+!StrokingWrapper methodsFor:'initialization'!
+
+initialize
+    super initialize.
+    lineWidth := 1.
+
+    "Created: 8.5.1996 / 23:49:27 / cg"
+! !
+
+!StrokingWrapper class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.1 1996-05-08 22:02:04 cg Exp $'
+! !

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VComponent.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,134 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+Object subclass:#VisualComponent
+	instanceVariableNames:'bounds fgColor bgColor'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!VisualComponent class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    abstract superclass for all kinds of visual components
+
+    [author:]
+        Claus Gittinger
+"
+
+! !
+
+!VisualComponent class methodsFor:'instance creation'!
+
+new
+    ^ self basicNew initialize
+! !
+
+!VisualComponent methodsFor:'accessing'!
+
+bounds
+    ^ bounds
+
+    "Created: 8.5.1996 / 23:35:19 / cg"
+    "Modified: 8.5.1996 / 23:35:43 / cg"
+!
+
+bounds:newBounds
+    bounds := newBounds
+
+    "Created: 8.5.1996 / 23:36:07 / cg"
+!
+
+preferredBounds
+    ^ 100@100
+
+    "Created: 8.5.1996 / 23:36:29 / cg"
+    "Modified: 8.5.1996 / 23:37:05 / cg"
+! !
+
+!VisualComponent methodsFor:'accessing - look'!
+
+backgroundColor:aColor
+    bgColor := aColor
+
+    "Created: 8.5.1996 / 23:47:11 / cg"
+!
+
+foregroundColor:aColor
+    fgColor := aColor
+
+    "Created: 8.5.1996 / 23:47:05 / cg"
+! !
+
+!VisualComponent methodsFor:'event handling'!
+
+buttonPress:button x:x y:y
+    "/ ignored here
+
+    "Modified: 8.5.1996 / 23:43:51 / cg"
+!
+
+buttonRelease:button x:x y:y
+    "/ ignored here
+
+    "Created: 8.5.1996 / 23:38:30 / cg"
+    "Modified: 8.5.1996 / 23:43:53 / cg"
+!
+
+keyPress:key x:x y:y
+    "/ ignored here
+
+    "Modified: 8.5.1996 / 23:43:51 / cg"
+    "Created: 8.5.1996 / 23:46:03 / cg"
+!
+
+keyRelease:key x:x y:y
+    "/ ignored here
+
+    "Modified: 8.5.1996 / 23:43:51 / cg"
+    "Created: 8.5.1996 / 23:46:07 / cg"
+! !
+
+!VisualComponent methodsFor:'initialization'!
+
+initialize
+    fgColor := Color black.
+    bgColor := Color white.
+
+    "Created: 8.5.1996 / 23:49:54 / cg"
+! !
+
+!VisualComponent class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/VComponent.st,v 1.1 1996-05-08 22:00:45 cg Exp $'
+! !

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/VisualComponent.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,134 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+Object subclass:#VisualComponent
+	instanceVariableNames:'bounds fgColor bgColor'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!VisualComponent class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    abstract superclass for all kinds of visual components
+
+    [author:]
+        Claus Gittinger
+"
+
+! !
+
+!VisualComponent class methodsFor:'instance creation'!
+
+new
+    ^ self basicNew initialize
+! !
+
+!VisualComponent methodsFor:'accessing'!
+
+bounds
+    ^ bounds
+
+    "Created: 8.5.1996 / 23:35:19 / cg"
+    "Modified: 8.5.1996 / 23:35:43 / cg"
+!
+
+bounds:newBounds
+    bounds := newBounds
+
+    "Created: 8.5.1996 / 23:36:07 / cg"
+!
+
+preferredBounds
+    ^ 100@100
+
+    "Created: 8.5.1996 / 23:36:29 / cg"
+    "Modified: 8.5.1996 / 23:37:05 / cg"
+! !
+
+!VisualComponent methodsFor:'accessing - look'!
+
+backgroundColor:aColor
+    bgColor := aColor
+
+    "Created: 8.5.1996 / 23:47:11 / cg"
+!
+
+foregroundColor:aColor
+    fgColor := aColor
+
+    "Created: 8.5.1996 / 23:47:05 / cg"
+! !
+
+!VisualComponent methodsFor:'event handling'!
+
+buttonPress:button x:x y:y
+    "/ ignored here
+
+    "Modified: 8.5.1996 / 23:43:51 / cg"
+!
+
+buttonRelease:button x:x y:y
+    "/ ignored here
+
+    "Created: 8.5.1996 / 23:38:30 / cg"
+    "Modified: 8.5.1996 / 23:43:53 / cg"
+!
+
+keyPress:key x:x y:y
+    "/ ignored here
+
+    "Modified: 8.5.1996 / 23:43:51 / cg"
+    "Created: 8.5.1996 / 23:46:03 / cg"
+!
+
+keyRelease:key x:x y:y
+    "/ ignored here
+
+    "Modified: 8.5.1996 / 23:43:51 / cg"
+    "Created: 8.5.1996 / 23:46:07 / cg"
+! !
+
+!VisualComponent methodsFor:'initialization'!
+
+initialize
+    fgColor := Color black.
+    bgColor := Color white.
+
+    "Created: 8.5.1996 / 23:49:54 / cg"
+! !
+
+!VisualComponent class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.1 1996-05-08 22:00:45 cg Exp $'
+! !

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Wrapper.st	Thu May 09 00:02:28 1996 +0200
@@ -0,0 +1,130 @@
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+
+VisualComponent subclass:#Wrapper
+	instanceVariableNames:'component'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Display Objects'
+!
+
+!Wrapper class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    abstract superclass for all kinds of wrapping components
+
+    [author:]
+        Claus Gittinger
+"
+
+! !
+
+!Wrapper class methodsFor:'instance creation'!
+
+on:aComponent
+    ^ self new component:aComponent
+
+    "Created: 8.5.1996 / 23:20:46 / cg"
+! !
+
+!Wrapper methodsFor:'accessing'!
+
+component
+    ^ component
+
+    "Created: 8.5.1996 / 23:17:30 / cg"
+!
+
+component:someComponent
+    component := someComponent
+
+    "Created: 8.5.1996 / 23:17:46 / cg"
+!
+
+setParentViewIn:aView
+
+    "Created: 8.5.1996 / 23:30:49 / cg"
+! !
+
+!Wrapper methodsFor:'accessing - bounds'!
+
+bounds
+    ^ component bounds
+
+    "Created: 8.5.1996 / 23:18:03 / cg"
+!
+
+bounds:newBounds
+    component bounds:newBounds
+
+    "Created: 8.5.1996 / 23:18:12 / cg"
+    "Modified: 8.5.1996 / 23:19:30 / cg"
+!
+
+preferredBounds
+    ^ component preferredBounds
+
+    "Created: 8.5.1996 / 23:18:53 / cg"
+! !
+
+!Wrapper methodsFor:'displaying'!
+
+displayOn:aGC
+    component displayOn:aGC
+
+    "Created: 8.5.1996 / 23:19:24 / cg"
+! !
+
+!Wrapper methodsFor:'testing'!
+
+containsPoint:aPoint
+    ^ component containsPoint:aPoint
+
+    "Created: 8.5.1996 / 23:20:05 / cg"
+!
+
+hasBorder
+    ^ false
+
+    "Created: 8.5.1996 / 23:20:16 / cg"
+!
+
+intersects:aRectangle
+    ^ component intersects:aRectangle
+
+    "Created: 8.5.1996 / 23:20:27 / cg"
+! !
+
+!Wrapper class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/Wrapper.st,v 1.1 1996-05-08 22:01:05 cg Exp $'
+! !