--- a/Wrapper.st	Fri May 08 13:54:36 2009 +0200
+++ b/Wrapper.st	Fri May 08 13:54:52 2009 +0200
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libview2' }"
 
 VisualPart subclass:#Wrapper
@@ -91,9 +88,9 @@
 "/        (someComponent respondsTo:#container:) ifTrue:[
             someComponent container:self.
 "/        ].
-        bounds isNil ifTrue:[
+        frame isNil ifTrue:[
             component bounds notNil ifTrue:[
-                bounds := component bounds
+                frame := component bounds
             ]
         ]
     ]
@@ -107,8 +104,8 @@
 bounds:newBounds
     "set my bounds - forwarded to the wrapped object"
 
-    newBounds ~= bounds ifTrue:[
-        bounds := newBounds.
+    newBounds ~= frame ifTrue:[
+        frame := newBounds.
         component bounds:newBounds
     ].
 
@@ -191,11 +188,16 @@
 !
 
 destroy
-    component destroy
+    self destroyComponent.
+    super destroy.
 
     "Created: 19.7.1996 / 17:26:02 / cg"
 !
 
+destroyComponent
+    component destroy
+!
+
 realize
     "my container realized itself. Forward this to my component"
 
@@ -221,5 +223,5 @@
 !Wrapper class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Wrapper.st,v 1.12 2006-09-11 13:01:25 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Wrapper.st,v 1.13 2009-05-08 11:54:52 cg Exp $'
 ! !