default to 4-tabs
authorClaus Gittinger <cg@exept.de>
Fri, 14 Nov 2008 13:54:35 +0100
changeset 3777 4a9854ac7ab0
parent 3776 0b9d9ff78c4c
child 3778 c7257987a773
default to 4-tabs
ListView.st
--- a/ListView.st	Tue Nov 11 21:45:39 2008 +0100
+++ b/ListView.st	Fri Nov 14 13:54:35 2008 +0100
@@ -368,7 +368,7 @@
 defaultTabPositions
     "return an array containing the styleSheets default tab positions"
 
-    ^ DefaultTabPositions ? self tab8Positions
+    ^ DefaultTabPositions ? self tab4Positions
 !
 
 defaultTabPositions:aVector
@@ -377,7 +377,7 @@
     DefaultTabPositions := aVector
 
     "
-     self defaultTabPositions:(self tab4Positions)
+     ListView defaultTabPositions:(ListView tab4Positions)
     "
 !
 
@@ -4525,5 +4525,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.326 2008-06-07 16:30:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.327 2008-11-14 12:54:35 cg Exp $'
 ! !