pass device to #cursorForOrientation.
authorClaus Gittinger <cg@exept.de>
Wed, 30 Sep 1998 19:09:10 +0200
changeset 1157 7e64e555a971
parent 1156 6fa33dc93509
child 1158 9b413954d34d
pass device to #cursorForOrientation.
TabSpecRuler.st
--- a/TabSpecRuler.st	Tue Sep 29 13:16:40 1998 +0200
+++ b/TabSpecRuler.st	Wed Sep 30 19:09:10 1998 +0200
@@ -297,14 +297,14 @@
     super initStyle.
 
     handleStyle := DefaultHandleStyle.
-    handleCursor := (VariablePanel cursorForOrientation:#horizontal) onDevice:device.
+    handleCursor := (VariablePanel cursorForOrientation:#horizontal onDevice:device) onDevice:device.
     self is3D ifTrue:[
         handleWidth := 2.
     ] ifFalse:[
         handleWidth := 1
     ]
 
-    "Modified: 28.3.1997 / 14:35:23 / cg"
+    "Modified: / 30.9.1998 / 18:20:20 / cg"
 !
 
 initialize
@@ -458,5 +458,5 @@
 !TabSpecRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.14 1998-09-08 11:11:14 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.15 1998-09-30 17:09:10 cg Exp $'
 ! !