etoys-dev May 2011

etoys-dev@lists.squeakfoundation.org

17 participants
95 discussions

Etoys: Etoys-kfr.63.mcz
by commits＠source.squeak.org 19 May '11

19 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.63.mcz ==================== Summary ==================== Name: Etoys-kfr.63 Author: kfr Time: 19 May 2011, 2:15:15 pm UUID: d1ea8de6-9b55-0246-84c8-533ee93294b6 Ancestors: Etoys-kfr.62 When using "looks like" tile from graphics, the forward direction is changed to that object we look like http://tracker.squeakland.org/browse/SQ-932 Changed so 'look like' really looks like the SketchMorph in the Holder Also changed so forward direction is not changed under the hood. =============== Diff against Etoys-kfr.61 =============== Item was changed: ----- Method: Player>>getGraphic (in category 'slot getters/setters') ----- getGraphic "Answer a form representing the receiver's primary graphic" | aMorph | ^ ((aMorph _ costume renderedMorph) isSketchMorph) ifTrue: + [aMorph topRendererOrSelf imageForm] - [aMorph form] ifFalse: [aMorph isPlayfieldLike ifTrue: [aMorph backgroundForm] ifFalse: [aMorph imageForm]]! Item was changed: ----- Method: Player>>wearCostumeOf: (in category 'costume') ----- wearCostumeOf: anotherPlayer "Put on a costume similar to the one currently worn by anotherPlayer" | aForm itsMorph | aForm := anotherPlayer getGraphic deepCopy. aForm offset: 0 @ 0. itsMorph := anotherPlayer costume. costume rotationStyle: itsMorph rotationStyle. + "costume forwardDirection: itsMorph forwardDirection." - costume forwardDirection: itsMorph forwardDirection. self setGraphic: aForm rotationCenter: itsMorph rotationCenter + " self renderedCostume: (anotherPlayer costume renderedMorph asWearableCostumeOfExtent: self costume extent) remember: anotherPlayer costume shouldRememberCostume Unmatched comment quote ->s"! - " self renderedCostume: (anotherPlayer costume renderedMorph asWearableCostumeOfExtent: self costume extent) remember: anotherPlayer costume shouldRememberCostumes"!

1 0

[SVN][731] add "Droid Sans Fallback" Chinese font package.
by commits＠etoys.squeak.org 19 May '11

19 May '11

Repository: http://etoys.squeak.org/svn Revision: 731 Author: KR Date: 2011-05-19 11:06:33 +0000 (Thu, 19 May 2011) Log Message: ----------- add "Droid Sans Fallback" Chinese font package. Added Paths: ----------- trunk/Etoys/fonts/FontSimplifiedChineseEnvironment.sar

1 0

Testing Help Needed
by Steve Thomas 19 May '11

19 May '11

Folks, Karl has been resolving too many issues too quickly. Pretty soon he will have nothing left to do!!! Besides, as per Bert's email we have a freeze coming up. So it would be good to test the changes (CMD-, or Alt-, click on *help*, then click on *update code from server*, to get the latest). Stephen

2 1

Etoys: Etoys-kfr.61.mcz
by commits＠source.squeak.org 18 May '11

18 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.61.mcz ==================== Summary ==================== Name: Etoys-kfr.61 Author: kfr Time: 18 May 2011, 10:29:35 pm UUID: 6f6c832c-da70-594e-873d-df0f13bb6c30 Ancestors: Etoys-kfr.60 Extraneous double spaces present in UI strings http://tracker.squeakland.org/browse/SQ-666 =============== Diff against Etoys-kfr.60 =============== Item was changed: ----- Method: CategoryViewer>>phraseForTimesRepeat (in category 'entries') ----- phraseForTimesRepeat "Answer a phrase representing times/repeat" | aPhrase aRow | aPhrase _ PhraseTileForTimesRepeat new. aRow _ ViewerLine newRow. aRow addMorphBack: ScriptingSystem buttonSpacer. aRow addMorphBack: self spacerAfterButton. aRow addMorphBack: aPhrase. + aRow setBalloonText: 'Drag here to tear off a Repeat/Times unit which you can drop into your script' translated. - aRow setBalloonText: 'Drag here to tear off a Repeat/Times unit which you can drop into your script' translated. ^ aRow. !

1 0

Etoys: Morphic-kfr.57.mcz
by commits＠source.squeak.org 18 May '11

