pass device to #cursorForOrientation.
--- 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 $'
! !