Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.378.mcz==================== Summary ====================
Name: EToys-mt.378
Author: mt
Time: 19 February 2020, 5:12:07.693123 pm
UUID: 9670284b-a77e-5c4f-8607-cd3fc0080719
Ancestors: EToys-mt.377
Fixes layout for automatic tile creation when dropping something in the Test area. Enable pop-up arrows by default in Etoys.
=============== Diff against EToys-mt.377 ===============
Item was changed:
----- Method: PhraseTileMorph>>setOperator:type:rcvrType:argType: (in category 'initialization') -----
setOperator: opSymbol type: opType rcvrType: rcvrType argType: argType
"Set the operator, type, receiver type, and argument type for the phrase"
| aTileMorph |
resultType := opType.
opType ifNotNil: [self color: (ScriptingSystem colorForType: opType)].
self removeAllMorphs.
+ self addMorph: (TilePadMorph new
+ setType: rcvrType;
+ changeTableLayout;
+ hResizing: #shrinkWrap;
+ vResizing: #shrinkWrap;
+ yourself).
- self addMorph: (TilePadMorph new setType: rcvrType).
aTileMorph := TileMorph new adoptVocabulary: self currentVocabulary.
self addMorphBack: ((aTileMorph setOperator: opSymbol asString) typeColor: color).
opSymbol numArgs = 1 ifTrue:
[self addMorphBack: (TilePadMorph new setType: (argType ifNil: [#Object]))]!
Item was changed:
----- Method: ReleaseBuilderSqueakland class>>setPreferences (in category 'scripts') -----
setPreferences
super setPreferences.
[ "Reset all preferences to their default value but ensure that all control and alt keys stay duplicated."
Preferences cambridge.
Preferences allPreferences do: [:each |
each defaultValue: each preferenceValue].
Preferences
enable: #duplicateAllControlAndAltKeys.
] valueSupplyingAnswer: true.
Preferences
disable: #alternativeWindowBoxesLook;
enable: #magicHalos;
enable: #mouseOverHalos;
enable: #showAdvancedNavigatorButtons;
disable: #honorDesktopCmdKeys;
enable: #unlimitedPaintArea;
enable: #fastDragWindowForMorphic;
enable: #noviceMode;
disable: #generalizedYellowButtonMenu;
disable: #signProjectFiles;
enable: #alwaysShowHScrollBar;
enable: #alwaysShowVScrollBar.
"Rounded corners."
Morph preferredCornerRadius: 8.
PluggableButtonMorph roundedButtonCorners: true.
DialogWindow roundedDialogCorners: true.
SystemWindow roundedWindowCorners: true.
ScrollBar roundedScrollBarLook: true.
Cursor useBiggerCursors: true.
TrashCanMorph
slideDismissalsToTrash: true;
preserveTrash: true.
SugarNavigatorBar
showHideButton: false;
showSugarNavigator: true.
Preferences disable: #showAdvancedNavigatorButtons.
+ TileMorph usePopUpArrows: true.
"Ignore warnings."
Deprecation showDeprecationWarnings: false.
Preferences
disable: #warnIfChangesFileReadOnly;
disable: #warnIfNoChangesFile;
disable: #warnIfNoSourcesFile.
!
Item was changed:
----- Method: ScriptEditorMorph>>initialize (in category 'initialization') -----
initialize
"initialize the state of the receiver"
super initialize.
""
self listDirection: #topToBottom;
hResizing: #shrinkWrap;
vResizing: #shrinkWrap;
cellPositioning: #topLeft;
setProperty: #autoFitContents toValue: true;
+ minHeight: TileMorph defaultH;
+ layoutInset: 2.
- layoutInset: 2.
self useRoundedCornersInEtoys.
self borderColor: ScriptingSystem borderColor.
self setNameTo: 'Script Editor' translated.
firstTileRow := 1.
"index of first tile-carrying submorph"
self addNewRow.
showingMethodPane := false.
!
Locked
