# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 907175350 -7200
# Node ID 7e64e555a97175e0db82f58e4dea632057129ddf
# Parent  6fa33dc935099ac5ab63c2b0425c017ed19c766a
pass device to #cursorForOrientation.

diff -r 6fa33dc93509 -r 7e64e555a971 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 $'
 ! !