18 May '11

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.57.mcz ==================== Summary ==================== Name: Morphic-kfr.57 Author: kfr Time: 18 May 2011, 10:24:59 pm UUID: bc84e611-e179-8e4a-8dd7-3909b9c3f1ea Ancestors: Morphic-kfr.56 Extraneous double spaces present in UI strings http://tracker.squeakland.org/browse/SQ-666 =============== Diff against Morphic-kfr.56 =============== Item was changed: ----- Method: EventRecordingSpace>>makeStatusButtons (in category 'initialization') ----- makeStatusButtons "Build, but do not insert, the buttons that control" + publishButton := self buttonWithLabel: 'Publish' actionSelector: #publishButtonHit balloonText: 'When you hit this, you will be handed a button which, when it is clicked, will open up an Event Player in which the recording can be played back.' translated. - publishButton := self buttonWithLabel: 'Publish' actionSelector: #publishButtonHit balloonText: 'When you hit this, you will be handed a button which, when it is clicked, will open up an Event Player in which the recording can be played back.' translated. abandonButton := self tanOButton. abandonButton actionSelector: #abandon. abandonButton setBalloonText: 'Abandon this effort and throw away this window' translated. recordButton := self buttonWithLabel: 'Record' translated actionSelector: #record balloonText: 'Start Recording' translated. menuButton := self menuButton. "self buttonWithLabel: 'Options' translated actionSelector: #offerMenu balloonText: 'Offers a menu of options'." scriptButton := IconicButton new target: self; borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: #Script); color: Color transparent; actWhen: #buttonUp; actionSelector: #makeHorizontalRoll; setBalloonText: 'show this theatre''s script in a piano-roll-like format for visualizaitoin and editing.' translated; yourself. recordAgainButton := self buttonWithLabel: 'Record Again' translated actionSelector: #recordAgain balloonText: 'Abandon existing recording and start a new one.' translated. recordVoiceoverButton := self buttonWithLabel: 'Start Recording Voiceover' translated actionSelector: #recordVoiceover balloonText: 'Add a voiceover to the existing event-recorded sequence ' translated. stopRecordingVoiceoverButton := self buttonWithLabel: 'Stop Record Voiceover' translated actionSelector: #stopRecordingVoiceover balloonText: nil " 'Stop the recording of the voiceover segment currently being recorded' translated ". playButton := self buttonWithLabel: 'Play' translated actionSelector: #play balloonText: 'Replay this sequence' translated. rewindButton := self buttonWithLabel: 'Rewind' translated actionSelector: #rewind balloonText: 'Reset to the starting condition for this recording' translated. stopButton := self buttonWithLabel: 'Stop' translated actionSelector: #stopPlayback balloonText: 'Stop playing or recording this panel' translated. pauseButton := self buttonWithLabel: 'Pause' translated actionSelector: #pausePlayback balloonText: 'Temporarily pause this playback' translated. resumeButton := self buttonWithLabel: 'Resume' translated actionSelector: #resumePlayback balloonText: 'Resume playback' translated. captionMorph := UpdatingStringMorph contents: self captionString font: ScriptingSystem fontForTiles. captionMorph useStringFormat. captionMorph target: self. captionMorph getSelector: #captionString; putSelector: #captionString:; growable: true; minimumWidth: 48. showingSoundButton := UpdatingThreePhaseButtonMorph blackTriangularOpener. showingSoundButton target: self; actionSelector: #toggleShowingSoundPanel; getSelector: #notShowingSoundPanel. showingSoundButton setBalloonText: 'show/hide voice controls' translated ! Item was changed: ----- Method: TextMorph class>>registerInFlapsRegistry (in category 'class initialization') ----- registerInFlapsRegistry "Register the receiver in the system's flaps registry" self environment at: #Flaps ifPresent: [:cl | cl registerQuad: {#TextMorph. #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop} forFlapNamed: 'PlugIn Supplies'. cl registerQuad: {#TextMorph . #exampleBackgroundLabel. 'Background Label' translatedNoop. 'A piece of text that will occur on every card of the background' translatedNoop} forFlapNamed: 'Scripting'. + cl registerQuad: {#TextMorph . #exampleBackgroundField. 'Background Field' translatedNoop. 'A data field which will have a different value on every card of the background' translatedNoop} - cl registerQuad: {#TextMorph . #exampleBackgroundField. 'Background Field' translatedNoop. 'A data field which will have a different value on every card of the background' translatedNoop} forFlapNamed: 'Scripting'. cl registerQuad: {#TextMorph . #authoringPrototype. 'Simple Text' translatedNoop. 'Text that you can edit into anything you wish' translatedNoop} forFlapNamed: 'Stack Tools'. cl registerQuad: {#TextMorph . #fancyPrototype. 'Fancy Text' translatedNoop. 'A text field with a rounded shadowed border, with a fancy font.' translatedNoop} forFlapNamed: 'Stack Tools'. cl registerQuad: {#TextMorph . #authoringPrototype. 'Text' translatedNoop. 'Text that you can edit into anything you desire.' translatedNoop} forFlapNamed: 'Supplies'.]! Item was changed: ----- Method: TheWorldMenu>>windowsMenu (in category 'windows & flaps menu') ----- windowsMenu "Build the windows menu for the world." ^ self fillIn: (self menu: 'windows' translatedNoop) from: { { 'find window' translatedNoop. { #myWorld . #findWindow: }. 'Presents a list of all windows; if you choose one from the list, it becomes the active window.' translatedNoop}. { 'find changed browsers...' translatedNoop. { #myWorld . #findDirtyBrowsers: }. 'Presents a list of browsers that have unsubmitted changes; if you choose one from the list, it becomes the active window.' translatedNoop}. { 'find changed windows...' translatedNoop. { #myWorld . #findDirtyWindows: }. 'Presents a list of all windows that have unsubmitted changes; if you choose one from the list, it becomes the active window.' translatedNoop}. nil. { 'find a transcript (t)' translatedNoop. { #myWorld . #findATranscript: }. 'Brings an open Transcript to the front, creating one if necessary, and makes it the active window' translatedNoop}. + { 'find a fileList (L)' translatedNoop. { #myWorld . #findAFileList: }. 'Brings an open fileList to the front, creating one if necessary, and makes it the active window' translatedNoop}. - { 'find a fileList (L)' translatedNoop. { #myWorld . #findAFileList: }. 'Brings an open fileList to the front, creating one if necessary, and makes it the active window' translatedNoop}. { 'find a change sorter (C)' translatedNoop. { #myWorld . #findAChangeSorter: }. 'Brings an open change sorter to the front, creating one if necessary, and makes it the active window' translatedNoop}. { 'find message names (W)' translatedNoop. { #myWorld . #findAMessageNamesWindow: }. 'Brings an open MessageNames window to the front, creating one if necessary, and makes it the active window' translatedNoop}. nil. { #staggerPolicyString . { self . #toggleWindowPolicy }. 'stagger: new windows positioned so you can see a portion of each one. tile: new windows positioned so that they do not overlap others, if possible.' translatedNoop}. nil. { 'collapse all windows' translatedNoop. { #myWorld . #collapseAllWindows }. 'Reduce all open windows to collapsed forms that only show titles.' translatedNoop}. { 'collapse all objects' translatedNoop. { #myWorld . #collapseAllWindowsAndNonWindows }. 'Reduce all open windows and all other objects on the desktop to labeled tabs' translatedNoop}. { 'expand all' translatedNoop. { #myWorld . #expandAllCollapsedObjects }. 'Expand all collapsed windows and other collapsed objects back to their expanded forms.' translatedNoop}. { 'close top window (w)' translatedNoop. { SystemWindow . #closeTopWindow }. 'Close the topmost window if possible.' translatedNoop}. { 'send top window to back (\)' translatedNoop. { SystemWindow . #sendTopWindowToBack }. 'Make the topmost window become the backmost one, and activate the window just beneath it.' translatedNoop}. { 'move windows onscreen' translatedNoop. { #myWorld . #bringWindowsFullOnscreen }. 'Make all windows fully visible on the screen' translatedNoop}. nil. { 'delete unchanged windows' translatedNoop. { #myWorld . #closeUnchangedWindows }. 'Deletes all windows that do not have unsaved text edits.' translatedNoop}. { 'delete non-windows' translatedNoop. { #myWorld . #deleteNonWindows }. 'Deletes all non-window morphs lying on the world.' translatedNoop}. { 'delete both of the above' translatedNoop. { self . #cleanUpWorld }. 'deletes all unchanged windows and also all non-window morphs lying on the world, other than flaps.' translatedNoop}. }!

