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>
Fri, 07 Mar 1997 16:02:24 +0100
changeset 1114 ddd752f834d5
parent 1113 c0933ddd159d
child 1115 6b7ba45f83a9
checkin from browser
MiniScr.st file | annotate | diff | comparison | revisions
MiniScroller.st file | annotate | diff | comparison | revisions 
--- a/MiniScr.st	Fri Mar 07 15:25:27 1997 +0100
+++ b/MiniScr.st	Fri Mar 07 16:02:24 1997 +0100
@@ -58,7 +58,8 @@
     ].
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
         style == #st80 ifTrue:[
-            lvl := 1.
+            "/ lvl := 1.
+            lvl := 0.
         ] ifFalse:[
             lvl := -1.
         ].
@@ -68,7 +69,7 @@
     shadowForm := lightForm := nil.
     fixThumbHeight := false
 
-    "Modified: 22.1.1997 / 11:57:30 / cg"
+    "Modified: 7.3.1997 / 15:52:13 / cg"
 !
 
 initialize
@@ -92,22 +93,28 @@
     ].
 
     defExt := self class defaultExtent.
+
     mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
+    w := defExt x.
+    h := defExt y.
+
+    styleSheet name == #st80 ifTrue:[
+        mm := 2.5
+    ].
     orientation == #vertical ifTrue:[
-        h := defExt y.
         w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
     ] ifFalse:[
-        w := defExt x.
         h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
     ].
+
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 19.7.1996 / 20:46:21 / cg"
+    "Modified: 7.3.1997 / 16:02:15 / cg"
 ! !
 
 !MiniScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.14 1997-01-22 17:24:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.15 1997-03-07 15:02:24 cg Exp $'
 ! !
--- a/MiniScroller.st	Fri Mar 07 15:25:27 1997 +0100
+++ b/MiniScroller.st	Fri Mar 07 16:02:24 1997 +0100
@@ -58,7 +58,8 @@
     ].
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
         style == #st80 ifTrue:[
-            lvl := 1.
+            "/ lvl := 1.
+            lvl := 0.
         ] ifFalse:[
             lvl := -1.
         ].
@@ -68,7 +69,7 @@
     shadowForm := lightForm := nil.
     fixThumbHeight := false
 
-    "Modified: 22.1.1997 / 11:57:30 / cg"
+    "Modified: 7.3.1997 / 15:52:13 / cg"
 !
 
 initialize
@@ -92,22 +93,28 @@
     ].
 
     defExt := self class defaultExtent.
+
     mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
+    w := defExt x.
+    h := defExt y.
+
+    styleSheet name == #st80 ifTrue:[
+        mm := 2.5
+    ].
     orientation == #vertical ifTrue:[
-        h := defExt y.
         w := (device horizontalPixelPerMillimeter asFloat * mm) rounded.
     ] ifFalse:[
-        w := defExt x.
         h := (device verticalPixelPerMillimeter asFloat * mm) rounded.
     ].
+
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 19.7.1996 / 20:46:21 / cg"
+    "Modified: 7.3.1997 / 16:02:15 / cg"
 ! !
 
 !MiniScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.14 1997-01-22 17:24:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.15 1997-03-07 15:02:24 cg Exp $'
 ! !
hg/stx-libwidg