The Trunk: SUnitGUI-eem.53.mcz

Eliot Miranda uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-eem.53.mcz

==================== Summary ====================

Name: SUnitGUI-eem.53
Author: eem
Time: 20 September 2012, 11:07:56.257 am
UUID: 2a734976-4fc9-414d-8884-986f5bf9ff58
Ancestors: SUnitGUI-ul.52

Make TestRunner Filter... recognize multiple patterns
separated by semicolons.  Remember previous patterns
in subsequent prompts.

=============== Diff against SUnitGUI-ul.52 ===============

Item was changed:
  Object subclass: #TestRunner
+ instanceVariableNames: 'categories categoriesSelected classes classIndex classesSelected failedList failedSelected errorList errorSelected lastUpdate result previousRun categoryPattern classPattern'
- instanceVariableNames: 'categories categoriesSelected classes classIndex classesSelected failedList failedSelected errorList errorSelected lastUpdate result previousRun'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'SUnitGUI'!
 
  !TestRunner commentStamp: '<historical>' prior: 0!
  <lint: #ignore rule: #classNotReferenced rational: 'this view is only accessed from menus'>
 
  !

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: ['*']).
- request: 'Pattern to select categories:'
- initialAnswer: '*'.
  pattern isNil ifTrue: [ ^ self ].
+ categoriesSelected := ((categoryPattern := pattern) subStrings: ';')
+ inject: Set new
+ into: [:matches :subPattern|
+ matches
+ addAll: (categories select: [ :each | subPattern match: each]);
+ yourself].
- categoriesSelected := (categories
- select: [ :each | pattern match: each ]) asSet.
  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: '*').
- request: 'Pattern to select tests:'
- initialAnswer: '*'.
  pattern isNil ifTrue: [ ^ self ].
+ classesSelected := ((classPattern := pattern) subStrings: ';')
+ inject: Set new
+ into: [:matches :subPattern|
+ matches
+ addAll: (classes select: [ :each | subPattern match: each name]);
+ yourself].
- classesSelected := (classes select: [ :each |
- pattern match: each name ]) asSet.
  self
  changed: #allSelections;
  changed: #classSelected;
  changed: #hasRunnable!