Packages February 2021

packages@lists.squeakfoundation.org

1 participants
74 discussions

The Trunk: EToys-ct.402.mcz
by commits＠source.squeak.org 18 Feb '21

18 Feb '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.402.mcz ==================== Summary ==================== Name: EToys-ct.402 Author: ct Time: 24 August 2020, 8:22:21.479269 pm UUID: 8b6598bf-158f-a74f-a399-f82c39269bdc Ancestors: EToys-eem.400 Fixes EToys fences for players within flexshells by subtracting transformations. =============== Diff against EToys-eem.400 =============== Item was changed: ----- Method: Player>>forward: (in category 'scripts-standard') ----- forward: dist "Move forward (viz. in the direction of my heading) by the given amount" | rho radians delta didStray p aCostume aPlayfield | (aCostume := self costume) isInWorld ifFalse: [^ self]. aCostume isWorldOrHandMorph ifTrue: [^ self]. aCostume owner isHandMorph ifTrue: [^ self]. + - rho := (aCostume asNumber: dist) asFloat. + radians := (self getHeadingUnrounded asFloat - 90) degreesToRadians. - radians := (self getHeadingUnrounded asFloat - 90.0) degreesToRadians. delta := (radians cos @ radians sin) * rho. + + (aPlayfield := aCostume pasteUpMorph) fenceEnabled ifTrue: [ + | playfieldBounds costumeBounds | + playfieldBounds := aPlayfield boundsInWorld. + costumeBounds := aCostume boundsInWorld. + (playfieldBounds containsRect: costumeBounds) ifFalse: [ + "If I stray out of the bounds of my playfield, pull me back, but without changing my heading as bounce would. Do nothing if bounce has already corrected the direction." - - (aPlayfield := aCostume pasteUpMorph) fenceEnabled ifTrue: - [(aPlayfield bounds containsRect: aCostume bounds) ifFalse: - ["If I stray out of the bounds of my playfield, pull me back, but - without changing my heading as bounce would. Do nothing if - bounce has already corrected the direction." didStray := false. + ((costumeBounds left < playfieldBounds left and: [delta x < 0]) + or: [costumeBounds right > playfieldBounds right and: [delta x > 0]]) + ifTrue: [ + delta := delta x negated @ delta y. + didStray := true]. + ((costumeBounds top < playfieldBounds top and: [delta y < 0]) + or: [costumeBounds bottom > playfieldBounds bottom and: [delta y > 0]]) + ifTrue: [ + delta := delta x @ delta y negated. + didStray := true]. + (didStray and: [Preferences fenceSoundEnabled]) ifTrue: [ + aCostume makeFenceSound]]]. + - ((aCostume left < aPlayfield left and: [delta x < 0]) or: - [aCostume right > aPlayfield right and: [delta x > 0]]) ifTrue: - [delta := delta x negated @ delta y. - didStray := true]. - ((aCostume top < aPlayfield top and: [delta y < 0]) or: - [aCostume bottom > aPlayfield bottom and: [delta y > 0]]) ifTrue: - [delta := delta x @ delta y negated. - didStray := true]. - (didStray and: [Preferences fenceSoundEnabled]) ifTrue: [aCostume makeFenceSound]]]. - "use and record the fractional position" p := aCostume referencePosition + delta. + aCostume referencePosition: p.! - aCostume referencePosition: p!

1 0

The Trunk: Tools-mt.1025.mcz
by commits＠source.squeak.org 18 Feb '21

