305 ('previous for this class' findPreviousForClass ) |
305 ('previous for this class' findPreviousForClass ) |
306 ('-' ) |
306 ('-' ) |
307 ('search selector' findSelector ) |
307 ('search selector' findSelector ) |
308 ('next with this selector' findNextForSelector #FindNext ) |
308 ('next with this selector' findNextForSelector #FindNext ) |
309 ('previous with this selector' findPreviousForSelector #FindPrev ) |
309 ('previous with this selector' findPreviousForSelector #FindPrev ) |
|
310 ('-' ) |
|
311 ('next snapshot' findNextSnapshot ) |
|
312 ('previous snapshot' findPreviousSnapshot ) |
310 ). |
313 ). |
311 ] ifFalse:[ |
314 ] ifFalse:[ |
312 items := #( |
315 items := #( |
313 ('search class' findClass #Find ) |
316 ('search class' findClass #Find ) |
314 ('next for this class' findNextForClass #FindNext ) |
317 ('next for this class' findNextForClass #FindNext ) |
315 ('previous for this class' findPreviousForClass #FindPrev ) |
318 ('previous for this class' findPreviousForClass #FindPrev ) |
316 ('-' ) |
319 ('-' ) |
317 ('search selector' findSelector ) |
320 ('search selector' findSelector ) |
318 ('next with this selector' findNextForSelector ) |
321 ('next with this selector' findNextForSelector ) |
319 ('previous with this selector' findPreviousForSelector ) |
322 ('previous with this selector' findPreviousForSelector ) |
|
323 ('-' ) |
|
324 ('next snapshot' findNextSnapshot ) |
|
325 ('previous snapshot' findPreviousSnapshot ) |
320 ). |
326 ). |
321 ]. |
327 ]. |
322 ^ PopUpMenu itemList:items resources:resources. |
328 ^ PopUpMenu itemList:items resources:resources. |
323 ]. |
329 ]. |
324 |
330 |
2688 "Modified: / 18.4.1997 / 12:48:18 / stefan" |
2694 "Modified: / 18.4.1997 / 12:48:18 / stefan" |
2689 "Created: / 18.6.1998 / 22:17:37 / cg" |
2695 "Created: / 18.6.1998 / 22:17:37 / cg" |
2690 "Modified: / 18.6.1998 / 22:29:33 / cg" |
2696 "Modified: / 18.6.1998 / 22:29:33 / cg" |
2691 ! |
2697 ! |
2692 |
2698 |
|
2699 findNextSnapshot |
|
2700 |savedCursor| |
|
2701 |
|
2702 changeNrShown isNil ifTrue:[^ self]. |
|
2703 |
|
2704 self withCursor:Cursor questionMark do:[ |
|
2705 |cls nr lastNr words chunk| |
|
2706 |
|
2707 Object userInterruptSignal handle:[:ex | |
|
2708 self beep. |
|
2709 ^ self |
|
2710 ] do:[ |
|
2711 lastNr := self numberOfChanges. |
|
2712 nr := changeNrShown + 1. |
|
2713 [nr <= lastNr] whileTrue:[ |
|
2714 " |
|
2715 get the chunk |
|
2716 " |
|
2717 chunk := changeChunks at:nr. |
|
2718 chunk isNil ifTrue:[^ nil]. "mhmh - empty" |
|
2719 |
|
2720 (chunk startsWith:'''---') ifTrue:[ |
|
2721 words := chunk asCollectionOfWords. |
|
2722 words size > 2 ifTrue:[ |
|
2723 (words at:2) = 'snapshot' ifTrue:[ |
|
2724 changeListView setSelection:nr . |
|
2725 self changeSelection:nr. |
|
2726 ^ self |
|
2727 ]. |
|
2728 ]. |
|
2729 ]. |
|
2730 nr := nr + 1. |
|
2731 ]. |
|
2732 ] |
|
2733 ]. |
|
2734 self beep. |
|
2735 |
|
2736 savedCursor := cursor. |
|
2737 self cursor:(Cursor cross). |
|
2738 Delay waitForMilliseconds:300. |
|
2739 self cursor:savedCursor |
|
2740 |
|
2741 "Modified: / 18.4.1997 / 12:48:41 / stefan" |
|
2742 "Created: / 22.8.1998 / 15:58:49 / cg" |
|
2743 "Modified: / 22.8.1998 / 15:59:38 / cg" |
|
2744 ! |
|
2745 |
2693 findPrevious |
2746 findPrevious |
2694 lastSearchType == #selector ifTrue:[ |
2747 lastSearchType == #selector ifTrue:[ |
2695 ^ self findPreviousForSelector |
2748 ^ self findPreviousForSelector |
2696 ]. |
2749 ]. |
2697 ^ self findPreviousForClass |
2750 ^ self findPreviousForClass |
2778 "Modified: / 18.4.1997 / 12:48:41 / stefan" |
2831 "Modified: / 18.4.1997 / 12:48:41 / stefan" |
2779 "Created: / 18.6.1998 / 22:18:19 / cg" |
2832 "Created: / 18.6.1998 / 22:18:19 / cg" |
2780 "Modified: / 18.6.1998 / 22:29:29 / cg" |
2833 "Modified: / 18.6.1998 / 22:29:29 / cg" |
2781 ! |
2834 ! |
2782 |
2835 |
|
2836 findPreviousSnapshot |
|
2837 |savedCursor| |
|
2838 |
|
2839 changeNrShown isNil ifTrue:[^ self]. |
|
2840 |
|
2841 self withCursor:Cursor questionMark do:[ |
|
2842 |cls nr words chunk| |
|
2843 |
|
2844 Object userInterruptSignal handle:[:ex | |
|
2845 self beep. |
|
2846 ^ self |
|
2847 ] do:[ |
|
2848 nr := changeNrShown - 1. |
|
2849 [nr >= 1] whileTrue:[ |
|
2850 " |
|
2851 get the chunk |
|
2852 " |
|
2853 chunk := changeChunks at:nr. |
|
2854 chunk isNil ifTrue:[^ nil]. "mhmh - empty" |
|
2855 |
|
2856 (chunk startsWith:'''---') ifTrue:[ |
|
2857 words := chunk asCollectionOfWords. |
|
2858 words size > 2 ifTrue:[ |
|
2859 (words at:2) = 'snapshot' ifTrue:[ |
|
2860 changeListView setSelection:nr . |
|
2861 self changeSelection:nr. |
|
2862 ^ self |
|
2863 ]. |
|
2864 ]. |
|
2865 ]. |
|
2866 nr := nr - 1. |
|
2867 ]. |
|
2868 ] |
|
2869 ]. |
|
2870 self beep. |
|
2871 |
|
2872 savedCursor := cursor. |
|
2873 self cursor:(Cursor cross). |
|
2874 Delay waitForMilliseconds:300. |
|
2875 self cursor:savedCursor |
|
2876 |
|
2877 "Modified: / 18.4.1997 / 12:48:41 / stefan" |
|
2878 "Modified: / 18.6.1998 / 22:29:44 / cg" |
|
2879 "Created: / 22.8.1998 / 15:57:34 / cg" |
|
2880 ! |
|
2881 |
2783 findSelector |
2882 findSelector |
2784 |sel current savedCursor search| |
2883 |sel current savedCursor search| |
2785 |
2884 |
2786 lastSearchType := #selector. |
2885 lastSearchType := #selector. |
2787 |
2886 |