[Pkg] The Trunk: ToolsTests-eem.78.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Nov 17 02:08:40 UTC 2016
Eliot Miranda uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-eem.78.mcz
==================== Summary ====================
Name: ToolsTests-eem.78
Author: eem
Time: 16 November 2016, 6:08:18.241467 pm
UUID: c2486b83-e269-4b69-bd02-9dab4bc49b24
Ancestors: ToolsTests-pre.77
Fix the BrowseTest in the presence of the openToolsAttachedToMouseCursor preference.
=============== Diff against ToolsTests-pre.77 ===============
Item was changed:
----- Method: BrowseTest>>testBrowseClass (in category 'testing') -----
testBrowseClass
"self debug: #testBrowseClass"
| browsersBefore browsersAfter opened |
self ensureMorphic.
browsersBefore := self currentBrowsers.
+ self withImmediatelyOpeningWindowsDo: [1 class browse].
- 1 class browse.
browsersAfter := self currentBrowsers.
self assert: (browsersAfter size = (browsersBefore size + 1)).
opened := browsersAfter removeAll: browsersBefore; yourself.
self assert: (opened size = 1).
opened := opened asArray first.
self assert: (opened model selectedClass == SmallInteger).
opened delete
!
Item was changed:
----- Method: BrowseTest>>testBrowseHierarchyClass (in category 'testing') -----
testBrowseHierarchyClass
"self debug: #testBrowseHierarchyClass"
| browsersBefore browsersAfter opened |
self ensureMorphic.
browsersBefore := self currentHierarchyBrowsers.
+ self withImmediatelyOpeningWindowsDo: [1 class browseHierarchy].
- 1 class browseHierarchy.
browsersAfter := self currentHierarchyBrowsers.
self assert: (browsersAfter size = (browsersBefore size + 1)).
opened := browsersAfter removeAll: browsersBefore; yourself.
self assert: (opened size = 1).
opened := opened asArray first.
self assert: (opened model selectedClass == SmallInteger).
opened delete
!
Item was changed:
----- Method: BrowseTest>>testBrowseHierarchyInstance (in category 'testing') -----
testBrowseHierarchyInstance
"self debug: #testBrowseHierarchyInstance"
| browsersBefore browsersAfter opened |
self ensureMorphic.
browsersBefore := self currentHierarchyBrowsers.
+ self withImmediatelyOpeningWindowsDo: [1 browseHierarchy].
- 1 browseHierarchy.
browsersAfter := self currentHierarchyBrowsers.
self assert: (browsersAfter size = (browsersBefore size + 1)).
opened := browsersAfter removeAll: browsersBefore; yourself.
self assert: (opened size = 1).
opened := opened asArray first.
self assert: (opened model selectedClass == SmallInteger).
opened delete
!
Item was changed:
----- Method: BrowseTest>>testBrowseHierarchyMataclass (in category 'testing') -----
testBrowseHierarchyMataclass
"self debug: #testBrowseHierarchyMataclass"
| browsersBefore browsersAfter opened |
self ensureMorphic.
browsersBefore := self currentHierarchyBrowsers.
+ self withImmediatelyOpeningWindowsDo: [1 class class browseHierarchy].
- 1 class class browseHierarchy.
browsersAfter := self currentHierarchyBrowsers.
self assert: (browsersAfter size = (browsersBefore size + 1)).
opened := browsersAfter removeAll: browsersBefore; yourself.
self assert: (opened size = 1).
opened := opened asArray first.
self assert: (opened model selectedClass == Metaclass).
opened delete
!
Item was changed:
----- Method: BrowseTest>>testBrowseInstance (in category 'testing') -----
testBrowseInstance
"self debug: #testBrowseInstance"
| browsersBefore browsersAfter opened |
self ensureMorphic.
browsersBefore := self currentBrowsers.
+ self withImmediatelyOpeningWindowsDo: [1 browse].
- 1 browse.
browsersAfter := self currentBrowsers.
self assert: (browsersAfter size = (browsersBefore size + 1)).
opened := browsersAfter removeAll: browsersBefore; yourself.
self assert: (opened size = 1).
opened := opened asArray first.
self assert: (opened model selectedClass == SmallInteger).
opened delete
!
Item was changed:
----- Method: BrowseTest>>testBrowseMetaclass (in category 'testing') -----
testBrowseMetaclass
"self debug: #testBrowseMetaclass"
| browsersBefore browsersAfter opened |
self ensureMorphic.
browsersBefore := self currentBrowsers.
+ self withImmediatelyOpeningWindowsDo: [1 class class browse].
- 1 class class browse.
browsersAfter := self currentBrowsers.
self assert: (browsersAfter size = (browsersBefore size + 1)).
opened := browsersAfter removeAll: browsersBefore; yourself.
self assert: (opened size = 1).
opened := opened asArray first.
self assert: (opened model selectedClass == SmallInteger).
opened delete
!
Item was added:
+ ----- Method: BrowseTest>>withImmediatelyOpeningWindowsDo: (in category 'private') -----
+ withImmediatelyOpeningWindowsDo: aBlock
+ "Turn off any preferences that defer to the user to open a window."
+ | openToolsAttachedToMouseCursor |
+ (UIManager default respondsTo: #openToolsAttachedToMouseCursor:) ifFalse:
+ [^aBlock value].
+
+ openToolsAttachedToMouseCursor := UIManager default openToolsAttachedToMouseCursor.
+ UIManager default openToolsAttachedToMouseCursor: false.
+ ^aBlock ensure:
+ [UIManager default openToolsAttachedToMouseCursor: openToolsAttachedToMouseCursor]!
More information about the Packages
mailing list