18 Feb '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1025.mcz ==================== Summary ==================== Name: Tools-mt.1025 Author: mt Time: 18 February 2021, 11:19:50.596465 am UUID: 3a18ed90-267b-f545-86b6-a8edb2631a80 Ancestors: Tools-mt.1024 Add scoping and inverted lookup to dependency browser. I am using it for "DependencyBrowser openInvertedOn: #(EToys)" =============== Diff against Tools-mt.1024 =============== Item was changed: CodeHolder subclass: #DependencyBrowser + instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString windowTitle' - instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! !DependencyBrowser commentStamp: 'fbs 5/6/2011 11:29' prior: 0! A simple dependency browser showing five panes: [1]: Packages: The list of available packages in the system. [2]: Package Dependencies: The dependent packages of the currently selected package. [3]: Class Dependencies: The classes causing the dependencies. [4]: Class List: The classes introducing the dependencies. [5]: Messages: The messages introducing the dependencies.! Item was added: + ----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') ----- + openInvertedOn: requiredPackageNames + "DependencyBrowser openInvertedOn: #(Monticello)" + + | model | + model := self new. + ^ ToolBuilder open: ( + model + packageList: (model packageList select: [:packageName | + model computePackageDependencies: packageName. + model packageDeps includesAnyOf: requiredPackageNames]); + windowTitle: ('Dependency Browser (inverted on {1})' format: {requiredPackageNames}); + yourself) + ! Item was added: + ----- Method: DependencyBrowser class>>openOn: (in category 'opening') ----- + openOn: packageNames + "DependencyBrowser openOn: #(Morphic EToys)" + + ^ ToolBuilder open: (self new + packageList: packageNames; + windowTitle: 'Dependency Browser (on selected packages)'; + yourself)! Item was added: + ----- Method: DependencyBrowser>>packageList: (in category 'package list') ----- + packageList: somePackageNames + + packageList := somePackageNames. + self packageListIndex: 0.! Item was added: + ----- Method: DependencyBrowser>>windowTitle (in category 'accessing') ----- + windowTitle + + ^ windowTitle ifNil: ['Dependency Browser']! Item was added: + ----- Method: DependencyBrowser>>windowTitle: (in category 'accessing') ----- + windowTitle: aString + + windowTitle := aString. + self changed: #windowTitle.!

1 0

The Trunk: System-mt.1217.mcz
by commits＠source.squeak.org 18 Feb '21

