Packages June 2017

packages@lists.squeakfoundation.org

1 participants
66 discussions

The Trunk: SMLoader-nice.89.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-nice.89.mcz ==================== Summary ==================== Name: SMLoader-nice.89 Author: nice Time: 10 June 2017, 5:56:06.103149 pm UUID: 627d6699-93f3-4d5e-af7b-d8effb9da17e Ancestors: SMLoader-mt.88 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against SMLoader-mt.88 =============== Item was changed: ----- Method: SMLoader>>selectedCategory (in category 'accessing') ----- selectedCategory "Return selected category." + ^selectedCategoryWrapper ifNotNil: [:w | w withoutListWrapper]! - ^selectedCategoryWrapper ifNotNilDo: [:w | w withoutListWrapper]! Item was changed: ----- Method: SMLoader>>selectedPackageOrRelease (in category 'private') ----- selectedPackageOrRelease "Return selected package or package release." + ^self selectedItemWrapper ifNotNil: [:w | w withoutListWrapper]! - ^self selectedItemWrapper ifNotNilDo: [:w | w withoutListWrapper]! Item was changed: ----- Method: SMLoaderPlus>>selectedCategoryPath (in category 'accessing') ----- selectedCategoryPath "Return selected category's path." | path | path := #(). selectedCategory ifNotNil: [selectedCategory parent + ifNotNil: [:p | path := path copyWith: p]. - ifNotNilDo: [:p | path := path copyWith: p]. path := path copyWith: selectedCategory]. ^ path! Item was changed: ----- Method: SMLoaderPlus>>updateLabel: (in category 'lists') ----- updateLabel: packagesShown "Update the label of the window." + window ifNotNil: [:w | w setLabel: (self labelForShown: packagesShown)]! - window ifNotNilDo: [:w | w setLabel: (self labelForShown: packagesShown)]! Item was changed: ----- Method: SMPackageRelease>>httpPostContent (in category '*smloader') ----- httpPostContent "Answer the url-encoded parameters for this object." | allCategories | ^ String streamContents: [ : stream | self isNewObject ifTrue: [ "Make the parent release the selected." self parentReleaseIndex > 0 ifTrue: [ stream nextPutAll: '1-1=' , self parentReleaseIndex , '&' ] ] ifFalse: [ "Make this release the selected." self releaseIndex > 0 ifTrue: [ stream nextPutAll: '1-1=' , self releaseIndex , '&' ] ]. "The following category fields must remain in alphabetical order. Add 1 to category indexes because web-server expects the first item to always be nil." stream nextPutAll: '1-3=' , self version asString encodeForHTTP ; nextPutAll: '&1-4=' , (self compatibilityIndex + 1) ; nextPutAll: '&1-5=' , (self licenseIndex + 1) ; nextPutAll: '&1-6=' , (self maturityIndex + 1) ; nextPutAll: '&1-7=' , (self squeakVersionIndex + 1) ; nextPutAll: '&1-8=' , self downloadUrl "already http encoded" ; nextPutAll: '&1-9=1&1-10=&1-11=' "No file selection, 'cool' name or summary". "Specify only the mandatory categories for 'additional categories', otherwise prior mandatory selections will be reflected in the objects categories, causing the highest-in-the-list to always win. Ugh.." allCategories := SMSqueakMap default sortedCategories. {allCategories indexOf: self compatibility. allCategories indexOf: self license. allCategories indexOf: self maturity. allCategories indexOf: self squeakVersion} do: [ : each | stream nextPutAll: '&1-12=' , each asString ]. self isCommunitySupported ifTrue: [ stream nextPutAll: '&1-12=', (allCategories indexOf: self communitySupportedCategory) asString ]. stream nextPutAll: '&1-13=' , self note asString encodeForHTTP. self isNewObject ifTrue: [ stream nextPutAll: '&1-18=Save+as+new+release' ] ifFalse: [ stream nextPutAll: '&1-17=Save+changes' ]. + self parentRelease ifNotNil: - self parentRelease ifNotNilDo: [ : pr | stream nextPutAll: '&1-19=' , pr releaseIndex ] ]! Item was changed: ----- Method: SMReleaseBrowser>>parentVersion (in category 'model access') ----- parentVersion + ^ self parentRelease ifNotNil: - ^ self parentRelease ifNotNilDo: [ : pr | pr version ]!

1 0

The Trunk: SMBase-nice.138.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of SMBase to project The Trunk: http://source.squeak.org/trunk/SMBase-nice.138.mcz ==================== Summary ==================== Name: SMBase-nice.138 Author: nice Time: 10 June 2017, 5:55:05.442161 pm UUID: c5484d1d-8a60-447e-ad2b-35cb02f2bd64 Ancestors: SMBase-ul.137 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against SMBase-ul.137 =============== Item was changed: ----- Method: SMInstallationRegistry>>noteInstalledPackageWithId:autoVersion:name: (in category 'installation') ----- noteInstalledPackageWithId: aPackageId autoVersion: aVersion name: aName "The package release was just successfully installed. Can be used to inform SM of an installation not been done using SM, even when the map isn't loaded. We record the fact in our Dictionary of installed packages and log a 'do it' to mark this in the changelog. The doit helps keeping track of the packages when recovering changes etc - not a perfect solution but should help. The map used is the default map. The id of the package is the key and the value is an OrderedCollection of Arrays with the release auto version, the point in time and the current installCounter." | time name id v | v := aVersion isString ifTrue: [aVersion asVersion] ifFalse: [aVersion]. aName ifNil: [name := '<unknown package name>'] ifNotNil: [name := aName]. id := UUID fromString: aPackageId. time := Time totalSeconds. self countInstall. self markInstalled: id version: v time: time counter: installCounter. + (((Smalltalk classNamed: 'SmalltalkImage') ifNotNil: [:si | si current]) ifNil: [Smalltalk]) - (((Smalltalk classNamed: 'SmalltalkImage') ifNotNilDo: [:si | si current]) ifNil: [Smalltalk]) logChange: '"Installed ', name, ' auto version ', v versionString, '". (Smalltalk at: #SMSqueakMap ifAbsent: []) ifNotNil:[ SMSqueakMap noteInstalledPackageWithId: ', id asString storeString, ' autoVersion: ', v storeString, ' atSeconds: ', time asString, ' number: ', installCounter asString, ']'! Item was changed: ----- Method: SMInstallationRegistry>>noteUninstalledPackageWithId:autoVersion:name: (in category 'installation') ----- noteUninstalledPackageWithId: aPackageId autoVersion: aVersion name: aName "The package release was just successfully uninstalled. Can be used to inform SM of an uninstallation not been done using SM, even when the map isn't loaded. We record the fact in our Dictionary of installed packages and log a 'do it' to mark this in the changelog. The doit helps keeping track of the packages when recovering changes etc - not a perfect solution but should help. The map used is the default map. The id of the package is the key and the value is an OrderedCollection of Arrays with the release auto version, the point in time and the current installCounter." | time name id v | v := aVersion isString ifTrue: [aVersion asVersion] ifFalse: [aVersion]. aName ifNil: [name := '<unknown package name>'] ifNotNil: [name := aName]. id := UUID fromString: aPackageId. time := Time totalSeconds. self countInstall. "Used for both installs and uninstalls" self clearInstalled: id version: v time: time counter: installCounter. + (((Smalltalk classNamed: 'SmalltalkImage') ifNotNil: [:si | si current]) ifNil: [Smalltalk]) - (((Smalltalk classNamed: 'SmalltalkImage') ifNotNilDo: [:si | si current]) ifNil: [Smalltalk]) logChange: '"Uninstalled ', name, ' auto version ', v versionString, '". (Smalltalk at: #SMSqueakMap ifAbsent: []) ifNotNil:[ SMSqueakMap noteUninstalledPackageWithId: ', id asString storeString, ' autoVersion: ', v storeString, ' atSeconds: ', time asString, ' number: ', installCounter asString, ']'! Item was changed: ----- Method: SMInstaller class>>classForPackageRelease: (in category 'instance creation') ----- classForPackageRelease: aPackageRelease "Decide which subclass to instantiate. We detect and return the first subclass that wants to handle the release going recursively leaf first so that subclasses gets first chance if several classes compete over the same packages, like for example SMDVSInstaller that also uses the .st file extension." self subclasses do: [:ea | (ea classForPackageRelease: aPackageRelease) + ifNotNil: [:class | ^ class]]. - ifNotNilDo: [:class | ^ class]]. ^(self canInstall: aPackageRelease) ifTrue: [self]! Item was changed: ----- Method: SMPackage>>installedVersion (in category 'printing') ----- installedVersion "Return the version String for the installed version. We ask the map. Return nil if this package is not installed." + ^self installedRelease ifNotNil: [:r | r smartVersion]! - ^self installedRelease ifNotNilDo: [:r | r smartVersion]!

1 0

The Trunk: MorphicExtras-nice.207.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-nice.207.mcz ==================== Summary ==================== Name: MorphicExtras-nice.207 Author: nice Time: 10 June 2017, 5:52:47.062634 pm UUID: 157ef560-9a00-4d80-a341-9b1292a4cbae Ancestors: MorphicExtras-nice.206 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against MorphicExtras-nice.206 =============== Item was changed: ----- Method: Flaps class>>addAndEnableEToyFlaps (in category 'predefined flaps') ----- addAndEnableEToyFlaps "Initialize the standard default out-of-box set of global flaps. This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed." | aSuppliesFlap | SharedFlapTabs ifNotNil: [^ self]. SharedFlapTabs := OrderedCollection new. aSuppliesFlap := self newSuppliesFlapFromQuads: self quadsDefiningPlugInSuppliesFlap positioning: #right. aSuppliesFlap referent setNameTo: 'Supplies Flap' translated. "Per request from Kim Rose, 7/19/02" SharedFlapTabs add: aSuppliesFlap. "The #center designation doesn't quite work at the moment" (Smalltalk globals at: #SugarNavigatorBar ifPresent: [:c | c showSugarNavigator] ifAbsent: [false]) ifTrue: [SharedFlapTabs add: self newSugarNavigatorFlap] ifFalse: [Preferences showProjectNavigator ifTrue:[ SharedFlapTabs add: self newNavigatorFlap]]. self enableGlobalFlapWithID: 'Supplies' translated. (Smalltalk globals at: #SugarNavigatorBar ifPresent: [:c | c showSugarNavigator] ifAbsent: [false]) ifTrue: [self enableGlobalFlapWithID: 'Sugar Navigator Flap' translated. + (self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNil: - (self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNilDo: [:navTab | aSuppliesFlap sugarNavTab: navTab]] ifFalse: [ Preferences showProjectNavigator ifTrue:[ self enableGlobalFlapWithID: 'Navigator' translated]]. SharedFlapsAllowed := true. Project current flapsSuppressed: false. ^ SharedFlapTabs "Flaps addAndEnableEToyFlaps"!

