Squeak-dev July 2022

squeak-dev@lists.squeakfoundation.org

33 participants
227 discussions

The Trunk: System-mt.1365.mcz
by commits＠source.squeak.org 04 Jul '22

04 Jul '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1365.mcz ==================== Summary ==================== Name: System-mt.1365 Author: mt Time: 4 July 2022, 10:13:34.300024 am UUID: b6c5f9d9-0329-8c47-a4d6-2795ba189725 Ancestors: System-mt.1364 Fixes CI access for not-yet-accessible versions. =============== Diff against System-mt.1364 =============== Item was changed: ----- Method: SystemVersion>>ciStatusTimestamp (in category 'continuous integration') ----- ciStatusTimestamp "Slow. Fetch HTML page, extract first occurrence of ... <time-ago datetime='2021-08-04T14:24:20Z' ... " | statusResponse statusPage begin end dateAndTime | statusResponse := WebClient httpGet: self ciStatusPageUrl. statusResponse isSuccess ifFalse: [^ nil]. statusPage := statusResponse content. begin := statusPage findString: 'datetime' startingAt: 100000. "Skip the first X bytes decoration." + begin = 0 ifTrue: [^ nil]. end := statusPage findString: 'Z' startingAt: begin. + end = 0 ifTrue: [^ nil]. dateAndTime := DateAndTime readFrom: (statusPage copyFrom: begin + 10 to: end) readStream. ^ String streamContents: [:s | dateAndTime asDate = Date today ifTrue: [s nextPutAll: 'Today' translated, ','] ifFalse: [dateAndTime asDate = Date yesterday ifTrue: [s nextPutAll: 'Yesterday' translated, ','] ifFalse: [dateAndTime printYMDOn: s]]. s space. dateAndTime printHMOn: s]!

1 0

The Trunk: Help-Squeak-TerseGuide-mt.15.mcz
by commits＠source.squeak.org 04 Jul '22

04 Jul '22

