Squeak-dev October 2016

squeak-dev@lists.squeakfoundation.org

40 participants
114 discussions

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Mon, 24 Oct 2016 09:50:47 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: TrueType-tfel.47.mcz > Message-Id: <E1bybu3-00005k-Sw@andreas> > > Tim Felgentreff uploaded a new version of TrueType to project The Trunk: > http://source.squeak.org/trunk/TrueType-tfel.47.mcz > > ==================== Summary ==================== > > Name: TrueType-tfel.47 > Author: tfel > Time: 24 October 2016, 11:50:46.672614 am > UUID: 36b598dd-88a8-824d-985b-8d70c82ba0ea > Ancestors: TrueType-tfel.46 > > fix an infinite loop when there is a cycle through (multiple) fallback fonts > > =============== Diff against TrueType-tfel.46 =============== > > Item was changed: > ----- Method: TTCFont>>widthOf: (in category 'public') ----- > widthOf: aCharacter > "This method cannot use #formOf: because formOf: discriminates the color and causes unnecessary bitmap creation." > (self hasGlyphOf: aCharacter) ifFalse: [ > + (fallbackFont notNil and: [fallbackFont hasGlyphOf: aCharacter]) ifTrue: > + [^ fallbackFont widthOf: aCharacter]. > - fallbackFont ifNotNil: [^ fallbackFont widthOf: aCharacter]. > ^ 1 > ]. > ^(self formOf: aCharacter) width! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Mon, 24 Oct 2016 09:42:22 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: EToys-tfel.268.mcz > Message-Id: <E1bybm6-0008PL-0i@andreas> > > Tim Felgentreff uploaded a new version of EToys to project The Trunk: > http://source.squeak.org/trunk/EToys-tfel.268.mcz > > ==================== Summary ==================== > > Name: EToys-tfel.268 > Author: tfel > Time: 24 October 2016, 11:33:16.574614 am > UUID: ea95b449-4d49-994b-a6b1-0b9d17104ab0 > Ancestors: EToys-eem.267 > > - refactor addInstVarNames: to go through Player class>>addInstVarName: > - small cleanups > > =============== Diff against EToys-eem.267 =============== > > Item was changed: > ----- Method: Class>>addInstVarNames: (in category '*Etoys-Squeakland-instance variables') ----- > addInstVarNames: aCollection > > | newInstVarString | > newInstVarString := self instanceVariablesString. > aCollection do: > [:varName | (self instVarNames includes: varName) ifFalse: [newInstVarString := newInstVarString , ' ' , varName]]. > + ^ self addInstVarName: newInstVarString > - ^(ClassBuilder new) > - name: self name > - inEnvironment: self environment > - subclassOf: superclass > - type: self typeOfClass > - instanceVariableNames: newInstVarString > - classVariableNames: self classVariablesString > - poolDictionaries: self sharedPoolsString > - category: self category > ! > > Item was added: > + ----- Method: Player class>>addInstVarName: (in category 'organization') ----- > + addInstVarName: aString > + > + ^(ClassBuilder new) > + name: self name > + inEnvironment: (self environment import: Smalltalk globals) > + subclassOf: self superclass > + type: self typeOfClass > + instanceVariableNames: self instanceVariablesString, ' ', aString > + classVariableNames: self classVariablesString > + poolDictionaries: self sharedPoolsString > + category: self category > + ! > > Item was changed: > ----- Method: Player class>>environment (in category 'organization') ----- > environment > > ^ self isUniClass > ifTrue: [(Environment withName: 'EtoysUserDefinedTempEnvironment') > + at: self name asSymbol put: self; > + importSelf; > - at: self name put: self; > yourself] > ifFalse: [super environment]! > > Item was changed: > ----- Method: Preferences class>>cambridge (in category '*Etoys-Squeakland-themes') ----- > cambridge > "A theme for Squeakland and OLPC project" > "Preferences cambridge" > "This method has three parts. Don't forget to look at the stuff at the bottom." > > self setPreferencesFrom: #( > (allowCelesteTell false) > (alternativeScrollbarLook true) > (alternativeWindowLook true) > (annotationPanes true) > (automaticKeyGeneration true) > (biggerHandles true) > (blinkParen false) > (browseWithDragNDrop true) > (canRecordWhilePlaying true) > (classicNavigatorEnabled false) > (compactViewerFlaps true) > (enableLocalSave false) > (escapeKeyProducesMenu false) > (eToyFriendly true) > (eToyLoginEnabled true) > (extraDebuggerButtons false) > (gradientMenu false) > (haloTransitions false) > (honorDesktopCmdKeys true) > (includeSoundControlInNavigator true) > (magicHalos false) > (menuAppearance3d false) > (menuKeyboardControl false) > (modalColorPickers true) > (mouseOverHalos false) > (mvcProjectsAllowed false) > (preserveTrash true) > (projectViewsInWindows false) > (promptForUpdateServer false) > (propertySheetFromHalo false) > (roundedMenuCorners false) > (roundedWindowCorners false) > (securityChecksEnabled true) > + (standaloneSecurityChecksEnabled true) > + (duplicateControlAndAltKeys true) > (showDirectionHandles false) > (showDirectionForSketches true) > (showProjectNavigator false) > (showSecurityStatus false) > (soundQuickStart true) "see setPlatformPreferences" > (soundReverb false) > (soundStopWhenDone true) "see setPlatformPreferences" > (startInUntrustedDirectory true) > (sugarAutoSave false) > (swapControlAndAltKeys false) "see setPlatformPreferences" > (uniqueNamesInHalos true) > (unlimitedPaintArea false) > (useArtificialSweetenerBar true) > (useBiggerPaintingBox true) > (useFormsInPaintBox false) > (useLocale true) > (usePangoRenderer false) > (usePlatformFonts false) > (usePopUpArrows true) > (warnAboutInsecureContent false) > > "The following is to make sure the default is set properly." > > (abbreviatedBrowserButtons false) > (allowEtoyUserCustomEvents false) > (alphabeticalProjectMenu false) > (alternativeBrowseIt false) > (alternativeButtonsInScrollBars false) > (alternativeWindowBoxesLook true) > (alwaysHideHScrollbar false) > (alwaysShowConnectionVocabulary false) > (alwaysShowHScrollbar false) > (alwaysShowVScrollbar true) > (ansiAssignmentOperatorWhenPrettyPrinting true) > (areaFillsAreTolerant false) > (areaFillsAreVeryTolerant false) > (autoAccessors false) > (automaticFlapLayout true) > (automaticPlatformSettings true) "enables setPlatformPreferences" > (automaticViewerPlacement true) > (balloonHelpEnabled true) > (balloonHelpInMessageLists false) > (batchPenTrails false) > (biggerCursors true) > (browserNagIfNoClassComment true) > (browserShowsPackagePane false) > (browseWithPrettyPrint false) > (capitalizedReferences true) > (caseSensitiveFinds false) > (cautionBeforeClosing false) > (celesteHasStatusPane false) > (celesteShowsAttachmentsFlag false) > (changeSetVersionNumbers true) > (checkForSlips true) > (checkForUnsavedProjects true) > (classicNewMorphMenu false) > (clickOnLabelToEdit false) > (cmdDotEnabled true) > (collapseWindowsInPlace false) > (colorWhenPrettyPrinting false) > (compressFlashImages false) > (confirmFirstUseOfStyle true) > (conversionMethodsAtFileOut false) > (cpuWatcherEnabled false) > (debugHaloHandle false) > (debugPrintSpaceLog false) > (debugShowDamage false) > (decorateBrowserButtons true) > (defaultFileOutFormatMacRoman false) > (diffsInChangeList true) > (diffsWithPrettyPrint false) > (dismissAllOnOptionClose false) > (dismissEventTheatreUponPublish true) > (dragNDropWithAnimation false) > (dropProducesWatcher true) > (duplicateControlAndAltKeys false) > (easySelection false) > (enableInternetConfig false) > (enablePortraitMode false) > (enableVirtualOLPCDisplay false) > (expandedPublishing true) > (extractFlashInHighestQuality false) > (extractFlashInHighQuality true) > (fastDragWindowForMorphic true) > (fenceEnabled true) > (fenceSoundEnabled false) > (fullScreenLeavesDeskMargins true) > (gradientScrollBars true) > (haloEnclosesFullBounds false) > (higherPerformance false) > (ignoreStyleIfOnlyBold true) > (implicitSelfInTiles false) > (inboardScrollbars true) > (infiniteUndo false) > (keepTickingWhilePainting false) > (logDebuggerStackToFile true) > (menuButtonInToolPane false) > (menuColorFromWorld false) > (menuWithIcons true) > (morphicProgressStyle true) > (mouseOverForKeyboardFocus false) > (navigatorOnLeftEdge true) > (noviceMode false) > (okToReinitializeFlaps true) > (oliveHandleForScriptedObjects false) > (optionalButtons true) > (passwordsOnPublish false) > (personalizedWorldMenu true) > (postscriptStoredAsEPS false) > (printAlternateSyntax false) > (projectsSentToDisk false) > (projectZoom true) > (readDocumentAtStartup true) > (restartAlsoProceeds false) > (reverseWindowStagger true) > (rotationAndScaleHandlesInPaintBox false) > (scrollBarsNarrow false) > (scrollBarsOnRight true) > (scrollBarsWithoutMenuButton false) > (selectionsMayShrink true) > (selectiveHalos true) > (showAdvancedNavigatorButtons false) > (showBoundsInHalo false) > (showDeprecationWarnings false) > (showFlapsWhenPublishing false) > (showLinesInHierarchyViews true) > (showSharedFlaps true) > (signProjectFiles true) > (simpleMenus false) > (slideDismissalsToTrash true) > (smartUpdating true) > (soundsEnabled true) > (swapMouseButtons false) > (systemWindowEmbedOK false) > (tabAmongFields true) > (testRunnerShowAbstractClasses false) > (thoroughSenders true) > (tileTranslucentDrag true) > (timeStampsInMenuTitles true) > (translationWithBabel false) > (turnOffPowerManager false) > (twentyFourHourFileStamps true) > (twoSidedPoohTextures true) > (typeCheckingInTileScripting true) > (unifyNestedProgressBars true) > (uniTilesClassic true) > (universalTiles false) > (updateFromServerAtStartup false) > (updateSavesFile false) > (useButtonPropertiesToFire false) > (useFileList2 true) > (useSmartLabels false) > (useUndo true) > (useVectorVocabulary false) > (viewersInFlaps true) > (warnIfNoChangesFile false) > (warnIfNoSourcesFile false) > (warningForMacOSFileNameLength false) > (wordStyleCursorMovement true) > > ). > > Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications. > ! > > Item was changed: > ----- Method: Project class>>cleanUpEtoysGarbage (in category '*Etoys-Squeakland-utilities') ----- > cleanUpEtoysGarbage > "Project cleanUpEtoysGarbage" > "All these should eventuall go away and be fixed, but for now we have this here." > Smalltalk garbageCollect. > "Clear weak message sends to remove modal windows from worlds that are closing." > (WeakMessageSend allInstances select: [:wm | > (wm receiver isKindOf: PasteUpMorph) and: [wm selector = #removeModalWindow]]) do: [:wm | wm receiver: nil]. > "Clear the weak dictionary on the class side that keeps node state around in the rewriter" > KedamaEvaluatorNodeState initialize. > "Clear the KedamaEvaluator that holds on to the last Kedama world" > ScriptEditorMorph setDefaultEvaluator. > "Clear the hard references to player classes, " > (Smalltalk organization listAtCategoryNamed: 'UserObjects') do: [:name | > Smalltalk forgetClass: (Smalltalk classNamed: name) logged: false]. > Player withAllSubclasses > select: [:c | c isSystemDefined not] > + thenDo: [:c | > + c theNonMetaClass superclass removeSubclass: c theNonMetaClass. > + c theMetaClass superclass removeSubclass: c theMetaClass]. > - thenDo: [:c | c superclass removeSubclass: c]. > "Clear the paste buffer" > HandMorph initialize. > "Clear the reference to the project tree in SkObject" > + (Smalltalk classNamed: 'SkObject') ifNotNil: [:c | c initialize]. > - Smalltalk at: #SkObject ifPresent: [:cls| cls initialize]. > PasteUpMorph allInstancesDo: [:m | m presenter ifNotNil: [:p | p flushPlayerListCache]]. > Smalltalk garbageCollect! > > Item was added: > + ----- Method: ReleaseBuilderSqueakland class>>intermediatePrepareForUsers (in category 'scripts') ----- > + intermediatePrepareForUsers > + "self intermediatePrepareForUsers" > + Project cleanUpEtoysGarbage. > + Smalltalk zapAllOtherProjects. > + Project cleanUpEtoysGarbage. > + ReleaseBuilder clearCaches. > + ObjectScanner new. "clear ObjectScanner's class pool" > + ExternalSettings registerClient: ServerDirectory. > + Project cleanUpEtoysGarbage. > + ReleaseBuilderSqueakland configureDesktop. > + ReleaseBuilderSqueakland setPreferences. > + Model useColorfulWindows: true.! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Tue, 25 Oct 2016 22:31:15 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: Collections-nice.722.mcz > Message-Id: <E1bzAFZ-0007Z4-22@andreas> > > Nicolas Cellier uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-nice.722.mcz > > ==================== Summary ==================== > > Name: Collections-nice.722 > Author: nice > Time: 26 October 2016, 12:27:56.637026 am > UUID: e951d8a8-3e64-4f5c-821a-6aad7a1955c4 > Ancestors: Collections-eem.721 > > Improve anyOne: don't perform an emptyCheck before extracting any element, that's useless: anyOne is an empty check by itself ;). Extract first if we can, then error if we can't. > > Correct DoubleByteArray comment (it's not HalfWordArray anymore) > > =============== Diff against Collections-eem.721 =============== > > Item was changed: > ----- Method: Collection>>anyOne (in category 'accessing') ----- > anyOne > "Answer a representative sample of the receiver. This method can > be helpful when needing to preinfer the nature of the contents of > semi-homogeneous collections." > > + self do: [:each | ^ each]. > + self errorEmptyCollection! > - self emptyCheck. > - self do: [:each | ^ each]! > > Item was changed: > ArrayedCollection variableDoubleByteSubclass: #DoubleByteArray > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'Collections-Arrayed'! > > + !DoubleByteArray commentStamp: 'nice 10/20/2016 23:23' prior: 0! > + DoubleByteArrays store 16-bit unsigned Integer values.! > - !DoubleByteArray commentStamp: 'nice 9/20/2016 23:37' prior: 0! > - HalfWordArrays store 16-bit unsigned Integer values.! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Tue, 25 Oct 2016 20:53:12 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: Collections-eem.721.mcz > Message-Id: <E1bz8if-0006AY-K5@andreas> > > Eliot Miranda uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-eem.721.mcz > > ==================== Summary ==================== > > Name: Collections-eem.721 > Author: eem > Time: 25 October 2016, 1:52:30.584675 pm > UUID: 2bb84a66-90fc-4430-8da4-509fef3d7eb4 > Ancestors: Collections-nice.720 > > Comment an unexpectedly controversial method. > > =============== Diff against Collections-nice.720 =============== > > Item was changed: > ----- Method: Collection>>isEmpty (in category 'testing') ----- > isEmpty > + "Answer whether the receiver contains any elements. > + This implementation uses the do: block rather than > + self size = 0 since size may be implemented in terms > + of do:, and hence is slow for all but very small collections." > - "Answer whether the receiver contains any elements." > > self do: [:element | ^false]. > ^true! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Tue, 25 Oct 2016 08:34:07 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: TrueType-tfel.47.mcz > Message-Id: <E1byxBQ-0003pg-RK@andreas> > > Tim Felgentreff uploaded a new version of TrueType to project The Trunk: > http://source.squeak.org/trunk/TrueType-tfel.47.mcz > > ==================== Summary ==================== > > Name: TrueType-tfel.47 > Author: tfel > Time: 24 October 2016, 11:50:46.672614 am > UUID: 36b598dd-88a8-824d-985b-8d70c82ba0ea > Ancestors: TrueType-tfel.46 > > fix an infinite loop when there is a cycle through (multiple) fallback fonts > > =============== Diff against TrueType-tfel.46 =============== > > Item was changed: > ----- Method: TTCFont>>widthOf: (in category 'public') ----- > widthOf: aCharacter > "This method cannot use #formOf: because formOf: discriminates the color and causes unnecessary bitmap creation." > (self hasGlyphOf: aCharacter) ifFalse: [ > + (fallbackFont notNil and: [fallbackFont hasGlyphOf: aCharacter]) ifTrue: > + [^ fallbackFont widthOf: aCharacter]. > - fallbackFont ifNotNil: [^ fallbackFont widthOf: aCharacter]. > ^ 1 > ]. > ^(self formOf: aCharacter) width! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Tue, 25 Oct 2016 08:32:04 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: EToys-tfel.270.mcz > Message-Id: <E1byx9V-0003nR-6N@andreas> > > Tim Felgentreff uploaded a new version of EToys to project The Trunk: > http://source.squeak.org/trunk/EToys-tfel.270.mcz > > ==================== Summary ==================== > > Name: EToys-tfel.270 > Author: tfel > Time: 24 October 2016, 1:35:27.841614 pm > UUID: 932b296e-7b57-1845-b76e-2dcfde371c97 > Ancestors: EToys-tfel.269 > > allow distance/angleTo my own turtle kind, excepting myself > > =============== Diff against EToys-tfel.269 =============== > > Item was changed: > ----- Method: KedamaTurtleVectorPlayer2 class>>primGetAngleToX:toY:xArray:yArray:resultInto: (in category 'as yet unclassified') ----- > primGetAngleToX: pX toY: pY xArray: xArray yArray: yArray resultInto: result > > + | ppx ppy x y ret currentDist minDist nearestNeighbour skipSelf | > - | ppx ppy x y ret currentDist minDist nearestNeighbour | > <primitive: 'vectorGetAngleTo' module:'KedamaPlugin2'> > "^ KedamaPlugin doPrimitive: #vectorGetAngleTo." > > ppx := pX. > ppy := pY. > + skipSelf := pX == xArray. > 1 to: result size do: [:index | > pX isCollection ifTrue: [ > + nearestNeighbour := index. > minDist := SmallInteger maxVal. > 1 to: pX size do: [:index2 | > + ((index2 == index) & skipSelf) ifFalse: [ > + ppx := pX at: index2. > + ppy := pY at: index2. > + currentDist := ((ppx - (xArray at: index)) squared + (ppy - (yArray at: index)) squared) sqrt. > + currentDist < minDist ifTrue: [ > + minDist := currentDist. > + nearestNeighbour := index2]]]. > - ppx := pX at: index2. > - ppy := pY at: index2. > - currentDist := ((ppx - (xArray at: index)) squared + (ppy - (yArray at: index)) squared) sqrt. > - currentDist < minDist ifTrue: [ > - minDist := currentDist. > - nearestNeighbour := index2]]. > ppx := pX at: nearestNeighbour. > ppy := pY at: nearestNeighbour. > ]. > x := ppx - (xArray at: index). > y := ppy - (yArray at: index). > ret := (x@y) theta radiansToDegrees + 90.0. > ret > 360.0 ifTrue: [ret := ret - 360.0]. > result at: index put: ret. > ]. > ^ result. > ! > > Item was changed: > ----- Method: KedamaTurtleVectorPlayer2 class>>primGetDistanceToX:toY:xArray:yArray:resultInto: (in category 'as yet unclassified') ----- > primGetDistanceToX: pX toY: pY xArray: xArray yArray: yArray resultInto: result > > + | ppx ppy tempMin skipSelf | > - | ppx ppy tempMin | > <primitive: 'vectorGetDistanceTo' module:'KedamaPlugin2'> > "^ KedamaPlugin doPrimitive: #vectorGetDistanceTo." > > ppx := pX. > ppy := pY. > + skipSelf := pX == xArray. > 1 to: result size do: [:index | > pX isCollection ifTrue: [ > tempMin := SmallInteger maxVal. > 1 to: pX size do: [:index2 | > + ((index2 == index) & skipSelf) ifFalse: [ > + ppx := pX at: index2. > + ppy := pY at: index2. > + tempMin := tempMin min: ((ppx - (xArray at: index)) squared + (ppy - (yArray at: index)) squared) sqrt] > - ppx := pX at: index2. > - ppy := pY at: index2. > - tempMin := tempMin min: ((ppx - (xArray at: index)) squared + (ppy - (yArray at: index)) squared) sqrt. > ]. > self flag: #todo. "should really also remember the other side index to re-use inside the script" > result at: index put: tempMin. > ] ifFalse: [ > result at: index put: ((ppx - (xArray at: index)) squared + (ppy - (yArray at: index)) squared) sqrt. > ] > ]. > ^ result. > ! > > Item was changed: > ----- Method: KedamaTurtleVectorPlayer2>>getAngleTo: (in category 'player commands') ----- > getAngleTo: players > > | p xArray yArray result pX pY xy | > players isCollection ifFalse: [ > p := players > ]. > xArray := arrays at: 2. > yArray := arrays at: 3. > result := KedamaFloatArray new: self size. > players isCollection ifTrue: [ > pX := KedamaFloatArray new: players size. > pY := KedamaFloatArray new: players size. > 1 to: players size do: [:i | > xy := (players at: i) getXAndY. > pX at: i put: xy x. > pY at: i put: xy y. > ]. > ] ifFalse: [ > + p == self > + ifTrue: [ > + pX := p getX. > + pY := p getY] > + ifFalse: [ > + pX := p turtles getX. > + pY := p turtles getY] > - pX := p turtles getX. > - pY := p turtles getY. > ]. > ^ KedamaTurtleVectorPlayer2 primGetAngleToX: pX toY: pY xArray: xArray yArray: yArray resultInto: result. > > ! > > Item was changed: > ----- Method: KedamaTurtleVectorPlayer2>>getDistanceTo: (in category 'player commands') ----- > getDistanceTo: players > > | p xArray yArray result pX pY xy | > players isCollection ifFalse: [ > p := players > ]. > xArray := arrays at: 2. > yArray := arrays at: 3. > result := KedamaFloatArray new: self size. > players isCollection ifTrue: [ > pX := KedamaFloatArray new: players size. > pY := KedamaFloatArray new: players size. > 1 to: players size do: [:i | > xy := (players at: i) getXAndY. > pX at: i put: xy x. > pY at: i put: xy y. > ]. > ] ifFalse: [ > + p == self > + ifTrue: [ > + pX := p getX. > + pY := p getY] > + ifFalse: [ > + pX := p turtles getX. > + pY := p turtles getY] > - pX := p turtles getX. > - pY := p turtles getY. > ]. > ^ KedamaTurtleVectorPlayer2 primGetDistanceToX: pX toY: pY xArray: xArray yArray: yArray resultInto: result. > ! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > Date: Tue, 25 Oct 2016 08:31:34 0000 > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: EToys-tfel.269.mcz > Message-Id: <E1byx91-0003nI-Fr@andreas> > > Tim Felgentreff uploaded a new version of EToys to project The Trunk: > http://source.squeak.org/trunk/EToys-tfel.269.mcz > > ==================== Summary ==================== > > Name: EToys-tfel.269 > Author: tfel > Time: 24 October 2016, 12:41:29.211614 pm > UUID: a11b6d00-95c1-054a-8ea6-237af529c724 > Ancestors: EToys-tfel.268 > > remove unused methods > > =============== Diff against EToys-tfel.268 =============== > > Item was removed: > - ObjectRepresentativeMorph subclass: #ClassRepresentativeMorph > - instanceVariableNames: 'classRepresented' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'Etoys-Scripting'! > > Item was removed: > - StandardScriptingSystem subclass: #EToySystem > - instanceVariableNames: '' > - classVariableNames: 'EToyVersion EToyVersionDate' > - poolDictionaries: '' > - category: 'Etoys-Experimental'! > - > - !EToySystem commentStamp: '<historical>' prior: 0! > - A global object holding onto properties and code of the overall E-toy system of the moment. Its code is entirely held on the class side; the class is never instantiated.! > > Item was removed: > - ----- Method: EToySystem class>>cleanUp: (in category 'class initialization') ----- > - cleanUp: aggressive > - > - aggressive ifTrue: [ > - StandardScriptingSystem removeUnreferencedPlayers. > - Player removeUninstantiatedSubclassesSilently. > - Project allMorphicProjects do: [:mp | mp world dumpPresenter]. > - Preferences removePreference: #allowEtoyUserCustomEvents.]! > > Item was removed: > - ----- Method: EToySystem class>>cleanupsForRelease (in category 'development support') ----- > - cleanupsForRelease > - "Miscellaneous space cleanups to do before a release." > - "EToySystem cleanupsForRelease" > - > - Socket deadServer: ''. "Don't reveal any specific server name" > - HandMorph initialize. "free cached ColorChart" > - PaintBoxMorph initialize. "forces Prototype to let go of extra things it might hold" > - Smalltalk globals removeKey: #AA ifAbsent: []. > - Smalltalk globals removeKey: #BB ifAbsent: []. > - Smalltalk globals removeKey: #CC ifAbsent: []. > - Smalltalk globals removeKey: #DD ifAbsent: []. > - Smalltalk globals removeKey: #Temp ifAbsent: []. > - > - ScriptingSystem reclaimSpace. > - Smalltalk cleanOutUndeclared. > - Smalltalk reclaimDependents. > - Smalltalk removeEmptyMessageCategories. > - Symbol rehash. > - ! > > Item was removed: > - ----- Method: EToySystem class>>fixComicCharacters (in category 'misc') ----- > - fixComicCharacters > - "EToySystem fixComicCharacters" > - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $_ put: > - (Form > - extent: 9@16 > - depth: 1 > - fromArray: #( 0 0 0 134217728 402653184 805306368 2139095040 4278190080 2139095040 805306368 402653184 134217728 0 0 0 0) > - offset: 0@0). > - > - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $1 put: > - (Form > - extent: 5@16 > - depth: 1 > - fromArray: #( 0 0 0 0 1610612736 3758096384 3758096384 1610612736 1610612736 1610612736 1610612736 4026531840 4026531840 0 0 0) > - offset: 0@0). > - > - > - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $2 put: > - (Form > - extent: 6@16 > - depth: 1 > - fromArray: #( 0 0 0 0 1879048192 4160749568 2550136832 939524096 1879048192 3758096384 3221225472 4160749568 4160749568 0 0 0) > - offset: 0@0). > - > - > - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $4 put: > - (Form > - extent: 7@16 > - depth: 1 > - fromArray: #( 0 0 0 0 134217728 402653184 402653184 939524096 1476395008 4227858432 4227858432 402653184 402653184 0 0 0) > - offset: 0@0). > - > - ((TextConstants at: #ComicBold) fontAt: 3) characterFormAt: $j put: > - (Form > - extent: 4@16 > - depth: 1 > - fromArray: #( 0 0 0 0 1610612736 1610612736 0 1610612736 1610612736 1610612736 1610612736 1610612736 1610612736 1610612736 3758096384 3221225472) > - offset: 0@0). > - > - ! > > Item was removed: > - ----- Method: EToySystem class>>loadJanForms (in category 'development support') ----- > - loadJanForms > - "EToySystem loadJanForms" > - > - | aReferenceStream newFormDict | > - aReferenceStream := ReferenceStream fileNamed: 'JanForms'. > - newFormDict := aReferenceStream next. > - aReferenceStream close. > - newFormDict associationsDo: > - [:assoc | Imports default importImage: assoc value named: assoc key]! > > Item was removed: > - ----- Method: EToySystem class>>methodsToStripForExternalRelease (in category 'external release') ----- > - methodsToStripForExternalRelease > - "Answer a list of triplets #(className, class/instance, methodName) of methods to be stripped in an external release." > - ^ #( > - (EToySystem class prepareRelease) > - (EToySystem class previewEToysOn:) > - )! > > Item was removed: > - ----- Method: EToySystem class>>prepareRelease (in category 'stripped') ----- > - prepareRelease > - self codeStrippedOut: '2.3External'! > > Item was removed: > - ----- Method: EToySystem class>>previewEToysOn: (in category 'stripped') ----- > - previewEToysOn: arg1 > - self codeStrippedOut: '2.3External'! > > Item was removed: > - Object subclass: #ExternalSemaphoreTable > - instanceVariableNames: '' > - classVariableNames: 'ProtectTable' > - poolDictionaries: '' > - category: 'Etoys-Squeakland-System-Support'! > - > - !ExternalSemaphoreTable commentStamp: '<historical>' prior: 0! > - By John M McIntosh johnmci(a)smalltalkconsulting.com > - This class was written to mange the external semaphore table. When I was writing a Socket test server I discovered various race conditions on the access to the externalSemaphore table. This new class uses class side methods to restrict access using a mutex semaphore. It seemed cleaner to deligate the reponsibility here versus adding more code and another class variable to SystemDictionary > - > - Note that in Smalltalk recreateSpecialObjectsArray we still directly play with the table.! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>clearExternalObjects (in category 'accessing') ----- > - clearExternalObjects > - "Clear the array of objects that have been registered for use in non-Smalltalk code." > - > - ProtectTable critical: [Smalltalk specialObjectsArray at: 39 put: Array new]. > - ! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>externalObjects (in category 'accessing') ----- > - externalObjects > - ^ProtectTable critical: [Smalltalk specialObjectsArray at: 39].! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>initialize (in category 'initialize') ----- > - initialize > - ProtectTable := Semaphore forMutualExclusion! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>registerExternalObject: (in category 'accessing') ----- > - registerExternalObject: anObject > - ^ ProtectTable critical: [self safelyRegisterExternalObject: anObject] > - ! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>safelyRegisterExternalObject: (in category 'accessing') ----- > - safelyRegisterExternalObject: anObject > - "Register the given object in the external objects array and return its index. If it is already there, just return its index." > - > - | objects firstEmptyIndex obj sz newObjects | > - objects := Smalltalk specialObjectsArray at: 39. > - > - "find the first empty slot" > - firstEmptyIndex := 0. > - 1 to: objects size do: [:i | > - obj := objects at: i. > - obj == anObject ifTrue: [^ i]. "object already there, just return its index" > - (obj == nil and: [firstEmptyIndex = 0]) ifTrue: [firstEmptyIndex := i]]. > - > - "if no empty slots, expand the array" > - firstEmptyIndex = 0 ifTrue: [ > - sz := objects size. > - newObjects := objects species new: sz + 20. "grow linearly" > - newObjects replaceFrom: 1 to: sz with: objects startingAt: 1. > - firstEmptyIndex := sz + 1. > - Smalltalk specialObjectsArray at: 39 put: newObjects. > - objects := newObjects]. > - > - objects at: firstEmptyIndex put: anObject. > - ^ firstEmptyIndex > - ! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>safelyUnregisterExternalObject: (in category 'accessing') ----- > - safelyUnregisterExternalObject: anObject > - "Unregister the given object in the external objects array. Do nothing if it isn't registered. > - JMM change to return if we clear the element, since it should only appear once in the array" > - > - | objects | > - anObject ifNil: [^ self]. > - objects := Smalltalk specialObjectsArray at: 39. > - 1 to: objects size do: [:i | > - (objects at: i) == anObject ifTrue: > - [objects at: i put: nil. > - ^self]]. > - ! > > Item was removed: > - ----- Method: ExternalSemaphoreTable class>>unregisterExternalObject: (in category 'accessing') ----- > - unregisterExternalObject: anObject > - ProtectTable critical: [self safelyUnregisterExternalObject: anObject] > - ! > > Item was removed: > - Object subclass: #FreeTranslation > - instanceVariableNames: '' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'Etoys-Squeakland-Network-TelNet WordNet'! > - > - !FreeTranslation commentStamp: '<historical>' prior: 0! > - Squeak interface to the translation server at www.freetranslation.com. Invoke it in any Squeak text pane by choosing 'translate it' from the shift-menu. Languages are set by the 'choose language; menu item of the shift menu. Or by changing (Preferences valueOfFlag: #languageTranslateFrom) and (Preferences valueOfFlag: #languageTranslateTo). > - See class method openScamperOn:. > - > - FreeTranslation openScamperOn: 'Why don''t you ever write anymore?' > - > - ! > > Item was removed: > - ----- Method: FreeTranslation class>>extract: (in category 'translation') ----- > - extract: aMimeDoc > - | pageSource str | > - "Extract the translated text from the web page" > - > - (aMimeDoc content beginsWith: 'error') ifTrue: [^ aMimeDoc content]. > - pageSource := aMimeDoc content. > - "brute force way to pull out the result" > - str := ReadStream on: pageSource. > - str match: 'Translation Results by Transparent Language'. > - str match: '<p>'. > - ^ str upToAll: '</p>'! > > Item was removed: > - ----- Method: FreeTranslation class>>openScamperOn: (in category 'scamper') ----- > - openScamperOn: currentSelection > - "Submit the string to the translation server at www.freetranslation.com. Ask it to translate from (Preferences parameterAt: #languageTranslateFrom) to (Preferences parameterAt: #languageTranslateTo). Display the results in a Scamper window, reusing the previous one if possible." > - > - | inputs scamperWindow from to | > - currentSelection size >= 10000 ifTrue: [^ self inform: 'Text selection is too long.']. > - from := Preferences parameterAt: #languageTranslateFrom ifAbsentPut: ['English']. > - to := Preferences parameterAt: #languageTranslateTo ifAbsentPut: ['German']. > - from = to ifTrue: > - [^ self inform: 'You asked to translate from ', from, ' to ', to, '.\' withCRs, > - 'Use "choose language" to set these.']. > - inputs := Dictionary new. > - inputs at: 'SrcText' put: (Array with: currentSelection). > - inputs at: 'Sequence' put: #('core'). > - inputs at: 'Mode' put: #('html'). > - inputs at: 'template' put: #('TextResult2.htm'). > - inputs at: 'Language' put: (Array with: from, '/', to). > - scamperWindow := (WebBrowser default ifNil: [^self]) newOrExistingOn: 'http://ets.freetranslation.com'. > - scamperWindow model submitFormWithInputs: inputs > - url: 'http://ets.freetranslation.com:5081' asUrl > - method: 'post'. > - scamperWindow activate. > - ! > > Item was removed: > - ----- Method: FreeTranslation class>>translate:from:to: (in category 'translation') ----- > - translate: aString from: fromLang to: toLang > - | inputs | > - "Submit the string to the translation server at www.freetranslation.com. Return the entire web page that freetranslation sends back." > - > - aString size >= 10000 ifTrue: [^ self inform: 'Text selection is too long.']. > - inputs := Dictionary new. > - inputs at: 'SrcText' put: (Array with: aString). > - inputs at: 'Sequence' put: #('core'). > - inputs at: 'Mode' put: #('html'). > - inputs at: 'template' put: #('TextResult2.htm'). > - inputs at: 'Language' put: (Array with: fromLang, '/', toLang). > - ^ 'http://ets.freetranslation.com:5081' asUrl postFormArgs: inputs. > - > - ! > > Item was removed: > - ----- Method: FreeTranslation class>>translatePanel:fromTo: (in category 'translation') ----- > - translatePanel: buttonPlayer fromTo: normalDirection > - | ow fromTM toTM fromLang toLang tt doc answer width | > - "Gather up all the info I need from the morphs in the button's owner and do the translation. Insert the results in a TextMorph. Use www.freeTranslation.com Refresh the banner ad. > - TextMorph with 'from' in the title is starting text. > - PopUpChoiceMorph with 'from' in the title is the starting language. > - TextMorph with 'from' in the title is place to put the answer. > - PopUpChoiceMorph with 'from' in the title is the target language. > - If normalDirection is false, translate the other direction." > - > - ow := buttonPlayer costume ownerThatIsA: PasteUpMorph. > - ow allMorphs do: [:mm | > - (mm isTextMorph) ifTrue: [ > - (mm knownName asString includesSubString: 'from') ifTrue: [ > - fromTM := mm]. > - (mm knownName asString includesSubString: 'to') ifTrue: [ > - toTM := mm]]. > - (mm isKindOf: PopUpChoiceMorph) ifTrue: [ > - (mm knownName asString includesSubString: 'from') ifTrue: [ > - fromLang := mm contents asString]. > - (mm owner knownName asString includesSubString: 'from') ifTrue: [ > - fromLang := mm contents asString]. > - (mm knownName asString includesSubString: 'to') ifTrue: [ > - toLang := mm contents asString]. > - (mm owner knownName asString includesSubString: 'to') ifTrue: [ > - toLang := mm contents asString]]]. > - normalDirection ifFalse: ["switch" > - tt := fromTM. fromTM := toTM. toTM := tt. > - tt := fromLang. fromLang := toLang. toLang := tt]. > - Cursor wait showWhile: [ > - doc := self translate: fromTM contents asString from: fromLang to: toLang. > - answer := self extract: doc]. "pull out the translated text" > - > - width := toTM width. > - toTM contents: answer wrappedTo: width. > - toTM changed.! > > Item was removed: > - AppRegistry subclass: #MorphicTextEditor > - instanceVariableNames: '' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'Etoys-Squeakland-System-Applications'! > > Item was removed: > - AppRegistry subclass: #MvcTextEditor > - instanceVariableNames: '' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'Etoys-Squeakland-System-Applications'! > - > - !MvcTextEditor commentStamp: 'tween 8/27/2004 12:24' prior: 0! > - A subclass of AppRegistry which allows the user, or Browser add-ons, to control which class is used when creating the code editing view in mvc Browsers! > > Item was removed: > - PrintableEncoder subclass: #PrintEncoder > - instanceVariableNames: '' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'Etoys-Squeakland-MorphicExtras-Postscript Filters'! > > Item was removed: > - ----- Method: PrintEncoder class>>filterSelector (in category 'configuring') ----- > - filterSelector > - ^#printOnStream:! > > Item was removed: > - PrintableEncoder subclass: #StoreEncoder > - instanceVariableNames: '' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'Etoys-Squeakland-MorphicExtras-Postscript Filters'! > > Item was removed: > - ----- Method: StoreEncoder class>>filterSelector (in category 'configuring') ----- > - filterSelector > - ^#storeOnStream:. > - ! >

