--- a/VerticalPanelView.st	Sun Dec 15 14:51:34 2019 +0100
+++ b/VerticalPanelView.st	Tue Dec 17 16:38:42 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -763,48 +761,6 @@
     "Modified: 17.8.1997 / 15:19:58 / cg"
 ! !
 
-!VerticalPanelView methodsFor:'accessing-visibility'!
-
-beVisible
-    "after making the views visible check the vertical layout"
-
-    super beVisible.
-
-    (realized and:[OperatingSystem isMSWINDOWSlike])
-        ifFalse:[ ^ self ].
-
-    self sensor enqueueMessage:#beVisiblePostUpdate for:self.
-!
-
-beVisiblePostUpdate
-    "after making the views visible check the vertical layout; called by #beVisible"
-
-   | sviews |
-
-    self isVisible ifFalse:[ ^ self ].
-    sviews := self subViewsToConsider.
-    sviews size > 1 ifFalse:[ ^ self].
-
-    sviews do:[: eachChild |
-        eachChild isView ifTrue:[ | h |
-            h := eachChild getAttribute:#VerticalPanelPreferredHeight.  "/ see: #storePreferredHeight:for:
-            h isNil ifTrue:[ eachChild height: 0. h :=  eachChild computePreferredExtent y. ].  
-            eachChild height: h
-        ].
-    ].
-    self setChildPositions.
-    mustRearrange := false.
-!
-
-storePreferredHeight: aHeight for: aView
-    "called by UISpecification #buildViewWithLayoutFor to setup up a specific view"
-
-    OperatingSystem isMSWINDOWSlike ifFalse:[ ^ self ].   "/ supported only for windows!!!!
-
-    (aView isView and:[aHeight isInteger and:[aHeight > 0]])
-        ifTrue:[ aView setAttribute:#VerticalPanelPreferredHeight to: aHeight ].  "/ see: #beVisiblePostUpdate
-! !
-
 !VerticalPanelView methodsFor:'layout'!
 
 setChildPositions