Marcel Taeumel uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-mt.15.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-mt.15 Author: mt Time: 4 July 2022, 9:34:13.224724 am UUID: 301d2672-16ba-1244-a7b1-18fc8486d00c Ancestors: Help-Squeak-TerseGuide-mt.14 TerseGuide: sync #block and #conditionalExpression topics with recent updates on squeak.org =============== Diff against Help-Squeak-TerseGuide-mt.14 =============== Item was changed: ----- Method: TerseGuideHelp class>>block (in category 'pages') ----- block "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #block" + <generated> + ^(HelpTopic - ^HelpTopic title: 'Blocks' contents: '"Blocks: - blocks are objects and may be assigned to a variable - value is last expression evaluated unless explicit return - blocks may be nested - specification - [ arguments | | localvars | expressions ] + - ^ expression terminates block & method (exits all nested blocks) + - blocks intended for long term storage should not contain ^, + as they can not return to the sender context + - use #cull: (and #cull:cull:...) if you do not know the exact number of arguments + - blocks (along with polymorphism on booleans) are the basis of control structures + -> See Conditional Expressions - - ^expression terminates block & method (exits all nested blocks) - - blocks intended for long term storage should not contain ^ " | x y z fac | + x := [ y := 1. z := 2. ]. x value. "simple block usage" - x := [ y := 1. z := 2. ]. - x value. "simple block usage" x := [ :argOne :argTwo | argOne, '' and '' , argTwo.]. "set up block with argument passing" Transcript show: (x value: ''First'' value: ''Second''); cr. "use block with argument passing" + x := [:e | | v | v := 1. e + v] value: 2. "local variable in a block" - x := [:e | | v | v := 1. e + v] value: 2. "localvar in a block" fac := [ :n | n > 1 ifTrue: [n * (fac value: n-1)] ifFalse: [1]]. "closure on block variable" fac value: 5. "closure variable scoped to its block" + !!' readStream nextChunkText) + key: #block; + shouldStyle: true; + yourself! - !!' readStream nextChunkText! Item was added: + ----- Method: TerseGuideHelp class>>conditionalExpression (in category 'pages') ----- + conditionalExpression + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #conditionalExpression" + <generated> + ^(HelpTopic + title: 'Conditional Expression' + contents: + '"Conditional Expressions: + - Conditional expressions, or control structures in general, use + blocks as deferred computations which can be evaluated + selectively + " + | x switch result | + x := 11. + x > 10 ifTrue: [Transcript show: ''ifTrue''; cr]. "if then" + x > 10 ifFalse: [Transcript show: ''ifFalse''; cr]. "if else" + x > 10 "if then else" + ifTrue: [Transcript show: ''ifTrue''; cr] + ifFalse: [Transcript show: ''ifFalse''; cr]. + x > 10 "if else then" + ifFalse: [Transcript show: ''ifFalse''; cr] + ifTrue: [Transcript show: ''ifTrue''; cr]. + Transcript + show: + (x > 10 + ifTrue: [''ifTrue''] + ifFalse: [''ifFalse'']); + cr. + Transcript "nested if then else" + show: + (x > 10 + ifTrue: [x > 5 + ifTrue: [''A''] + ifFalse: [''B'']] + ifFalse: [''C'']); + cr. + switch := Dictionary new. "switch functionality" + switch at: $A put: [Transcript show: ''Case A''; cr]. + switch at: $B put: [Transcript show: ''Case B''; cr]. + switch at: $C put: [Transcript show: ''Case C''; cr]. + result := (switch at: $B) value. + + !!' readStream nextChunkText) + key: #conditionalExpression; + shouldStyle: true; + yourself! Item was removed: - ----- Method: TerseGuideHelp class>>conditionalStatement (in category 'pages') ----- - conditionalStatement - "This method was automatically generated. Edit it using:" - "TerseGuideHelp edit: #conditionalStatement" - ^HelpTopic - title: 'Conditional Statement' - contents: - '| x switch result | - x := 11. - x > 10 ifTrue: [Transcript show: ''ifTrue''; cr]. "if then" - x > 10 ifFalse: [Transcript show: ''ifFalse''; cr]. "if else" - x > 10 "if then else" - ifTrue: [Transcript show: ''ifTrue''; cr] - ifFalse: [Transcript show: ''ifFalse''; cr]. - x > 10 "if else then" - ifFalse: [Transcript show: ''ifFalse''; cr] - ifTrue: [Transcript show: ''ifTrue''; cr]. - Transcript - show: - (x > 10 - ifTrue: [''ifTrue''] - ifFalse: [''ifFalse'']); - cr. - Transcript "nested if then else" - show: - (x > 10 - ifTrue: [x > 5 - ifTrue: [''A''] - ifFalse: [''B'']] - ifFalse: [''C'']); - cr. - switch := Dictionary new. "switch functionality" - switch at: $A put: [Transcript show: ''Case A''; cr]. - switch at: $B put: [Transcript show: ''Case B''; cr]. - switch at: $C put: [Transcript show: ''Case C''; cr]. - result := (switch at: $B) value. - - !!' readStream nextChunkText! Item was changed: ----- Method: TerseGuideHelp class>>pages (in category 'accessing') ----- pages ^ #( introduction transcript assignment constants boolean arithmetic + bitwise conversion block exceptionHandling methodCall conditionalExpression - bitwise conversion block exceptionHandling methodCall conditionalStatement iterationStatement character string symbol array orderedCollection sortedCollection bag set interval association dictionary internalStream fileStream date time point rectangle pen dynamic metaclass debugging misc )!

1 0

The Trunk: ShoutCore-mt.95.mcz
by commits＠source.squeak.org 03 Jul '22

03 Jul '22

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.95.mcz ==================== Summary ==================== Name: ShoutCore-mt.95 Author: mt Time: 3 July 2022, 12:00:42.129581 pm UUID: 62c775c6-aa2f-394f-a327-b13b3f13131d Ancestors: ShoutCore-mt.94 Explicitely update image with default value of new preference #enforceItalicEmphasisInComments:. =============== Diff against ShoutCore-mt.94 =============== Item was changed: + (PackageInfo named: 'ShoutCore') postscript: 'SHTextStylerST80 enforceItalicEmphasisInComments: true.'! - (PackageInfo named: 'ShoutCore') postscript: 'SHTextStylerST80 allInstancesDo: [ :each | each instVarNamed: #parser put: nil ]'!

1 0

The Trunk: ShoutCore-mt.94.mcz
by commits＠source.squeak.org 03 Jul '22

