diff -r 4c5c54cf856b -r e1e2624accf8 CodeView.st --- a/CodeView.st Mon May 18 16:30:07 2009 +0200 +++ b/CodeView.st Mon May 18 16:30:25 2009 +0200 @@ -150,7 +150,9 @@ col := self colOfX:x inVisibleLine:line. line := self visibleLineToAbsoluteLine:line. - self wordAtLine:line col:col do:[:selectLine :beginCol :endLine :endCol :flag | + self wordAtLine:line col:col do:[ + :selectLine :beginCol :endLine :endCol :flag | + word := self listAt:selectLine from:beginCol to:endCol. word notNil ifTrue:[ pointerOverWordAction value:word value:line value:col @@ -319,5 +321,5 @@ !CodeView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.60 2008-12-09 18:48:03 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.61 2009-05-18 14:30:25 cg Exp $' ! !