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.
remember and do not recompute the preferredExtent;
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jul 1996 12:09:19 +0200
changeset 786 8b301af1cdcc
parent 785 6384ec64a6dd
child 787 c568dfd06f11
remember and do not recompute the preferredExtent;
HScrBar.st file | annotate | diff | comparison | revisions
HorizontalScrollBar.st file | annotate | diff | comparison | revisions
ScrollBar.st file | annotate | diff | comparison | revisions
Scroller.st file | annotate | diff | comparison | revisions 
--- a/HScrBar.st	Mon Jul 15 09:11:26 1996 +0200
+++ b/HScrBar.st	Mon Jul 15 12:09:19 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Interactors'
 !
 
-!HorizontalScrollBar class methodsFor:'documentation'!
+!HorizontalScrollBar  class methodsFor:'documentation'!
 
 copyright
 "
@@ -297,13 +297,14 @@
             w := w + 4
         ].
     ].
-    ^ w @ h.
+    preferredExtent := w @ h.
+    ^ preferredExtent.
 
-    "Modified: 12.6.1996 / 14:57:26 / cg"
+    "Modified: 15.7.1996 / 09:56:56 / cg"
 ! !
 
-!HorizontalScrollBar class methodsFor:'documentation'!
+!HorizontalScrollBar  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.20 1996-06-12 12:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScrBar.st,v 1.21 1996-07-15 10:09:19 cg Exp $'
 ! !
--- a/HorizontalScrollBar.st	Mon Jul 15 09:11:26 1996 +0200
+++ b/HorizontalScrollBar.st	Mon Jul 15 12:09:19 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Interactors'
 !
 
-!HorizontalScrollBar class methodsFor:'documentation'!
+!HorizontalScrollBar  class methodsFor:'documentation'!
 
 copyright
 "
@@ -297,13 +297,14 @@
             w := w + 4
         ].
     ].
-    ^ w @ h.
+    preferredExtent := w @ h.
+    ^ preferredExtent.
 
-    "Modified: 12.6.1996 / 14:57:26 / cg"
+    "Modified: 15.7.1996 / 09:56:56 / cg"
 ! !
 
-!HorizontalScrollBar class methodsFor:'documentation'!
+!HorizontalScrollBar  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.20 1996-06-12 12:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScrollBar.st,v 1.21 1996-07-15 10:09:19 cg Exp $'
 ! !
--- a/ScrollBar.st	Mon Jul 15 09:11:26 1996 +0200
+++ b/ScrollBar.st	Mon Jul 15 12:09:19 1996 +0200
@@ -18,7 +18,7 @@
 	category:'Views-Interactors'
 !
 
-!ScrollBar class methodsFor:'documentation'!
+!ScrollBar  class methodsFor:'documentation'!
 
 copyright
 "
@@ -70,7 +70,7 @@
 "
 ! !
 
-!ScrollBar class methodsFor:'style changes'!
+!ScrollBar  class methodsFor:'style changes'!
 
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
@@ -694,13 +694,14 @@
         ].
     ].
 
-    ^ w @ h.
+    preferredExtent := w @ h.
+    ^ preferredExtent
 
-    "Modified: 29.5.1996 / 12:11:02 / cg"
+    "Modified: 15.7.1996 / 09:57:18 / cg"
 ! !
 
-!ScrollBar class methodsFor:'documentation'!
+!ScrollBar  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.35 1996-06-03 15:55:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.36 1996-07-15 10:08:42 cg Exp $'
 ! !
--- a/Scroller.st	Mon Jul 15 09:11:26 1996 +0200
+++ b/Scroller.st	Mon Jul 15 12:09:19 1996 +0200
@@ -33,7 +33,7 @@
 	category:'Views-Interactors'
 !
 
-!Scroller class methodsFor:'documentation'!
+!Scroller  class methodsFor:'documentation'!
 
 copyright
 "
@@ -271,7 +271,7 @@
 "
 ! !
 
-!Scroller class methodsFor:'defaults'!
+!Scroller  class methodsFor:'defaults'!
 
 handleLightFormOn:aDisplay
     "answer the form used for the handles light area;
@@ -1797,13 +1797,14 @@
         h := (device verticalPixelPerMillimeter asFloat * 6) rounded.
     ].
 
-    ^ w @ h.
+    preferredExtent := w @ h.
+    ^ preferredExtent.
 
-    "Modified: 29.5.1996 / 12:10:42 / cg"
+    "Modified: 15.7.1996 / 09:56:07 / cg"
 ! !
 
-!Scroller class methodsFor:'documentation'!
+!Scroller  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.62 1996-06-15 11:52:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.63 1996-07-15 10:08:11 cg Exp $'
 ! !
hg/stx-libwidg