03 Jul '22

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.94.mcz ==================== Summary ==================== Name: ShoutCore-mt.94 Author: mt Time: 3 July 2022, 11:58:30.475581 am UUID: 6cf4d5f1-6ce3-1049-b8cd-08002edc3025 Ancestors: ShoutCore-mt.93 Adds preference to enforce italic typeset in comments. Enabled by default. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-May/220517.html =============== Diff against ShoutCore-mt.93 =============== Item was changed: SHTextStyler subclass: #SHTextStylerST80 instanceVariableNames: 'classOrMetaClass workspace font parser formatAssignments environment sourceMap processedSourceMap pixelHeight attributesByPixelHeight parseAMethod context' + classVariableNames: 'EnforceItalicEmphasisInComments SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' - classVariableNames: 'SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' poolDictionaries: '' category: 'ShoutCore-Styling'! !SHTextStylerST80 commentStamp: 'tween 8/27/2004 10:55' prior: 0! I style Smalltalk methods and expressions. My 'styleTable' class instance var holds an array ofArrays which control how each token is styled/coloured. See my defaultStyleTable class method for its structure. My styleTable can be changed by either modifying the defaultStyleTable class method and then executing SHTextStylerST80 initialize ; or by giving me a new styleTable through my #styleTable: class method. My 'textAttributesByPixelSize' class instance var contains a dictionary of dictionaries. The key is a pixelSize and the value a Dictionary from token type Symbol to TextAttribute array. It is created/maintained automatically. I also install these 3 preferences when my class initialize method is executed.... #syntaxHighlightingAsYouType - controls whether methods are styled in browsers #syntaxHighlightingAsYouTypeAnsiAssignment - controls whether assignments are formatted to be := #syntaxHighlightingAsYouTypeLeftArrowAssignment - controls whether assignments are formatted to be _ I reimplement #unstyledTextFrom: so that TextActions are preserved in the unstyled text ! Item was added: + ----- Method: SHTextStylerST80 class>>enforceItalicEmphasisInComments (in category 'preferences') ----- + enforceItalicEmphasisInComments + <preference: 'Enforce Italic in Comments' + categoryList: #(browsing Accessibility) + description: 'When enabled, always typeset source-code comments in italic, regardless of the current UI theme. When disabled, depend on what the current UI theme prescribes as text attributes for such comments.' + type: #Boolean> + + ^ EnforceItalicEmphasisInComments ifNil: [true]! Item was added: + ----- Method: SHTextStylerST80 class>>enforceItalicEmphasisInComments: (in category 'preferences') ----- + enforceItalicEmphasisInComments: aBooleanOrNil + + EnforceItalicEmphasisInComments = aBooleanOrNil ifTrue: [^ self]. + EnforceItalicEmphasisInComments := aBooleanOrNil. + + self userInterfaceTheme apply. "Invalidate all styling caches." + ! Item was changed: ----- Method: SHTextStylerST80>>createTextAttributesForPixelHeight: (in category 'style table') ----- createTextAttributesForPixelHeight: aNumber | result | result := IdentityDictionary new. result at: #default put: {}. "Required as fall-back for non-existing attributes." self class themeProperties do: [:each | | spec element emphasis font color | element := each first. spec := self userInterfaceTheme perform: element. spec isArray ifFalse: [spec := {spec}]. "Support color-only hints." color := spec first ifNotNil: [:colorSpec | Color colorFrom: colorSpec]. emphasis := spec at: 2 ifAbsent:[nil]. font := spec at: 3 ifAbsent: [nil]. + (element == #comment and: [self class enforceItalicEmphasisInComments]) + ifTrue: [ + emphasis + ifNil: [emphasis := TextEmphasis italic] + ifNotNil: [ + emphasis isArray + ifFalse: [emphasis := {emphasis}, {TextEmphasis italic}] + ifTrue: [emphasis := emphasis, {TextEmphasis italic}]. + emphasis := emphasis asSet asArray "no double italic"]]. + "Support for named text styles." font isString ifTrue: [ | textStyle | textStyle := TextStyle named: font. font := textStyle ifNotNil: [textStyle fontOfSize: aNumber]]. (self createAttributeArrayForColor: color emphasis: emphasis font: font) ifNotEmpty: [:attrArray | result at: element put: attrArray]]. + ^ result! - ^ result - !

1 0

The Inbox: Morphic-mt.2016.mcz
by commits＠source.squeak.org 03 Jul '22

