[squeak-dev] The Trunk: EToys-mt.351.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 22 13:25:49 UTC 2019
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.351.mcz
==================== Summary ====================
Name: EToys-mt.351
Author: mt
Time: 22 August 2019, 3:25:41.452931 pm
UUID: 9f30c9f6-6576-124f-a0d9-a71d90f238a3
Ancestors: EToys-mt.350
Complements Morphic-mt.1506 including cellInset-to-cellGap conversion.
=============== Diff against EToys-mt.350 ===============
Item was changed:
----- Method: EventRecordingSpace>>initialize (in category 'initialization') -----
initialize
"Initialize the receiver to be a complete mentoring space"
super initialize.
eventRecorder := MentoringEventRecorder new.
eventRecorder recordingSpace: self.
self beSticky.
self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #shrinkWrap.
self extent: 1 at 1.
self borderWidth: 2; borderColor: Color gray.
self useRoundedCorners.
showingSoundPanel := false.
(contentArea := Worldlet new)
setNameTo: 'tutorial';
color: Color white;
setProperty: #automaticPhraseExpansion toValue: true;
beSticky.
self addMorphBack: contentArea.
controlsPanel := AlignmentMorph newRow.
controlsPanel hResizing: #spaceFill.
+ controlsPanel listCentering: #center.
- controlsPanel listCentering: #center.
controlsPanel listSpacing: #equal.
controlsPanel cellInset: 4.
controlsPanel minHeight: 32.
self addMorphBack: controlsPanel.
soundPanel := AlignmentMorph newRow.
soundPanel hResizing: #spaceFill.
+ soundPanel listCentering: #center.
- soundPanel listCentering: #center.
soundPanel listSpacing: #equal.
soundPanel cellInset: 4.
soundPanel minHeight: 32.
soundPanel color: (Color r: 1.0 g: 0.839 b: 0.645).
self makeStatusButtons.
state := #readyToRecord.
self populateControlsPanel.
"initializeFlaps will be called later, after opening in world"
!
Item was changed:
----- Method: TimesRepeatMorph>>initialize (in category 'initialization') -----
initialize
"Fully initialize the receiver."
| dummyColumn timesRow timesRepeatColumn repeatRow separator repeatLabel placeHolder doLabel ephemerum |
submorphs := #().
bounds := 0 at 0 corner: 50 at 40.
self color: Color orange muchLighter.
self layoutPolicy: TableLayout new.
self "border, and layout properties in alphabetical order..."
borderColor: self color darker;
borderWidth: 2;
- cellSpacing: #none;
cellPositioning: #topLeft;
hResizing: #spaceFill;
layoutInset: 0;
listDirection: #leftToRight;
rubberBandCells: true;
vResizing: #shrinkWrap;
wrapCentering: #none.
self setNameTo: 'Repeat Complex'.
dummyColumn := AlignmentMorph newColumn.
dummyColumn cellInset: 0; layoutInset: 0.
dummyColumn width: 0.
dummyColumn cellPositioning: #leftCenter.
dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill.
self addMorph: dummyColumn.
timesRepeatColumn := AlignmentMorph newColumn.
timesRepeatColumn setNameTo: 'Times Repeat'.
timesRepeatColumn cellPositioning: #topLeft.
timesRepeatColumn hResizing: #spaceFill.
timesRepeatColumn vResizing: #shrinkWrap.
timesRepeatColumn layoutInset: 0.
timesRepeatColumn borderWidth: 0.
timesRepeatColumn color: Color orange muchLighter.
timesRow := AlignmentMorph newRow color: color; layoutInset: 0.
timesRow minCellSize: (2 at 16).
timesRow setNameTo: 'Times'.
repeatLabel := StringMorph contents: 'Repeat' translated font: Preferences standardEToysFont.
timesRow addMorphBack: repeatLabel.
timesRow vResizing: #shrinkWrap.
timesRow addMorphBack: (Morph new color: color; extent: 6 at 5). "spacer"
numberOfTimesToRepeatPart := TilePadMorph new setType: #Number.
numberOfTimesToRepeatPart hResizing: #shrinkWrap; color: Color transparent.
numberOfTimesToRepeatPart addMorphBack: (TileMorph new addArrows; setLiteral: 2).
numberOfTimesToRepeatPart borderWidth: 0; layoutInset: (1 at 0).
timesRow addMorphBack: numberOfTimesToRepeatPart.
timesRow addMorphBack: (StringMorph contents: ' times ' font: Preferences standardEToysFont).
timesRow addMorphBack: AlignmentMorph newVariableTransparentSpacer.
timesRepeatColumn addMorphBack: timesRow.
separator := AlignmentMorph newRow color: Color transparent.
separator vResizing: #rigid; hResizing: #spaceFill; height: 2.
separator borderWidth: 0.
timesRepeatColumn addMorphBack: separator.
repeatRow := AlignmentMorph newRow color: color; layoutInset: 0.
repeatRow minCellSize: (2 at 16).
repeatRow setNameTo: 'Repeat '.
placeHolder := Morph new.
placeHolder beTransparent; extent: (8 at 0).
repeatRow addMorphBack: placeHolder.
repeatRow vResizing: #shrinkWrap.
doLabel := StringMorph contents: 'Do' font: Preferences standardEToysFont.
repeatRow addMorphBack: doLabel.
repeatRow addMorphBack: (Morph new color: color; extent: 5 at 5). "spacer"
repeatRow addMorphBack: (whatToRepeatPart := ScriptEditorMorph new borderWidth: 0; layoutInset: 0).
whatToRepeatPart hResizing: #spaceFill.
whatToRepeatPart vResizing: #shrinkWrap.
whatToRepeatPart color: Color transparent.
whatToRepeatPart setNameTo: 'Script to repeat'.
whatToRepeatPart addMorphBack: (ephemerum := Morph new height: 14) beTransparent.
timesRepeatColumn addMorphBack: repeatRow.
self addMorphBack: timesRepeatColumn.
self bounds: self fullBounds.
ephemerum delete!
Item was changed:
----- Method: TimesRepeatTile>>initialize (in category 'initialization') -----
initialize
"Fully initialize the receiver."
| dummyColumn timesRepeatColumn repeatRow separator placeHolder doLabel ephemerum |
submorphs := #().
bounds := 0 at 0 corner: 50 at 40.
self color: Color orange muchLighter.
self layoutPolicy: TableLayout new.
self "border, and layout properties in alphabetical order..."
borderColor: self color darker;
+ borderWidth: 2;
- borderWidth: 2;
- cellSpacing: #none;
cellPositioning: #topLeft;
hResizing: #spaceFill;
layoutInset: 0;
listDirection: #leftToRight;
rubberBandCells: true;
vResizing: #shrinkWrap;
wrapCentering: #none.
self setNameTo: 'Repeat Complex'.
dummyColumn := AlignmentMorph newColumn.
dummyColumn cellInset: 0; layoutInset: 0.
dummyColumn width: 0.
dummyColumn cellPositioning: #leftCenter.
dummyColumn hResizing: #shrinkWrap; vResizing: #spaceFill.
self addMorph: dummyColumn.
timesRepeatColumn := AlignmentMorph newColumn.
timesRepeatColumn setNameTo: 'Times Repeat'.
timesRepeatColumn cellPositioning: #topLeft.
timesRepeatColumn hResizing: #spaceFill.
timesRepeatColumn vResizing: #shrinkWrap.
timesRepeatColumn layoutInset: 0.
timesRepeatColumn borderWidth: 0.
timesRepeatColumn color: Color orange muchLighter.
timesRow := TimesRow newRow color: color; layoutInset: 0.
timesRepeatColumn addMorphBack: timesRow.
separator := AlignmentMorph newRow color: Color transparent.
separator vResizing: #rigid; hResizing: #spaceFill; height: 2.
separator borderWidth: 0.
timesRepeatColumn addMorphBack: separator.
repeatRow := AlignmentMorph newRow color: color; layoutInset: 0.
repeatRow minCellSize: (2 at 16).
repeatRow setNameTo: 'Repeat '.
placeHolder := Morph new.
placeHolder beTransparent; extent: (8 at 0).
repeatRow addMorphBack: placeHolder.
repeatRow vResizing: #shrinkWrap.
doLabel := StringMorph contents: 'Do' translated font: Preferences standardEToysFont.
repeatRow addMorphBack: doLabel.
repeatRow addMorphBack: (Morph new color: color; extent: 5 at 5). "spacer"
repeatRow addMorphBack: (whatToRepeatPart := ScriptEditorMorph new borderWidth: 0; layoutInset: 0).
whatToRepeatPart
hResizing: #spaceFill;
vResizing: #shrinkWrap;
color: (Color transparent);
height: (Preferences standardEToysFont height);
minHeight: (Preferences standardEToysFont height);
setNameTo: ('Script to repeat' translated);
addMorphBack: ((ephemerum := Morph new height: 14) beTransparent).
timesRepeatColumn addMorphBack: repeatRow.
self addMorphBack: timesRepeatColumn.
self bounds: self fullBounds.
ephemerum delete!
More information about the Squeak-dev
mailing list
|