Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.1061.mcz
==================== Summary ====================
Name: System-cmm.1061
Author: cmm
Time: 4 April 2019, 6:30:34.295865 pm
UUID: d55f8c82-4dea-4d11-be0c-ff63c61b7e04
Ancestors: System-eem.1058
Metacello and GitInfrastructure tools are currently the best way to load projects hosted by github.com. Promote installation of these tools to the Tools menu.
While in there, make a couple of improvements to the Do menu.
=============== Diff against System-eem.1058 ===============
Item was changed:
----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') -----
initializeCommonRequestStrings
"Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu."
CommonRequestStrings := StringHolder new contents:
+ 'Utilities emergencyCollapse.
- 'Installer ensureRecentMetacello.
- Installer installGitInfrastructure.
- -
- Utilities emergencyCollapse.
Utilities closeAllDebuggers.
-
+ MCFileBasedRepository flushAllCaches
+ -
Sensor keyboard.
ParagraphEditor abandonChangeText.
Cursor normal show.
-
CommandHistory resetAllHistory.
Project allInstancesDo: [:p | p displayDepth: 16].
ScriptingSystem inspectFormDictionary.
Form fromUser bitEdit.
Display border: (0@0 extent: 640@480) width: 2.
-
Undeclared inspect.
Undeclared removeUnreferencedKeys; inspect.
Transcript clear.
Utilities grabScreenAndSaveOnDisk.
FrameRateMorph new openInHand.
-
Utilities reconstructTextWindowsFromFileNamed: ''TW''.
Utilities storeTextWindowContentsToFileNamed: ''TW''.
ChangeSorter removeEmptyUnnamedChangeSets.
ChangeSorter reorderChangeSets.
-
ActiveWorld installVectorVocabulary.
+ ActiveWorld abandonVocabularyPreference.'
- ActiveWorld abandonVocabularyPreference.
- Smalltalk saveAsNewVersion.'
"Utilities initializeCommonRequestStrings"!
Item was changed:
+ (PackageInfo named: 'System') postscript: 'Utilities initializeCommonRequestStrings'!
- (PackageInfo named: 'System') postscript: '"Update user interface themes."
- UserInterfaceTheme cleanUpAndReset.'!
Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.1060.mcz
==================== Summary ====================
Name: System-cmm.1060
Author: cmm
Time: 4 April 2019, 6:02:52.466778 pm
UUID: 61645132-b95b-43f7-9a75-1567ae167599
Ancestors: System-eem.1058
Metacello and GitInfrastructure tools are currently the best way to load projects hosted by github.com. Promote installation of these tools to the Tools menu.
=============== Diff against System-eem.1058 ===============
Item was changed:
----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') -----
initializeCommonRequestStrings
"Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu."
CommonRequestStrings := StringHolder new contents:
+ 'Utilities emergencyCollapse.
- 'Installer ensureRecentMetacello.
- Installer installGitInfrastructure.
- -
- Utilities emergencyCollapse.
Utilities closeAllDebuggers.
-
Sensor keyboard.
ParagraphEditor abandonChangeText.
Cursor normal show.
-
CommandHistory resetAllHistory.
Project allInstancesDo: [:p | p displayDepth: 16].
ScriptingSystem inspectFormDictionary.
Form fromUser bitEdit.
Display border: (0@0 extent: 640@480) width: 2.
-
Undeclared inspect.
Undeclared removeUnreferencedKeys; inspect.
Transcript clear.
Utilities grabScreenAndSaveOnDisk.
FrameRateMorph new openInHand.
-
Utilities reconstructTextWindowsFromFileNamed: ''TW''.
Utilities storeTextWindowContentsToFileNamed: ''TW''.
ChangeSorter removeEmptyUnnamedChangeSets.
ChangeSorter reorderChangeSets.
-
ActiveWorld installVectorVocabulary.
+ ActiveWorld abandonVocabularyPreference.'
- ActiveWorld abandonVocabularyPreference.
- Smalltalk saveAsNewVersion.'
"Utilities initializeCommonRequestStrings"!
Item was changed:
+ (PackageInfo named: 'System') postscript: 'Utilities initializeCommonRequestStrings'!
- (PackageInfo named: 'System') postscript: '"Update user interface themes."
- UserInterfaceTheme cleanUpAndReset.'!
Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-LB.1465.mcz
==================== Summary ====================
Name: Morphic-LB.1465
Author: LB
Time: 21 March 2019, 10:29:53.207601 am
UUID: 771444aa-6f73-e64a-8111-6af3e69e9525
Ancestors: Morphic-eem.1464
SystemWindow#replacePane:with: had an unexpected side effect changing the color of the pane put in place to transparent. This limited it's use as it is unwanted.
=============== Diff against Morphic-eem.1464 ===============
Item was changed:
----- Method: SystemWindow>>replacePane:with: (in category 'panes') -----
replacePane: oldPane with: newPane
"Make newPane exactly occupy the position and extent of oldPane"
| aLayoutFrame hadDep |
hadDep := model dependents includes: oldPane.
oldPane owner replaceSubmorph: oldPane by: newPane.
newPane
position: oldPane position;
extent: oldPane extent.
aLayoutFrame := oldPane layoutFrame.
paneMorphs := paneMorphs collect:
[:each |
each == oldPane ifTrue: [newPane] ifFalse: [each]].
aLayoutFrame ifNotNil: [newPane layoutFrame: aLayoutFrame].
- newPane color: Color transparent.
hadDep ifTrue: [model removeDependent: oldPane. model addDependent: newPane].
self changed
!
Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.1483.mcz
==================== Summary ====================
Name: Morphic-cmm.1483
Author: cmm
Time: 4 April 2019, 4:58:11.118673 pm
UUID: 207cfe08-49dd-43a1-ba28-00dca6128fc0
Ancestors: Morphic-kfr.1482, Morphic-LB.1465
- Guard from image lockup when a list filtering event is processed prior to checking for #balloonText. Suspect PluggableListMorph>>#hoverRow: is the culprit.
- Merge fix from Morphic-LB.1465.
=============== Diff against Morphic-kfr.1482 ===============
Item was changed:
----- Method: PluggableListMorph>>modelIndexFor: (in category 'selection') -----
modelIndexFor: selectionIndex
"The model does not know anything about the receiver's filtering, so if I am filtered, we must determine the correct index by scanning the full list in the model."
^ (selectionIndex > 0 and: [ self hasFilter ])
ifTrue:
+ [ selectionIndex > list size
+ ifTrue: [ 0 ]
+ ifFalse: [ self getFullList indexOf: (self getListItem: selectionIndex) ] ]
- [ list
- ifEmpty: [ 0 ]
- ifNotEmpty: [ self getFullList indexOf: (self getListItem: selectionIndex) ] ]
ifFalse: [ selectionIndex ]!
Item was changed:
----- Method: SystemWindow>>replacePane:with: (in category 'panes') -----
replacePane: oldPane with: newPane
"Make newPane exactly occupy the position and extent of oldPane"
| aLayoutFrame hadDep |
hadDep := model dependents includes: oldPane.
oldPane owner replaceSubmorph: oldPane by: newPane.
newPane
position: oldPane position;
extent: oldPane extent.
aLayoutFrame := oldPane layoutFrame.
paneMorphs := paneMorphs collect:
[:each |
each == oldPane ifTrue: [newPane] ifFalse: [each]].
aLayoutFrame ifNotNil: [newPane layoutFrame: aLayoutFrame].
- newPane color: Color transparent.
hadDep ifTrue: [model removeDependent: oldPane. model addDependent: newPane].
self changed
!