03 Jul '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-mt.2016.mcz ==================== Summary ==================== Name: Morphic-mt.2016 Author: mt Time: 3 July 2022, 11:20:34.969627 am UUID: 6b15b539-8b6e-214a-9282-775362faa885 Ancestors: Morphic-kfr.2015 First take on resolving that "UI process is waiting on a strange semaphore" issue. I am not sure that such a programming model actually exist in Morphic applications. And CMD+Dot rescues the status quo anyway... maybe trying to fix it will make it worse. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-July/221406.html =============== Diff against Morphic-kfr.2015 =============== Item was changed: ----- Method: MorphicProject>>spawnNewProcessIfThisIsUI: (in category 'active process') ----- spawnNewProcessIfThisIsUI: suspendedProcess "Initialize a UI process if needed. Answer true if suspendedProcess was interrupted from a UI process." self uiProcess == suspendedProcess ifTrue: [ self spawnNewProcess. ^true ]. "Ensure that the UI process is running." self uiProcess ifNil: [self spawnNewProcess] + ifNotNil: [:uip | + uip isSuspended ifTrue: [ + self restoreDisplay. + self uiProcess resume]. + uip isBlocked ifTrue: [ + "UI cannot respond because it is waiting on a semaphore. To keep + the system responsive, suspend the current UI process and start + a new one. Prohibit #resume from debugger since we cannot + mark that process as UI process from here." + self flag: #discuss. "mt: How can we now that that #isBlocked state + will not resolve itself soon? Can we? Hmm... see WorldState >> #interCyclePause:" + uip suspend. + uip shouldResumeFromDebugger: false. + self spawnNewProcess. + self addDeferredUIMessage: [uip debug]]]. - ifNotNil: [:p | p isSuspended ifTrue: [ - self restoreDisplay. - self uiProcess resume]]. ^false "no new process was created" !

1 0

The Trunk: Tools-jar.1161.mcz
by commits＠source.squeak.org 03 Jul '22

03 Jul '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-jar.1161.mcz ==================== Summary ==================== Name: Tools-jar.1161 Author: jar Time: 9 June 2022, 1:57:46.549529 pm UUID: f3921b2b-5628-104d-98a9-1e99671344a2 Ancestors: Tools-ct.1160 Fix an inconsistent Debugger behavior WRT the new alternative abandon/terminate/destroy modes introduced by Kernel-ct.1434 and Tools-ct.1092. The suggestion is to make all three termination methods equal in terms of how the chosen termination mode is propagated to #windowIsClosing. Current asymmetrical approach leads to an incorrect debugger termination via #terminate mode. Replace termination of the debugged process with an indirect termination via a forked process (otherwise the debugger waits until the debugged process is terminated but if another error is raised during unwind the termination is halted and the assertion fail). Following up a conversation in http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-May/220675.html Complemented by ToolsTests-jar.111 fixing the failing/incorrects tests in ToolsTests-ct.107 Please review as I'm no debugger expert and this is just my suggestion. Superseeds (or replaces) Tools-jar.1159 (please kindly remove from Inbox) =============== Diff against Tools-ct.1160 =============== Item was changed: CodeHolder subclass: #Debugger + instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector receiverInspectorState contextVariablesInspector contextVariablesInspectorState externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression terminationMethod' - instanceVariableNames: 'interruptedProcess contextStack contextStackIndex contextStackList receiverInspector receiverInspectorState contextVariablesInspector contextVariablesInspectorState externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject labelString message untilExpression' classVariableNames: 'ContextStackKeystrokes ErrorReportServer FullStackSize InterruptUIProcessIfBlockedOnErrorInBackgroundProcess NotifierStackSize SavedExtent StackSizeLimit WantsAnnotationPane' poolDictionaries: '' category: 'Tools-Debugger'! !Debugger commentStamp: 'mt 12/17/2019 12:19' prior: 0! I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. Special note on recursive errors: Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. * A recursive error is detected. * The current project is queried for an isolationHead * Changes in the isolationHead are revoked * The parent project of isolated project is returned to * The debugger is opened there and execution resumes. If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. --- In September 2019, we added MorphicDebugger and MVCDebugger to untangle framework-specific features in our debugger infrastructure. However, this is just an intermediate step. The overall goal would be to remove those two subclasses again while preserving their functionality. Mostly, MVC and Morphic differ in their GUI-process management. This means that "proceed" and "close" work differently depending on the process that is being debugged. --- One idea is to attach that framework-specific information to the process objects. See Process >> #environmentAt: and #environmentAt:put:. Also see ToolSet's #handle* and #debug* methods.! Item was changed: ----- Method: Debugger>>abandon (in category 'context stack menu') ----- abandon + "close the debugger and terminate the debugged process" - "abandon the debugger from its pre-debug notifier" + terminationMethod := #terminateAggressively. + self close + ! - self close.! Item was changed: ----- Method: Debugger>>initialize (in category 'initialize') ----- initialize super initialize. Smalltalk at: #MessageTally ifPresentAndInMemory: [ :tally | tally terminateTimerProcess]. externalInterrupt := false. selectingPC := true. + contextStackIndex := 0. + + terminationMethod := #terminateAggressively "debugger's default termination method"! - contextStackIndex := 0.! Item was changed: ----- Method: Debugger>>terminateProcess (in category 'context stack menu') ----- terminateProcess + "close the debugger and terminate the debugged process" + terminationMethod := #terminate. + self close + ! - interruptedProcess terminate. - interruptedProcess := nil. - self close.! Item was changed: ----- Method: Debugger>>windowIsClosing (in category 'initialize') ----- windowIsClosing "My window is being closed; clean up. Restart the low space watcher." contextStack := nil. receiverInspector := nil. contextVariablesInspector := nil. interruptedProcess == nil ifTrue: [^ self]. + [interruptedProcess perform: terminationMethod. + interruptedProcess := nil] fork. - interruptedProcess terminateAggressively. - interruptedProcess := nil. Smalltalk installLowSpaceWatcher. "restart low space handler"!

