--- a/VarVPanel.st	Sat Dec 09 23:11:01 1995 +0100
+++ b/VarVPanel.st	Sat Dec 09 23:12:30 1995 +0100
@@ -177,14 +177,16 @@
 add:aView
     "a view is added; make its size relative (if not already done)"
 
-"obsolete" self halt.
+"obsolete" self halt:'obsolete method'.
 
     super add:aView.
     shown ifTrue:[
-	(superView isNil or:[superView shown]) ifTrue:[
-	    self setupSubviewSizes
-	]
+        (superView isNil or:[superView shown]) ifTrue:[
+            self setupSubviewSizes
+        ]
     ]
+
+    "Created: 9.12.1995 / 23:08:25 / cg"
 !
 
 barHeight
@@ -664,5 +666,5 @@
 !VariableVerticalPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarVPanel.st,v 1.24 1995-11-23 18:16:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarVPanel.st,v 1.25 1995-12-09 22:12:30 cg Exp $'
 ! !

--- a/VariableVerticalPanel.st	Sat Dec 09 23:11:01 1995 +0100
+++ b/VariableVerticalPanel.st	Sat Dec 09 23:12:30 1995 +0100
@@ -177,14 +177,16 @@
 add:aView
     "a view is added; make its size relative (if not already done)"
 
-"obsolete" self halt.
+"obsolete" self halt:'obsolete method'.
 
     super add:aView.
     shown ifTrue:[
-	(superView isNil or:[superView shown]) ifTrue:[
-	    self setupSubviewSizes
-	]
+        (superView isNil or:[superView shown]) ifTrue:[
+            self setupSubviewSizes
+        ]
     ]
+
+    "Created: 9.12.1995 / 23:08:25 / cg"
 !
 
 barHeight
@@ -664,5 +666,5 @@
 !VariableVerticalPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariableVerticalPanel.st,v 1.24 1995-11-23 18:16:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariableVerticalPanel.st,v 1.25 1995-12-09 22:12:30 cg Exp $'
 ! !