18 Feb '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1217.mcz ==================== Summary ==================== Name: System-mt.1217 Author: mt Time: 18 February 2021, 10:39:44.603465 am UUID: d3cc5ff1-d4e9-274f-b695-caa62309d8cf Ancestors: System-mt.1216 Maps "MPW" initials to "Marcel Weiher" =============== Diff against System-mt.1216 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors.....'! - (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors....'!

1 0

The Trunk: System-mt.1216.mcz
by commits＠source.squeak.org 18 Feb '21

18 Feb '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1216.mcz ==================== Summary ==================== Name: System-mt.1216 Author: mt Time: 18 February 2021, 9:16:17.196751 am UUID: 70862cfd-0be1-453a-b6af-8697996913ba Ancestors: System-mt.1215 Replaces direct access to class var with accessor to make resetting of pragma preference work. =============== Diff against System-mt.1215 =============== Item was changed: ----- Method: MessageTally class>>initialize (in category 'class initialization') ----- initialize "MessageTally initialize" - "By default, show each process separately" - ShowProcesses ifNil: [ShowProcesses := true]. Smalltalk addToShutDownList: self after: Delay; "i.e. convert to relative times & stats after Delay sleeps." addToStartUpList: self before: Delay "i.e. convert back to absolute stats before Delay wakes."! Item was changed: ----- Method: MessageTally class>>spyOn: (in category 'spying') ----- spyOn: aBlock "Spy on aBlock, in the current process. Can include or not statistics on other processes in the report. [1000 timesRepeat: [ 100 timesRepeat: [120 factorial]. (Delay forMilliseconds: 10) wait ]] forkAt: 45 named: '45'. MessageTally spyOn: [10000 timesRepeat: [1.23 printString]] " + ^self spyOn: aBlock reportOtherProcesses: self showProcesses! - ^self spyOn: aBlock reportOtherProcesses: ShowProcesses! Item was changed: ----- Method: MessageTally class>>spyOnProcess:forMilliseconds: (in category 'spying') ----- spyOnProcess: aProcess forMilliseconds: msecDuration " Spy on aProcess for a certain amount of time | p1 p2 | p1 := [100000 timesRepeat: [3.14159 printString. Processor yield]] newProcess. p2 := [100000 timesRepeat: [3.14159 printString. Processor yield]] newProcess. p1 resume. p2 resume. (Delay forMilliseconds: 100) wait. MessageTally spyOnProcess: p1 forMilliseconds: 1000 " ^self spyOnProcess: aProcess forMilliseconds: msecDuration + reportOtherProcesses: self showProcesses - reportOtherProcesses: ShowProcesses !

1 0

The Trunk: Kernel-eem.1372.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1372.mcz ==================== Summary ==================== Name: Kernel-eem.1372 Author: eem Time: 17 February 2021, 9:43:25.718097 am UUID: 925aae94-6b62-4770-b21d-499dd106ba6d Ancestors: Kernel-mt.1371 BlockClosure>>valueWithExit really should return the value of the block if exit is not taken. =============== Diff against Kernel-mt.1371 =============== Item was changed: ----- Method: BlockClosure>>valueWithExit (in category 'evaluating') ----- valueWithExit "Provides an exit block to the receiver. Use it to break out of the control flow with an early return. Examples below. [:break | 1 to: 10 do: [:each | each > 5 ifTrue: [break value]]] valueWithExit. 1 to: 10 do: [:each | [:continue | each > 5 ifTrue: [continue value]] valueWithExit]." + ^self value: [ ^nil ]! - self value: [ ^nil ]!

1 0

The Trunk: Kernel-mt.1371.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1371.mcz ==================== Summary ==================== Name: Kernel-mt.1371 Author: mt Time: 17 February 2021, 5:56:29.152426 pm UUID: 1e5b05c3-feb7-e945-a253-3218ee358e74 Ancestors: Kernel-mt.1370 Extracts better examples for #valueWithExit from squeak-dev mailing list. =============== Diff against Kernel-mt.1370 =============== Item was changed: ----- Method: BlockClosure>>valueWithExit (in category 'evaluating') ----- valueWithExit + "Provides an exit block to the receiver. Use it to break out of the control flow with an early return. Examples below. + [:break | 1 to: 10 do: [:each | each > 5 ifTrue: [break value]]] valueWithExit. + 1 to: 10 do: [:each | [:continue | each > 5 ifTrue: [continue value]] valueWithExit]." - "Provides an exit block to the receiver. Use it to break out of the control flow with an early return. For example: - [:exit | 1 to: 10 do: [:each | each > 5 ifTrue: [exit value]]] valueWithExit" self value: [ ^nil ]!

1 0

The Trunk: Kernel-mt.1370.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1370.mcz ==================== Summary ==================== Name: Kernel-mt.1370 Author: mt Time: 17 February 2021, 5:48:45.447426 pm UUID: fe073783-4c0c-e345-aebe-4ea80f101f00 Ancestors: Kernel-dtl.1369 Adds commentary for #valueWithExit. =============== Diff against Kernel-dtl.1369 =============== Item was changed: ----- Method: BlockClosure>>valueWithExit (in category 'evaluating') ----- + valueWithExit + "Provides an exit block to the receiver. Use it to break out of the control flow with an early return. For example: + [:exit | 1 to: 10 do: [:each | each > 5 ifTrue: [exit value]]] valueWithExit" - valueWithExit self value: [ ^nil ]!

1 0

The Trunk: SystemReporter-mt.49.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.49.mcz ==================== Summary ==================== Name: SystemReporter-mt.49 Author: mt Time: 17 February 2021, 5:08:25.667893 pm UUID: 29b81ef5-5233-3c4f-981d-2c8205f4ce49 Ancestors: SystemReporter-eem.48 Adds report about "Image Packages" to help organize all code artifacts in your personal working image. =============== Diff against SystemReporter-eem.48 =============== Item was changed: ----- Method: SystemReporter>>initialize (in category 'initialize-release') ----- initialize self add: #'Contributors' method: #reportContributors; add: #Image method: #reportImage; add: #'Image Parameters' method: #reportImageParameters; add: #'Image Sources' method: #reportSources; add: #'Image Preferences' method: #reportPreferences; + add: #'Image Packages' method: #reportImagePackages; add: #'MC Repositories' method: #reportRepositories; add: #'MC Working Copies' method: #reportWorkingCopies; add: #'VM General' method: #reportVM; add: #'VM Options' method: #reportVMOptions; add: #'VM Modules' method: #reportModules; add: #'VM Parameters' method: #reportVMParameters; add: #'VM Stats' method: #reportVMStats. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'VM Configuration' method: #reportWin32VMConfig. ]. self add: #'OS General' method: #reportOS. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'OS Details' method: #reportWin32OSDetails; add: #'Hardware Details' method: #reportWin32HardwareDetails; add: #'GFX Hardware Details' method: #reportWin32GFXDetails. ]. Smalltalk os osVersion = 'linux' ifTrue: [ self add: #'OS Details' method: #reportLinuxOSDetails ]. self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks; add: #'Space Analysis' method: #reportSpaceAnalysis; add: #'SUnit' method: #reportTestRunner; add: #'Debug Log' method: #reportDebugLog. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was added: + ----- Method: SystemReporter>>reportImagePackages: (in category 'reporting') ----- + reportImagePackages: aStream + + | organizer trunk treated inbox release releaseRepo attribute others | + organizer := PackageOrganizer default. + + self header: 'System Categories with Unknown Package' on: aStream. + SystemOrganization categories + select: [:category | (organizer packageOfSystemCategory: category ifNone: []) isNil] + thenDo: [:category | aStream nextPutAll: category; cr]. + + aStream cr. + self header: 'Packages with Only Cache Repository' on: aStream. + organizer packages + select: [:package | + | repos | + repos := package mcPackage workingCopy repositoryGroup repositories. + repos size = 1 and: [repos first == MCRepository packageCache]] + thenDo: [:package | aStream nextPutAll: package mcPackage workingCopy description; cr]. + + aStream cr. + self header: 'Official Packages' on: aStream. + others := OrderedCollection new. + trunk := MCRepository trunk allVersionNames. + inbox := MCRepository inbox allVersionNames. + treated := MCRepository treated allVersionNames. + releaseRepo := [[ReleaseBuilder releaseRepository] valueSupplyingAnswer: {'*'. true}] on: ReleaseBuilderFailed do: [:ex | nil]. + release := releaseRepo ifNotNil: [:repo | repo allVersionNames] ifNil: [#()]. + + (organizer packages sorted: [:a :b | a packageName <= b packageName]) + collect: [:package | package mcPackage workingCopy] + thenDo: [:workingCopy | | version repo | + version := workingCopy ancestry ancestors ifNotEmpty: [:a | a first]. + version ifNotNil: [version := version name]. + attribute := TextEmphasis normal. + (release includes: version) + ifTrue: [repo := releaseRepo] + ifFalse: [(trunk includes: version) + ifTrue: [repo := MCRepository trunk] + ifFalse: [(inbox includes: version) + ifTrue: [repo := MCRepository inbox. attribute := TextEmphasis bold] + ifFalse: [(treated includes: version) + ifTrue: [repo := treated. attribute := TextColor gray] + ifFalse: [others add: workingCopy]]]. + repo ifNotNil: [ "Only official packages here." + aStream withAttribute: attribute do: [ + aStream + nextPutAll: workingCopy description; + nextPutAll: ' --- '; + nextPutAll: repo description; cr]]]]. + + aStream cr. + self header: 'Other Packages' on: aStream. + others + select: [:workingCopy | workingCopy repositoryGroup repositories size > 1] + thenDo: [:workingCopy | + aStream + nextPutAll: workingCopy description; + nextPutAll: ' --- '; + nextPutAll: workingCopy repositoryGroup repositories second description; cr] + !

1 0

The Trunk: ReleaseBuilder-mt.215.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.215.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.215 Author: mt Time: 17 February 2021, 5:05:37.202893 pm UUID: 8fccf536-9495-3d4a-a67d-720286012aca Ancestors: ReleaseBuilder-mt.214 Always use dialog interface that supports #valueSupplyingAnswer for scripts. =============== Diff against ReleaseBuilder-mt.214 =============== Item was changed: ----- Method: ReleaseBuilder class>>assureReleaseRepositoryReadAccess: (in category 'manual') ----- assureReleaseRepositoryReadAccess: repo self releaseLocally ifTrue: [ (FileDirectory on: repo description) assureExistence. ^ true]. [repo allFileNames] on: NetworkError do: [ + self + inform: ('Release Builder - Manual Step Required\\Please create the release repository:\{1}\...and ensure that you have global read access to it.' withCRs + format: {repo description}). - UserDialogBoxMorph - inform: ('Please create the release repository:\{1}\...and ensure that you have global read access to it.' withCRs - format: {repo description}) title: 'Release Builder - Manual Step Required'. ^ false]. ^ true!

1 0

The Trunk: EToys-mt.420.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.420.mcz ==================== Summary ==================== Name: EToys-mt.420 Author: mt Time: 17 February 2021, 3:46:09.320168 pm UUID: 6869819a-56f8-9042-aa5d-33f1522d7376 Ancestors: EToys-dtl.419 Removes some long-read-and-replaced code. =============== Diff against EToys-dtl.419 =============== Item was removed: - ----- Method: HaloMorph>>addSmallHandle:on:send:to: (in category '*Etoys-Squeakland-private') ----- - addSmallHandle: handleSpec on: eventName send: selector to: recipient - "Add a handle within the halo box as per the haloSpec, and set it up to respond to the given event by sending the given selector to the given recipient. Return the handle. This is the 5/17/04 version of HaloMorph>>addHandle:on:send:to:" - - | handle aPoint iconName colorToUse | - aPoint := self positionIn: haloBox horizontalPlacement: handleSpec horizontalPlacement verticalPlacement: handleSpec verticalPlacement. - handle := EllipseMorph - newBounds: (Rectangle center: aPoint extent: self handleSize asPoint) - color: (colorToUse := Color colorFrom: handleSpec color). - handle borderColor: colorToUse muchDarker. - self addMorph: handle. - (iconName := handleSpec iconSymbol) ifNotNil: - [ | form | - form := ScriptingSystem formAtKey: iconName. - form ifNotNil: - [handle addMorphCentered: (ImageMorph new - image: form; - color: colorToUse makeForegroundColor; - lock)]]. - handle on: #mouseUp send: #endInteraction: to: self. - handle on: eventName send: selector to: recipient. - self isMagicHalo ifTrue:[ - handle on: #mouseEnter send: #handleEntered to: self. - handle on: #mouseLeave send: #handleLeft to: self]. - handle setBalloonText: (target balloonHelpTextForHandle: handle) translated. - ^ handle - ! Item was removed: - ----- Method: HaloMorph>>dragTarget: (in category '*Etoys-Squeakland-events') ----- - dragTarget: event - "Begin dragging the target" - - | thePoint | - event controlKeyPressed ifTrue: [^self growTarget: event]. - growingOrRotating := false. - innerTarget aboutToBeBrownDragged. - self setProperty: #conclusionSelector toValue: #brownDragConcluded. - thePoint := target point: event position - positionOffset from: owner. - target setConstrainedPosition: thePoint hangOut: true. - event hand newMouseFocus: self! Item was removed: - ----- Method: HaloMorph>>growTarget: (in category '*Etoys-Squeakland-events') ----- - growTarget: event - "Begin resizing the target" - growingOrRotating := true. - positionOffset := event position. - originalExtent := target extent. - self removeAllHandlesBut: nil. - event hand newMouseFocus: self. - event hand addMouseListener: self. "add handles back on mouse-up"! Item was removed: - ----- Method: HaloMorph>>highlight:handleName:state: (in category '*Etoys-Squeakland-private') ----- - highlight: handle handleName: handleName state: state - "Change color of handles. Need refactoring later..." - | form highlightName | - handle class == ThreePhaseButtonMorph - ifTrue: [form := ScriptingSystem formPressedAtKey: handleName. - state == #on - ifTrue: [highlightName := (handleName , 'Highlighted') asSymbol. - form := ScriptingSystem formAtKey: highlightName. - form - ifNil: [ScriptingSystem saveForm: (form := (ScriptingSystem formAtKey: handleName) - blendColor: (Color white alpha: 0.5)) colorReduced atKey: highlightName]]. - handle offImage: form. - handle pressedImage: form. - ^ self]. - handleName == #'Halo-Rot' - ifTrue: [state == #on - ifTrue: [handle color: Color lightBlue] - ifFalse: [handle color: Color blue]. - handle - submorphsDo: [:m | m color: handle color makeForegroundColor]]. - handleName == #'Halo-Scale' - ifTrue: [state == #on - ifTrue: [handle color: Color yellow] - ifFalse: [handle color: Color orange]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2021