Squeak-dev November 2019

squeak-dev@lists.squeakfoundation.org

23 participants
232 discussions

The Trunk: Morphic-mt.1584.mcz
by commits＠source.squeak.org 06 Nov '19

06 Nov '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1584.mcz ==================== Summary ==================== Name: Morphic-mt.1584 Author: mt Time: 6 November 2019, 9:06:51.922374 am UUID: 2e6402c5-7245-ae48-a58b-025014f95acb Ancestors: Morphic-mt.1583 Fixes a regression in PluggableListMorph >> #getVisibleList. Also restore code formatting in that method. Note that "3@3" referred to #hMargin in LazyListMorph, which is not required since the entire row is defined by its selection rectangle, not the beginning of the text. Still, "0@1" is required because #bottomLeft is (always) one pixel to far down. =============== Diff against Morphic-mt.1583 =============== Item was changed: ----- Method: PluggableListMorph>>bottomVisibleRowIndex (in category 'accessing - items') ----- bottomVisibleRowIndex + ^ self rowAtLocation: self scroller bottomLeft - (0@1)! - ^ self rowAtLocation: self bottomLeft+(3@3 negated)! Item was changed: ----- Method: PluggableListMorph>>topVisibleRowIndex (in category 'accessing - items') ----- topVisibleRowIndex + ^ self rowAtLocation: self scroller topLeft! - ^ self rowAtLocation: self topLeft+(3@3)! Item was changed: ----- Method: PluggableListMorph>>visibleList (in category 'accessing') ----- visibleList + "For convenience. Avoid accessing #getList directly. Just use the same protocol that my #listMorph uses." + + ^ self listSize = 0 + ifTrue: [ Array empty ] + ifFalse: + [ (self topVisibleRowIndex to: self bottomVisibleRowIndex) collect: + [ :viewIndex | + self itemAt: viewIndex ] ].! - - ^ (self topVisibleRowIndex to: (self bottomVisibleRowIndex min: self listSize)) - collect: [:viewIndex | self itemAt: viewIndex].!

1 0

When did it become a good idea for selected text to be enclosed by () instead of replaced by 9 ?
by tim Rowledge 06 Nov '19

06 Nov '19

In trying to see if anything had changed re WaveEditor etc I updated an image to update 16963. When I went to save this image a Squeak5.1-16963… I selected the last thre digits of the prior name (Squeak5.1-16549…) intending to type 963. Imagine my surprise - nay, alarm! - when I got ‘Squeak5.1-16(963) instead. Oh my, I said to myself, what has Pooh done now. As best I can work out this is a result of the change in TextEditor>enclose: that added ‘9’ some time ago (and which did not affect me since I normally turn off the annoying enclose stuff in preferences) combined with a more recent change to TextEditor>dispatchOnKeyboardEvent: wherein a use of TextEditor>enclose: was added near the end. I see two obviously related Preferences for enclosing text. I see this as a dangerous thing, because multiple preferences interacting on the same issue can cause chaos, not to say confusion. And every time a preference is added it is yet another sheaf of potential problems to test. So, yes, I can turn it off easily enough. But how could it ever be unsurprising to a user to get a(bc)d instead of the expected a9d ? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Useful random insult:- Fell out of the family tree.

6 6

The Inbox: Collections-cmm.858.mcz
by commits＠source.squeak.org 06 Nov '19

06 Nov '19