6 13

Note sharing inside Squeak?
by Jaromir Matas 02 Jul '22

02 Jul '22

Hi all, In your experience, what would be a good place to *share* more detailed information about e.g. a method: like why I had to include this line and that check, which situations must be taken into account, alternative approaches, examples, references to tests etc etc. Ideally reachable from the image. Would such "notesharing" be welcome or rather confusing or even conterproductive? Often I forget why I did this and that and have to check my notes (if I'm lucky to have made them AND find them). I'm aware method comments are definitely not the place; they are meant to be rather terse and polished. Squeak wiki? Squeak Help? They’d have to be linked somehow to the methods, I imagine, to be useful in this regard… Any suggestion welcome :) Best, Jaromir -- Jaromír Matas mail(a)jaromir.net

9 38

Review Request: fix-busyWait-precision.1.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 02 Jul '22

02 Jul '22

=============== Summary =============== Change Set: fix-busyWait-precision Date: 28 March 2022 Author: Christoph Thiede Fixes #busyWait for durations < 1 milliSecond. Since the original proposal (Chronology-Core-ct.67), the implementation had been moved from Duration to Delay (Chronology-Core-mt.71). However, Delay has only milliseconds precision, causing shorter durations to be handled as a delayDuration of 0 milliSeconds and leading to this erroneous output: [1 microSeconds busyWait] bench '6,240,000 per second. 160 nanoseconds per run. 0.67973 % GC time.' Moves #busyWait implementation back to Duration and invokes it from Delay. Not sure whether we need the latter hook, though. =============== Diff =============== Delay>>busyWait {delaying} · ct 3/28/2022 22:36 (changed) busyWait - "BEWARE! This method is more precise than #wait, but it sacrifices many CPU cycles for that precision. Also note that the GC runs more often. Also note that only processes with a higher priority can run while waiting. - - The following lists the precision (in milliseconds) of #wait on a Microsoft Surface Pro 6, Windows 10 21H1, OSVM 202104182333: - 100 -> 100 - 50 -> 51.1 ... 102.2% - 10 -> 11.6 ... 105.5% ... maybe use #busyWait - 5 -> 5.93 ... 118.6% ... use #busyWait but check process priorities - 1 -> 1.41 ... 141.0% ... use #busyWait but check process priorities - - As of July 2021, the shortest delay that we can guarantee on all platforms is still 1 millisecond as the value of #utcMicrosecondClock might not change any faster than that. For more information, see http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-July/215928.html" - - "[5 milliSeconds busyWait] bench" + "BEWARE! This method is more precise than #wait, but it sacrifices many CPU cycles for that precision. Also note that the GC runs more often. Also note that only processes with a higher priority can run while waiting. See more detailed commentary in Duration >> #busyWait." - | proceedTime | - proceedTime := Time utcMicrosecondClock + (delayDuration "milliseconds" * 1000). - [Time utcMicrosecondClock >= proceedTime] whileFalse. + ^ self delayDuration microSeconds busyWait Duration>>busyWait {squeak protocol} · ct 3/28/2022 22:39 (changed) busyWait - "BEWARE! This method is more precise than #wait, but it sacrifices many CPU cycles for that precision. Also note that only processes with a higher priority can run while waiting. See more detailed commentary in Delay >> #busyWait." + "BEWARE! This method is more precise than #wait, but it sacrifices many CPU cycles for that precision. Also note that the GC runs more often. Also note that only processes with a higher priority can run while waiting. + + The following lists the precision (in milliseconds) of #wait on a Microsoft Surface Pro 6, Windows 10 21H1, OSVM 202104182333: + 100 -> 100 + 50 -> 51.1 ... 102.2% + 10 -> 11.6 ... 105.5% ... maybe use #busyWait + 5 -> 5.93 ... 118.6% ... use #busyWait but check process priorities + 1 -> 1.41 ... 141.0% ... use #busyWait but check process priorities + + As of July 2021, the shortest delay that we can guarantee on all platforms is still 1 millisecond as the value of #utcMicrosecondClock might not change any faster than that. For more information, see http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-July/215928.html" + + "[5 milliSeconds busyWait] bench" - ^ self asDelay busyWait + | proceedTime | + proceedTime := Time utcMicrosecondClock + self asMicroSeconds. + [Time utcMicrosecondClock >= proceedTime] whileFalse. ["fix-busyWait-precision.1.cs"] --- Sent from Squeak Inbox Talk ["fix-busyWait-precision.1.cs"]

