Squeak-dev February 2021

squeak-dev@lists.squeakfoundation.org

33 participants
196 discussions

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

Class MessageTally not initialized in 6.0 images
by Jaromir 18 Feb '21

18 Feb '21

Hi, I've noticed the the MessageTally class is not initialized in 6.0 images (my latest is Squeak6.0alpha-20194-64bit.image) -> as a result ShowProcesses = nil and spyOn fails. Tried MessageTally initialize and then it indeed works. Please help me understand how this works: the downloaded image normally contains all classes initialized. What causes that a class becomes uninitialized? Thanks and regards, ----- Jaromir ^[^ -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

2 3

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

Syntax Error window locks up image
by John-Reed Maffeo 18 Feb '21

18 Feb '21

What causes a window like this to appear? Why does it lock up the image? The problem occurred in an image that was running unattended using #Delay to run a method every hour. The application is in development but it has been running on schedule for a month or so without any problems. I do save and restart the image occasionally. -- jrm

3 6

#valueWithExit inconsistency (?)
by Jaromir 17 Feb '21

17 Feb '21

Current implementation of #valueWithExit seems a bit inconsistent in its return value: it returns either nil (if the receiver exited using the exit block) or the receiver. Would it be worth modifying it to always return nil? (there are no senders anyway) valueWithExit - self value: [ ^nil ] + ^self value: [ ^nil ] Or using a nice complementary method #valueWithExit: valueWithExit: aBlock self value: [^aBlock value]. ^aBlock value valueWithExit ^self valueWithExit: [nil] Thanks ----- Jaromir ^[^ -- Sent from: http://forum.world.st/Squeak-Dev-f45488.html

3 3

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

Float32Array weirdness
by Stéphane Rollandin 17 Feb '21

17 Feb '21

Hello all, In the latest trunk image, #at:put: in Float32Array seems to miss the fractional part: | floatArray | (floatArray := Float32Array new: 4) at: 2 put: 2.3. floatArray ==> a Float32Array(0.0 2.0 0.0 0.0) Stef

4 5

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: 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

← Newer
1
...
13
14
15
16
17
18
19
20
Older →

Jump to page: