*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 16 Oct 1997 16:44:11 +0200
changeset 1352 d017596ca663
parent 1351 03d1b138f98f
child 1353 5dac6aa6ac96
*** empty log message ***
MenuView.st
--- a/MenuView.st	Thu Oct 16 15:20:50 1997 +0200
+++ b/MenuView.st	Thu Oct 16 16:44:11 1997 +0200
@@ -1379,7 +1379,7 @@
 
     i2 := markIndex := 1.
     [markIndex ~~ 0 and:[i2 ~~ (markIndex+1)]] whileTrue:[
-        markIndex := line indexOf:$\.
+        markIndex := line indexOf:$\ startingAt:i2+1.
         i2 := line indexOfAny:'cbt' startingAt:markIndex+1.
     ].
     markType := line at:i2.
@@ -2647,5 +2647,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.107 1997-10-15 11:26:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.108 1997-10-16 14:44:11 cg Exp $'
 ! !