7 16

[PSA] Squeak 6.0 | The Dates
by Marcel Taeumel 02 Jul '22

02 Jul '22

Hi all! -- Let's do this. - Feature Freeze on May 6, 23:59 AOE -> 11 days to go - Beta testing until May 15, 23:59 AOE -> 20 days to go - Picking a release candidate until May 18, 23:59 AOE -> 23 days to go The current state of tests can be found here: - https://github.com/squeak-smalltalk/squeak-app/actions - https://github.com/marceltaeumel/squeak-ffi/actions Download the latest squeak-app bundles from here: - http://files.squeak.org/6.0alpha/ - http://files.squeak.org/6.0beta/ (after May 6) - http://files.squeak.org/6.0rc1/ (after May 15) - http://files.squeak.org/6.0rc2/ - ... Please report bugs here on squeak-dev or on GitHub: - https://github.com/squeak-smalltalk/squeak-object-memory/issues After the Feature Freeze, this will happen in the Trunk Update Stream: - Unload 60Deprecated via postload-script - Adapt "SqueakVersion" to keep build number stable - Add "Load deprecated methods" to preference wizard - Update update map to not include 60Deprecated anymore After the release, this will happen in the Trunk Update Stream: - Add new 61Deprecated package - Trunk open for the features again ! Discuss the critical ones via Inbox as usual Meanwhile, the release versions of all packages will be copied over to source.squeak.org/squeak60. Best, Marcel P.S.: Here is the previous info on the release planning: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-March/219520.ht…

9 37

The Trunk: Morphic-kfr.2015.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.2015.mcz ==================== Summary ==================== Name: Morphic-kfr.2015 Author: kfr Time: 1 July 2022, 7:20:33.220758 pm UUID: 4c01e4ed-3290-0848-990e-4a31fd76a48b Ancestors: Morphic-kfr.2014 Reverting Morphic-kfr.2014. Issue solved in Graphics-kfr.527 =============== Diff against Morphic-kfr.2014 =============== Item was changed: ----- Method: SketchMorph>>reduceColorPalette: (in category 'menu') ----- reduceColorPalette: evt "Let the user ask for a reduced number of colors in this sketch" | str nColors | - originalForm depth > 16 ifTrue:[^self inform:'Not possible for pictures of 32 bit depth' translated]. str := UIManager default request: 'Please enter a number greater than one. (note: this cannot be undone, so answer zero to abort if you need to make a backup first)' translated initialAnswer: '256'. nColors := Integer readFrom: (ReadStream on: str). (nColors between: 2 and: 256) ifFalse: [^ self]. originalForm := originalForm copyWithColorsReducedTo: nColors. rotatedForm := nil. self changed!

1 0

Jump to page: