equal
deleted
inserted
replaced
2806 forgetFilterNamed |
2806 forgetFilterNamed |
2807 "forget a remembered named filter" |
2807 "forget a remembered named filter" |
2808 |
2808 |
2809 |filterName| |
2809 |filterName| |
2810 |
2810 |
2811 filterName := Dialog request:'Forget Filter Named:' list:(RememberedFilters keys copy sort). |
2811 filterName := Dialog |
|
2812 request:'Forget Filter Named:' |
|
2813 list:(RememberedFilters keys asNewOrderedCollection sort). |
2812 filterName isEmptyOrNil ifTrue:[^ self]. |
2814 filterName isEmptyOrNil ifTrue:[^ self]. |
2813 |
2815 |
2814 (Dialog confirm:'Shure to Forget the Filter Named: ',filterName) ifFalse:[^ self]. |
2816 (Dialog confirm:'Shure to Forget the Filter Named: ',filterName) ifFalse:[^ self]. |
2815 |
2817 |
2816 RememberedFilters removeKey:filterName. |
2818 RememberedFilters removeKey:filterName. |
2817 |
2819 |
2818 "Created: / 05-02-2017 / 11:12:08 / cg" |
2820 "Created: / 05-02-2017 / 11:12:08 / cg" |
2819 "Modified: / 06-02-2017 / 01:59:41 / cg" |
2821 "Modified: / 06-02-2017 / 02:17:47 / cg" |
2820 ! |
2822 ! |
2821 |
2823 |
2822 inspectFilterParameters |
2824 inspectFilterParameters |
2823 "inspect the current settings" |
2825 "inspect the current settings" |
2824 |
2826 |
2838 loadFilterNamed |
2840 loadFilterNamed |
2839 "load a remembered named filter" |
2841 "load a remembered named filter" |
2840 |
2842 |
2841 |filterName filterParameters| |
2843 |filterName filterParameters| |
2842 |
2844 |
2843 filterName := Dialog request:'Load Filter Named:' list:(RememberedFilters keys copy sort). |
2845 filterName := Dialog |
|
2846 request:'Load Filter Named:' |
|
2847 list:(RememberedFilters keys asNewOrderedCollection sort). |
2844 filterName isEmptyOrNil ifTrue:[^ self]. |
2848 filterName isEmptyOrNil ifTrue:[^ self]. |
2845 |
2849 |
2846 filterParameters := RememberedFilters at:filterName. |
2850 filterParameters := RememberedFilters at:filterName. |
2847 |
2851 |
2848 patternFilters := filterParameters filteredClassNameMatchPattern. |
2852 patternFilters := filterParameters filteredClassNameMatchPattern. |