--- a/ScrollBar.st	Wed Nov 06 18:01:59 1996 +0100
+++ b/ScrollBar.st	Wed Nov 06 18:34:09 1996 +0100
@@ -667,8 +667,12 @@
     "
     style := styleSheet name.
     style == #mswindows ifTrue:[
-        w := button1 width max:button2 width.
-        h := button1 height + button2 height + (Scroller defaultExtent y).
+        button1 notNil ifTrue:[
+            w := button1 width max:button2 width.
+            h := button1 height + button2 height + (Scroller defaultExtent y).
+        ] ifFalse:[
+            ^ 16@16
+        ]
     ] ifFalse:[
         upForm  := ArrowButton upArrowButtonForm:style on:device.
         downForm := ArrowButton downArrowButtonForm:style on:device.
@@ -695,11 +699,11 @@
     preferredExtent := w @ h.
     ^ preferredExtent
 
-    "Modified: 19.7.1996 / 20:45:26 / cg"
+    "Modified: 6.11.1996 / 18:31:54 / cg"
 ! !
 
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.38 1996-10-26 13:19:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.39 1996-11-06 17:34:09 cg Exp $'
 ! !