1 0

The Trunk: Morphic-nice.1341.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.1341.mcz ==================== Summary ==================== Name: Morphic-nice.1341 Author: nice Time: 10 June 2017, 5:51:03.006817 pm UUID: c151c809-e1f1-4fd4-92a0-e4911d6960fe Ancestors: Morphic-eem.1340 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against Morphic-eem.1340 =============== Item was changed: ----- Method: Morph>>dismissMorph (in category 'meta-actions') ----- dismissMorph "This is called from an explicit halo destroy/delete action. So first disconnect all constraints to keep the graph up to date." (self respondsTo: #disconnectAllConstraints) "Connectors package" ifTrue: [ self perform: #disconnectAllConstraints ]. (self respondsTo: #releaseGraphModels) "CGPrereqs package (Connectors)" ifTrue: [ self perform: #releaseGraphModels ]. + self world ifNotNil: - self world ifNotNilDo: [:w | w abandonAllHalos; stopStepping: self]. self delete! Item was changed: ----- Method: SketchMorph>>collapse (in category 'menus') ----- collapse "Replace the receiver with a collapsed rendition of itself." | w collapsedVersion a ht tab | (w := self world) ifNil: [^self]. collapsedVersion := (self imageForm scaledToSize: 50@50) asMorph. collapsedVersion setProperty: #uncollapsedMorph toValue: self. collapsedVersion on: #mouseUp send: #uncollapseSketch to: collapsedVersion. collapsedVersion setBalloonText: ('A collapsed version of {1}. Click to open it back up.' translated format: {self externalName}). self delete. w addMorphFront: ( a := AlignmentMorph newRow hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderWidth: 4; borderColor: Color white; addMorph: collapsedVersion; yourself). a setNameTo: self externalName. ht := (tab := Smalltalk at: #SugarNavTab ifPresent: [:c | ActiveWorld findA: c]) ifNotNil: [tab height] ifNil: [80]. a position: 0@ht. collapsedVersion setProperty: #collapsedMorphCarrier toValue: a. + (self valueOfProperty: #collapsedPosition) ifNotNil: - (self valueOfProperty: #collapsedPosition) ifNotNilDo: [:priorPosition | a position: priorPosition]! Item was changed: ----- Method: SmalltalkEditor>>buttonForIt (in category 'do-its') ----- buttonForIt + ^ self doItButtonFromSelection ifNotNil: [:e | e openInHand]! - ^ self doItButtonFromSelection ifNotNilDo: [:e | e openInHand]!

1 0

The Trunk: Monticello-nice.670.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.670.mcz ==================== Summary ==================== Name: Monticello-nice.670 Author: nice Time: 10 June 2017, 5:49:59.546878 pm UUID: 590e192e-d0a0-435a-a012-0c4859896286 Ancestors: Monticello-topa.669 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against Monticello-topa.669 =============== Item was changed: ----- Method: MCCodeTool>>copyReference (in category 'menus') ----- copyReference "Copy the selected selector to the clipboard" + self selectedMessageName ifNotNil: - self selectedMessageName ifNotNilDo: [ : selector | Clipboard clipboardText: (self selectedClassOrMetaClass ifNil: [ selector asString ] ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]! Item was changed: ----- Method: MCDefinition>>mcModel (in category 'private') ----- mcModel "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup." self repositoryGroup ifNotNil: [ : group | group repositoriesDo: + [ : each | each mcModel ifNotNil: - [ : each | each mcModel ifNotNilDo: [ : mcModel | ^ mcModel ] ] ]. ^ nil! Item was changed: ----- Method: MCRepositoryInspector>>versionListMenu: (in category 'morphic ui') ----- versionListMenu: aMenu 1 to: self orderSpecs size do: [ :index | aMenu addUpdating: #orderString: target: self selector: #order: argumentList: { index } ]. aMenu addLine. aMenu add: 'Changes against ...' action: [| ri | ri := aMenu defaultTarget. (UIManager default chooseFrom: ri versionList values: ri versionList + title: 'Select version to show patch against ...') ifNotNil: [:name | - title: 'Select version to show patch against ...') ifNotNilDo: [:name | | versionName target base | versionName := MCVersionName on: name. target := ri repository versionNamed: ri versionInfo name. base := aMenu defaultTarget repository versionNamed: versionName. (MCPatchBrowser forPatch: (target snapshot patchRelativeToBase: base snapshot)) showLabelled: 'Changes from ', versionName, ' to ', ri versionInfo name]]. ^aMenu! Item was changed: ----- Method: MCWorkingCopyBrowser>>addPackageRepository (in category 'actions') ----- addPackageRepository workingCopy ifNotNil: [ (self pickRepositorySatisfying: [ :repos | (workingCopy repositoryGroup includes: repos) not ]) + ifNotNil: - ifNotNilDo: [:repos | workingCopy repositoryGroup addRepository: repos. self repository: repos. self changed: #repositoryList; changed: #repositorySelection. self changedButtons]]!

1 0

The Trunk: KernelTests-nice.330.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.330.mcz ==================== Summary ==================== Name: KernelTests-nice.330 Author: nice Time: 10 June 2017, 5:48:42.935057 pm UUID: 356066a2-7666-4b6f-be07-5158f997854f Ancestors: KernelTests-eem.329 don't testIfNotNilDo, we might deprecate this message and this exact behavior is already tested in testIfNotNil =============== Diff against KernelTests-eem.329 =============== Item was removed: - ----- Method: UndefinedObjectTest>>testIfNotNilDo (in category 'tests - testing') ----- - testIfNotNilDo - - self shouldnt: [ nil ifNotNilDo: [self halt]] raise: Halt. - !

1 0

The Trunk: EToys-nice.300.mcz
by commits＠source.squeak.org 10 Jun '17

10 Jun '17

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.300.mcz ==================== Summary ==================== Name: EToys-nice.300 Author: nice Time: 10 June 2017, 5:45:20.413477 pm UUID: b5f8be2a-6356-4991-8120-114515478877 Ancestors: EToys-eem.299 Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing. =============== Diff against EToys-eem.299 =============== Item was changed: ----- Method: CategoryViewer>>getterTilesFor:type: (in category 'get/set slots') ----- getterTilesFor: getterSelector type: aType "Answer classic getter for the given name/type" "aPhrase := nil, assumed" | selfTile selector aPhrase | (#(#color:sees: #colorSees) includes: getterSelector) ifTrue: [aPhrase := self colorSeesPhrase]. (#(#getPatchValueIn:) includes: getterSelector) ifTrue: [aPhrase := self patchValuePhrase]. (#(#getRedComponentIn:) includes: getterSelector) ifTrue: [aPhrase := self colorComponentPhraseFor: #red]. (#(#getGreenComponentIn:) includes: getterSelector) ifTrue: [aPhrase := self colorComponentPhraseFor: #green]. (#(#getBlueComponentIn:) includes: getterSelector) ifTrue: [aPhrase := self colorComponentPhraseFor: #blue]. (#(#getUphillIn:) includes: getterSelector) ifTrue: [aPhrase := self patchUphillPhrase]. (#(#bounceOn:) includes: getterSelector) ifTrue: [aPhrase := self bounceOnPhrase]. " (#(#bounceOn:color: #bounceOnColor:) includes: getterSelector) ifTrue: [aPhrase := self bounceOnColorPhrase]." (getterSelector = #getDistanceTo:) ifTrue: [aPhrase := self distanceToPhrase]. (getterSelector = #getAngleTo:) ifTrue: [aPhrase := self angleToPhrase]. (getterSelector = #getTurtleOf:) ifTrue: [aPhrase := self turtleOfPhrase]. (getterSelector = #distanceToPlayer:) ifTrue: [aPhrase := self distanceToPlayerPhrase]. (getterSelector = #bearingTo:) ifTrue: [aPhrase := self bearingToPhrase]. (getterSelector = #bearingFrom:) ifTrue: [aPhrase := self bearingFromPhrase]. (#(#seesColor: #isOverColor) includes: getterSelector) ifTrue: [aPhrase := self seesColorPhrase]. (#(#overlaps: #overlaps) includes: getterSelector) ifTrue: [aPhrase := self overlapsPhrase]. (#(#overlapsAny: #overlapsAny) includes: getterSelector) ifTrue: [aPhrase := self overlapsAnyPhrase]. (#(#touchesA: #touchesA) includes: getterSelector) ifTrue: [aPhrase := self touchesAPhrase]. aPhrase ifNil: [aPhrase := PhraseTileMorph new setSlotRefOperator: getterSelector asSymbol type: aType]. selfTile := self tileForSelf bePossessive. selfTile position: aPhrase firstSubmorph position. aPhrase firstSubmorph addMorph: selfTile. selector := aPhrase submorphs second. (#(#getPatchValueIn: getUphillIn: bearingFrom: bearingTo: distanceToPlayer:) includes: getterSelector) ifFalse: [ (Vocabulary vocabularyNamed: aType capitalized) + ifNotNil: [:aVocab | aVocab wantsSuffixArrow ifTrue: [selector addSuffixArrow]]. - ifNotNilDo: [:aVocab | aVocab wantsSuffixArrow ifTrue: [selector addSuffixArrow]]. ]. selector updateLiteralLabel. aPhrase enforceTileColorPolicy. ^aPhrase! Item was changed: ----- Method: CategoryViewer>>makeSetterForColorComponent:componentName:event:from: (in category 'get/set slots') ----- makeSetterForColorComponent: selectorAndTypePair componentName: componentName event: evt from: aMorph | argType m argTile selfTile argValue actualGetter | argType := selectorAndTypePair second. componentName = #red ifTrue: [actualGetter := #setRedComponentIn:]. componentName = #green ifTrue: [actualGetter := #setGreenComponentIn:]. componentName = #blue ifTrue: [actualGetter := #setBlueComponentIn:]. m := PhraseTileMorph new setColorComponentRoot: actualGetter componentName: componentName type: #command rcvrType: #Patch argType: argType vocabulary: self currentVocabulary. argValue := self scriptedPlayer perform: selectorAndTypePair first asSymbol with: nil. (argValue isKindOf: Player) ifTrue: [argTile := argValue tileReferringToSelf] ifFalse: [argTile := ScriptingSystem tileForArgType: argType. (argType == #Number and: [argValue isNumber]) ifTrue: [(scriptedPlayer decimalPlacesForGetter: actualGetter) + ifNotNil: [:places | (argTile findA: UpdatingStringMorph) decimalPlaces: places]]. - ifNotNilDo: [:places | (argTile findA: UpdatingStringMorph) decimalPlaces: places]]. argTile setLiteral: argValue; updateLiteralLabel]. argTile position: m lastSubmorph position. m lastSubmorph addMorph: argTile. selfTile := self tileForSelf bePossessive. selfTile position: m firstSubmorph position. m firstSubmorph addMorph: selfTile. m enforceTileColorPolicy. m submorphs second setPatchDefaultTo: scriptedPlayer defaultPatchPlayer. m openInHand! Item was changed: ----- Method: CategoryViewer>>makeSetterForGetPatchValue:event:from: (in category 'get/set slots') ----- makeSetterForGetPatchValue: selectorAndTypePair event: evt from: aMorph | argType m argTile selfTile argValue actualGetter | argType := selectorAndTypePair second. actualGetter := #patchValueIn:. m := PhraseTileMorph new setPixelValueRoot: actualGetter type: #command rcvrType: #Player argType: argType vocabulary: self currentVocabulary. argValue := self scriptedPlayer perform: selectorAndTypePair first asSymbol with: nil. (argValue isPlayerLike) ifTrue: [argTile := argValue tileReferringToSelf] ifFalse: [argTile := ScriptingSystem tileForArgType: argType. (argType == #Number and: [argValue isNumber]) ifTrue: [(scriptedPlayer decimalPlacesForGetter: actualGetter) + ifNotNil: [:places | (argTile findA: UpdatingStringMorph) decimalPlaces: places]]. - ifNotNilDo: [:places | (argTile findA: UpdatingStringMorph) decimalPlaces: places]]. argTile setLiteral: argValue; updateLiteralLabel]. argTile position: m lastSubmorph position. m lastSubmorph addMorph: argTile. selfTile := self tileForSelf bePossessive. selfTile position: m firstSubmorph position. m firstSubmorph addMorph: selfTile. m enforceTileColorPolicy. m submorphs second setPatchDefaultTo: scriptedPlayer defaultPatchPlayer. m openInHand! Item was changed: ----- Method: EToyProjectDetailsMorph>>setInfoField:to: (in category '*Etoys-Squeakland-utilities') ----- setInfoField: aFieldName to: aValue "Install a value into an info field of the dialog. Textual fields are filled literally, but enumerated fields (subject, region, etc.) are represented by codes which get mapped into (translated) text to display." | newValue choices | newValue := aValue. choices := self choicesFor: aFieldName. choices ifNotNil: "i.e. one of the fields with enumerated values" + [(choices detect: [:c | c first = aValue] ifNone: [nil]) ifNotNil: - [(choices detect: [:c | c first = aValue] ifNone: [nil]) ifNotNilDo: [:item | newValue := item third translated]]. (namedFields at: aFieldName) contentsWrapped: newValue ! Item was changed: ----- Method: EtoysPresenter>>reallyAllExtantPlayersNoSort (in category 'intialize') ----- reallyAllExtantPlayersNoSort "The initial intent here was to produce a list of Player objects associated with any Morph in the tree beneath the receiver's associatedMorph. whether it is the submorph tree or perhaps off on unseen bookPages. We have for the moment moved away from that initial intent, and in the current version we only deliver up players associated with the submorph tree only. <-- this note dates from 4/21/99" | fullList objectsReferredToByTiles aSet fullClassList | self flushPlayerListCache. aSet := IdentitySet new: 400. associatedMorph allMorphsAndBookPagesInto: aSet. fullList := aSet select: [:m | m player ~~ nil] thenCollect: [:m | m player]. fullClassList := fullList collect: [:aPlayer | aPlayer class] thenSelect: [:aClass | aClass isUniClass]. fullClassList do: [:aPlayerClass | aPlayerClass scripts do: [:aScript | aScript isTextuallyCoded ifFalse: + [aScript currentScriptEditor ifNotNil: [:ed | - [aScript currentScriptEditor ifNotNilDo: [:ed | objectsReferredToByTiles := ed allMorphs select: [:aMorph | (aMorph isKindOf: TileMorph) and: [aMorph type == #objRef]] thenCollect: [:aMorph | aMorph actualObject]. fullList addAll: objectsReferredToByTiles]]]]. ^ fullList! Item was changed: ----- Method: EventMorph>>brownDragConcluded (in category 'drag and drop') ----- brownDragConcluded "After the user has manually repositioned the receiver via brown-halo-drag, this is invoked." ActiveWorld abandonAllHalos. + self eventRoll ifNotNil: - self eventRoll ifNotNilDo: [:evtRoll | evtRoll pushChangesBackToEventTheatre]! Item was changed: ----- Method: EventMorph>>justDroppedInto:event: (in category 'drag and drop') ----- justDroppedInto: aMorph event: anEvent "The receiver was just dropped somewhere..." | aFormerOwner | aFormerOwner := self formerOwner ifNil: [^ self]. aMorph == aFormerOwner ifTrue: [^ self]. (aFormerOwner isKindOf: EventTimeline) ifTrue: + [aFormerOwner eventRoll ifNotNil: [:r | r pushChangesBackToEventTheatre. - [aFormerOwner eventRoll ifNotNilDo: [:r | r pushChangesBackToEventTheatre. self formerOwner: nil] ]. "NB only do this once!!"! Item was changed: ----- Method: EventPlaybackButton>>initializeFrom: (in category 'initialization') ----- initializeFrom: anEventRecordingSpace "Initialize the receiver to be a button which will play the sequence currenty defined in the given event-recording space." self initializeToShow: anEventRecordingSpace initialContentArea withLabel: anEventRecordingSpace captionString andSend: #launchPlayback to: self. "Icon is made with the recording space in whatever state the user prefers -- may be at the beginning or end of playback, for example." autoStart := true. autoDismiss := true. anEventRecordingSpace rewind. contentArea := anEventRecordingSpace initialContentArea veryDeepCopy. tape := anEventRecordingSpace eventRecorder tape veryDeepCopy. caption := anEventRecordingSpace captionString veryDeepCopy. initialPicture := anEventRecordingSpace initialPicture veryDeepCopy. finalPicture := anEventRecordingSpace finalPicture veryDeepCopy. self on: #click send: nil to: nil. "Undo generic IconicButton evt handler" self target: self; actionSelector: #launchPlayback; arguments: #(). self actWhen: #buttonUp. + anEventRecordingSpace balloonHelpString ifNotNil: - anEventRecordingSpace balloonHelpString ifNotNilDo: [:t | self setBalloonText: t] ! Item was changed: ----- Method: EventPlaybackSpace>>abandon (in category 'commands') ----- abandon "Abandon the entire exercise." self delete. self dismantlePaintBoxArtifacts. self abandonReplayHandsAndHalos. + (self valueOfProperty: #stopper) ifNotNil: - (self valueOfProperty: #stopper) ifNotNilDo: [:stopper | stopper delete]. + (self valueOfProperty: #originatingButton) ifNotNil: - (self valueOfProperty: #originatingButton) ifNotNilDo: [:aButton | aButton playbackConcludedIn: self]! Item was changed: ----- Method: EventPlaybackSpace>>comeToFront (in category 'commands') ----- comeToFront "Bring the receiver to the front, then its dismisser in front of it." super comeToFront. + (self valueOfProperty: #stopper) ifNotNil: - (self valueOfProperty: #stopper) ifNotNilDo: [:s | s comeToFront]! Item was changed: ----- Method: EventRecordingSpace>>dismantlePaintBoxArtifacts (in category 'commands') ----- dismantlePaintBoxArtifacts "Cleanup after playback -- if a paint-box has been left up, take it down." + (ActiveWorld findA: SketchEditorMorph) ifNotNil: - (ActiveWorld findA: SketchEditorMorph) ifNotNilDo: [:skEd | skEd cancelOutOfPainting]! Item was changed: ----- Method: EventRecordingSpace>>installPaintBoxSettingsPrevailingAtRecordingTime (in category 'commands') ----- installPaintBoxSettingsPrevailingAtRecordingTime "Install settings for the PaintBox assumed by the recording, in preparation for playback. But first save the existing values for these settings, so that after playback the pre-existing state could be restored, though in current design we decide not to do that last." self setProperty: #incomingPaintBoxBrushSymbol toValue: PaintBoxMorph prototype currentBrushSymbol. self setProperty: #incomingPaintBoxCurrentColor toValue: PaintBoxMorph prototype getColor. + (contentArea valueOfProperty: #paintBoxBrushSymbol) ifNotNil: - (contentArea valueOfProperty: #paintBoxBrushSymbol) ifNotNilDo: [:sym | PaintBoxMorph prototype brush: sym]. + (contentArea valueOfProperty: #paintBoxCurrentColor) ifNotNil: - (contentArea valueOfProperty: #paintBoxCurrentColor) ifNotNilDo: [:aColor | PaintBoxMorph prototype currentColor: aColor]! Item was changed: ----- Method: EventRecordingSpace>>pausePlayback (in category 'commands') ----- pausePlayback "Pause the playback. Sender responsible for setting state to #suspendedPlayback" eventRecorder pausePlayback. + (ActiveWorld findA: SketchEditorMorph) ifNotNil: - (ActiveWorld findA: SketchEditorMorph) ifNotNilDo: [:skEd | skEd cancelOutOfPainting. ^ self rewind]. self borderColor: Color orange. self setProperty: #suspendedContentArea toValue: contentArea veryDeepCopy. self populateControlsPanel! Item was changed: ----- Method: EventRecordingSpace>>removeSugarNavigatorFlap (in category 'sugar flaps') ----- removeSugarNavigatorFlap "Hide the fake interior sugar navigator." + (contentArea findA: InteriorSugarNavBar) ifNotNil: - (contentArea findA: InteriorSugarNavBar) ifNotNilDo: [:aBar | aBar delete]! Item was changed: ----- Method: EventRecordingSpace>>restoreIncomingPaintBoxSettings (in category 'commands') ----- restoreIncomingPaintBoxSettings "After a playback, restore the current-brush-width and current-color settings that had prevailed before playback started. Only current sender has its call to this method commented out, however..." + (self valueOfProperty: #incomingPaintBoxBrushSymbol) ifNotNil: - (self valueOfProperty: #incomingPaintBoxBrushSymbol) ifNotNilDo: [:sym | PaintBoxMorph prototype brush: sym. self removeProperty: #incomingPaintBoxBrushSymbol]. + (self valueOfProperty: #incomingPaintBoxCurrentColor) ifNotNil: - (self valueOfProperty: #incomingPaintBoxCurrentColor) ifNotNilDo: [:aColor | PaintBoxMorph prototype currentColor: aColor. self removeProperty: #incomingPaintBoxCurrentColor]! Item was changed: ----- Method: ExtendedClipboardMacInterface>>readByteStringClipboardData (in category 'general-api-read') ----- readByteStringClipboardData ^(self readClipboardData: 'com.apple.traditional-mac-plain-text') + ifNotNil: [: bytes | bytes asString macToSqueak] - ifNotNilDo: [: bytes | bytes asString macToSqueak] ! Item was changed: ----- Method: ExtendedClipboardMacInterface>>readTextClipboardData (in category 'general-api-read') ----- readTextClipboardData ^self readStringClipboardData + ifNotNil: [:string | (string replaceAll: Character lf with: Character cr) asText] - ifNotNilDo: [:string | (string replaceAll: Character lf with: Character cr) asText] ! Item was changed: ----- Method: ExtendedClipboardMacInterface>>readUTF8StringClipboardData (in category 'general-api-read') ----- readUTF8StringClipboardData ^(self readClipboardData: 'public.utf8-plain-text') + ifNotNil: [:bytes | - ifNotNilDo: [:bytes | [bytes asString utf8ToSqueak] ifError: [bytes asString] ] ! Item was changed: ----- Method: FileList2 class>>morphicViewProjectLoader2InWorld:title:reallyLoad:dirFilterType:isGeneral: (in category '*Etoys-Squeakland-blue ui') ----- morphicViewProjectLoader2InWorld: aWorld title: title reallyLoad: aBoolean dirFilterType: aSymbol isGeneral: isGeneral "Put up a blue file-list for loading etoy projects." " FileList2 morphicViewProjectLoader2InWorld: self currentWorld reallyLoad: true dirFilterType: #limitedSuperSwikiDirectoryList " | window aFileList actionRow treePane p | aFileList := self buildFileListDirFilterType: aSymbol. window := self buildMorphicWindow: aFileList title: title. actionRow := self buildLoadButtons: window fileList: aFileList reallyLoad: aBoolean. isGeneral ifTrue: [self buildFileTypeButtons: window actionRow: actionRow fileList: aFileList]. treePane := self buildPane: aWorld fileList: aFileList window: window dirFilterType: aSymbol. window addMorphBack: actionRow. window fullBounds. window position: aWorld topLeft + (aWorld extent - window extent // 2). window beSticky. aFileList sortByName. "This crazy stuff I really cannot figure out how to get the directory selected by default other than this." (treePane scroller submorphs detect: [:e | p := e complexContents withoutListWrapper pathName. (p beginsWith: 'sugar://') or: [p = SecurityManager default untrustedUserDirectory]] ifNone: [nil]) + ifNotNil: [:item | WorldState addDeferredUIMessage: [aFileList setSelectedDirectoryTo: item complexContents]]. - ifNotNilDo: [:item | WorldState addDeferredUIMessage: [aFileList setSelectedDirectoryTo: item complexContents]]. aFileList postOpen. ^ window! Item was changed: ----- Method: Flaps class>>addAndEnableEToyFlapsWithPreviousEntries: (in category '*Etoys-Squeakland-predefined flaps') ----- addAndEnableEToyFlapsWithPreviousEntries: aCollection "Initialize the standard default out-of-box set of global flaps. This method creates them and places them in my class variable #SharedFlapTabs, but does not itself get them displayed." | aSuppliesFlap | SharedFlapTabs ifNotNil: [^ self]. SharedFlapTabs := OrderedCollection new. aSuppliesFlap := self newSuppliesFlapFromQuads: self quadsDefiningPlugInSuppliesFlap positioning: #right withPreviousEntries: aCollection. aSuppliesFlap referent setNameTo: 'Supplies Flap' translated. "Per request from Kim Rose, 7/19/02" SharedFlapTabs add: aSuppliesFlap. "The #center designation doesn't quite work at the moment" SugarNavigatorBar showSugarNavigator ifTrue: [SharedFlapTabs add: self newSugarNavigatorFlap] ifFalse: [SharedFlapTabs add: self newNavigatorFlap]. self enableGlobalFlapWithID: 'Supplies' translated. SugarNavigatorBar showSugarNavigator ifTrue: [self enableGlobalFlapWithID: 'Sugar Navigator Flap' translated. + (self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNil: - (self globalFlapTabWithID: 'Sugar Navigator Flap' translated) ifNotNilDo: [:navTab | aSuppliesFlap sugarNavTab: navTab]] ifFalse: [self enableGlobalFlapWithID: 'Navigator' translated]. SharedFlapsAllowed := true. Project current flapsSuppressed: false. ^ SharedFlapTabs "Flaps addAndEnableEToyFlaps"! Item was changed: ----- Method: FunctionNameTile>>setOperator: (in category 'choice of function') ----- setOperator: anOperatorSymbol "The user chose an entry with the given inherent operator symbol (this may differ from what the user sees in the pop-up or on the tile." | aTable | operatorOrExpression := anOperatorSymbol. operatorOrExpression = #grouped ifTrue: [self line1: ' '. self setBalloonText: 'parenthesized' translated] ifFalse: [aTable := ScriptingSystem tableOfNumericFunctions. + (aTable detect: [:m | m second = anOperatorSymbol] ifNone: [nil]) ifNotNil: - (aTable detect: [:m | m second = anOperatorSymbol] ifNone: [nil]) ifNotNilDo: [:aTriplet | self line1: aTriplet first translated. self setBalloonText: aTriplet third translated]]. self addArrows. self scriptEdited. self layoutChanged! Item was changed: ----- Method: KeyboardEventMorph>>changeCharacter (in category 'menu commands') ----- changeCharacter "Allow the user to select a new character for the receiver." | result | result := FillInTheBlank request: 'New character? ' translated initialAnswer: character asString. result isEmptyOrNil ifTrue: [^ self]. result = character asString ifTrue: [^ self]. event keyValue: result first asciiValue. + self eventRoll ifNotNil: [:r | r pushChangesBackToEventTheatre]! - self eventRoll ifNotNilDo: [:r | r pushChangesBackToEventTheatre]! Item was changed: ----- Method: Morph>>defaultFloatPrecisionFor: (in category '*Etoys-scripting') ----- defaultFloatPrecisionFor: aGetSelector "Answer a number indicating the default float precision to be used in a numeric readout for which the receiver provides the data. Individual morphs can override this. Showing fractional values for readouts of getCursor was in response to an explicit request from ack" + (self renderedMorph decimalPlacesForGetter: aGetSelector) ifNotNil: [:places | ^ (Utilities floatPrecisionForDecimalPlaces: places)]. - (self renderedMorph decimalPlacesForGetter: aGetSelector) ifNotNilDo: [:places | ^ (Utilities floatPrecisionForDecimalPlaces: places)]. (#(getCursor getNumericValue getNumberAtCursor getCursorWrapped getScaleFactor) includes: aGetSelector) ifTrue: [^ 0.01]. (#(getXOnGraph getYOnGraph getLocationOnGraph) includes: aGetSelector) ifTrue: [^ 0.1]. ^ 1! Item was changed: ----- Method: MorphExtension>>inspectAllPropertiesOf: (in category '*Etoys-Squeakland-inspecting') ----- inspectAllPropertiesOf: aMorph "Open an Inspector on all the properties. This lets you see them but not in the initial instance actually modify them." | aDict | aDict := otherProperties ifNil: [IdentityDictionary new] ifNotNil: [otherProperties copy]. ((self class allInstVarNames reject: [:e | e = 'otherProperties']) collect: [:e | e asSymbol]) do: + [:var | (self instVarNamed: var) ifNotNil: - [:var | (self instVarNamed: var) ifNotNilDo: [:val | aDict add: (var -> val)]]. aDict inspectWithLabel: 'Properties of ', aMorph defaultLabelForInspector! Item was changed: ----- Method: MouseEventSequenceMorph>>growConcluded (in category 'processing') ----- growConcluded "After the user has manually resized the receiver, via its halo, this is called." | leftTime rightTime newSpan oldSpan ratio baseline | + self eventRoll ifNotNil: [:roll | - self eventRoll ifNotNilDo: [:roll | leftTime :=roll timeStampForCurrentPositionOf: self. rightTime := roll timeStampForRightEdgeOf: self. oldSpan := event duration. newSpan := rightTime - leftTime. ratio := newSpan asFloat / oldSpan. newSpan ~= oldSpan ifTrue: [baseline := event events first timeStamp. event events do: [:evt | evt timeStamp: (baseline + (((evt timeStamp - baseline) * ratio)))]. event startTime: event events first timeStamp. event stopTime: event events last timeStamp. roll pushChangesBackToEventTheatre] ifFalse: [^ self]]! Item was changed: ----- Method: PasteUpMorph>>abandonReplayHandsAndHalos (in category '*Etoys-Squeakland-olpc') ----- abandonReplayHandsAndHalos "Cleanup after playback." (self submorphs select: [:m | m isKindOf: HaloMorph]) do: [:m | m delete]. HandMorphForReplay allInstancesDo: [:i | + i halo ifNotNil: [:h | h delete]. - i halo ifNotNilDo: [:h | h delete]. self removeHand: i] " ActiveWorld abandonReplayHandsAndHalos. " ! Item was changed: ----- Method: PasteUpMorph>>abandonReplayHandsAndHalosFor: (in category '*Etoys-Squeakland-olpc') ----- abandonReplayHandsAndHalosFor: anEventRecorder "Cleanup after playback." (self submorphs select: [:m | m isKindOf: HaloMorph]) do: [:m | m delete]. HandMorphForReplay allInstancesDo: [:i | i recorder == anEventRecorder ifTrue: + [i halo ifNotNil: [:h | h delete]. - [i halo ifNotNilDo: [:h | h delete]. self removeHand: i]]! Item was changed: ----- Method: PlaybackInvoker>>initializeFrom: (in category 'initialization') ----- initializeFrom: anEventRecordingSpace "Initialize the receiver from the given recording space." | beforeImage theatreCopy | theatreCopy := anEventRecordingSpace veryDeepCopy. "Still want to do the below but there are still maddening problems with it." "theatreCopy convertToCanonicalForm." autoStart := true. autoDismiss := true. caption := theatreCopy captionString. offeringHint := true. beforeImage := theatreCopy initialPicture. beforeBitmap := beforeImage scaledToSize: (beforeImage extent * 0.3) rounded. theatreCopy rewind. contentArea := theatreCopy initialContentArea veryDeepCopy. tape := theatreCopy eventRecorder tape veryDeepCopy. caption := theatreCopy captionString. + theatreCopy balloonHelpString ifNotNil: - theatreCopy balloonHelpString ifNotNilDo: [:t | self setBalloonText: t]. self form: beforeBitmap. initialPicture := anEventRecordingSpace initialPicture veryDeepCopy. finalPicture := anEventRecordingSpace finalPicture veryDeepCopy. postPlaybackImageFeature := false. self on: #mouseUp send: #launchPlayback to: self ! Item was changed: ----- Method: Player>>getNewClone (in category 'slot getters/setters') ----- getNewClone "Answer a new player of the same class as the receiver, with a costume much like mine" | clone | clone := costume usableSiblingInstance. + costume pasteUpMorph ifNotNil: [:parent | parent addMorph: clone]. - costume pasteUpMorph ifNotNilDo: [:parent | parent addMorph: clone]. ^ clone player ! Item was changed: ----- Method: Player>>getPrecisionFor: (in category '*Etoys-Squeakland-slots-user') ----- getPrecisionFor: slotName "get the precision for the given slot name" | aGetter places precision | precision := 1. (self slotInfo includesKey: slotName) ifTrue: ["it's a user slot" precision := (self slotInfoAt: slotName) floatPrecision] ifFalse: ["reference to system slots" aGetter := Utilities getterSelectorFor: slotName. + self costume renderedMorph ifNotNil: [ :morph | - self costume renderedMorph ifNotNilDo: [ :morph | places := morph decimalPlacesForGetter: aGetter. precision := Utilities floatPrecisionForDecimalPlaces: places ]]. ^precision! Item was changed: ----- Method: Player>>getXOnGraph (in category '*Etoys-Squeakland-morphicExtras-Charts') ----- getXOnGraph "Answer the x-coordinate with respect to a corresponding horizontal axis, if any; if none, answer the cartesian x" | aCostume | (aCostume := self costume) isInWorld ifFalse: [^ self getX]. + (aCostume referencePlayfield findA: HorizontalNumberLineMorph) ifNotNil: - (aCostume referencePlayfield findA: HorizontalNumberLineMorph) ifNotNilDo: [:aNumberLine | ^ aNumberLine horizontalCoordinateOf: aCostume]. ^ self getX! Item was changed: ----- Method: Player>>getYOnGraph (in category '*Etoys-Squeakland-morphicExtras-Charts') ----- getYOnGraph "Answer the y-coordinate with respect to a corresponding horizontal axis, if any; if none, answer the cartesian x" | aCostume | (aCostume := self costume) isInWorld ifFalse: [^ self getY]. + (aCostume referencePlayfield findA: VerticalNumberLineMorph) ifNotNil: - (aCostume referencePlayfield findA: VerticalNumberLineMorph) ifNotNilDo: [:aNumberLine | ^ aNumberLine verticalCoordinateOf: aCostume]. ^ self getY! Item was changed: ----- Method: Player>>overlapsAny: (in category 'scripts-standard') ----- overlapsAny: aPlayer "Answer true if my costume overlaps that of aPlayer, or any of its siblings (if aPlayer is a scripted player) or if my costume overlaps any morphs of the same class (if aPlayer is unscripted)." | possibleCostumes itsCostume itsCostumeClass myShadow | (self ~= aPlayer and: [self overlaps: aPlayer]) ifTrue: [^true]. possibleCostumes := IdentitySet new. aPlayer belongsToUniClass ifTrue: [aPlayer class allSubInstancesDo: [:anInstance | (anInstance ~~ self and: [itsCostume := anInstance costume. (itsCostume bounds intersects: costume bounds) and: [itsCostume world == costume world]]) ifTrue: [possibleCostumes add: itsCostume]]] ifFalse: [itsCostumeClass := aPlayer costume class. self costume world presenter allExtantPlayers do: [:ep | self ~= ep ifTrue:[ ep costume + ifNotNil: [:ea | (ea class == itsCostumeClass - ifNotNilDo: [:ea | (ea class == itsCostumeClass and: [ea bounds intersects: costume bounds]) ifTrue: [possibleCostumes add: ea]]]]]. possibleCostumes isEmpty ifTrue: [^ false]. myShadow := costume shadowForm. ^possibleCostumes anySatisfy: [:m | m overlapsShadowForm: myShadow bounds: costume fullBounds]. ! Item was changed: ----- Method: Player>>referencePool (in category '*Etoys-Squeakland-as yet unclassified') ----- referencePool + self costume ifNotNil: [:c | c referenceWorld ifNotNil: [:w | ^ w referencePool]]. - self costume ifNotNilDo: [:c | c referenceWorld ifNotNilDo: [:w | ^ w referencePool]]. ^ nil. ! Item was changed: ----- Method: Player>>removeWatchersOfSlotNamed: (in category '*Etoys-Squeakland-translation') ----- removeWatchersOfSlotNamed: aName "A variable has been removed. Deal with possible watchers." | aGetter | aGetter := Utilities getterSelectorFor: aName. self allPossibleWatchersFromWorld do: [:aWatcher | (aWatcher getSelector = aGetter) ifTrue: [aWatcher stopStepping. + (aWatcher ownerThatIsA: WatcherWrapper) ifNotNil: - (aWatcher ownerThatIsA: WatcherWrapper) ifNotNilDo: [:aWrapper | aWrapper delete]]]! Item was changed: ----- Method: Player>>renameScript:newSelector: (in category 'scripts-kernel') ----- renameScript: oldSelector newSelector: newSelector "Rename the given script to have the new selector" | aUserScript anInstantiation aDict | oldSelector = newSelector ifTrue: [^ self]. oldSelector numArgs == 0 ifTrue: [self class allInstancesDo: [:aPlayer | | itsCostume | anInstantiation := aPlayer scriptInstantiationForSelector: oldSelector. anInstantiation ifNotNil: [ newSelector numArgs == 0 ifTrue: [anInstantiation changeSelectorTo: newSelector]. aDict := aPlayer costume actorState instantiatedUserScriptsDictionary. itsCostume := aPlayer costume renderedMorph. itsCostume renameScriptActionsFor: aPlayer from: oldSelector to: newSelector. self currentWorld renameScriptActionsFor: aPlayer from: oldSelector to: newSelector. aDict removeKey: oldSelector. newSelector numArgs == 0 ifTrue: [aDict at: newSelector put: anInstantiation. anInstantiation assureEventHandlerRepresentsStatus]]]] ifFalse: [newSelector numArgs == 0 ifTrue: [self class allInstancesDo: [:aPlayer | anInstantiation := aPlayer scriptInstantiationForSelector: newSelector. anInstantiation ifNotNil: [anInstantiation assureEventHandlerRepresentsStatus]]]]. aUserScript := self class userScriptForPlayer: self selector: oldSelector. aUserScript renameScript: newSelector fromPlayer: self. "updates all script editors, and inserts the new script in my scripts directory" self removeScriptNamed: oldSelector. ((self existingScriptInstantiationForSelector: newSelector) notNil and: [newSelector numArgs > 0]) ifTrue: [self error: 'ouch']. self updateScriptsCategoryOfViewers. + (self scriptEditorFor: newSelector) ifNotNil: - (self scriptEditorFor: newSelector) ifNotNilDo: [:e | e updateHeader]! Item was changed: ----- Method: Player>>revealPlayerIn: (in category 'misc') ----- revealPlayerIn: aWorld "Reveal the receiver if at all possible in the world; once it's visible, flash its image for a bit, and leave it with its halo showing" | aMorph | (aMorph := self costume) isInWorld ifTrue: [aMorph goHome. self indicateLocationOnScreen. + aMorph owner ifNotNil: [:ownr | ownr layoutPolicy ifNil: - aMorph owner ifNotNilDo: [:ownr | ownr layoutPolicy ifNil: [aMorph comeToFront]]. aMorph addHalo. ^ self]. "It's hidden somewhere; search for it" aWorld submorphs do: [:m | (m succeededInRevealing: self) ifTrue: "will have obtained halo already" [aWorld doOneCycle. self indicateLocationOnScreen. ^ self]]. "The morph is truly unreachable in this world at present. So extract it from hyperspace, and place it at center of screen, wearing a halo." aMorph isWorldMorph ifFalse: [aWorld addMorphFront: aMorph. aMorph position: aWorld bounds center. aMorph addHalo]! Item was changed: ----- Method: Player>>setXOnGraph: (in category '*Etoys-Squeakland-morphicExtras-Charts') ----- setXOnGraph: aNumber "Set the x-on-graph coordinate as indicated. If there is Horizontal Number Line in the same playfield, this is interpreted with reference to the position and scale of that number line; if not, this is no different from setX:" | aCostume | (aCostume := self costume) isInWorld ifFalse: [^ self setX: aNumber]. + (aCostume referencePlayfield findA: HorizontalNumberLineMorph) ifNotNil: - (aCostume referencePlayfield findA: HorizontalNumberLineMorph) ifNotNilDo: [:aNumberLine | ^ aNumberLine setXOnGraphFor: aCostume to: aNumber]. ^ self getX! Item was changed: ----- Method: Player>>setYOnGraph: (in category '*Etoys-Squeakland-morphicExtras-Charts') ----- setYOnGraph: aNumber "Set the y-on-graph coordinate as indicated. If there is Vertical Number Line in the same playfield, this is interpreted with reference to the position and scale of that number line; if not, this is no different from setY:" | aCostume | (aCostume := self costume) isInWorld ifFalse: [^ self setY: aNumber]. + (aCostume referencePlayfield findA: VerticalNumberLineMorph) ifNotNil: - (aCostume referencePlayfield findA: VerticalNumberLineMorph) ifNotNilDo: [:aNumberLine | ^ aNumberLine setYOnGraphFor: aCostume to: aNumber]. ^ self setY: aNumber! Item was changed: ----- Method: PopUpMenu>>startUpWithCaption:at:allowKeyboard:centered: (in category '*Etoys-Squeakland-basic control sequence') ----- startUpWithCaption: captionOrNil at: location allowKeyboard: allowKeyboard centered: centered "Display the menu, with caption if supplied. Wait for the mouse button to go down, then track the selection as long as the button is pressed. When the button is released, Answer the index of the current selection, or zero if the mouse is not released over any menu item. Location specifies the desired topLeft of the menu body rectangle. The final argument indicates whether the menu should seize the keyboard focus in order to allow the user to navigate it via the keyboard If centered is true, the menu items are displayed centered.." | maxHeight aMenu | + (ProvideAnswerNotification signal: captionOrNil) ifNotNil: - (ProvideAnswerNotification signal: captionOrNil) ifNotNilDo: [:answer | ^ selection := answer ifTrue: [1] ifFalse: [2]]. maxHeight := Display height*3//4. self frameHeight > maxHeight ifTrue: [^ self startUpSegmented: maxHeight withCaption: captionOrNil at: location allowKeyboard: allowKeyboard]. Smalltalk isMorphic ifTrue:[ selection := Cursor normal showWhile: [aMenu := MVCMenuMorph from: self title: captionOrNil. centered ifTrue: [aMenu submorphs allButFirst do: [:m | m setProperty: #centered toValue: true]]. aMenu invokeAt: location in: ActiveWorld allowKeyboard: allowKeyboard]. ^ selection]. frame ifNil: [self computeForm]. Cursor normal showWhile: [self displayAt: location withCaption: captionOrNil during: [self controlActivity]]. ^ selection! Item was changed: ----- Method: Preferences class>>persistValue:for: (in category '*Etoys-Squeakland-persistence') ----- persistValue: aBooleanOrNil for: aSymbol "Save the preference aSymbol on file, so it can be restored to the given value on startup. If nil, delete persistent value." | fileName file | fileName := self persistedFileNameFor: aSymbol. aBooleanOrNil ifNil: [ + ^ExternalSettings preferenceDirectory ifNotNil: [:fd | - ^ExternalSettings preferenceDirectory ifNotNilDo: [:fd | fd deleteFileNamed: fileName ifAbsent: []]]. file := ExternalSettings assuredPreferenceDirectory forceNewFileNamed: fileName. [file wantsLineEndConversion: true; nextPutAll: 'value: '; print: aBooleanOrNil; cr. ] ensure: [file close]! Item was changed: ----- Method: Project>>keepSugarProperties:monitor: (in category '*Etoys-Squeakland-sugar') ----- keepSugarProperties: aDictionary monitor: aBoolean | dontKeep props | aDictionary at: 'title' ifPresent: [:title | self name: title]. dontKeep := #('activity' 'activity_id' 'title' 'title_set_by_user' 'keep' 'mtime' 'timestamp' 'preview' 'icon-color' 'mime_type') asSet. props := Dictionary new: aDictionary size. aDictionary keysAndValuesDo: [:key :value | (dontKeep includes: key) ifFalse: [props at: key put: value]]. self sugarProperties: props. aBoolean ifTrue: [ + self sugarObjectId ifNotNil: [:id | - self sugarObjectId ifNotNilDo: [:id | SugarLauncher current monitorJournalEntry: id]].! Item was changed: ----- Method: ProjectLoading class>>loadFromImagePath: (in category '*etoys') ----- loadFromImagePath: projectName "Open the project in image path. This is used with projects in OLPC distribution. - The image's directory is used. - Squeaklets directory is ignored. - If there is a project named projectName, it is opened. " "self openFromImagePath: 'Welcome'" | directory aStream entries fileName | (Project named: projectName) + ifNotNil: [:project | ^ project]. - ifNotNilDo: [:project | ^ project]. directory := FileDirectory on: Smalltalk imagePath. entries := FileList2 projectOnlySelectionMethod: directory entries. fileName := (entries detect: [:each | (Project parseProjectFileName: each name) first = projectName] ifNone: [^ nil]) name. 'Loading a Project...' displaySequentialProgress: [ProgressNotification signal: '0'. directory := FileDirectory on: Smalltalk imagePath. aStream := directory readOnlyFileNamed: fileName. ^ self loadName: fileName stream: aStream fromDirectory: directory withProjectView: nil]! Item was changed: ----- Method: ProjectLoading class>>loadName:stream:fromDirectory:withProjectView:clearOriginFlag: (in category '*etoys') ----- loadName: aFileName stream: preStream fromDirectory: aDirectoryOrNil withProjectView: existingView clearOriginFlag: clearOriginFlag "Reconstitute a Morph from the selected file, presumed to be represent a Morph saved via the SmartRefStream mechanism, and open it in an appropriate Morphic world." | morphOrList archive mgr substituteFont numberOfFontSubstitutes resultArray anObject project manifests dict | (self checkStream: preStream) ifTrue: [^ nil]. ProgressNotification signal: '0.2'. archive := preStream isZipArchive ifTrue:[ZipArchive new readFrom: preStream] ifFalse:[nil]. manifests := (archive membersMatching: '*manifest'). (manifests size = 1 and: [((dict := self parseManifest: manifests first contents) at: 'Project-Format' ifAbsent: []) = 'S-Expression']) ifTrue: [^ self loadSexpProjectDict: dict stream: preStream fromDirectory: aDirectoryOrNil withProjectView: existingView]. morphOrList := self morphOrList: aFileName stream: preStream fromDirectory: aDirectoryOrNil archive: archive. morphOrList ifNil: [^ nil]. ProgressNotification signal: '0.4'. resultArray := self fileInName: aFileName archive: archive morphOrList: morphOrList. anObject := resultArray first. numberOfFontSubstitutes := resultArray second. substituteFont := resultArray third. mgr := resultArray fourth. preStream close. ProgressNotification signal: '0.7'. "the hard part is over" (anObject isKindOf: ImageSegment) ifTrue: [ project := self loadImageSegment: anObject fromDirectory: aDirectoryOrNil withProjectView: existingView numberOfFontSubstitutes: numberOfFontSubstitutes substituteFont: substituteFont mgr: mgr. project noteManifestDetailsIn: dict. project removeParameter: #sugarProperties. Smalltalk at: #SugarPropertiesNotification ifPresent: [:notification | + notification signal ifNotNil: [:props | - notification signal ifNotNilDo: [:props | project keepSugarProperties: props monitor: true]]. clearOriginFlag ifTrue: [project forgetExistingURL]. ProgressNotification signal: '0.8'. ^ project ].! Item was changed: ----- Method: RecordingControls>>durationString (in category 'private') ----- durationString "Answer a string representing my duration." recorder ifNotNil: + [recorder recordedSound ifNotNil: - [recorder recordedSound ifNotNilDo: [:aSound | ^ 'Recorded sound duration: {1} second(s)' translated format: {(aSound duration printShowingDecimalPlaces: 2)}]]. ^ 'no sound recorded yet' translated! 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 aStatusMorph aButton aTile aMorph goldBoxButton aBox | aRow := AlignmentMorph newRow color: ScriptingSystem baseColor; layoutInset: 1. aRow hResizing: #spaceFill. aRow vResizing: #shrinkWrap. self addDismissButtonTo: aRow. aRow addTransparentSpacerOfSize: 9. "Player's name" aString := playerScripted externalName. aMorph := StringMorph contents: aString font: ScriptingSystem fontForTiles. aMorph setNameTo: 'title'. aRow addMorphBack: aMorph. aRow addTransparentSpacerOfSize: 6. "Script's name" aBox := AlignmentMorph newRow. aBox hResizing: #shrinkWrap; vResizing: #shrinkWrap. aBox color: (Color r: 0.839 g: 1.0 b: 0.806). aBox borderWidth: 1. aBox borderColor: (Color r: 0.645 g: 0.774 b: 0.613). aButton := UpdatingStringMorph new. aButton useStringFormat; target: self; getSelector: #scriptTitle; setNameTo: 'script name'; font: ScriptingSystem fontForNameEditingInScriptor; putSelector: #setScriptNameTo:; setProperty: #okToTextEdit toValue: true; step; yourself. aBox addMorph: aButton. aRow addMorphBack: aBox. aBox setBalloonText: 'Click here to edit the name of the script.' translated. "aRow addTransparentSpacerOfSize: 9." aRow addVariableTransparentSpacer. "Try It button" self hasParameter ifFalse: [aRow addMorphBack: ((ThreePhaseButtonMorph labelSymbol: #TryIt target: self actionSelector: #tryMe arguments: #()) actWhen: #whilePressed; balloonTextSelector: #tryMe). aRow addTransparentSpacerOfSize: 3]. "Step button, only for non-Kedama" (self playerScripted isPrototypeTurtlePlayer or: [self hasParameter]) ifFalse: [aRow addMorphBack: (aButton := ThreePhaseButtonMorph labelSymbol: #StepMe target: self actionSelector: #stepMe arguments: #()). aButton balloonTextSelector: #stepMe. aRow addTransparentSpacerOfSize: 3]. "Status controller" self hasParameter ifTrue: [aTile := TypeListTile new choices: Vocabulary typeChoicesForUserVariables dataType: nil. aTile addArrows. aTile setLiteral: self typeForParameter. aRow addMorphBack: aTile. aTile borderColor: Color red. aTile color: ScriptingSystem uniformTileInteriorColor. aTile setBalloonText: 'Drag from here to get a parameter tile' translated. aTile addCaretsAsAppropriate: true] ifFalse: [aRow addMorphBack: (aStatusMorph := self scriptInstantiation statusControlMorph)]. "aRow addTransparentSpacerOfSize: 3." aRow addVariableTransparentSpacer. "Gold-box" aRow addMorphBack: (goldBoxButton := IconicButton new). goldBoxButton borderWidth: 0; labelGraphic: (ScriptingSystem formAtKey: 'RoundGoldBox'); color: Color transparent; actWhen: #buttonDown; target: self; actionSelector: #offerGoldBoxMenu; shedSelvedge; setBalloonText: 'click here to get a palette of useful tiles to use in your script.' translated. aRow addTransparentSpacerOfSize: 6@1. "Menu Button" aButton := self menuButton. aButton actionSelector: #offerScriptorMenu. aRow addMorphBack: aButton. (playerScripted existingScriptInstantiationForSelector: scriptName) + ifNotNil: - ifNotNilDo: [:inst | inst updateStatusMorph: aStatusMorph]. ^ aRow! Item was changed: ----- Method: ScriptEncoder>>lookupInPools:ifFound: (in category 'private') ----- lookupInPools: varName ifFound: assocBlock referenceObject referencePool ifNotNil: [:pool | + (pool bindingOf: varName asSymbol) ifNotNil:[:assoc| - (pool bindingOf: varName asSymbol) ifNotNilDo:[:assoc| assocBlock value: assoc. ^ true]]. ^ super lookupInPools: varName ifFound: assocBlock. ! Item was changed: ----- Method: SugarLauncher class>>welcomeProjectName (in category 'accessing') ----- welcomeProjectName "Deprecated" + ^Project home ifNotNil: [:p | p name]! - ^Project home ifNotNilDo: [:p | p name]! Item was changed: ----- Method: SugarLauncher>>active: (in category 'commands') ----- active: aBoolean "Etoys activity received or lost focus" Preferences setPreference: #soundsEnabled toValue: aBoolean. aBoolean ifTrue: [ + UISema ifNotNil: [:s | s signal]. - UISema ifNotNilDo: [:s | s signal]. ] ifFalse: [ SoundPlayer shutDown. SoundRecorder anyActive ifTrue: [SoundRecorder allSubInstancesDo: [:r | r stopRecording]]. Smalltalk at: #VideoDevice ifPresent: [:vd | vd shutDown: true]. UISema ifNil: [UISema := Semaphore new]. UISema initSignals. WorldState addDeferredUIMessage: [UISema wait]. ].! Item was changed: ----- Method: SugarLauncher>>startUp (in category 'running') ----- startUp self class allInstances do: [:ea | ea shutDown]. Current := self. SugarNavigatorBar current + ifNotNil: [:bar | bar startUp]. - ifNotNilDo: [:bar | bar startUp]. parameters at: 'ACTIVITY_ID' ifPresent: [ :activityId | OLPCVirtualScreen setupIfNeeded. World windowEventHandler: self. (Smalltalk classNamed: 'DBus') ifNotNil: [:dbus | dbus sessionBus export: (Smalltalk classNamed: 'SugarEtoysActivity') new on: 'org.laptop.Activity', activityId at: '/org/laptop/Activity/', activityId]. Utilities authorName: self ownerBuddy nick. ServerDirectory addServer: (SugarDatastoreDirectory mimetype: 'application/x-squeak-project' extension: '.pr') named: SugarLauncher defaultDatastoreDirName. self joinSharedActivity. self isShared ifFalse: [ parameters at: 'OBJECT_ID' ifPresent: [:id | ^self resumeJournalEntry: id]]. self isShared ifTrue: [^self]. ^self welcome: (parameters at: 'URI' ifAbsent: [''])]. self welcome: '' ! Item was changed: ----- Method: SugarLauncher>>welcome: (in category 'commands') ----- welcome: aUrl "Sent either when running from Sugar, or at regular startUp otherwise" aUrl isEmpty ifFalse: [ | url | url := (aUrl includes: $/) ifTrue: [aUrl] ifFalse: ['file:', (parameters at: 'BUNDLE_PATH'), '/', aUrl]. ^(url endsWith: '.pr') ifTrue: [Project fromUrl: url] ifFalse: [WorldState addDeferredUIMessage: [FileStream fileIn: (url copyAfter: $:)]]]. + self shouldEnterHomeProject ifTrue: [Project home ifNotNil: [:p | p enter]].! - self shouldEnterHomeProject ifTrue: [Project home ifNotNilDo: [:p | p enter]].! Item was changed: ----- Method: SugarNavigatorBar class>>configureCurrentForSqueakland (in category 'utilitity') ----- configureCurrentForSqueakland + SugarNavigatorBar current ifNotNil: [:bar | bar configureForSqueakland]. - SugarNavigatorBar current ifNotNilDo: [:bar | bar configureForSqueakland]. ! Item was changed: ----- Method: SugarNavigatorBar class>>rebuildButtons (in category 'utilitity') ----- rebuildButtons + self current ifNotNil: [:bar | bar rebuildButtons]! - self current ifNotNilDo: [:bar | bar rebuildButtons]! Item was changed: ----- Method: SugarNavigatorBar>>chooseScreenSetting (in category 'buttons creation') ----- chooseScreenSetting "Put up a menu allowing the user to choose between virtual-olpc-display mode and normal-display mode." | aMenu availableModes | aMenu := MenuMorph new defaultTarget: self. aMenu addTitle: 'display mode' translated. Preferences noviceMode ifFalse: [aMenu addStayUpItem]. availableModes := self availableDisplayModes. availableModes do: [:mode | aMenu addUpdating: #stringForDisplayModeIs: target: self selector: #toggleScreenSetting: argumentList: {mode}. + (self balloonTextForMode: mode) ifNotNil: - (self balloonTextForMode: mode) ifNotNilDo: [:help | aMenu balloonTextForLastItem: help translated]]. aMenu addLine. aMenu addUpdating: #stringForFullScreenToggle target: self action: #toggleFullScreen. aMenu popUpInWorld "(Flaps globalFlapTabWithID: 'Sugar Navigator Flap' translated) referent chooseScreenSetting"! Item was changed: ----- Method: SugarNavigatorBar>>previousProject (in category 'the actions') ----- previousProject Preferences eToyFriendly ifTrue: [ | prev | prev := Project current previousProject. (prev isNil or: [prev isTopProject]) ifTrue: [ + Project home ifNotNil: [:p | Project current setParent: p]]]. - Project home ifNotNilDo: [:p | Project current setParent: p]]]. super previousProject! Item was changed: ----- Method: SugarNavigatorBar>>putUpInitialBalloonHelpFor: (in category 'initialization') ----- putUpInitialBalloonHelpFor: quads "Given a list of quads of the form <selector> <help-msg> <corner> <force-boolean> (see senders for examples), put up initial balloon help for them." " SugarNavigatorBar someInstance putUpInitialBalloonHelpFor: #((doNewPainting 'make a new painting' topRight false) (toggleSupplies 'open the supplies bin' topLeft true)) SugarNavigatorBar someInstance putUpInitialBalloonHelpFor: #((showNavBar 'show the tool bar' bottomLeft false) (hideNavBar 'hide the tool bar' bottomLeft false)) " | b1 p b | p := PasteUpMorph new. p clipSubmorphs: false. p color: Color transparent. p borderWidth: 0. quads do: [:aQuad | + (submorphs first submorphs detect: [:e | e isButton and: [e actionSelector = aQuad first]] ifNone: [nil]) ifNotNil: - (submorphs first submorphs detect: [:e | e isButton and: [e actionSelector = aQuad first]] ifNone: [nil]) ifNotNilDo: [:aButton | b1 := BalloonMorph string: aQuad second for: aButton corner: aQuad third force: aQuad fourth. p addMorph: b1]]. b := BalloonMorph string: p for: World corner: #bottomLeft. b color: Color transparent. b borderWidth: 0. [(Delay forSeconds: 1) wait. b popUpForHand: ActiveHand] fork. ! Item was changed: ----- Method: SugarNavigatorBar>>setEdge: (in category 'event handling') ----- setEdge: aSymbol "Establish the given edge to which to cling." + (Flaps globalFlapTab: 'Supplies' translated) ifNotNil: - (Flaps globalFlapTab: 'Supplies' translated) ifNotNilDo: [:s | s setEdge: aSymbol]! Item was changed: ----- Method: SystemDictionary>>logError:inContext:to: (in category '*Etoys-Squeakland-miscellaneous') ----- logError: errMsg inContext: aContext to: aFilename "Log the error message and a stack trace to the given file." | ff | [Preferences logDebuggerStackToConsole + ifTrue: [FileStream stderr ifNotNil: [:stderr | - ifTrue: [FileStream stderr ifNotNilDo: [:stderr | stderr nextPutAll: '=========== '; nextPutAll: aFilename; nextPutAll: ' START =========='; cr; nextPutAll: errMsg; cr; nextPutAll: (String streamContents: [:strm | aContext errorReportOn: strm]); nextPutAll: '=========== '; nextPutAll: aFilename; nextPutAll: ' END =========='; cr]]] ifError: ["ignore"]. FileDirectory default deleteFileNamed: aFilename ifAbsent: []. (ff := FileStream fileNamed: aFilename) ifNil: [^ self "avoid recursive errors"]. ff nextPutAll: errMsg; cr. aContext errorReportOn: ff. ff close. ! Item was changed: ----- Method: TheWorldMenu class>>registerStandardInternetApps (in category '*Etoys-Squeakland-open-menu registry') ----- registerStandardInternetApps "Register the three currently-built-in internet apps and the hook for SqueakMap with the open-menu registry. This is a one-time initialization affair, contending with the fact that the three apps are already in the image." self registerOpenCommand: { 'Package Loader' translated. { TheWorldMenu . #openPackageLoader }. 'A tool that lets you browse and load packages from SqueakMap, an index of Squeak code available on the internet' translated}. #(Scamper Celeste IRCConnection) do: [:sym | + (Smalltalk at: sym ifAbsent: [nil]) ifNotNil: - (Smalltalk at: sym ifAbsent: [nil]) ifNotNilDo: [:aClass | aClass registerInOpenMenu]] " OpenMenuRegistry := nil. TheWorldMenu registerStandardInternetApps. "! Item was changed: ----- Method: TileMorph>>acceptNewLiteral (in category 'code generation') ----- acceptNewLiteral "Tell the scriptEditor who I belong to that I have a new literal value." | topScript | topScript := self outermostMorphThat: [:m | m isKindOf: ScriptEditorMorph]. topScript ifNotNil: [topScript installWithNewLiteral]. + (self ownerThatIsA: ViewerLine) ifNotNil: - (self ownerThatIsA: ViewerLine) ifNotNilDo: [:aLine | (self ownerThatIsA: PhraseTileMorph) ifNotNil: [aLine removeHighlightFeedback. self layoutChanged. ActiveWorld doOneSubCycle. aLine addCommandFeedback: nil]]! Item was changed: ----- Method: TileMorph>>arrowAction: (in category 'arrows') ----- arrowAction: delta "Do what is appropriate when an arrow on the tile is pressed; delta will be +1 or -1" | index options | (type == #literal and: [literal isNumber]) ifTrue: [self value: (((literal + delta) printShowingDecimalPlaces: self decimalPlaces) asNumber)] ifFalse: [options := self options ifNil: [^ self]. index := (options first indexOf: self value) + delta. self value: (options first atWrap: index). + (options second atWrap: index) ifNotNil: - (options second atWrap: index) ifNotNilDo: [:bt | submorphs last setBalloonText: bt translated]]! Item was changed: ----- Method: TileMorph>>setDecimalPlacesFromTypeIn: (in category '*Etoys-Squeakland-misc') ----- setDecimalPlacesFromTypeIn: aString + self labelMorph ifNotNil: [:m | - self labelMorph ifNotNilDo: [:m | m setDecimalPlacesFromTypeIn: aString]! Item was changed: ----- Method: TileMorph>>setVisibilityOfUpDownCarets: (in category '*Etoys-Squeakland-arrows') ----- setVisibilityOfUpDownCarets: showCarets "If the argument is true, make all the 'up and down' carets, such as those that let you change the value of a number or of a boolean constant, visible; if false, remove them from sight. " + (submorphs detect: [:m | m hasProperty: #arrows] ifNone: [nil]) ifNotNil: - (submorphs detect: [:m | m hasProperty: #arrows] ifNone: [nil]) ifNotNilDo: [:wrapper | showCarets ifTrue: [wrapper width: 9] ifFalse: [wrapper width: 0]]! Item was changed: ----- Method: TileMorph>>updateWordingToMatchVocabulary (in category 'initialization') ----- updateWordingToMatchVocabulary "The current vocabulary has changed; change the wording on my face, if appropriate" | aMethodInterface | type == #operator ifTrue: [self line1: (self currentVocabulary tileWordingForSelector: operatorOrExpression). (ScriptingSystem doesOperatorWantArrows: operatorOrExpression) ifTrue: [self addArrows]. self updateLiteralLabel. aMethodInterface := self currentVocabulary methodInterfaceAt: operatorOrExpression ifAbsent: [ Vocabulary eToyVocabulary methodInterfaceAt: operatorOrExpression ifAbsent: [^ self]]. self setBalloonText: aMethodInterface documentation. ]. type == #objRef ifTrue: [ self isPossessive ifTrue: [self bePossessive] ifFalse: [ + self labelMorph ifNotNil: [:label | - self labelMorph ifNotNilDo: [:label | label contents: self actualObject nameForViewer asSymbol translated] ] ]. "submorphs last setBalloonText: aMethodInterface documentation"! Item was changed: ----- Method: Utilities class>>versionNumberAndDateFromConfig: (in category '*Etoys-Squeakland-fetching updates') ----- versionNumberAndDateFromConfig: anMCConfiguration "Answer the latest date found in anMCConfiguration (or the associated working copy), and the sum of its version numbers." | versionNumbers versionDates | versionNumbers := anMCConfiguration dependencies collect: [:d | (d versionInfo name copyAfterLast: $.) asInteger]. versionDates := anMCConfiguration dependencies collect: [:d | d versionInfo date ifNil: [((d package workingCopy ancestry findAncestor: d versionInfo) + ifNotNil: [:v | v date]) - ifNotNilDo: [:v | v date]) ifNil: [Date fromDays: 0]]]. ^{versionNumbers sum. versionDates max}. ! Item was changed: ----- Method: WatcherWrapper>>reconstituteName (in category 'updating') ----- reconstituteName "Reconstitute the external name of the receiver" variableName ifNotNil: [self setNameTo: ('{1}''s {2}' translated format: {player externalName. variableName translated}). + (self submorphWithProperty: #watcherLabel) ifNotNil: - (self submorphWithProperty: #watcherLabel) ifNotNilDo: [:aLabel | aLabel contents: variableName asString translated, ' = ']]! Item was changed: ----- Method: Worldlet>>closeNavigatorFlap (in category 'flaps') ----- closeNavigatorFlap "Close the navigator flap" (self submorphs detect: [:m | (m isKindOf: FlapTab) and: [m flapID = 'Navigator']] ifNone: [nil]) + ifNotNil: - ifNotNilDo: [:nav | nav hideFlap]!

1 0

The Trunk: ToolsTests-eem.80.mcz
by commits＠source.squeak.org 08 Jun '17

08 Jun '17

Eliot Miranda uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-eem.80.mcz ==================== Summary ==================== Name: ToolsTests-eem.80 Author: eem Time: 8 June 2017, 12:04:04.601222 pm UUID: 2f5c7a5c-ec42-4949-9969-99931316d84e Ancestors: ToolsTests-jr.79 Fix a speeling rorre in a selector =============== Diff against ToolsTests-jr.79 =============== Item was removed: - ----- Method: BrowseTest>>testBrowseHierarchyMataclass (in category 'testing') ----- - testBrowseHierarchyMataclass - "self debug: #testBrowseHierarchyMataclass" - | browsersBefore browsersAfter opened | - self ensureMorphic. - - browsersBefore := self currentHierarchyBrowsers. - self withImmediatelyOpeningWindowsDo: [1 class class browseHierarchy]. - browsersAfter := self currentHierarchyBrowsers. - - self assert: (browsersAfter size = (browsersBefore size + 1)). - opened := browsersAfter removeAll: browsersBefore; yourself. - self assert: (opened size = 1). - opened := opened asArray first. - self assert: (opened model selectedClass == Metaclass). - - opened delete - - - ! Item was added: + ----- Method: BrowseTest>>testBrowseHierarchyMetaclass (in category 'testing') ----- + testBrowseHierarchyMetaclass + "self debug: #testBrowseHierarchyMetaclass" + | browsersBefore browsersAfter opened | + self ensureMorphic. + + browsersBefore := self currentHierarchyBrowsers. + self withImmediatelyOpeningWindowsDo: [1 class class browseHierarchy]. + browsersAfter := self currentHierarchyBrowsers. + + self assert: (browsersAfter size = (browsersBefore size + 1)). + opened := browsersAfter removeAll: browsersBefore; yourself. + self assert: (opened size = 1). + opened := opened asArray first. + self assert: (opened model selectedClass == Metaclass). + + opened delete + + + !

1 0

The Trunk: Tools-eem.762.mcz
by commits＠source.squeak.org 08 Jun '17

08 Jun '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.762.mcz ==================== Summary ==================== Name: Tools-eem.762 Author: eem Time: 8 June 2017, 12:03:05.548717 pm UUID: 8fbc1072-9aae-4c6e-bcc6-2c3f2f7c3207 Ancestors: Tools-pre.761 Tools fixes (some harvested from Terf). When creating a subclass template in a brtowser mark the text as changed so it doesn't get lost. Use isCompiledCode in PointerFinder code. Use instVarNameForIndex: instaed of longer winded code, also in PointerFinder. =============== Diff against Tools-pre.761 =============== Item was changed: ----- Method: Browser>>makeNewSubclass (in category 'class functions') ----- makeNewSubclass self selectedClassOrMetaClass ifNil: [^ self]. self okToChange ifFalse: [^ self]. self editSelection: #newClass. + self contentsChanged. + "Force the text view to assume there are changes" + self changed: #editString with: self contents! - self contentsChanged! Item was changed: ----- Method: Object>>shouldFollowOutboundPointers (in category '*Tools-Debugger') ----- shouldFollowOutboundPointers "Allow other subclasses of ProtoObject to hook this method." + (self class isPointers or: [ self isCompiledCode ]) ifFalse: [ ^ false ]. - (self class isPointers or: [ self isCompiledMethod ]) ifFalse: [ ^ false ]. ^ (self class isWeak not or: [ self class instSize > 0 ]) and: [ self isLiteral not ]! Item was changed: ----- Method: PointerFinder>>buildList (in category 'application') ----- buildList | list obj parent object key | list := OrderedCollection new. obj := goal. [list addFirst: obj. obj := parents at: obj ifAbsent: []. obj == nil] whileFalse. list removeFirst. parent := Smalltalk. objectList := OrderedCollection new. pointerList := OrderedCollection new. [list isEmpty] whileFalse: [object := list removeFirst. key := nil. (parent isKindOf: Dictionary) ifTrue: [list size >= 2 ifTrue: [key := parent keyAtValue: list second ifAbsent: []. key == nil ifFalse: [object := list removeFirst; removeFirst. pointerList add: key printString , ' -> ' , object class name]]]. key == nil ifTrue: [parent class == object ifTrue: [key := 'CLASS']. key == nil ifTrue: [1 to: parent class instSize do: [:i | key == nil ifTrue: [(parent instVarAt: i) + == object ifTrue: [key := parent class instVarNameForIndex: i]]]]. + key == nil ifTrue: [parent isCompiledCode ifTrue: [key := 'literals?']]. - == object ifTrue: [key := parent class allInstVarNames at: i]]]]. - key == nil ifTrue: [parent isCompiledMethod ifTrue: [key := 'literals?']]. key == nil ifTrue: [1 to: parent basicSize do: [:i | key == nil ifTrue: [(parent basicAt: i) == object ifTrue: [key := i printString]]]]. key == nil ifTrue: [(parent isMorph and: [object isKindOf: Array]) ifTrue: [key := 'submorphs?']]. key == nil ifTrue: [key := '???']. pointerList add: key , ': ' , object class name, (object isMorph ifTrue: [' (', object identityHash asString, ')'] ifFalse: [ String empty ]) ]. objectList add: object. parent := object]!

1 0

The Trunk: System-eem.952.mcz
by commits＠source.squeak.org 08 Jun '17

08 Jun '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.952.mcz ==================== Summary ==================== Name: System-eem.952 Author: eem Time: 8 June 2017, 10:19:20.182777 am UUID: 2d764b04-5c3e-4cfc-98c1-d96bc5a92ac7 Ancestors: System-eem.951 Add an "open window at pointer" preference. Harvested from Terf. =============== Diff against System-eem.951 =============== Item was changed: Object subclass: #RealEstateAgent instanceVariableNames: '' + classVariableNames: 'PlaceWindowsAtPointer ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins' - classVariableNames: 'ReverseStaggerOffset StaggerOffset StaggerOrigin StandardSize StandardWindowOrigins' poolDictionaries: '' category: 'System-Support'! !RealEstateAgent commentStamp: '<historical>' prior: 0! Responsible for real-estate management on the screen, which is to say, controlling where new windows appear, with what sizes, etc. 5/20/96 sw! Item was added: + ----- Method: RealEstateAgent class>>initialFrameAtPointerFor:initialExtent:world: (in category 'framing - private') ----- + initialFrameAtPointerFor: aView initialExtent: scaledExtent world: aWorld + ^(aWorld cursorPoint - (50@10) "puts use with the mouse ptr just to the right of the menu button" + extent: scaledExtent) + translatedAndSquishedToBeWithin: (self maximumUsableAreaInWorld: aWorld)! Item was changed: ----- Method: RealEstateAgent class>>initialFrameFor:initialExtent:world: (in category 'framing') ----- initialFrameFor: aView initialExtent: initialExtent world: aWorld - | scaledExtent | scaledExtent := (initialExtent * self scaleFactor) rounded. + self placeWindowsAtPointer ifTrue: + [^self initialFrameAtPointerFor: aView initialExtent: scaledExtent world: aWorld]. + ^ Preferences reverseWindowStagger ifTrue: [self strictlyStaggeredInitialFrameFor: aView initialExtent: scaledExtent world: aWorld] ifFalse: [self normalInitialFrameFor: aView initialExtent: scaledExtent world: aWorld]! Item was added: + ----- Method: RealEstateAgent class>>placeWindowsAtPointer (in category 'preferences') ----- + placeWindowsAtPointer + "Value of the place-windows-at-pointer preference." + <preference: 'Place Windows At Pointer' + category: 'windows' + description: 'When true, place new windows near the mouse pointer' + type: #Boolean> + ^PlaceWindowsAtPointer ifNil: [false]! Item was added: + ----- Method: RealEstateAgent class>>placeWindowsAtPointer: (in category 'preferences') ----- + placeWindowsAtPointer: aBool + "Value of the place-windows-at-pointer preference." + PlaceWindowsAtPointer := aBool!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2017