equal
deleted
inserted
replaced
103 |
103 |
104 ! ! |
104 ! ! |
105 |
105 |
106 !CodeView methodsFor:'event handling'! |
106 !CodeView methodsFor:'event handling'! |
107 |
107 |
108 buttonMotion:state x:x y:y |
108 buttonMotion:buttonState x:x y:y |
109 |col line word| |
109 |col line word| |
110 |
110 |
111 pointerOverWordAction notNil ifTrue:[ |
111 pointerOverWordAction notNil ifTrue:[ |
112 state == 0 ifTrue:[ |
112 buttonState == 0 ifTrue:[ |
113 line := self visibleLineOfY:y. |
113 line := self visibleLineOfY:y. |
114 col := self colOfX:x inVisibleLine:line. |
114 col := self colOfX:x inVisibleLine:line. |
115 line := self visibleLineToAbsoluteLine:line. |
115 line := self visibleLineToAbsoluteLine:line. |
116 |
116 |
117 self wordAtLine:line col:col do:[:selectLine :beginCol :endLine :endCol :flag | |
117 self wordAtLine:line col:col do:[:selectLine :beginCol :endLine :endCol :flag | |
121 ] |
121 ] |
122 ]. |
122 ]. |
123 ^ self |
123 ^ self |
124 ]. |
124 ]. |
125 ]. |
125 ]. |
126 super buttonMotion:state x:x y:y |
126 super buttonMotion:buttonState x:x y:y |
127 |
|
128 ! |
127 ! |
129 |
128 |
130 keyPress:key x:x y:y |
129 keyPress:key x:x y:y |
131 "catch keyboard shortcuts" |
130 "catch keyboard shortcuts" |
132 |
131 |
264 ! ! |
263 ! ! |
265 |
264 |
266 !CodeView class methodsFor:'documentation'! |
265 !CodeView class methodsFor:'documentation'! |
267 |
266 |
268 version |
267 version |
269 ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.44 2000-10-20 11:07:38 stefan Exp $' |
268 ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.45 2001-07-20 12:18:15 cg Exp $' |
270 ! ! |
269 ! ! |