--- a/Tools__TestRunner2.st Fri Sep 23 18:02:04 2011 +0200
+++ b/Tools__TestRunner2.st Fri Sep 23 19:18:27 2011 +0200
@@ -32,7 +32,8 @@
packageList classList classListOutGeneratorHolder
classListInGeneratorHolder modeHolder detailsHolder
failureListHolder failureSelectionHolder errorListHolder
- errorSelectionHolder lastPass resultHolder lastBrowser'
+ errorSelectionHolder lastPass resultHolder lastBrowser
+ selectedResultHolder'
classVariableNames:'History'
poolDictionaries:''
category:'SUnit-UI'
@@ -46,7 +47,8 @@
!
ApplicationModel subclass:#ResultList
- instanceVariableNames:'results resultsHolder selectiomHolder listHolder timestampFormat'
+ instanceVariableNames:'results resultsHolder selectiomHolder listHolder timestampFormat
+ selectionHolder'
classVariableNames:''
poolDictionaries:''
privateIn:TestRunner2
@@ -568,6 +570,10 @@
(SubChannelInfoSpec
subAspect: resultsHolder
aspect: resultHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: selectionHolder
+ aspect: selectedResultHolder
)
)
createNewApplication: true
@@ -577,8 +583,6 @@
)
)
-
- "Modified: / 19-03-2010 / 08:32:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
windowSpec
@@ -946,22 +950,22 @@
#(Menu
(
(MenuItem
- label: 'Select prerequisites'
+ label: 'Select Prerequisites'
itemValue: packageListMenuSelectPrerequisites
translateLabel: true
)
(MenuItem
- label: 'Select prerequisites (recursive)'
+ label: 'Select Prerequisites (recursive)'
itemValue: packageListMenuSelectPrerequisitesAll
translateLabel: true
)
(MenuItem
- label: 'Select dependents'
+ label: 'Select Dependents'
itemValue: packageListMenuSelectDependents
translateLabel: true
)
(MenuItem
- label: 'Select dependents (recursively)'
+ label: 'Select Dependents (recursively)'
itemValue: packageListMenuSelectDependentsAll
translateLabel: true
)
@@ -971,6 +975,36 @@
)
"Modified: / 06-06-2008 / 20:04:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 23-09-2011 / 18:51:37 / cg"
+!
+
+resultListMenu
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+
+ "
+ MenuEditor new openOnClass:Tools::TestRunner2 andSelector:#resultListMenu
+ (Menu new fromLiteralArrayEncoding:(Tools::TestRunner2 resultListMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Browse'
+ itemValue: resultListMenuBrowse
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
! !
!TestRunner2 class methodsFor:'resources'!
@@ -1022,15 +1056,16 @@
!
failureTestSuite
-
| testSuite |
+
testSuite := TestSuite new.
- failureListHolder value do:
- [:test|
- testSuite addTest: test].
+ failureListHolder value do:[:test|
+ testSuite addTest: test
+ ].
^testSuite
"Created: / 06-06-2008 / 09:03:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified (format): / 23-09-2011 / 18:56:52 / cg"
!
passedColor
@@ -1179,10 +1214,17 @@
!TestRunner2 methodsFor:'accessing - menus'!
packageListMenu
-
- ^self class packageListMenu
+ ^ self class packageListMenu
"Created: / 06-06-2008 / 19:16:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 23-09-2011 / 18:55:05 / cg"
+!
+
+resultListMenu
+ ^ self class resultListMenu
+
+ "Created: / 06-06-2008 / 19:16:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Created: / 23-09-2011 / 18:53:46 / cg"
! !
!TestRunner2 methodsFor:'actions'!
@@ -1422,6 +1464,13 @@
(prjDef allPreRequisites copy add: prjDef package; yourself)
"Created: / 06-06-2008 / 20:11:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+resultListMenuBrowse
+ UserPreferences current systemBrowserClass
+ openInClass: (self selectedTestSuite tests first class) selector:(self selectedResultHolder value test selector).
+
+ "Created: / 23-09-2011 / 18:55:50 / cg"
! !
!TestRunner2 methodsFor:'aspects'!
@@ -1596,6 +1645,15 @@
resultHolder := ValueHolder new.
].
^ resultHolder
+!
+
+selectedResultHolder
+ selectedResultHolder isNil ifTrue:[
+ selectedResultHolder := ValueHolder new.
+ ].
+ ^ selectedResultHolder
+
+ "Created: / 23-09-2011 / 19:14:51 / cg"
! !
!TestRunner2 methodsFor:'displaying'!
@@ -1757,7 +1815,7 @@
!TestRunner2::ClassList class methodsFor:'documentation'!
version
- ^'$Id: Tools__TestRunner2.st,v 1.27 2011-08-21 16:06:11 cg Exp $'
+ ^'$Id: Tools__TestRunner2.st,v 1.28 2011-09-23 17:18:27 cg Exp $'
! !
!TestRunner2::ClassList methodsFor:'private'!
@@ -1810,6 +1868,7 @@
name: 'List'
layout: (LayoutFrame 0 0 0 0 0 1 0 1)
model: selectionHolder
+ menu: resultListMenu
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
listModel: listHolder
@@ -1823,8 +1882,6 @@
)
)
-
- "Modified: / 08-02-2010 / 10:08:09 / Jan Vrany <jan,vrany@fit.cvut.cz>"
! !
!TestRunner2::ResultList class methodsFor:'plugIn spec'!
@@ -1845,7 +1902,6 @@
#selectionHolder
).
- "Modified: / 19-03-2010 / 08:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!TestRunner2::ResultList methodsFor:'actions'!
@@ -1919,19 +1975,19 @@
"Created: / 19-03-2010 / 08:32:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-selectiomHolder
- "return/create the 'selectiomHolder' value holder (automatically generated)"
-
- selectiomHolder isNil ifTrue:[
- selectiomHolder := ValueHolder new.
+selectionHolder
+ selectionHolder isNil ifTrue:[
+ selectionHolder := ValueHolder new.
].
- ^ selectiomHolder
+ ^ selectionHolder
+
+ "Created: / 23-09-2011 / 19:01:57 / cg"
!
-selectiomHolder:something
- "set the 'selectiomHolder' value holder (automatically generated)"
-
- selectiomHolder := something.
+selectionHolder:something
+ selectionHolder := something.
+
+ "Created: / 23-09-2011 / 19:02:06 / cg"
! !
!TestRunner2::ResultList methodsFor:'change & update'!
@@ -2256,11 +2312,11 @@
!TestRunner2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.27 2011-08-21 16:06:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.28 2011-09-23 17:18:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.27 2011-08-21 16:06:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.28 2011-09-23 17:18:27 cg Exp $'
!
version_SVN