Eliot Miranda uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-eem.56.mcz
==================== Summary ====================
Name: SUnitGUI-eem.56 Author: eem Time: 20 September 2012, 2:04:20.328 pm UUID: c155ae36-4f30-4a86-9ce5-2b1c8dd3de40 Ancestors: SUnitGUI-eem.53
Filter prompt needs to check for both nil and empty string to prevent cancel from destroying current patterns.
=============== Diff against SUnitGUI-eem.53 ===============
Item was changed: ----- Method: TestRunner>>filterCategories (in category 'accessing-categories') ----- filterCategories | pattern | pattern := UIManager default request: 'Pattern(s) to select categories:\ (separate patterns with '';'')' withCRs initialAnswer: (categoryPattern ifNil: ['*']). + (pattern isNil or: [pattern isEmpty]) ifTrue: + [^self]. - pattern isNil ifTrue: [ ^ self ]. categoriesSelected := ((categoryPattern := pattern) subStrings: ';') inject: Set new into: [:matches :subPattern| matches addAll: (categories select: [ :each | subPattern match: each]); yourself]. self changed: #allSelections; changed: #categorySelected; updateClasses!
Item was changed: ----- Method: TestRunner>>filterClasses (in category 'accessing-classes') ----- filterClasses | pattern | pattern := UIManager default request: 'Pattern(s) to select tests:\ (separate patterns with '';'')' withCRs initialAnswer: (classPattern ifNil: '*'). + (pattern isNil or: [pattern isEmpty]) ifTrue: + [^self]. - pattern isNil ifTrue: [ ^ self ]. classesSelected := ((classPattern := pattern) subStrings: ';') inject: Set new into: [:matches :subPattern| matches addAll: (classes select: [ :each | subPattern match: each name]); yourself]. self changed: #allSelections; changed: #classSelected; changed: #hasRunnable!