Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
care for childs border in case I have none
authorca
Wed, 12 Feb 1997 02:03:24 +0100
changeset 1000 cf4ad1135e06
parent 999 3c330af7516c
child 1001 eb7a8b2f4347
care for childs border in case I have none (in fit-horizontal)
VPanelV.st file | annotate | diff | comparison | revisions
VerticalPanelView.st file | annotate | diff | comparison | revisions 
--- a/VPanelV.st	Wed Feb 12 01:24:34 1997 +0100
+++ b/VPanelV.st	Wed Feb 12 02:03:24 1997 +0100
@@ -827,6 +827,9 @@
                         ] ifFalse:[
                             hL == #fit ifTrue:[
                                 newWChild := width "- (bwChild * 2)".
+                                borderWidth == 0 ifTrue:[
+                                    newWChild :=  newWChild - (bwChild * 2)
+                                ].
                                 child level == 0 ifTrue:[
                                     xpos := margin - borderWidth.
                                     newWChild := newWChild - m2
@@ -951,5 +954,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.26 1997-01-28 17:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VPanelV.st,v 1.27 1997-02-12 01:03:24 ca Exp $'
 ! !
--- a/VerticalPanelView.st	Wed Feb 12 01:24:34 1997 +0100
+++ b/VerticalPanelView.st	Wed Feb 12 02:03:24 1997 +0100
@@ -827,6 +827,9 @@
                         ] ifFalse:[
                             hL == #fit ifTrue:[
                                 newWChild := width "- (bwChild * 2)".
+                                borderWidth == 0 ifTrue:[
+                                    newWChild :=  newWChild - (bwChild * 2)
+                                ].
                                 child level == 0 ifTrue:[
                                     xpos := margin - borderWidth.
                                     newWChild := newWChild - m2
@@ -951,5 +954,5 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.26 1997-01-28 17:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.27 1997-02-12 01:03:24 ca Exp $'
 ! !
hg/stx-libwidg