--- a/TabSpecRuler.st	Sat Apr 02 17:09:54 2016 +0200
+++ b/TabSpecRuler.st	Sat Apr 02 17:10:55 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 SimpleView subclass:#TabSpecRuler
 	instanceVariableNames:'tabSpec titles handleStyle handleCursor movedTabIndex movedTabX
 		synchronousOperation handleWidth fixedTabs tabsAreVariable
@@ -350,7 +352,7 @@
     super initStyle.
 
     handleStyle := DefaultHandleStyle.
-    handleCursor := (VariablePanel cursorForOrientation:#horizontal onDevice:self graphicsDevice) onDevice:self graphicsDevice.
+    handleCursor := (VariablePanel cursorForOrientation:#horizontal onDevice:device) onDevice:device.
     self is3D ifTrue:[
         handleWidth := 2.
     ] ifFalse:[
@@ -520,6 +522,6 @@
 !TabSpecRuler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabSpecRuler.st,v 1.21 2014-02-18 16:51:59 stefan Exp $'
+    ^ '$Header$'
 ! !