class: Tools::NewSystemBrowser
added:
#hasTestCaseMethodsSelected
#testRunnerVisibleHolder
changed:
#hasTestCaseClassesSelectedHolder
#methodListBrowserSpec
#multipleMethodBrowserSpec
embedded test runner's visibility now controlled
by a valueHolder
--- a/Tools__NewSystemBrowser.st Fri Feb 27 01:02:29 2015 +0100
+++ b/Tools__NewSystemBrowser.st Fri Feb 27 01:03:49 2015 +0100
@@ -1735,17 +1735,17 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: methodListBrowserSpec
- window:
+ window:
(WindowSpec
label: 'MethodListBrowser'
name: 'MethodListBrowser'
min: (Point 0 0)
bounds: (Rectangle 0 0 462 300)
)
- component:
+ component:
(SpecCollection
collection: (
(SubCanvasSpec
@@ -1764,81 +1764,132 @@
showHandle: false
snapMode: both
handlePosition: left
- component:
+ component:
(SpecCollection
collection: (
- (SubCanvasSpec
- name: 'MethodList'
- majorKey: MethodList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- callBack: methodDoubleClicked
- )
- (SubChannelInfoSpec
- subAspect: environmentHolder
- aspect: environmentHolder
- )
-
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
- (SubChannelInfoSpec
- subAspect: inGeneratorHolder
- aspect: selectorListGenerator
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: methodListPopUpMenu
- )
- (SubChannelInfoSpec
- subAspect: packageFilter
- aspect: packageFilter
- )
-
- (SubChannelInfoSpec
- subAspect: selectedMethods
- aspect: selectedMethods
- callBack: methodsSelectionChanged
- )
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeConditionHolder
- )
-
- (SubChannelInfoSpec
- subAspect: showCoverageInformation
- aspect: showCoverageInformation
- )
- (SubChannelInfoSpec
- subAspect: showMethodComplexity
- aspect: showMethodComplexity
- )
- (SubChannelInfoSpec
- subAspect: showSyntheticMethods
- aspect: showSyntheticMethods
- )
-
- (SubChannelInfoSpec
- subAspect: showMethodInheritance
- aspect: showMethodInheritance
- )
- (SubChannelInfoSpec
- subAspect: showMethodTypeIcon
- aspect: showMethodTypeIcon
- )
-
- (SubChannelInfoSpec
- subAspect: sortBy
- aspect: sortBy
- )
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ horizontalLayout: fit
+ verticalLayout: bottomFit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (SubCanvasSpec
+ name: 'MethodList'
+ majorKey: MethodList
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: doubleClickChannel
+ callBack: methodDoubleClicked
+ )
+ (SubChannelInfoSpec
+ subAspect: environmentHolder
+ aspect: environmentHolder
+ )
+
+ (SubChannelInfoSpec
+ subAspect: immediateUpdate
+ aspect: immediateUpdate
+ )
+ (SubChannelInfoSpec
+ subAspect: inGeneratorHolder
+ aspect: selectorListGenerator
+ )
+
+ (SubChannelInfoSpec
+ subAspect: menuHolder
+ aspect: methodListPopUpMenu
+ )
+ (SubChannelInfoSpec
+ subAspect: packageFilter
+ aspect: packageFilter
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectedMethods
+ aspect: selectedMethods
+ callBack: methodsSelectionChanged
+ )
+ (SubChannelInfoSpec
+ subAspect: selectionChangeCondition
+ aspect: selectionChangeConditionHolder
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showCoverageInformation
+ aspect: showCoverageInformation
+ )
+ (SubChannelInfoSpec
+ subAspect: showMethodComplexity
+ aspect: showMethodComplexity
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showSyntheticMethods
+ aspect: showSyntheticMethods
+ )
+ (SubChannelInfoSpec
+ subAspect: showMethodInheritance
+ aspect: showMethodInheritance
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showMethodTypeIcon
+ aspect: showMethodTypeIcon
+ )
+ (SubChannelInfoSpec
+ subAspect: sortBy
+ aspect: sortBy
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ extent: (Point 462 93)
+ )
+ (SubCanvasSpec
+ name: 'TestRunnerEmbedded'
+ initiallyInvisible: true
+ visibilityChannel: testRunnerVisibleHolder
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: #'Tools::TestRunnerEmbedded'
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: infoHolder
+ aspect: infoLabelHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: methodGeneratorHolder
+ aspect: selectorListGenerator
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectedClassesHolder
+ aspect: selectedClasses
+ )
+ (SubChannelInfoSpec
+ subAspect: selectedMethodsHolder
+ aspect: selectedMethods
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectedProtocolsHolder
+ aspect: selectedProtocols
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ extent: (Point 462 50)
+ )
+ )
+
)
- createNewApplication: true
- createNewBuilder: true
)
(SubCanvasSpec
name: 'CodePane'
@@ -1848,17 +1899,15 @@
createNewBuilder: false
)
)
-
+
)
- handles: (Any 0.3 1.0)
+ handles: (Any 0.5 1.0)
postBuildCallback: postBuildTabContentView:
)
)
-
+
)
)
-
- "Modified: / 25-03-2014 / 18:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
multipleCategoryBrowserSpec
@@ -2579,17 +2628,17 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: multipleMethodBrowserSpec
- window:
+ window:
(WindowSpec
label: 'MethodBrowser'
name: 'MethodBrowser'
min: (Point 0 0)
bounds: (Rectangle 0 0 462 300)
)
- component:
+ component:
(SpecCollection
collection: (
(SubCanvasSpec
@@ -2608,85 +2657,137 @@
showHandle: false
snapMode: both
handlePosition: left
- component:
+ component:
(SpecCollection
collection: (
- (SubCanvasSpec
- name: 'MethodList'
- majorKey: MethodList
- subAspectHolders:
- (Array
-
- (SubChannelInfoSpec
- subAspect: doubleClickChannel
- callBack: methodDoubleClicked
- )
- (SubChannelInfoSpec
- subAspect: environmentHolder
- aspect: environmentHolder
- )
-
- (SubChannelInfoSpec
- subAspect: immediateUpdate
- aspect: immediateUpdate
- )
- (SubChannelInfoSpec
- subAspect: inGeneratorHolder
- aspect: selectorListGenerator
- )
-
- (SubChannelInfoSpec
- subAspect: menuHolder
- aspect: selectorPopUpMenu
- )
- (SubChannelInfoSpec
- subAspect: packageFilter
- aspect: packageFilter
- )
-
- (SubChannelInfoSpec
- subAspect: selectedMethods
- aspect: selectedMethods
- callBack: methodsSelectionChanged
- )
- (SubChannelInfoSpec
- subAspect: selectionChangeCondition
- aspect: selectionChangeConditionHolder
- )
-
- (SubChannelInfoSpec
- subAspect: showCoverageInformation
- aspect: showCoverageInformation
- )
- (SubChannelInfoSpec
- subAspect: showMethodComplexity
- aspect: showMethodComplexity
- )
-
- (SubChannelInfoSpec
- subAspect: showMethodInheritance
- aspect: showMethodInheritance
- )
- (SubChannelInfoSpec
- subAspect: showMethodTypeIcon
- aspect: showMethodTypeIcon
- )
- (SubChannelInfoSpec
- subAspect: showSyntheticMethods
- aspect: showSyntheticMethods
- )
-
- (SubChannelInfoSpec
- subAspect: sortBy
- aspect: sortBy
- )
- (SubChannelInfoSpec
- subAspect: variableFilter
- aspect: variableFilter
- )
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ horizontalLayout: fit
+ verticalLayout: bottomFit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (SubCanvasSpec
+ name: 'MethodList'
+ majorKey: MethodList
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: doubleClickChannel
+ callBack: methodDoubleClicked
+ )
+ (SubChannelInfoSpec
+ subAspect: environmentHolder
+ aspect: environmentHolder
+ )
+
+ (SubChannelInfoSpec
+ subAspect: immediateUpdate
+ aspect: immediateUpdate
+ )
+ (SubChannelInfoSpec
+ subAspect: inGeneratorHolder
+ aspect: selectorListGenerator
+ )
+
+ (SubChannelInfoSpec
+ subAspect: menuHolder
+ aspect: selectorPopUpMenu
+ )
+ (SubChannelInfoSpec
+ subAspect: packageFilter
+ aspect: packageFilter
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectedMethods
+ aspect: selectedMethods
+ callBack: methodsSelectionChanged
+ )
+ (SubChannelInfoSpec
+ subAspect: selectionChangeCondition
+ aspect: selectionChangeConditionHolder
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showCoverageInformation
+ aspect: showCoverageInformation
+ )
+ (SubChannelInfoSpec
+ subAspect: showMethodComplexity
+ aspect: showMethodComplexity
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showMethodInheritance
+ aspect: showMethodInheritance
+ )
+ (SubChannelInfoSpec
+ subAspect: showMethodTypeIcon
+ aspect: showMethodTypeIcon
+ )
+
+ (SubChannelInfoSpec
+ subAspect: showSyntheticMethods
+ aspect: showSyntheticMethods
+ )
+ (SubChannelInfoSpec
+ subAspect: sortBy
+ aspect: sortBy
+ )
+
+ (SubChannelInfoSpec
+ subAspect: variableFilter
+ aspect: variableFilter
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ extent: (Point 462 93)
+ )
+ (SubCanvasSpec
+ name: 'TestRunnerEmbedded'
+ initiallyInvisible: true
+ visibilityChannel: testRunnerVisibleHolder
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ majorKey: #'Tools::TestRunnerEmbedded'
+ subAspectHolders:
+ (Array
+
+ (SubChannelInfoSpec
+ subAspect: infoHolder
+ aspect: infoLabelHolder
+ )
+ (SubChannelInfoSpec
+ subAspect: methodGeneratorHolder
+ aspect: selectorListGenerator
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectedClassesHolder
+ aspect: selectedClasses
+ )
+ (SubChannelInfoSpec
+ subAspect: selectedMethodsHolder
+ aspect: selectedMethods
+ )
+
+ (SubChannelInfoSpec
+ subAspect: selectedProtocolsHolder
+ aspect: selectedProtocols
+ )
+ )
+ createNewApplication: true
+ createNewBuilder: true
+ extent: (Point 462 50)
+ )
+ )
+
)
- createNewApplication: true
- createNewBuilder: true
)
(SubCanvasSpec
name: 'CodePane'
@@ -2696,17 +2797,15 @@
createNewBuilder: false
)
)
-
+
)
- handles: (Any 0.3 1.0)
+ handles: (Any 0.5 1.0)
postBuildCallback: postBuildTabContentView:
)
)
-
+
)
)
-
- "Modified: / 25-03-2014 / 18:02:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
multipleMethodWithInfoBrowserSpec
@@ -19955,6 +20054,10 @@
"Modified: / 08-03-2007 / 23:01:39 / cg"
!
+testRunnerVisibleHolder
+ ^ self hasTestCaseClassesSelectedHolder
+!
+
variablesMenuVisible
|holder|
@@ -22967,7 +23070,19 @@
!
hasTestCaseClassesSelectedHolder
- ^ [ self hasTestCaseClassesSelected ]
+ ^ BlockValue
+ with:[:classes :methods |
+ self hasTestCaseClassesSelected
+ or:[ self hasTestCaseMethodsSelected ].
+ ]
+ argument:self selectedClasses
+ argument:self selectedMethods
+
+ "/ ^ [ self hasTestCaseClassesSelected ]
+!
+
+hasTestCaseMethodsSelected
+ ^ self selectedMethodsValue contains:[:mthd | mthd mclass isTestCaseLike ].
!
hasUnassignedExtensionMethodSelected
@@ -62134,11 +62249,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2199 2015-02-26 09:58:40 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2200 2015-02-27 00:03:49 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2199 2015-02-26 09:58:40 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2200 2015-02-27 00:03:49 cg Exp $'
!
version_HG
@@ -62147,7 +62262,7 @@
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.2199 2015-02-26 09:58:40 stefan Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.2200 2015-02-27 00:03:49 cg Exp $'
! !