1 0

missed commit mails
by Tobias Pape 26 Oct '16

26 Oct '16

Begin forwarded message: > > From: commits(a)source.squeak.org > To: squeak-dev(a)lists.squeakfoundation.org, packages(a)lists.squeakfoundation.org > Reply-To: squeak-dev(a)lists.squeakfoundation.org > Subject: The Trunk: Tests-nice.357.mcz > Message-Id: <E1byiXK-0007G9-I2@andreas> > > Nicolas Cellier uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-nice.357.mcz > > ==================== Summary ==================== > > Name: Tests-nice.357 > Author: nice > Time: 24 October 2016, 6:55:45.875833 pm > UUID: e92aa9b0-5e9c-7742-8bfd-8daaf6662145 > Ancestors: Tests-mt.356 > > We must explicitely import #Object from Smalltalk globals when we want to compile method accessing Object into another environment. > > =============== Diff against Tests-mt.356 =============== > > Item was changed: > ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') ----- > testStoreDomesticValue > "Create a class that implements #doStore. > (see the comment in #storeValueMethod.) > Send the message, then examine the results. > The two values should be identical." > > | griffle values | > env importSelf. > + env from: Smalltalk globals import: #Object. > self createClass: #Griffle. > env bind: #Plonk to: value. > > griffle := env at: #Griffle. > griffle compile: self storeValueMethod. > values := griffle new doStore. > > self assert: values isArray. > self assert: values size = 2. > self assert: values first == values last. > self assert: (env valueOf: #Plonk) == values first! > > Item was changed: > ----- Method: EnvironmentTest>>testStoreImportedValue (in category 'compiling tests') ----- > testStoreImportedValue > "Create a class that implements #doStore. > Import #Plonk from another environment. > (see the comment in #storeValueMethod.) > Send the message, then examine the results. > The two values should be identical." > > | griffle foreign values | > self createClass: #Griffle. > foreign := Environment withName: #Foreign. > foreign exportSelf. > foreign at: #Plonk put: 'v1'. > env from: foreign import: #Plonk. > + env from: Smalltalk globals import: #Object. > > griffle := env at: #Griffle. > griffle compile: self storeValueMethod. > values := griffle new doStore. > > self assert: values isArray. > self assert: values size = 2. > self assert: values first == values last. > self assert: (foreign at: #Plonk) == values first! >

