[squeak-dev] The Trunk: Morphic-mt.1746.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Apr 13 13:54:30 UTC 2021
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1746.mcz
==================== Summary ====================
Name: Morphic-mt.1746
Author: mt
Time: 13 April 2021, 3:54:24.673381 pm
UUID: 5d6b1c65-025e-d44a-98f0-d73358bb9a0e
Ancestors: Morphic-mt.1745, Morphic-ct.1531, Morphic-ct.1539, Morphic-ct.1556
Merges bugfixes and QoL enhancements from Morphic-ct.1531, Morphic-ct.1539, Morphic-ct.1556
=============== Diff against Morphic-mt.1745 ===============
Item was changed:
----- Method: MorphicProject>>canApplyUserInterfaceTheme (in category 'updating') -----
canApplyUserInterfaceTheme
+ ^ world notNil!
- ^ true!
Item was changed:
----- Method: MorphicProject>>previewImageForm (in category 'display') -----
previewImageForm
+ ^ self world imageForm scaledToSize: self viewSize!
- ^ self world imageForm!
Item was added:
+ ----- Method: NewColorPickerMorph class>>on:colorSelector: (in category 'create') -----
+ on: objectToHaveItsColorSet colorSelector: colorSymbol
+ ^ self
+ on: objectToHaveItsColorSet
+ getColorSelector: colorSymbol
+ setColorSelector: colorSymbol asMutator!
Item was added:
+ ----- Method: NewColorPickerMorph class>>on:getColorSelector:setColorSelector: (in category 'create') -----
+ on: objectToHaveItsColorSet getColorSelector: colorGetterSymbol setColorSelector: colorSetterSymbol
+ ^ self
+ on: objectToHaveItsColorSet
+ originalColor: (colorGetterSymbol value: objectToHaveItsColorSet)
+ setColorSelector: colorSetterSymbol!
Item was changed:
----- Method: ProjectViewMorph class>>newProjectViewInAWindowFor: (in category 'project window creation') -----
newProjectViewInAWindowFor: aProject
"Return an instance of me on a new Morphic project (in a SystemWindow)."
| window proj |
proj := self on: aProject.
window := (SystemWindow labelled: aProject name) model: aProject.
+ window extent: proj extent.
window
addMorph: proj
frame: (0 at 0 corner: 1.0 at 1.0).
proj borderWidth: 0.
^ window
!
Item was changed:
----- Method: ProjectViewMorph class>>openOn: (in category 'instance creation') -----
openOn: aProject
"Open a ProjectViewMorph for the project in question"
+ ProjectViewOpenNotification signal ifFalse: [^ self].
+
+ (Preferences projectViewsInWindows
+ ifTrue: [ (self newProjectViewInAWindowFor: aProject) ]
+ ifFalse: [ (self on: aProject) ])
+ openAsTool.!
- ProjectViewOpenNotification signal ifTrue: [
- Preferences projectViewsInWindows ifTrue: [
- (self newProjectViewInAWindowFor: aProject) openInWorld
- ] ifFalse: [
- (self on: aProject) openInWorld "but where??"
- ].
- ].
- !
Item was added:
+ ----- Method: ProjectViewMorph>>initialExtent (in category 'geometry') -----
+ initialExtent
+
+ ^ 300 @ 200!
Item was changed:
----- Method: ProjectViewMorph>>initialize (in category 'initialization') -----
initialize
"Initialize the receiver."
super initialize.
+ self extent: self initialExtent * RealEstateAgent scaleFactor.
"currentBorderColor := Color gray."
self addProjectNameMorphFiller.
self enableDragNDrop: true.
self isOpaque: true.
!
Item was changed:
----- Method: ProjectViewMorph>>on: (in category 'events') -----
on: aProject
project := aProject.
self addProjectNameMorphFiller.
lastProjectThumbnail := nil.
+ project viewSize ifNil: [project viewSize: self extent].
project thumbnail: project previewImageForm.
+ self extent: project thumbnail extent.!
- project thumbnail
- ifNil: [self extent: 100 at 80] "more like screen dimensions?"
- ifNotNil: [self extent: project thumbnail extent].!
More information about the Squeak-dev
mailing list
|