--- 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 $'
! !