equal
deleted
inserted
replaced
148 buttonState == 0 ifTrue:[ |
148 buttonState == 0 ifTrue:[ |
149 line := self visibleLineOfY:y. |
149 line := self visibleLineOfY:y. |
150 col := self colOfX:x inVisibleLine:line. |
150 col := self colOfX:x inVisibleLine:line. |
151 line := self visibleLineToAbsoluteLine:line. |
151 line := self visibleLineToAbsoluteLine:line. |
152 |
152 |
153 self wordAtLine:line col:col do:[:selectLine :beginCol :endLine :endCol :flag | |
153 self wordAtLine:line col:col do:[ |
|
154 :selectLine :beginCol :endLine :endCol :flag | |
|
155 |
154 word := self listAt:selectLine from:beginCol to:endCol. |
156 word := self listAt:selectLine from:beginCol to:endCol. |
155 word notNil ifTrue:[ |
157 word notNil ifTrue:[ |
156 pointerOverWordAction value:word value:line value:col |
158 pointerOverWordAction value:word value:line value:col |
157 ] |
159 ] |
158 ]. |
160 ]. |
317 ! ! |
319 ! ! |
318 |
320 |
319 !CodeView class methodsFor:'documentation'! |
321 !CodeView class methodsFor:'documentation'! |
320 |
322 |
321 version |
323 version |
322 ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.60 2008-12-09 18:48:03 cg Exp $' |
324 ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.61 2009-05-18 14:30:25 cg Exp $' |
323 ! ! |
325 ! ! |