1 0

Etoys: Multilingual-kfr.19.mcz
by commits＠source.squeak.org 18 May '11

18 May '11

Karl Ramberg uploaded a new version of Multilingual to project Etoys: http://source.squeak.org/etoys/Multilingual-kfr.19.mcz ==================== Summary ==================== Name: Multilingual-kfr.19 Author: kfr Time: 18 May 2011, 9:37:52 pm UUID: b9901725-9c25-3745-b55e-4ac60cf7901f Ancestors: Multilingual-kfr.18 Minor bugs about TTCFont fallbackFont http://tracker.squeakland.org/browse/SQ-878 =============== Diff against Multilingual-kfr.18 =============== Item was changed: ----- Method: TTCFont>>installOn:foregroundColor:backgroundColor: (in category 'friend') ----- installOn: aDisplayContext foregroundColor: fgColor backgroundColor: bgColor self foregroundColor: fgColor. "install color" + (self fallbackFont notNil and: [ self fallbackFont class = TTCFontSet ]) ifTrue: [ + self fallbackFont fontArray do: [:font | + font ifNotNil: [ font foregroundColor: fgColor ] + ] + ]. "install color for fallbackFont" aDisplayContext installTTCFont: self foregroundColor: foregroundColor backgroundColor: bgColor ! Item was changed: ----- Method: TTCFont>>setupDefaultFallbackTextStyleTo: (in category 'friend') ----- setupDefaultFallbackTextStyleTo: aTextStyle | fonts f | aTextStyle isNil ifTrue: [^self]. fonts _ aTextStyle fontArray. f _ fonts first. f familyName = self familyName ifTrue: [^ self]. 1 to: fonts size do: [:i | + self height >= (fonts at: i) height ifTrue: [f _ fonts at: i]. - self height > (fonts at: i) height ifTrue: [f _ fonts at: i]. ]. self fallbackFont: f. self reset. !

