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

commits at source.squeak.org commits at source.squeak.org
Wed Feb 19 16:12:17 UTC 2020


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.
  !



More information about the Squeak-dev mailing list