[squeak-dev] The Trunk: EToys-mt.378.mcz

Marcel Taeumel marcel.taeumel at hpi.de
Wed Feb 19 16:13:35 UTC 2020


Am 19.02.2020 17:12:28 schrieb commits at source.squeak.org <commits at source.squeak.org>:
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.
!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200219/35d64daf/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 47498 bytes
Desc: not available
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200219/35d64daf/attachment-0001.png>


More information about the Squeak-dev mailing list