hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:0552f9177ced
+:3153c8cd16ac
 AbstractTestRunner subclass:#TestRunner2
 	instanceVariableNames:'classCategoryOrPackageTabIndexHolder classCategoryList
 		packageList classList classListOutGeneratorHolder
 		classListInGeneratorHolder modeHolder detailsHolder
 		failureListHolder failureSelectionHolder errorListHolder
-		errorSelectionHolder lastPass resultHolder lastBrowser'
+		errorSelectionHolder lastPass resultHolder lastBrowser
+		selectedResultHolder'
 	classVariableNames:'History'
 	poolDictionaries:''
 	category:'SUnit-UI'
 !
 	poolDictionaries:''
 	privateIn:TestRunner2
 !
 ApplicationModel subclass:#ResultList
-	instanceVariableNames:'results resultsHolder selectiomHolder listHolder timestampFormat'
+	instanceVariableNames:'results resultsHolder selectiomHolder listHolder timestampFormat
+		selectionHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:TestRunner2
 !
 (Array
 (SubChannelInfoSpec
 subAspect: resultsHolder
 aspect: resultHolder
+)
+(SubChannelInfoSpec
+subAspect: selectionHolder
+aspect: selectedResultHolder
 )
 )
 createNewApplication: true
 createNewBuilder: true
 )
 )
 )
 )
-"Modified: / 19-03-2010 / 08:32:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 windowSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 ^
 #(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
 )
 )
 nil
 nil
 )
 "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'!
 startSUnitIcon
 failedColor
 ^ self class failedColor
 !
 failureTestSuite
 | testSuite |
 testSuite := TestSuite new.
-failureListHolder value do:
+failureListHolder value do:[:test|
-[:test|
+testSuite addTest: 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
 ^ self class passedColor
 !
 ! !
 !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'!
 debugError: test
 prjDef ifNil:[^self].
 self selectedPackages:
 (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'!
 classCategoryOrPackageTabIndexHolder
 resultHolder isNil ifTrue:[
 resultHolder := ValueHolder new.
 ].
 ^ resultHolder
+!
+selectedResultHolder
+selectedResultHolder isNil ifTrue:[
+selectedResultHolder := ValueHolder new.
+].
+^ selectedResultHolder
+"Created: / 23-09-2011 / 19:14:51 / cg"
 ! !
 !TestRunner2 methodsFor:'displaying'!
 displayColor: aColorValue
 ! !
 !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'!
 nameListEntryFor:aClass withNameSpace:useFullName
 collection: (
 (HierarchicalListViewSpec
 name: 'List'
 layout: (LayoutFrame 0 0 0 0 0 1 0 1)
 model: selectionHolder
+menu: resultListMenu
 hasHorizontalScrollBar: true
 hasVerticalScrollBar: true
 listModel: listHolder
 useIndex: false
 highlightMode: line
 )
 )
 )
 )
-"Modified: / 08-02-2010 / 10:08:09 / Jan Vrany <jan,vrany@fit.cvut.cz>"
 ! !
 !TestRunner2::ResultList class methodsFor:'plugIn spec'!
 aspectSelectors
 ^ #(
 #resultsHolder
 #selectionHolder
 ).
-"Modified: / 19-03-2010 / 08:32:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !TestRunner2::ResultList methodsFor:'actions'!
 debugTest:entryIndex
 ].
 "Created: / 19-03-2010 / 08:32:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
-selectiomHolder
+selectionHolder
-"return/create the 'selectiomHolder' value holder (automatically generated)"
+selectionHolder isNil ifTrue:[
+selectionHolder := ValueHolder new.
-selectiomHolder isNil ifTrue:[
+].
-selectiomHolder := ValueHolder new.
+^ selectionHolder
-].
-^ selectiomHolder
+"Created: / 23-09-2011 / 19:01:57 / cg"
 !
-selectiomHolder:something
+selectionHolder:something
-"set the 'selectiomHolder' value holder (automatically generated)"
+selectionHolder := something.
-selectiomHolder := something.
+"Created: / 23-09-2011 / 19:02:06 / cg"
 ! !
 !TestRunner2::ResultList methodsFor:'change & update'!
 update:aspect with:param from:sender
 ! !
 !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
 ^ '�Id: Tools__TestRunner2.st 7486 2009-10-26 22:06:24Z vranyj1 �'
 ! !

changeset 10718	3153c8cd16ac
parent 10645	f354e7884fc4
child 11500	6d4470524d8b
child 12123	4bde08cebd48