1 0

Connection timeouts committing to source.squeak.org
by Tim Felgentreff 26 Oct '16

26 Oct '16

Hi, I cannot commit anything to trunk, connections time out right at the end of the upload. Can anyone check the server? cheers, Tim

3 5

autopsy of a nasty environment bug
by Nicolas Cellier 25 Oct '16

25 Oct '16

"Create a foreign environment importing all from Smalltalk globals" foreign := Environment withName: #Foreign. foreign exportSelf. foreign import: Smalltalk globals. "Bind a new global" fooKey := #ClassVarScopeFoo. fooValue := Smalltalk globals at: fooKey put: Object basicNew. fooBinding := Smalltalk globals bindingOf: fooKey. self assert: (foreign bindingOf: fooKey) == fooBinding. "Unbind the global: it is moved to, and shared by both undeclared" Smalltalk globals removeKey: fooKey. self assert: (Smalltalk globals undeclared associationAt: fooKey) == fooBinding. self assert: (foreign undeclared associationAt: fooKey) == fooBinding. "Create a class var: the undeclared binding is moved to classPool. This is questionable, it was a global with potentially larger/different scope." parent := Object subclass: #ClassVarScopeParent instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Dummy-Tests-Class'. child := parent subclass: #ClassVarScopeChild instanceVariableNames: '' classVariableNames: 'ClassVarScopeFoo' poolDictionaries: '' category: 'Dummy-Tests-Class'. self assert: (child classPool associationAt: fooKey) == fooBinding. "The global is no more in Smalltalk globals undeclared" self assert: (Smalltalk globals undeclared includesKey: fooKey) not. "But it is still in foreign undeclared" self assert: (foreign undeclared associationAt: fooKey) == fooBinding. "Rebind a new global" fooValue := Smalltalk globals at: fooKey put: Object basicNew. globalFooBinding := Smalltalk globals bindingOf: fooKey. "The binding has been removed from foreign undeclared" self assert: (foreign undeclared includesKey: fooKey) not. self assert: (foreign bindingOf: fooKey) == globalFooBinding. "But because #showBinding: did use a becomeForward: the class pool and global bindings are now surprisingly fused. That explains that a foreign environment importing Smalltalk globals is enough to make ClassVarScopeTest fail" self assert: globalFooBinding == fooBinding. self assert: (child classPool associationAt: fooKey) == globalFooBinding. "save our souls" classes := { child. parent }. child := parent := nil. classes do: [ :each | each removeFromChanges; removeFromSystemUnlogged ]. classes := nil. Smalltalk globals removeKey: fooKey. foreign destroy.

1 1

← Newer
1
2
3
4
5
6
7
...
12
Older →