1 0

Etoys: Multilingual-kfr.18.mcz
by commits＠source.squeak.org 18 May '11

18 May '11

Karl Ramberg uploaded a new version of Multilingual to project Etoys: http://source.squeak.org/etoys/Multilingual-kfr.18.mcz ==================== Summary ==================== Name: Multilingual-kfr.18 Author: kfr Time: 18 May 2011, 9:33:14 pm UUID: b4a61c0e-aeff-ab43-86ff-2012e257f1e6 Ancestors: Multilingual-kfr.17 MultiTTCFont cache does not initialized http://tracker.squeakland.org/browse/SQ-877 =============== Diff against Multilingual-kfr.17 =============== Item was added: + ----- Method: MultiTTCFont>>foregroundColor: (in category 'all') ----- + foregroundColor: fgColor + "Install the given foreground color" + foregroundColor := fgColor.! Item was changed: ----- Method: MultiTTCFont>>formOf: (in category 'all') ----- formOf: char | newForm | + cache ifNil: [ self recreateCache ]. + foregroundColor ifNil: [ self foregroundColor: Color black ]. + self hasCached: char ifTrue: [:form | ^ form. ]. newForm _ self computeForm: char. self at: char put: newForm. ^ newForm. !

1 0

Etoys: Etoys-kfr.60.mcz
by commits＠source.squeak.org 18 May '11

18 May '11

Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.60.mcz ==================== Summary ==================== Name: Etoys-kfr.60 Author: kfr Time: 18 May 2011, 9:25:34 pm UUID: 5b55d575-f754-0040-b008-fe7a6db963d0 Ancestors: Etoys-kfr.59 If you scale a Holder, "shuffle contents" does not work http://tracker.squeakland.org/browse/SQ-842 =============== Diff against Etoys-kfr.59 =============== Item was changed: ----- Method: Player>>shuffleContents (in category 'scripts-standard') ----- shuffleContents "Tell my costume to rearrange its submorphs randomly" + costume renderedMorph shuffleSubmorphs! - costume shuffleSubmorphs!

1 0

How to translate strings in Home.pr
by Xin Wang 18 May '11

18 May '11

Hi all, It seems that strings in Home.pr does not exists in po files, so how can I translate these strings: "make a project", "gallery of projects" and "tutorials and demos"? Thanks, Xin Wang

2 4

Etoys: Morphic-kfr.56.mcz
by commits＠source.squeak.org 17 May '11

17 May '11

Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.56.mcz ==================== Summary ==================== Name: Morphic-kfr.56 Author: kfr Time: 17 May 2011, 9:45:49 pm UUID: c6692314-d323-6140-8a7f-b24cfe7642b6 Ancestors: Morphic-kfr.55 Fix for deleting morph with scripted submorphs =============== Diff against Morphic-kfr.55 =============== Item was changed: ----- Method: Morph>>delete (in category 'submorphs-add/remove') ----- delete - "Remove the receiver as a submorph of its owner and make its - new owner be nil." - | aWorld | + aWorld := self world + ifNil: [World]. + aWorld + ifNotNil: [self disableSubmorphFocusForHand: self activeHand. + self activeHand + ifNotNilDo: [:h | + h releaseKeyboardFocus: self. + h releaseMouseFocus: self]]. - aWorld := self world ifNil: [World]. - "Terminate genie recognition focus" - "I encountered a case where the hand was nil, so I put in a little - protection - raa " - " This happens when we are in an MVC project and open - a morphic window. - BG " - aWorld ifNotNil: - [self disableSubmorphFocusForHand: self activeHand. - self activeHand ifNotNilDo: - [:h | h releaseKeyboardFocus: self. - h releaseMouseFocus: self]]. self removeHalo. + owner + ifNotNil: [self privateDelete. + self player + ifNotNilDo: [:player | player noteDeletionOf: self fromWorld: aWorld]. + self + submorphsDo: [:each | each player + ifNotNilDo: [:player | player noteDeletionOf: each fromWorld: aWorld]]]! - owner ifNotNil:[ self privateDelete. - self player ifNotNilDo: [ :player | - "Player must be notified" - player noteDeletionOf: self fromWorld: aWorld]].!

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2011