221 (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_eclipseStyle)) startUp |
221 (Menu new fromLiteralArrayEncoding:(Tools::CodeView2 editMenu_eclipseStyle)) startUp |
222 " |
222 " |
223 |
223 |
224 <resource: #menu> |
224 <resource: #menu> |
225 |
225 |
226 ^ |
226 ^ |
227 #(Menu |
227 #(Menu |
228 ( |
228 ( |
229 (MenuItem |
229 (MenuItem |
230 label: 'Implementors...' |
230 label: 'Implementors...' |
231 itemValue: browseImplementorsOfIt |
231 itemValue: browseImplementorsOfIt |
232 submenuChannel: implementorsMenu |
232 submenuChannel: implementorsMenu |
233 shortcutKey: ImplementorsOfIt |
233 shortcutKey: ImplementorsOfIt |
234 ) |
234 ) |
235 (MenuItem |
235 (MenuItem |
236 label: 'Senders...' |
236 label: 'Senders...' |
237 itemValue: browseSendersOfIt |
237 itemValue: browseSendersOfIt |
238 submenuChannel: sendersMenu |
238 submenuChannel: sendersMenu |
239 shortcutKey: SendersOfIt |
239 shortcutKey: SendersOfIt |
240 ) |
240 ) |
241 (MenuItem |
241 (MenuItem |
242 label: 'Refactor' |
242 label: 'Refactor' |
243 nameKey: refactor |
243 nameKey: refactor |
244 isVisible: false |
244 isVisible: false |
245 shortcutKey: Shift |
245 shortcutKey: Shift |
246 ) |
246 ) |
247 (MenuItem |
247 (MenuItem |
248 label: '-' |
248 label: '-' |
249 ) |
249 ) |
250 (MenuItem |
250 (MenuItem |
251 label: 'Accept' |
251 label: 'Accept' |
252 itemValue: accept |
252 itemValue: accept |
253 shortcutKey: Accept |
253 shortcutKey: Accept |
254 ) |
254 ) |
255 (MenuItem |
255 (MenuItem |
256 label: '-' |
256 label: '-' |
257 ) |
257 ) |
258 (MenuItem |
258 (MenuItem |
259 label: 'Cut' |
259 label: 'Cut' |
260 itemValue: cut |
260 itemValue: cut |
261 shortcutKey: Cut |
261 shortcutKey: Cut |
262 ) |
262 ) |
263 (MenuItem |
263 (MenuItem |
264 label: 'Copy' |
264 label: 'Copy' |
265 itemValue: copySelection |
265 itemValue: copySelection |
266 shortcutKey: Copy |
266 shortcutKey: Copy |
267 ) |
267 ) |
268 (MenuItem |
268 (MenuItem |
269 label: 'Paste' |
269 label: 'Paste' |
270 itemValue: pasteOrReplace |
270 itemValue: pasteOrReplace |
271 shortcutKey: Paste |
271 shortcutKey: Paste |
272 ) |
272 ) |
273 (MenuItem |
273 (MenuItem |
274 label: '-' |
274 label: '-' |
275 ) |
275 ) |
276 (MenuItem |
276 (MenuItem |
277 label: 'Undo' |
277 label: 'Undo' |
278 itemValue: undo |
278 itemValue: undo |
279 shortcutKey: Undo |
279 shortcutKey: Undo |
280 ) |
280 ) |
281 (MenuItem |
281 (MenuItem |
282 label: 'Redo' |
282 label: 'Redo' |
283 itemValue: redo |
283 itemValue: redo |
284 shortcutKey: Redo |
284 shortcutKey: Redo |
285 ) |
285 ) |
286 (MenuItem |
286 (MenuItem |
287 label: '-' |
287 label: '-' |
288 ) |
288 ) |
289 (MenuItem |
289 (MenuItem |
290 label: 'Do it' |
290 label: 'Do it' |
291 itemValue: doIt |
291 itemValue: doIt |
292 shortcutKey: DoIt |
292 shortcutKey: DoIt |
293 ) |
293 ) |
294 (MenuItem |
294 (MenuItem |
295 label: 'Print it' |
295 label: 'Print it' |
296 itemValue: printIt |
296 itemValue: printIt |
297 shortcutKey: PrintIt |
297 shortcutKey: PrintIt |
298 ) |
298 ) |
299 (MenuItem |
299 (MenuItem |
300 label: 'Inspect it' |
300 label: 'Inspect it' |
301 itemValue: inspectIt |
301 itemValue: inspectIt |
302 shortcutKey: InspectIt |
302 shortcutKey: InspectIt |
303 ) |
303 ) |
304 (MenuItem |
304 (MenuItem |
305 label: 'Profile it' |
305 label: 'Profile it' |
306 itemValue: profileIt |
306 itemValue: profileIt |
307 shortcutKey: InspectIt |
307 shortcutKey: InspectIt |
308 ) |
308 ) |
309 (MenuItem |
309 (MenuItem |
310 label: '-' |
310 label: '-' |
311 ) |
311 ) |
312 (MenuItem |
312 (MenuItem |
313 label: 'Show Gutter' |
313 label: 'Show Gutter' |
314 nameKey: ShowGutter |
314 nameKey: ShowGutter |
315 indication: showGutterChannel |
315 indication: showGutterChannel |
316 ) |
316 ) |
317 (MenuItem |
317 (MenuItem |
318 label: 'More' |
318 label: 'More' |
319 nameKey: More |
319 nameKey: More |
320 ) |
320 ) |
321 (MenuItem |
321 (MenuItem |
322 label: 'Services' |
322 label: 'Services' |
323 submenuChannel: servicesMenu |
323 submenuChannel: servicesMenu |
324 ) |
324 ) |
325 (MenuItem |
325 (MenuItem |
326 label: 'Debug' |
326 label: 'Debug' |
327 submenuChannel: debugMenu |
327 submenuChannel: debugMenu |
328 ) |
328 ) |
329 ) |
329 ) |
330 nil |
330 nil |
331 nil |
331 nil |
332 ) |
332 ) |
333 ! |
333 ! |
334 |
334 |
335 editMenu_stxStyle |
335 editMenu_stxStyle |
336 "This resource specification was automatically generated |
336 "This resource specification was automatically generated |
2293 |
2297 |
2294 update:something with:aParameter from:changedObject |
2298 update:something with:aParameter from:changedObject |
2295 "/ self shown ifFalse:[^self]. |
2299 "/ self shown ifFalse:[^self]. |
2296 |
2300 |
2297 (changedObject == textView) ifTrue:[ |
2301 (changedObject == textView) ifTrue:[ |
2298 ((something == #sizeOfContents) |
2302 ((something == #sizeOfContents) |
2299 or:[ false "(something == #sizeOfView)" ]) ifTrue:[ |
2303 or:[ false "(something == #sizeOfView)" ]) ifTrue:[ |
2300 self adjustSizeForLongestLine. |
2304 self adjustSizeForLongestLine. |
2301 |
2305 |
2302 "/ (numberOfLines ~= (textView list size max:textView cursorLine)) ifTrue:[ |
2306 "/ (numberOfLines ~= (textView list size max:textView cursorLine)) ifTrue:[ |
2303 "/ self invalidate. |
2307 "/ self invalidate. |
2304 "/ ]. |
2308 "/ ]. |
2305 ^ self. |
2309 ^ self. |
2306 ]. |
2310 ]. |
2307 something == #originOfContents ifTrue:[ |
2311 something == #originOfContents ifTrue:[ |
2308 self invalidateLines. |
2312 self invalidateLines. |
2309 ^ self. |
2313 ^ self. |
2310 ]. |
2314 ]. |
2311 "/ something printCR. |
2315 "/ something printCR. |
2312 ]. |
2316 ]. |
2313 |
2317 |
2314 (changedObject == textView reallyModifiedChannel) ifTrue:[ |
2318 (changedObject == textView reallyModifiedChannel) ifTrue:[ |
2315 self invalidateAcceptCancelBar. |
2319 self invalidateAcceptCancelBar. |
2316 ^self. |
2320 ^self. |
2317 ]. |
2321 ]. |
2318 |
2322 |
2319 super update:something with:aParameter from:changedObject |
2323 super update:something with:aParameter from:changedObject |
2320 |
2324 |
2321 "Modified (format): / 15-07-2011 / 20:14:04 / cg" |
2325 "Modified (format): / 15-07-2011 / 20:14:04 / cg" |
2469 "Modified (format): / 28-08-2013 / 12:49:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2473 "Modified (format): / 28-08-2013 / 12:49:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2470 ! ! |
2474 ! ! |
2471 |
2475 |
2472 !CodeView2::GutterView methodsFor:'redrawing'! |
2476 !CodeView2::GutterView methodsFor:'redrawing'! |
2473 |
2477 |
2474 invalidateAcceptCancelBar |
2478 invalidateAcceptCancelBar |
2475 | w | |
2479 | w | |
2476 |
2480 |
2477 (widthAcceptCancel ? 0) == 0 ifTrue:[ ^ self ]. |
2481 (widthAcceptCancel ? 0) == 0 ifTrue:[ ^ self ]. |
2478 w := ((self paddingLeft) + (widthAcceptCancel ? 0)) + 1. |
2482 w := ((self paddingLeft) + (widthAcceptCancel ? 0)) + 1. |
2479 self |
2483 self |
2480 invalidateX: 0 |
2484 invalidateX: 0 |
2481 y: 0 |
2485 y: 0 |
2482 width: w |
2486 width: w |
2483 height: self height. |
2487 height: self height. |
2484 |
2488 |
2485 "Created: / 10-09-2013 / 03:07:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2489 "Created: / 10-09-2013 / 03:07:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2486 ! |
2490 ! |
|
2491 |
|
2492 |
2487 |
2493 |
2488 invalidateLines |
2494 invalidateLines |
2489 |
2495 |
2490 | x0 | |
2496 | x0 | |
2491 x0 := ((self paddingLeft) + (widthAcceptCancel ? 0)) + 1. |
2497 x0 := ((self paddingLeft) + (widthAcceptCancel ? 0)) + 1. |
2492 self |
2498 self |
2493 invalidateX: x0 |
2499 invalidateX: x0 |
2494 y: 0 |
2500 y: 0 |
2495 width: self width - x0 |
2501 width: self width - x0 |
2496 height: self height. |
2502 height: self height. |
2497 |
2503 |
2498 "Created: / 10-09-2013 / 03:08:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2504 "Created: / 10-09-2013 / 03:08:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2499 ! |
2505 ! |
2500 |
2506 |
2501 redrawAcceptCancelBarX: x y: y width:w height:h |
2507 redrawAcceptCancelBarX: x y: y width:w height:h |
2502 |
2508 |
2503 | rw acceptBottom cancelBottom | |
2509 | rw acceptBottom cancelBottom | |
2504 |
2510 |
2505 x > ((self paddingLeft) + (widthAcceptCancel ? 0)) ifTrue:[ |
2511 x > ((self paddingLeft) + (widthAcceptCancel ? 0)) ifTrue:[ |
2506 ^self. |
2512 ^self. |
2507 ]. |
2513 ]. |
2508 rw := ((x + w) min: (self paddingLeft + (widthAcceptCancel ? 0))) - x. |
2514 rw := ((x + w) min: (self paddingLeft + (widthAcceptCancel ? 0))) - x. |
2509 |
2515 |
2510 |
2516 |
2511 textView reallyModified ifFalse:[ |
2517 textView reallyModified ifFalse:[ |
2512 self fillRectangleX:x y:y width:rw height:h color: self viewBackground |
2518 self fillRectangleX:x y:y width:rw height:h color: self viewBackground |
2513 ] ifTrue:[ |
2519 ] ifTrue:[ |
2514 acceptBottom := self acceptButtonBottom. |
2520 acceptBottom := self acceptButtonBottom. |
2515 cancelBottom := self cancelButtonBottom. |
2521 cancelBottom := self cancelButtonBottom. |
2516 y < acceptBottom ifTrue:[ |
2522 y < acceptBottom ifTrue:[ |
2517 self fillRectangleX:x y:y width:rw height: ((y + h) min: acceptBottom) color: acceptColor. |
2523 self fillRectangleX:x y:y width:rw height: ((y + h) min: acceptBottom) color: acceptColor. |
2518 ]. |
2524 ]. |
2519 (y < cancelBottom) ifTrue:[ |
2525 (y < cancelBottom) ifTrue:[ |
2520 self fillRectangleX:x y: acceptBottom + 1width:rw height: ((y + h) min: cancelBottom) - acceptBottom - 1color: cancelColor. |
2526 self fillRectangleX:x y: acceptBottom + 1width:rw height: ((y + h) min: cancelBottom) - acceptBottom - 1color: cancelColor. |
2521 ]. |
2527 ]. |
2522 (y + h >= cancelBottom) ifTrue:[ |
2528 (y + h >= cancelBottom) ifTrue:[ |
2523 self fillRectangleX:x y: cancelBottom + 1 width:rw height: (y + h) - cancelBottom - 1 color: diffColor. |
2529 self fillRectangleX:x y: cancelBottom + 1 width:rw height: (y + h) - cancelBottom - 1 color: diffColor. |
2524 ] |
2530 ] |
2525 |
2531 |
2526 ] |
2532 ] |
2527 |
2533 |
2528 "Created: / 07-10-2011 / 19:44:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2534 "Created: / 07-10-2011 / 19:44:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2529 "Modified: / 10-09-2013 / 03:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2535 "Modified: / 10-09-2013 / 03:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2589 oldFont := self font. |
2595 oldFont := self font. |
2590 oldColor := self paint. |
2596 oldColor := self paint. |
2591 |
2597 |
2592 newFont := self lineFontForLine:line. |
2598 newFont := self lineFontForLine:line. |
2593 newFont isNil ifTrue:[ |
2599 newFont isNil ifTrue:[ |
2594 newFont := oldFont. |
2600 newFont := oldFont. |
2595 newColor := self lineColorForLine:line. |
2601 newColor := self lineColorForLine:line. |
2596 newColor ifNotNil:[ self paint:newColor ]. |
2602 newColor ifNotNil:[ self paint:newColor ]. |
2597 ]. |
2603 ]. |
2598 newFont ~~ oldFont ifTrue:[ |
2604 newFont ~~ oldFont ifTrue:[ |
2599 (newFont heightOn:device) > (textView font heightOn:device) ifTrue:[ |
2605 (newFont heightOn:device) > (textView font heightOn:device) ifTrue:[ |
2600 newFont := textView font. |
2606 newFont := textView font. |
2601 ]. |
2607 ]. |
2602 self font:newFont |
2608 self font:newFont |
2603 ]. |
2609 ]. |
2604 fontAscent := textView font ascentOn:device. |
2610 fontAscent := textView font ascentOn:device. |
2605 fontDescent := textView font descentOn:device. |
2611 fontDescent := textView font descentOn:device. |
2606 |
2612 |
2607 yTop := self yOfTextViewLine:line. |
2613 yTop := self yOfTextViewLine:line. |
2608 yBaseline := yTop + fontAscent. |
2614 yBaseline := yTop + fontAscent. |
2609 |
2615 |
2610 cleared ifFalse:[ |
2616 cleared ifFalse:[ |
2611 self clearRectangleX:0 y:yBaseline - font ascent |
2617 self clearRectangleX:0 y:yBaseline - font ascent |
2612 width: width - 2 |
2618 width: width - 2 |
2613 height: font ascent + font descent. |
2619 height: font ascent + font descent. |
2614 ]. |
2620 ]. |
2615 |
2621 |
2616 "/ cg: this should be done differently: services know about the |
2622 "/ cg: this should be done differently: services know about the |
2617 "/ gutter, so they should respond to a special drawGutter message. |
2623 "/ gutter, so they should respond to a special drawGutter message. |
2618 "/ otherwise, some redraws become unusably slow (especially |
2624 "/ otherwise, some redraws become unusably slow (especially |
2619 "/ with multiple fonts/colors/emphases)... |
2625 "/ with multiple fonts/colors/emphases)... |
2620 drawServices ifTrue:[ |
2626 drawServices ifTrue:[ |
2621 "Let services draw annotations and other stuff" |
2627 "Let services draw annotations and other stuff" |
2622 codeView |
2628 codeView |
2623 drawLine:line in: self |
2629 drawLine:line in: self |
2624 atX: (self paddingLeft + self usedWidthForAcceptCancel) y:yBaseline width: widthAnnotations height: font height |
2630 atX: (self paddingLeft + self usedWidthForAcceptCancel) y:yBaseline width: widthAnnotations height: font height |
2625 from:nil to:nil with:self paint and: self backgroundColor. |
2631 from:nil to:nil with:self paint and: self backgroundColor. |
2626 ]. |
2632 ]. |
2627 |
2633 |
2628 self |
2634 self |
2629 displayString:lineString |
2635 displayString:lineString |
2630 x:(width - textW - 2 - self paddingRight - widthDiffInfo) |
2636 x:(width - textW - 2 - self paddingRight - widthDiffInfo) |
2631 y:yBaseline. |
2637 y:yBaseline. |
2632 |
2638 |
2633 newFont |
2639 newFont |
2634 ifNotNil:[ |
2640 ifNotNil:[ |
2635 self font:oldFont. |
2641 self font:oldFont. |
2636 self paint:oldColor |
2642 self paint:oldColor |
2637 ] |
2643 ] |
2638 ifNil:[ |
2644 ifNil:[ |
2639 newColor ifNotNil:[ self paint:oldColor ]. |
2645 newColor ifNotNil:[ self paint:oldColor ]. |
2640 ]. |
2646 ]. |
2641 "/ If the view has been cleared here, we have also to redraw corresponding portion |
2647 "/ If the view has been cleared here, we have also to redraw corresponding portion |
2642 "/ of accept/cancel bar !! |
2648 "/ of accept/cancel bar !! |
2643 cleared ifFalse:[ |
2649 cleared ifFalse:[ |
2644 "/ In that case it was cleared above. |
2650 "/ In that case it was cleared above. |
2645 self redrawAcceptCancelBarX:0 y:yBaseline - font ascent |
2651 self redrawAcceptCancelBarX:0 y:yBaseline - font ascent |
2646 width: width - 2 |
2652 width: width - 2 |
2647 height: font ascent + font descent. |
2653 height: font ascent + font descent. |
2648 ]. |
2654 ]. |
2649 ^ requiredW. |
2655 ^ requiredW. |
2650 |
2656 |
2651 "Modified: / 14-12-2009 / 15:30:44 / Jindra <a>" |
2657 "Modified: / 14-12-2009 / 15:30:44 / Jindra <a>" |
2652 "Created: / 17-06-2011 / 14:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2658 "Created: / 17-06-2011 / 14:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2653 "Modified: / 18-07-2012 / 19:05:24 / cg" |
2659 "Modified: / 18-07-2012 / 19:05:24 / cg" |
2654 "Modified: / 28-08-2013 / 15:17:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2660 "Modified: / 28-08-2013 / 15:17:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2655 ! |
2661 ! |
|
2662 |
|
2663 |
2656 |
2664 |
2657 redrawVisibleLine:line |
2665 redrawVisibleLine:line |
2658 |absLine| |
2666 |absLine| |
2659 |
2667 |
2660 (absLine := textView visibleLineToListLine:line) notNil ifTrue:[ |
2668 (absLine := textView visibleLineToListLine:line) notNil ifTrue:[ |
2823 !CodeView2::TextView methodsFor:'accessing-contents'! |
2831 !CodeView2::TextView methodsFor:'accessing-contents'! |
2824 |
2832 |
2825 list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings |
2833 list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings |
2826 |
2834 |
2827 super list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings. |
2835 super list:aCollection expandTabs:expand scanForNonStrings:scan includesNonStrings:nonStrings. |
|
2836 |
2828 listOriginal := aCollection copy. |
2837 listOriginal := aCollection copy. |
2829 reallyModifiedChannel value: false. |
2838 reallyModifiedChannel value: false. |
2830 |
2839 |
2831 "/JV: used to be notifyLines... but that method |
2840 "/JV: used to be notifyLines... but that method |
2832 "/ leaves suppressNotifications to true, which is not what |
2841 "/ leaves suppressNotifications to true, which is not what |
2892 !CodeView2::TextView methodsFor:'bit blitting'! |
2901 !CodeView2::TextView methodsFor:'bit blitting'! |
2893 |
2902 |
2894 copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async |
2903 copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async |
2895 "/ a vertical scroll operation ? |
2904 "/ a vertical scroll operation ? |
2896 aDrawable == self ifTrue:[ |
2905 aDrawable == self ifTrue:[ |
2897 ((srcY ~= dstY) and:[srcX = dstX]) ifTrue:[ |
2906 ((srcY ~= dstY) and:[srcX = dstX]) ifTrue:[ |
2898 "/ Do copy in gutter, but not accept-cancel bar!! |
2907 "/ Do copy in gutter, but not accept-cancel bar!! |
2899 | x0 | |
2908 | x0 | |
2900 |
2909 |
2901 x0 := gutterView acceptCancelRight. |
2910 x0 := gutterView acceptCancelRight. |
2902 gutterView |
2911 gutterView |
2903 copyFrom:gutterView |
2912 copyFrom:gutterView |
2904 x:x0 |
2913 x:x0 |
2905 y:srcY |
2914 y:srcY |
2906 toX:x0 |
2915 toX:x0 |
2907 y:dstY |
2916 y:dstY |
2908 width:(gutterView width - x0) |
2917 width:(gutterView width - x0) |
2909 height:h |
2918 height:h |
2910 async:false |
2919 async:false |
2911 ] |
2920 ] |
2912 ]. |
2921 ]. |
2913 ^ super |
2922 ^ super |
2914 copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async |
2923 copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async |
2915 |
2924 |
2916 "Modified (comment): / 10-09-2013 / 03:13:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2925 "Modified (comment): / 10-09-2013 / 03:13:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2917 ! ! |
2926 ! ! |
2918 |
2927 |
2919 !CodeView2::TextView methodsFor:'channels'! |
2928 !CodeView2::TextView methodsFor:'channels'! |
3736 "Created: / 08-03-2012 / 12:44:03 / cg" |
3747 "Created: / 08-03-2012 / 12:44:03 / cg" |
3737 ! ! |
3748 ! ! |
3738 |
3749 |
3739 !CodeView2::TextView methodsFor:'scrolling'! |
3750 !CodeView2::TextView methodsFor:'scrolling'! |
3740 |
3751 |
|
3752 |
|
3753 |
3741 basicScrollTo:anOrigin redraw:doRedraw |
3754 basicScrollTo:anOrigin redraw:doRedraw |
3742 super scrollTo:anOrigin redraw:doRedraw |
3755 super scrollTo:anOrigin redraw:doRedraw |
3743 |
3756 |
3744 "Modified: / 06-04-2010 / 14:05:40 / Jakub <zelenja7@fel.cvut.cz>" |
3757 "Modified: / 06-04-2010 / 14:05:40 / Jakub <zelenja7@fel.cvut.cz>" |
3745 "Modified: / 17-03-2012 / 10:06:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3758 "Modified: / 17-03-2012 / 10:06:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3746 "Created: / 19-03-2012 / 17:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3759 "Created: / 19-03-2012 / 17:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3747 ! |
3760 ! |
3748 |
3761 |
|
3762 |
|
3763 |
3749 originChanged:delta |
3764 originChanged:delta |
3750 |
3765 |
3751 super originChanged:delta. |
3766 super originChanged:delta. |
3752 |
3767 |
3753 "/ gutterView invalidate. |
3768 "/ gutterView invalidate. |
3754 |
3769 |
3755 "Created: / 07-12-2009 / 21:50:49 / Jindra <a>" |
3770 "Created: / 07-12-2009 / 21:50:49 / Jindra <a>" |
3756 ! |
3771 ! |
|
3772 |
|
3773 |
3757 |
3774 |
3758 scrollTo:anOrigin redraw:doRedraw |
3775 scrollTo:anOrigin redraw:doRedraw |
3759 |
3776 |
3760 codeView scrollTo:anOrigin redraw:doRedraw in: self. |
3777 codeView scrollTo:anOrigin redraw:doRedraw in: self. |
3761 self basicScrollTo:anOrigin redraw:doRedraw |
3778 self basicScrollTo:anOrigin redraw:doRedraw |
3762 |
3779 |
3763 "Modified: / 06-04-2010 / 14:04:28 / Jakub <zelenja7@fel.cvut.cz>" |
3780 "Modified: / 06-04-2010 / 14:04:28 / Jakub <zelenja7@fel.cvut.cz>" |
3764 "Modified: / 17-03-2012 / 10:06:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3781 "Modified: / 17-03-2012 / 10:06:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3765 "Created: / 19-03-2012 / 17:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3782 "Created: / 19-03-2012 / 17:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3766 ! ! |
3783 ! |
|
3784 |
|
3785 ! |
3767 |
3786 |
3768 !CodeView2::TextView methodsFor:'undo & again'! |
3787 !CodeView2::TextView methodsFor:'undo & again'! |
3769 |
3788 |
3770 nonUndoableDo: aBlock |
3789 nonUndoableDo: aBlock |
3771 |
3790 |