--- a/FileBrowserV2PanelView.st	Wed Feb 26 13:39:46 2003 +0100
+++ b/FileBrowserV2PanelView.st	Wed Feb 26 13:40:11 2003 +0100
@@ -15,7 +15,7 @@
 "{ Package: 'stx:libtool' }"
 
 VariablePanel subclass:#FileBrowserV2PanelView
-	instanceVariableNames:'whichView visibilityHolder oldOrigin oldCorner'
+	instanceVariableNames:'whichView viewIsVisible visibilityHolder oldOrigin oldCorner'
 	classVariableNames:'BarHeight'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
@@ -40,7 +40,6 @@
 !
 
 documentation
-
 "
     copy of the Panel from CBrowser , if a better HorizontalPanel and VerticalPanel is available
     the new version can be used here
@@ -50,22 +49,22 @@
 !FileBrowserV2PanelView methodsFor:'accessing'!
 
 visible:aState
-    |view1 view2 state|
+    |view1 view2 newVisible newOrigin1 newOrigin2 newCorner1 newCorner2|
 
-    state := aState ? true.
+    newVisible := aState ? true.
 
-    (state == self isVisible or:[subViews size ~~ 2]) ifTrue:[
+    ((newVisible == self isVisible) or:[subViews size ~~ 2]) ifTrue:[
         ^ self
     ].
+    viewIsVisible := newVisible.
 
     view1 := subViews at:1.
     view2 := subViews at:2.
 
-    state ifTrue:[
+    viewIsVisible ifTrue:[
         "
         MAKE VISIBLE
         "
-        barHeight := BarHeight.
         view1 origin:0.0@0.0   corner:oldCorner.
         view2 origin:oldOrigin corner:1.0@1.0.
         self  resizeSubviews.
@@ -73,30 +72,30 @@
         "
         MAKE INVISIBLE
         "
-        BarHeight := barHeight.
-        barHeight := 0.
         oldCorner := view1 relativeCorner.
         oldOrigin := view2 relativeOrigin.
 
         orientation == #vertical ifTrue:[
             whichView == #first ifTrue:[
-                view1 origin:0.0@0.0 corner:1.0@0.0.
-                view2 origin:0.0@0.0 corner:(view2 corner).
+                newOrigin1 := 0.0 @ 0.0. newCorner1 := 1.0 @ 0.0.
+                newOrigin2 := 0.0 @ 0.0. newCorner2 := view2 corner.
             ] ifFalse:[
-                view1 origin:0.0@0.0 corner:1.0@1.0.
-                view2 origin:0.0@1.0 corner:(view2 corner).
+                newOrigin1 := 0.0 @ 0.0. newCorner1 := 1.0 @ 1.0.
+                newOrigin2 := 0.0 @ 1.0. newCorner2 := view2 corner.
             ].
         ] ifFalse:[
             whichView == #first ifTrue:[
-                view1 origin:0.0@0.0 corner:0.0@1.0.
-                view2 origin:0.0@0.0 corner:1.0@1.0.
+                newOrigin1 := 0.0 @ 0.0. newCorner1 := 0.0 @ 1.0.
+                newOrigin2 := 0.0 @ 0.0. newCorner2 := 1.0 @ 1.0.
             ] ifFalse:[
-                view1 origin:0.0@0.0 corner:1.0@1.0.
-                view2 origin:1.0@0.0 corner:1.0@1.0.
+                newOrigin1 := 0.0 @ 0.0. newCorner1 := 1.0 @ 1.0.
+                newOrigin2 := 1.0 @ 0.0. newCorner2 := 1.0 @ 1.0.
             ]
-        ]
+        ].
+        view1 origin:newOrigin1 corner:newCorner1.
+        view2 origin:newOrigin2 corner:newCorner2.
     ].
-    visibilityHolder notNil ifTrue:[visibilityHolder value:state]
+    visibilityHolder notNil ifTrue:[visibilityHolder value:viewIsVisible]
 !
 
 whichView
@@ -141,10 +140,10 @@
 update:what with:aPara from:chgObj
 
     chgObj == visibilityHolder ifTrue:[
-	^ self visible:(chgObj value)
+        self visible:(chgObj value).
+        ^ self.
     ].
-    ^ super update:what with:aPara from:chgObj
-
+    super update:what with:aPara from:chgObj
 ! !
 
 !FileBrowserV2PanelView methodsFor:'initialization'!
@@ -157,7 +156,7 @@
 initialize
     orientation := #vertical.
     whichView   := #first.
-
+    viewIsVisible := true.
     super initialize
 !
 
@@ -180,7 +179,7 @@
 !
 
 isVisible
-    ^ barHeight ~~ 0
+    ^ viewIsVisible 
 !
 
 specClass
@@ -190,5 +189,5 @@
 !FileBrowserV2PanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2PanelView.st,v 1.2 2002-12-10 11:03:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2PanelView.st,v 1.3 2003-02-26 12:40:11 cg Exp $'
 ! !