--- a/ListView.st	Thu Apr 07 20:04:20 2005 +0200
+++ b/ListView.st	Thu Apr 07 20:05:41 2005 +0200
@@ -4253,7 +4253,17 @@
 nextTabAfter:colNr
     "return the next tab position after col"
 
-    ^ self nextTabAfter:colNr in:tabPositions
+    |nextTab|
+
+    nextTab := self nextTabAfter:colNr in:tabPositions.
+
+    "/ fallback to mod-8 tabs if beyond tab-list.
+    nextTab <= colNr ifTrue:[
+        nextTab := colNr + 1.
+        nextTab := nextTab + (8 - (nextTab \\ 8)).
+    ].
+
+    ^ nextTab
 !
 
 nextTabAfter:colNr in:tabPositions
@@ -4419,5 +4429,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.299 2004-12-16 11:35:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.300 2005-04-07 18:05:41 cg Exp $'
 ! !