--- a/MiniScr.st	Mon Nov 03 16:25:29 1997 +0100
+++ b/MiniScr.st	Mon Nov 03 16:26:04 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 3:07:01 pm'                  !
-
 Scroller subclass:#MiniScroller
 	instanceVariableNames:''
 	classVariableNames:'MiniScrollerSize'
@@ -77,8 +75,8 @@
     ].
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
         style == #st80 ifTrue:[
-            "/ lvl := 1.
-            lvl := 0.
+            lvl := 1.
+            "/ lvl := 0.
         ] ifFalse:[
             lvl := -1.
         ].
@@ -88,7 +86,7 @@
     shadowForm := lightForm := nil.
     fixThumbHeight := false
 
-    "Modified: 7.3.1997 / 15:52:13 / cg"
+    "Modified: / 3.11.1997 / 13:55:53 / cg"
 !
 
 initialize
@@ -120,9 +118,9 @@
     defExt := self class defaultExtent.
 
     (mm := MiniScrollerSize) isNil ifTrue:[
-        mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
+        mm := (thumbLevel ~~ 0) ifTrue:[1.8] ifFalse:[1.5].
         styleSheet name == #st80 ifTrue:[
-            mm := 2.5
+            mm := 2
         ].
     ].
 
@@ -138,11 +136,11 @@
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 15.8.1997 / 01:54:17 / cg"
+    "Modified: / 3.11.1997 / 02:44:08 / cg"
 ! !
 
 !MiniScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.18 1997-10-21 18:13:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MiniScr.st,v 1.19 1997-11-03 15:26:04 cg Exp $'
 ! !

--- a/MiniScroller.st	Mon Nov 03 16:25:29 1997 +0100
+++ b/MiniScroller.st	Mon Nov 03 16:26:04 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 3:07:01 pm'                  !
-
 Scroller subclass:#MiniScroller
 	instanceVariableNames:''
 	classVariableNames:'MiniScrollerSize'
@@ -77,8 +75,8 @@
     ].
     ((style ~~ #normal) and:[style ~~ #mswindows]) ifTrue:[
         style == #st80 ifTrue:[
-            "/ lvl := 1.
-            lvl := 0.
+            lvl := 1.
+            "/ lvl := 0.
         ] ifFalse:[
             lvl := -1.
         ].
@@ -88,7 +86,7 @@
     shadowForm := lightForm := nil.
     fixThumbHeight := false
 
-    "Modified: 7.3.1997 / 15:52:13 / cg"
+    "Modified: / 3.11.1997 / 13:55:53 / cg"
 !
 
 initialize
@@ -120,9 +118,9 @@
     defExt := self class defaultExtent.
 
     (mm := MiniScrollerSize) isNil ifTrue:[
-        mm := (thumbLevel ~~ 0) ifTrue:[2.5] ifFalse:[2.0].
+        mm := (thumbLevel ~~ 0) ifTrue:[1.8] ifFalse:[1.5].
         styleSheet name == #st80 ifTrue:[
-            mm := 2.5
+            mm := 2
         ].
     ].
 
@@ -138,11 +136,11 @@
     preferredExtent := w @ h.
     ^ preferredExtent.
 
-    "Modified: 15.8.1997 / 01:54:17 / cg"
+    "Modified: / 3.11.1997 / 02:44:08 / cg"
 ! !
 
 !MiniScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.18 1997-10-21 18:13:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MiniScroller.st,v 1.19 1997-11-03 15:26:04 cg Exp $'
 ! !