added preferredWidth & preferredHeight
authorClaus Gittinger <cg@exept.de>
Fri, 30 May 2008 14:26:12 +0200
changeset 3428 436f115aefe8
parent 3427 9927e4970fce
child 3429 f2b4b84cd477
added preferredWidth & preferredHeight
DSVColumnView.st
--- a/DSVColumnView.st	Fri May 30 14:26:05 2008 +0200
+++ b/DSVColumnView.st	Fri May 30 14:26:12 2008 +0200
@@ -2925,7 +2925,7 @@
         button            := widget menuButton.
         ComboButtonForm   := button label.
         ComboButtonLevel  := button offLevel.
-        ComboButtonExtent := (button preferredExtent x) @ (widget preferredExtent y).
+        ComboButtonExtent := (button preferredWidth) @ (widget preferredHeight).
     ].
 
     CheckToggleForm isNil ifTrue:[
@@ -3123,7 +3123,7 @@
     ].
     preferredExtent := Point
                         x: width
-                        y: (self preferredExtent y).
+                        y: (self preferredHeight).
     width := self innerWidth - width.
 
     (list notEmpty and:[width > 0]) ifTrue:[
@@ -3143,7 +3143,7 @@
         (oldOrgX := viewOrigin x) ~~ 0 ifTrue:[
             "/ UPDATE VIEW-ORIGIN X
 
-            width   := self preferredExtent x.
+            width   := self preferredWidth.
             newOrgX := (width - self innerWidth) max:0.
 
             newOrgX < oldOrgX ifTrue:[
@@ -3170,7 +3170,7 @@
                 editView width:(selectedColumn width - (2 * separatorSize)).
             ]
         ].
-        oldWidth ~= self preferredExtent x ifTrue:[
+        oldWidth ~= self preferredWidth ifTrue:[
             self contentsChanged.
         ].
     ].
@@ -4406,5 +4406,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.230 2008-03-31 13:49:02 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.231 2008-05-30 12:26:12 cg Exp $'
 ! !