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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Sun, 07 Mar 1999 14:26:38 +0100
changeset 1768 32eb81e67be1
parent 1767 3db85279e8fc
child 1769 5e272292723b
checkin from browser
HScroller.st file | annotate | diff | comparison | revisions
HorizontalScroller.st file | annotate | diff | comparison | revisions
Scroller.st file | annotate | diff | comparison | revisions 
--- a/HScroller.st	Sat Mar 06 13:53:48 1999 +0100
+++ b/HScroller.st	Sun Mar 07 14:26:38 1999 +0100
@@ -60,10 +60,13 @@
 initialize
     orientation := #horizontal. 
     super initialize.
+    orientation := #horizontal.
+
+    "Modified: / 7.3.1999 / 00:01:08 / cg"
 ! !
 
 !HorizontalScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.15 1996-04-25 17:22:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/HScroller.st,v 1.16 1999-03-07 13:26:38 cg Exp $'
 ! !
--- a/HorizontalScroller.st	Sat Mar 06 13:53:48 1999 +0100
+++ b/HorizontalScroller.st	Sun Mar 07 14:26:38 1999 +0100
@@ -60,10 +60,13 @@
 initialize
     orientation := #horizontal. 
     super initialize.
+    orientation := #horizontal.
+
+    "Modified: / 7.3.1999 / 00:01:08 / cg"
 ! !
 
 !HorizontalScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.15 1996-04-25 17:22:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalScroller.st,v 1.16 1999-03-07 13:26:38 cg Exp $'
 ! !
--- a/Scroller.st	Sat Mar 06 13:53:48 1999 +0100
+++ b/Scroller.st	Sun Mar 07 14:26:38 1999 +0100
@@ -1888,9 +1888,9 @@
 initialize
     "initialize - setup instvars from defaults"
 
-    super initialize.
+    orientation isNil ifTrue:[orientation := #vertical].
 
-    orientation isNil ifTrue:[orientation := #vertical].
+    super initialize.
 
     scrolling := entered              := false.
     enabled   := synchronousOperation := true.
@@ -1906,7 +1906,7 @@
 
 "/    self computeThumbFrame
 
-    "Modified: 6.3.1996 / 17:25:59 / cg"
+    "Modified: / 7.3.1999 / 00:07:32 / cg"
 !
 
 realize
@@ -2225,23 +2225,23 @@
     "/ If I have an explicit preferredExtent ..
 
     preferredExtent notNil ifTrue:[
-	^ preferredExtent
+        ^ preferredExtent
     ].
 
     defExt := self class defaultExtent.
 
     orientation == #vertical ifTrue:[
-	h := defExt y.
-	w := (device horizontalPixelPerMillimeter asFloat * 5) rounded.
+        h := defExt y.
+        w := (device horizontalPixelPerMillimeter asFloat * 5) rounded.
     ] ifFalse:[
-	w := defExt x.
-	h := (device verticalPixelPerMillimeter asFloat * 5) rounded.
+        w := defExt x.
+        h := (device verticalPixelPerMillimeter asFloat * 5) rounded.
     ].
 
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 19.7.1996 / 20:45:35 / cg"
+    "Modified: / 7.3.1999 / 00:08:10 / cg"
 !
 
 thumbVisible
@@ -2269,5 +2269,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.114 1999-02-13 11:21:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.115 1999-03-07 13:26:10 cg Exp $'
 ! !
hg/stx-libwidg