Chris Muller uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-cmm.858.mcz ==================== Summary ==================== Name: Collections-cmm.858 Author: cmm Time: 4 November 2019, 7:25:14.227142 pm UUID: 071a78c1-3ac2-4cad-b0e0-e7c2935504e1 Ancestors: Collections-pre.857 Let the printString of an OrderedDictionary reveal its key sequence. =============== Diff against Collections-pre.857 =============== Item was added: + ----- Method: Dictionary>>keysInOrder (in category 'printing') ----- + keysInOrder + ^ self keysSortedSafely! Item was changed: ----- Method: Dictionary>>printElementsOn: (in category 'printing') ----- printElementsOn: aStream aStream nextPut: $(. self size > 100 ifTrue: [aStream nextPutAll: 'size '. self size printOn: aStream] + ifFalse: [self keysInOrder - ifFalse: [self keysSortedSafely do: [:key | aStream print: key; nextPutAll: '->'; print: (self at: key); space]]. aStream nextPut: $)! Item was added: + ----- Method: OrderedDictionary>>keysInOrder (in category 'printing') ----- + keysInOrder + ^ self keys!

3 3

The Inbox: Collections-cmm.859.mcz
by commits＠source.squeak.org 06 Nov '19

06 Nov '19

Chris Muller uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-cmm.859.mcz ==================== Summary ==================== Name: Collections-cmm.859 Author: cmm Time: 5 November 2019, 5:07:01.58164 pm UUID: 19f1d9b4-08e4-454d-9fe3-6015e80dd233 Ancestors: Collections-pre.857 Let OrderedDictionary print its elements in its own sequence. =============== Diff against Collections-pre.857 =============== Item was added: + ----- Method: Dictionary>>keysInOrder (in category 'accessing') ----- + keysInOrder + "Answer the keys of the receiver in a particular sequence. This default is alphabetical, but subclasses like OrderedDictionary maintain their own sequence." + ^ self keysSortedSafely! Item was changed: ----- Method: Dictionary>>printElementsOn: (in category 'printing') ----- printElementsOn: aStream aStream nextPut: $(. self size > 100 ifTrue: [aStream nextPutAll: 'size '. self size printOn: aStream] + ifFalse: [self keysInOrder - ifFalse: [self keysSortedSafely do: [:key | aStream print: key; nextPutAll: '->'; print: (self at: key); space]]. aStream nextPut: $)! Item was added: + ----- Method: OrderedDictionary>>keysInOrder (in category 'accessing') ----- + keysInOrder + "Overridden. Preserve the order of the receiver." + ^ self keys!

1 0

The Inbox: Network-ck.235.mcz
by commits＠source.squeak.org 05 Nov '19

05 Nov '19

A new version of Network was added to project The Inbox: http://source.squeak.org/inbox/Network-ck.235.mcz ==================== Summary ==================== Name: Network-ck.235 Author: ck Time: 5 November 2019, 2:28:19.977827 pm UUID: 8ba9f4f6-31d1-4901-8d7a-93654d90a89f Ancestors: Network-cbc.234 Move noAuthorizationMethod to the class side. Without this change the #socks5 method is broken. All the other default settings that #socks5 uses are on the class side too and its the only place that uses it. =============== Diff against Network-cbc.234 =============== Item was added: + ----- Method: SocksSocket class>>noAutorizationMethod (in category 'accessing') ----- + noAutorizationMethod + ^0! Item was removed: - ----- Method: SocksSocket>>noAutorizationMethod (in category 'methods') ----- - noAutorizationMethod - ^0!

1 0

[Discussion] Warning vs. Halt (or: "Why is a warning a notification?")
by Marcel Taeumel 04 Nov '19

04 Nov '19

Hi, there. At the moment, we have this hierarchy in Squeak's exception mechanism: Exception < Error Exception < Notification < Warning Exception < Halt Exception < UnhandledError < UnhandledWarning I think that something is conceptually wrong here. Notifications are supposed to be resumable and do nothing by default. Warnings, on the other hand, are resumable but interrupt the process by default. Like Halt does. Not now, but in the future, I would like to change it to something like this: Exception < Error Exception < Notification Exception < ResumableInterrupt < Warning Exception < ResumableInterrupt < Halt Exception < UnhandledError < UnhandledWarning Thoughts? Well, there are other notifications that interrupt the current process in a way: EnvironmentRequest, MCMergeResolutionRequest, ... Maybe my definition of "Notification" is wrong? Best, Marcel P.S.: Why is CurrentReadOnlySourceFiles an Exception but CurrentEnvironment is a Notification? Sigh....

4 5

Context>>#tempNames can raise Syntax Error
by Fabio Niephaus 04 Nov '19

04 Nov '19

Hi all, While debugging a failing Seaside test on Squeak trunk (see [1]), I learned that Context>>#tempNames can raise a syntax error. Here's a repro doIt: `Context allInstances collect: [:e | e tempNames]` Anyone willing to look into this? When I try to debug the "calling process", my image freezes... Cheers, Fabio [1] https://travis-ci.org/SeasideSt/Seaside/jobs/578335182#L2733

2 1

The Inbox: Chronology-Core-mt.50.mcz
by commits＠source.squeak.org 04 Nov '19

04 Nov '19

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-mt.50.mcz ==================== Summary ==================== Name: Chronology-Core-mt.50 Author: mt Time: 30 October 2019, 10:25:14.294226 am UUID: f064aadc-0e62-174e-b97c-f70cc22a23f6 Ancestors: Chronology-Core-mt.49 Proposal to add GC pressure to #bench method. =============== Diff against Chronology-Core-mt.49 =============== Item was changed: ----- Method: BlockClosure>>benchFor: (in category '*chronology-core') ----- benchFor: aDuration "See how many times I can value within the given duration. I'll answer a meaningful description." + | startTime shouldRun count elapsedTime roundTo3Digits delay gcStart gcTime | - | startTime shouldRun count elapsedTime roundTo3Digits delay | roundTo3Digits := [:num | | rounded lowDigit | rounded := (num * 1000) rounded. "round to 1/1000" lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits" rounded := rounded roundTo:(10 raisedTo: lowDigit). (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed" ifTrue: [(rounded // 1000) asStringWithCommas] ifFalse: [(rounded / 1000.0) printString]]. delay := aDuration asDelay. count := 0. shouldRun := true. + Smalltalk garbageCollect. [ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1. startTime := Time millisecondClockValue. + gcStart := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10). [ shouldRun ] whileTrue: [ self value. count := count + 1 ]. elapsedTime := Time millisecondsSince: startTime. + gcTime := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10) - gcStart. ^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', (( #( (1e-3 'seconds') (1 'milliseconds') (1e3 'microseconds') (1e6 'nanoseconds') ) detect: [ :pair | elapsedTime * pair first >= count ] ifNone: [ #(1e9 'picoseconds') ]) in: [ :pair | ' {1} {2} per run.' format: { (roundTo3Digits value: elapsedTime * pair first / count). + pair second } ]), (' {1} % GC time.' format: {gcTime / elapsedTime * 100 roundTo: 0.0001})! - pair second } ])!

4 6

Trouble logging into http://source.squeak.org
by Thiede, Christoph 04 Nov '19

04 Nov '19

Hi, sorry for spamming the list for this issue, but I did not found a dedicated admin mail address. I was trying to log into source.squeak.org with my initials, but I don't know my password. I'm event not sure whether I ever registered an account there, but my initials (ct) are also in use. When I try to reset the account, it says: [cid:01b1eaa4-bd87-4e27-81fc-8ddb19d79f57] Please help :-) Best, Christoph

2 1

The Inbox: System-ct.1119.mcz
by commits＠source.squeak.org 02 Nov '19

02 Nov '19

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1119.mcz ==================== Summary ==================== Name: System-ct.1119 Author: ct Time: 26 October 2019, 10:00:59.779469 pm UUID: dc499ab1-dfe1-064c-a997-271a591d4b18 Ancestors: System-mt.1116 Adds convenience methods to change multiple preferences Usage example: Preferences setPreferences: { #(UIManager >> #openToolsAttachedToMouseCursor) join asSymbol -> false. #(Model >> #useColorfulWindows) join asSymbol -> false } during: [self notify: 'Carpe Squeak!'] =============== Diff against System-mt.1116 =============== Item was added: + ----- Method: Preferences class>>setPreferences: (in category 'get/set') ----- + setPreferences: associations + + associations associationsDo: [:association | + self setPreference: association key toValue: association value].! Item was added: + ----- Method: Preferences class>>setPreferences:during: (in category 'get/set') ----- + setPreferences: associations during: aBlock + "Changes the given values for the duration of aBlock" + + | values previousValues | + values := associations as: Dictionary. + previousValues := values associations collect: [:association | + association key -> (self valueOfFlag: association key)]. + self setPreferences: values. + ^ aBlock ensure: [ + self setPreferences: previousValues]!

3 5

Jump to page: