Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.183.mcz
==================== Summary ====================
Name: ReleaseBuilder-mt.183
Author: mt
Time: 24 May 2018, 3:50:44.503431 pm
UUID: 8afd7acd-b4ec-4b21-9af1-1299f984419b
Ancestors: ReleaseBuilder-mt.182
Fixes a hick-up with existing morphic content in the CI process.
=============== Diff against ReleaseBuilder-mt.182 ===============
Item was changed:
----- Method: ReleaseBuilder class>>configureDesktop (in category 'scripts') -----
configureDesktop
"Open tools, multimedia content, etc."
self setDisplayExtent: 1024 @ 768.
self setProjectBackground: Color darkGray.
(UserInterfaceTheme named: 'Squeak') apply.
self deleteAllWindows.
+ self deleteAllOtherMorphs.
"Replace docking bar instance in case its code has changed."
Project current removeMainDockingBar.
TheWorldMainDockingBar updateInstances.!
Item was added:
+ ----- Method: ReleaseBuilder class>>deleteAllOtherMorphs (in category 'scripts - support') -----
+ deleteAllOtherMorphs
+
+ Project current world removeAllMorphs.!
Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.182.mcz
==================== Summary ====================
Name: ReleaseBuilder-mt.182
Author: mt
Time: 24 May 2018, 2:54:23.027531 pm
UUID: 080cb7e5-da0c-434e-aca9-409804753150
Ancestors: ReleaseBuilder-mt.181
Changes the Trunk version to 5.2alpha.
=============== Diff against ReleaseBuilder-mt.181 ===============
Item was changed:
----- Method: ReleaseBuilder class>>initialize (in category 'class initialization') -----
initialize
QAndA ifNil: [self clearQAndA].
"We have to be after AutoStart so that Morphic is up and running."
Smalltalk addToStartUpList: ReleaseBuilder after: AutoStart.
+ SystemVersion newVersion: 'Squeak5.2alpha'!
- SystemVersion newVersion: 'Squeak6.0alpha'!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1441.mcz
==================== Summary ====================
Name: Morphic-mt.1441
Author: mt
Time: 24 May 2018, 2:48:19.787531 pm
UUID: 16a6682f-5da5-407a-ac82-981ffdd5d6ac
Ancestors: Morphic-mt.1440
Harmonize list widgets and tree widgets a little bit more. That is, let trees trigger the yellow-button menu on [escape] like lists do.
=============== Diff against Morphic-mt.1440 ===============
Item was changed:
----- Method: SimpleHierarchicalListMorph>>specialKeyPressed: (in category 'event handling') -----
specialKeyPressed: asciiValue
+ (self arrowKey: asciiValue)
+ ifTrue: [^ true].
+
+ asciiValue = 27 "escape"
+ ifTrue: [
+ ActiveEvent shiftPressed
+ ifTrue: [ActiveWorld putUpWorldMenuFromEscapeKey]
+ ifFalse: [self yellowButtonActivity: false].
+ ^ true].
+
+ ^ false!
- ^ self arrowKey: asciiValue!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1440.mcz
==================== Summary ====================
Name: Morphic-mt.1440
Author: mt
Time: 24 May 2018, 2:46:02.546531 pm
UUID: 650e7ddf-96ee-40db-861b-40e6e6b3b49a
Ancestors: Morphic-mt.1439
Fixes some hick-ups in transform morphs that have no submorphs (yet).
=============== Diff against Morphic-mt.1439 ===============
Item was changed:
----- Method: TransformMorph>>numberOfItemsPotentiallyInView (in category 'geometry') -----
numberOfItemsPotentiallyInView
"Answer the number of items that could potentially be viewed in full,
computed as my visible height divided by the average height of my submorphs.
Ignore visibility of submorphs."
+ ^ self localSubmorphBounds
+ ifNil: [0]
+ ifNotNil: [:lsBounds |
+ self innerBounds height // (lsBounds height / submorphs size)]!
- ^self innerBounds height // (self localSubmorphBounds height / submorphs size)!
Item was changed:
----- Method: TransformMorph>>numberOfItemsPotentiallyInViewWith: (in category 'geometry') -----
numberOfItemsPotentiallyInViewWith: submorphCount
"Answer the number of items that could potentially be viewed in full,
computed as my visible height divided by the average height of my submorphs.
Ignore visibility of submorphs."
+ ^ self localSubmorphBounds
+ ifNil: [0]
+ ifNotNil: [:lsBounds |
+ self innerBounds height // (lsBounds height / submorphCount)]!
- ^self innerBounds height // (self localSubmorphBounds height / submorphCount)!