[squeak-dev] The Trunk: EToys-ul.56.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 11 08:13:50 UTC 2010
Levente Uzonyi uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ul.56.mcz
==================== Summary ====================
Name: EToys-ul.56
Author: ul
Time: 11 January 2010, 8:15:20.763 am
UUID: 6c3bdf4a-f971-c242-be45-8fb38027a9b3
Ancestors: EToys-ar.55
- code critics
=============== Diff against EToys-ar.55 ===============
Item was changed:
----- Method: KedamaSequenceExecutionStub>>primGetHeadingAt:headingArray: (in category 'primitives') -----
primGetHeadingAt: i headingArray: headingArray
| heading |
<primitive: 'getScalarHeading' module:'KedamaPlugin'>
"^ KedamaPlugin doPrimitive: #getScalarHeading."
heading := headingArray at: i.
+ ^KedamaMorph radiansToDegrees: heading.
- ^ heading := KedamaMorph radiansToDegrees: heading.
!
Item was changed:
----- Method: AllPlayersTool>>initializeToStandAlone (in category 'initialization') -----
initializeToStandAlone
"Initialize the receiver"
super initializeToStandAlone.
self layoutPolicy: TableLayout new;
listDirection: #topToBottom;
hResizing: #spaceFill;
extent: 1 at 1;
vResizing: #spaceFill;
+ rubberBandCells: true.
- rubberBandCells: true;
- yourself.
self initializeFor: self currentWorld presenter!
Item was changed:
----- Method: EToyProjectHistoryMorph>>jumpToProject (in category 'as yet unclassified') -----
jumpToProject
| selection |
+ selection := (Project current buildJumpToMenu: MenuMorph new) startUp.
- selection := (Project buildJumpToMenu: MenuMorph new) startUp.
self closeMyFlapIfAny.
+ Project current jumpToSelection: selection
- Project jumpToSelection: selection
!
Item was changed:
----- Method: ScriptEditorMorph>>buttonRowForEditor (in category 'buttons') -----
buttonRowForEditor
"Answer a row of buttons that comprise the header at the top of the Scriptor"
| aRow aString buttonFont aStatusMorph aButton aColumn aTile |
buttonFont := Preferences standardButtonFont.
aRow := AlignmentMorph newRow color: Color transparent; layoutInset: 0.
aRow hResizing: #shrinkWrap.
aRow vResizing: #shrinkWrap.
self hasParameter ifFalse:
[aRow addMorphFront:
(SimpleButtonMorph new
label: '!!' font: Preferences standardEToysFont;
target: self;
color: Color yellow;
borderWidth: 0;
actWhen: #whilePressed;
actionSelector: #tryMe;
balloonTextSelector: #tryMe).
aRow addTransparentSpacerOfSize: 6 at 10].
self addDismissButtonTo: aRow.
aRow addTransparentSpacerOfSize: 6 at 1.
aColumn := AlignmentMorph newColumn beTransparent.
aColumn addTransparentSpacerOfSize: 0 at 4.
aButton := UpdatingThreePhaseButtonMorph checkBox.
aButton
target: self;
actionSelector: #toggleWhetherShowingTiles;
getSelector: #showingMethodPane.
aButton setBalloonText: 'toggle between showing tiles and showing textual code' translated.
aColumn addMorphBack: aButton.
aRow addMorphBack: aColumn.
aRow addTransparentSpacerOfSize: 6 at 10.
aString := playerScripted externalName.
aRow addMorphBack:
(aButton := SimpleButtonMorph new useSquareCorners label: aString font: buttonFont; target: self; setNameTo: 'title').
aButton actWhen: #buttonDown; actionSelector: #offerScriptorMenu.
aButton
on: #mouseEnter send: #menuButtonMouseEnter: to: aButton;
on: #mouseLeave send: #menuButtonMouseLeave: to: aButton.
aButton borderColor: (Color fromRgbTriplet: #(0.065 0.258 1.0)).
aButton color: ScriptingSystem uniformTileInteriorColor.
aButton balloonTextSelector: #offerScriptorMenu.
aRow addTransparentSpacerOfSize: 4 at 1.
aButton := (Preferences universalTiles ifTrue: [SyntaxUpdatingStringMorph]
ifFalse: [UpdatingStringMorph]) new.
aButton useStringFormat;
target: self;
getSelector: #scriptTitle;
setNameTo: 'script name';
font: ScriptingSystem fontForNameEditingInScriptor;
putSelector: #setScriptNameTo:;
setProperty: #okToTextEdit toValue: true;
+ step.
- step;
- yourself.
aRow addMorphBack: aButton.
aButton setBalloonText: 'Click here to edit the name of the script.' translated.
aRow addTransparentSpacerOfSize: 6 at 0.
self hasParameter
ifTrue:
[aTile := TypeListTile new choices: Vocabulary typeChoices dataType: nil.
aTile addArrows.
aTile setLiteral: #Number.
"(aButton := SimpleButtonMorph new useSquareCorners label: 'parameter' translated font: buttonFont; target: self; setNameTo: 'parameter').
aButton actWhen: #buttonDown; actionSelector: #handUserParameterTile.
"
aRow addMorphBack: aTile.
aTile borderColor: Color red.
aTile color: ScriptingSystem uniformTileInteriorColor.
aTile setBalloonText: 'Drag from here to get a parameter tile' translated]
ifFalse:
[aRow addMorphBack: (aStatusMorph := self scriptInstantiation statusControlMorph)].
aRow addTransparentSpacerOfSize: 6 at 1.
aRow addMorphBack:
(IconicButton new borderWidth: 0;
labelGraphic: (ScriptingSystem formAtKey: 'AddTest'); color: Color transparent;
actWhen: #buttonDown;
target: self;
actionSelector: #addYesNoToHand;
shedSelvedge;
balloonTextSelector: #addYesNoToHand).
aRow addTransparentSpacerOfSize: 12 at 10.
self addDestroyButtonTo: aRow.
(playerScripted existingScriptInstantiationForSelector: scriptName)
ifNotNil:
[:inst | inst updateStatusMorph: aStatusMorph].
^ aRow!
More information about the Squeak-dev
mailing list
|