The Trunk: SUnitGUI-eem.66.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: SUnitGUI-eem.66.mcz

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

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

Name: SUnitGUI-eem.66
Author: eem
Time: 15 March 2017, 9:06:24.485173 am
UUID: d784d744-8f17-4d16-a2a9-25a399bed280
Ancestors: SUnitGUI-jr.65

Fix Browse in the TestRunner.  The old code always set classIndex to zero when updating the selected classes, which disables browseClass.

=============== Diff against SUnitGUI-jr.65 ===============

Item was changed:
  ----- Method: TestRunner>>updateClasses (in category 'updating') -----
  updateClasses
  | classesForCategories |
  classesForCategories := self findClassesForCategories: categoriesSelected.
  classes := classesForCategories asArray
  sort: [ :a :b | self sortClass: a before: b ].
- classIndex := 0.
  classesSelected := classesSelected isNil
  ifTrue: [ classesForCategories ]
  ifFalse: [
  classesSelected
  select: [ :each | classesForCategories includes: each ] ].
+ classIndex isInteger ifTrue:
+ [(classesSelected includes: (classes at: classIndex ifAbsent: [])) ifFalse:
+ [classIndex := 0]].
  self changed: #classList; changed: #classSelected; changed: #hasRunnable.!