equal
deleted
inserted
replaced
1127 |sensor clickVisibleLine| |
1127 |sensor clickVisibleLine| |
1128 |
1128 |
1129 dragIsActive := false. |
1129 dragIsActive := false. |
1130 sensor := self sensor. |
1130 sensor := self sensor. |
1131 |
1131 |
1132 (sensor notNil and:[sensor shiftDown]) ifTrue:[ |
1132 sensor shiftDown ifTrue:[ |
1133 "mouse-click with shift - adding to selection" |
1133 "mouse-click with shift - adding to selection" |
1134 |
1134 |
1135 "very simple - just simulate a move" |
1135 "very simple - just simulate a move" |
1136 ^ self buttonMotion:(device button1MotionMask) x:x y:y |
1136 ^ self buttonMotion:(device button1MotionMask) x:x y:y |
1137 ]. |
1137 ]. |
2577 "do a backward search" |
2577 "do a backward search" |
2578 |
2578 |
2579 self searchBwd:pattern |
2579 self searchBwd:pattern |
2580 ignoreCase:ign |
2580 ignoreCase:ign |
2581 ifAbsent:[ |
2581 ifAbsent:[ |
2582 |sensor| |
2582 self sensor compressKeyPressEventsWithKey:#FindPrev. |
2583 |
|
2584 (sensor := self sensor) notNil ifTrue:[ |
|
2585 sensor compressKeyPressEventsWithKey:#FindPrev. |
|
2586 ]. |
|
2587 self showNotFound |
2583 self showNotFound |
2588 ]. |
2584 ]. |
2589 lastSearchIgnoredCase := ign. |
2585 lastSearchIgnoredCase := ign. |
2590 lastSearchPattern := pattern string |
2586 lastSearchPattern := pattern string |
2591 |
2587 |
3056 |
3052 |
3057 self |
3053 self |
3058 searchFwd:pattern |
3054 searchFwd:pattern |
3059 ignoreCase:ign |
3055 ignoreCase:ign |
3060 ifAbsent:[ |
3056 ifAbsent:[ |
3061 |sensor| |
3057 self sensor compressKeyPressEventsWithKey:#FindNext. |
3062 |
|
3063 (sensor := self sensor) notNil ifTrue:[ |
|
3064 sensor compressKeyPressEventsWithKey:#FindNext. |
|
3065 ]. |
|
3066 self showNotFound |
3058 self showNotFound |
3067 ]. |
3059 ]. |
3068 lastSearchIgnoredCase := ign. |
3060 lastSearchIgnoredCase := ign. |
3069 lastSearchPattern := pattern string |
3061 lastSearchPattern := pattern string |
3070 |
3062 |
3621 ! ! |
3613 ! ! |
3622 |
3614 |
3623 !TextView class methodsFor:'documentation'! |
3615 !TextView class methodsFor:'documentation'! |
3624 |
3616 |
3625 version |
3617 version |
3626 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.198 2003-04-11 16:48:49 stefan Exp $' |
3618 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.199 2003-04-15 11:56:50 stefan Exp $' |
3627 ! ! |
3619 ! ! |
3628 |
3620 |
3629 TextView initialize! |
3621 TextView initialize! |