class: TabulatorSpecification
authorStefan Vogel <sv@exept.de>
Mon, 27 Jan 2014 17:06:18 +0100
changeset 4477 b7e2eb4be837
parent 4476 5e920c5d7d0e
child 4478 7d68fb3be177
class: TabulatorSpecification changed: #positionOfTab:on: return an integer value
TabulatorSpecification.st
--- a/TabulatorSpecification.st	Fri Jan 24 13:54:50 2014 +0100
+++ b/TabulatorSpecification.st	Mon Jan 27 17:06:18 2014 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 Model subclass:#TabulatorSpecification
@@ -516,7 +515,7 @@
     tabPositions isNil ifTrue:[^ nil].
 
     unit := self pixelsPerUnitOn:aGC.
-    pos := ((tabPositions at:index) * unit).
+    pos := ((tabPositions at:index) * unit) asInteger.
     ^ pos
 !
 
@@ -546,5 +545,6 @@
 !TabulatorSpecification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.15 2000-11-14 18:03:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabulatorSpecification.st,v 1.16 2014-01-27 16:06:18 stefan Exp $'
 ! !
+