PanelView.st
changeset 787 c568dfd06f11
parent 593 86dd024ed773
child 788 653fd742b5b0
--- a/PanelView.st	Mon Jul 15 12:09:19 1996 +0200
+++ b/PanelView.st	Mon Jul 15 12:10:05 1996 +0200
@@ -18,7 +18,7 @@
 	category:'Views-Layout'
 !
 
-!PanelView class methodsFor:'documentation'!
+!PanelView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -86,7 +86,9 @@
     [author:]
         Claus Gittinger
 "
-!
+! !
+
+!PanelView  class ignoredMethodsFor:'documentation'!
 
 examples
 "
@@ -171,14 +173,18 @@
     "redefined to recompute layout when a subview is added"
 
     super addSubView:newView after:aView.
-    self addedView:aView
+    self addedView:newView
+
+    "Modified: 15.7.1996 / 10:15:04 / cg"
 !
 
 addSubView:newView before:aView
     "redefined to recompute layout when a subview is added"
 
     super addSubView:newView before:aView.
-    self addedView:aView
+    self addedView:newView
+
+    "Modified: 15.7.1996 / 10:14:39 / cg"
 !
 
 removeSubView:aView
@@ -251,9 +257,15 @@
     "added a new element"
 
     elementsChangeSize ifTrue:[
-	aView addDependent:self
+        aView addDependent:self
+    ].
+    aView resize.
+    explicitExtent ~~ true ifTrue:[
+        self resize
     ].
     self layoutChanged
+
+    "Modified: 15.7.1996 / 11:16:53 / cg"
 !
 
 layoutChanged
@@ -320,8 +332,8 @@
     mustRearrange := false
 ! !
 
-!PanelView class methodsFor:'documentation'!
+!PanelView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.16 1996-04-27 18:20:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.17 1996-07-15 10:10:05 cg Exp $'
 ! !