FileBrowserV2UISpecifications.st
branchjv
changeset 16596 f111c3082dd1
parent 16308 7c050515edb6
parent 16592 d2258070bbef
--- a/FileBrowserV2UISpecifications.st	Sat May 14 07:05:55 2016 +0200
+++ b/FileBrowserV2UISpecifications.st	Sun May 15 06:58:33 2016 +0200
@@ -558,41 +558,6 @@
 
 !FileBrowserV2UISpecifications::PanelSpec methodsFor:'computation'!
 
-recomputeHandlesIn:aPanel
-    |subs isVertical|
-
-    (subs := aPanel subViews) notNil ifTrue:[
-	isVertical := self isVertical.
-	^ subs 
-	    collect:
-		[:v | |rel|
-		    rel := v relativeCorner. 
-		    isVertical ifTrue:[ rel y] ifFalse:[ rel x ].
-		]
-    ].
-    ^ nil
-!
-
-setLayoutsInLayoutContainer:aPanel
-    |x y subs isVertical|
-
-    ((subs := aPanel subViews) notNil and:[subs size == handles size]) ifTrue:[
-	isVertical := self isVertical.
-	y := x := 0.0.
-	subs keysAndValuesDo:[:i :v|
-	    isVertical ifTrue:[
-		v relativeOrigin:(0.0 @ y).
-		y := handles at:i.
-		v relativeCorner:(1.0 @ y).
-	    ] ifFalse:[
-		v relativeOrigin:(x @ 0.0).
-		x := handles at:i.
-		v relativeCorner:(x @ 1.0).
-	    ]
-	]
-    ]
-!
-
 setupInitialLayoutFor:aView
     |superView|