Squeak-dev September 2020

squeak-dev@lists.squeakfoundation.org

37 participants
269 discussions

morhpic copy the max/min buttons to bottom of the browser.
by gettimothy 04 Sep '20

04 Sep '20

Hi all, In my work, I like to 'adhere to edge' on many open browsers. I have a browser adhered to the bottom right of the world. to explain further, the browser is minimized at bottom-right edge. the max /min buttons are aligned in the minimized browser along the bottom. I click the button, and the browser is un-minimized but now I have to move my mouse all the way up to where they moved to. (problems of the future, I know.....poor tty has to move that heavy mouse all of several inches, oh! the humanity!) I thought it would be handy to copy the min-max buttons on the browser to the bottom of the browser so I could do a quick max/min without having to move my mouse after the operation. the copy works fine, but, after the first click, the buttons get hidden behind the browser and stuck to the world. any Morphic geniuses have a suggestion on how to get the copied buttons to adhere to the little status-bar-doohickey along the bottom of the browser? thanks in advance

2 2

The Inbox: Morphic-ct.1680.mcz
by commits＠source.squeak.org 04 Sep '20

04 Sep '20

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1680.mcz ==================== Summary ==================== Name: Morphic-ct.1680 Author: ct Time: 4 September 2020, 8:48:24.528421 pm UUID: 8fb88541-6e15-cb41-82d0-7de2f7c3e00e Ancestors: Morphic-mt.1679 Fixes a bug in PluggableButtonMorph when passing nil as a label Instead of an empty string, 'nil' asText was diplayed. See also PluggableButtonMorph >> #label. =============== Diff against Morphic-mt.1679 =============== Item was changed: ----- Method: PluggableButtonMorph>>label: (in category 'accessing') ----- label: aStringOrTextOrMorph label = aStringOrTextOrMorph ifTrue: [^ self]. + label := aStringOrTextOrMorph ifNotNil: [ + aStringOrTextOrMorph isString + ifFalse: [aStringOrTextOrMorph asMorph] + ifTrue: [aStringOrTextOrMorph]]. - label := aStringOrTextOrMorph isString - ifFalse: [aStringOrTextOrMorph asMorph] - ifTrue: [aStringOrTextOrMorph]. self updateMinimumExtent. self changed.!

1 0

The Inbox: Tools-ct.987.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Christoph Thiede uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-ct.987.mcz ==================== Summary ==================== Name: Tools-ct.987 Author: ct Time: 3 September 2020, 2:45:32.786083 pm UUID: e07c870e-186e-f54a-9dbc-b766b1cb2bbb Ancestors: Tools-ct.985 Fixes several issues with accepting source in debuggers. Applies overall refactoring to Debugger>>#contents:notifying:. With this version, two concrete regressions are fixed that were introduced with the SistaV1 bytecode set (see [1]): - When compiling a method from a block context and answering subsequent parser notifications, make sure the source code is not lost. A variant of this issue was filed by Eliot (emm) in [2]. - When removing a method from a block context, make sure the stack is unwinded correctly. Further adjustments: - Don't restart the current context if a different selector is changed. - Update contentsSelection correctly without morphic hack. Works now in MVC, again. [1] http://forum.world.st/The-Inbox-Kernel-dtl-1310-mcz-td5113032.html [2] http://forum.world.st/tedious-programming-in-the-debugger-error-needs-fixin… =============== Diff against Tools-ct.985 =============== Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController + "Accept new method source of the selected context." - "The retrieved information has changed and its source must now be updated. - In this case, the retrieved information is the method of the selected context." - | result selector classOfMethod category h ctxt newMethod | - contextStackIndex = 0 ifTrue: - [^false]. - self selectedContext isExecutingBlock ifTrue: - [h := self selectedContext activeHome. - h ifNil: - [self inform: 'Method for block not found on stack, can''t edit and continue'. - ^false]. - (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs) ifFalse: - [^false]. - self resetContext: h changeContents: false. - "N.B. Only reset the contents if the compilation succeeds. If contents are reset - when compilation fails both compiler error message and modifications are lost." - (result := self contents: aText notifying: aController) ifTrue: - [self contentsChanged]. - ^result]. + | selector classOfMethod category ctxt newMethod | + contextStackIndex = 0 ifTrue: [^ false]. + + "First, handle some edge cases" + selector := self selectedClass newParser parseSelector: aText. + "selector isDoIt ifTrue: [ + currentCompiledMethod := self compileDoIt: aText]." + self flag: #todo. "ct: Recompile doIt method *without* creating method litters!! See Compiler>>#evaluateCue:ifFail:." + selector = self selectedMessageName ifFalse: [ + "Different message compiled, delegating to super" + ^ super contents: aText notifying: aController]. + + self selectedContext isExecutingBlock ifTrue: [ + "If we are in a block context, we need to rewind the stack before ." + | home | + home := self selectedContext activeHome. + home ifNil: [ + self inform: 'Method for block not found on stack, can''t edit and continue' translated. + ^ false]. + (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs translated) ifFalse: [ + ^ false]. + + self resetContext: home changeContents: false. + "N.B. Only reset the contents if the compilation succeeds. If contents would be reset when compilation fails, both compiler error message and modifications were lost." + ^ (self contents: aText notifying: aController) + ifTrue: [self contentsChanged]; + yourself]. + classOfMethod := self selectedClass. category := self selectedMessageCategoryName. + + "Do the actual compilation" - selector := self selectedClass newParser parseSelector: aText. - (selector == self selectedMessageName - or: [(self selectedMessageName beginsWith: 'DoIt') - and: [selector numArgs = self selectedMessageName numArgs]]) ifFalse: - [self inform: 'can''t change selector'. - ^false]. selector := classOfMethod + compile: aText + classified: category + notifying: aController. + selector ifNil: [^ false]. "compilation cancelled" + + "Update views" - compile: aText - classified: category - notifying: aController. - selector ifNil: [^false]. "compile cancelled" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. + newMethod isQuick ifTrue: [ + self cutBackExecutionToSenderContext]. - newMethod isQuick ifTrue: - [self cutBackExecutionToSenderContext]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext + ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs translated] + ifTrue: [ + newMethod isQuick ifFalse: [ + interruptedProcess restartTopWith: newMethod. + self stepToStatement]. - ifFalse: - [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs] - ifTrue: - [newMethod isQuick ifFalse: - [interruptedProcess - restartTopWith: newMethod; - stepToSendOrReturn]. contextVariablesInspector object: nil]. self resetContext: ctxt. + + Project current addDeferredUIMessage: [ + self changed: #contentsSelection]. + ^ true! - Smalltalk isMorphic ifTrue: - [Project current world - addAlarm: #changed: - withArguments: #(contentsSelection) - for: self - at: (Time millisecondClockValue + 200)]. - ^true! Item was changed: ----- Method: Debugger>>contextStackIndex:oldContextWas: (in category 'private') ----- contextStackIndex: anInteger oldContextWas: oldContext "Change the context stack index to anInteger, perhaps in response to user selection." | isNewMethod | self saveReceiverInspectorState. self saveContextVariablesInspectorState. contextStackIndex := anInteger. anInteger = 0 ifTrue: [currentCompiledMethod := contents := nil. self changed: #contextStackIndex. self decorateButtons. self contentsChanged. contextVariablesInspector object: nil. receiverInspector context: nil; inspect: self receiver. ^self]. isNewMethod := oldContext isNil + or: [oldContext home method ~= (currentCompiledMethod := self selectedContext home method)]. - or: [oldContext method ~~ (currentCompiledMethod := self selectedContext method)]. isNewMethod ifTrue: [contents := self selectedMessage. self contentsChanged. self pcRange]. self changed: #contextStackIndex. self decorateButtons. contextVariablesInspector object: self selectedContext. self restoreContextVariablesInspectorState. receiverInspector context: self selectedContext; inspect: self receiver. self restoreReceiverInspectorState. isNewMethod ifFalse: [self changed: #contentsSelection]! Item was changed: ----- Method: Debugger>>findCleanHomeBelow: (in category 'context stack (message list)') ----- findCleanHomeBelow: method | dirtyIndex | dirtyIndex := contextStack size + 1. contextStack reverse detect: [:context | dirtyIndex := dirtyIndex - 1. + context home method = method homeMethod]. - context method = method]. ^ dirtyIndex + 1! Item was added: + ----- Method: Debugger>>tallyMenu: (in category 'controls') ----- + tallyMenu: aMenu + + ^ aMenu + "title: 'Tally' translated;" flag: #todo; "ct: Implement on PluggableMenuSpec" + addTranslatedList: #( + ('Tally selection' tallyIt 'evaluate current selection and measure the time') + ('Record send' doRecord 'record next message send')); + yourself!

1 0

The Trunk: Morphic-mt.1679.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1679.mcz ==================== Summary ==================== Name: Morphic-mt.1679 Author: mt Time: 3 September 2020, 1:31:22.442904 pm UUID: 88c94469-c1c1-4781-8e75-6a59d3bd76ee Ancestors: Morphic-LM.1678, Morphic-mt.1675 Merge commits. =============== Diff against Morphic-LM.1678 =============== Item was changed: ----- Method: DialogWindow>>createMessage: (in category 'initialization') ----- createMessage: aString messageMorph := aString asText asMorph. messageMorph name: 'Message'; readOnly: true; setProperty: #indicateKeyboardFocus toValue: #never; + handlesKeyboardOnlyOnFocus: true. "If user presses enter while only hovering the text, we want to process the stroke to close the dialog." - setProperty: #needsClickToFocus toValue: true. self setMessageParameters. ^ messageMorph! Item was changed: ----- Method: Morph>>handleKeyDown: (in category 'events-processing') ----- handleKeyDown: anEvent "System level event handling." + anEvent wasHandled ifTrue: [^ self]. + (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. + - anEvent wasHandled ifTrue:[^self]. - (self handlesKeyboard: anEvent) ifFalse:[^self]. anEvent wasHandled: true. + ^ self keyDown: anEvent! - ^self keyDown: anEvent! Item was changed: ----- Method: Morph>>handleKeyUp: (in category 'events-processing') ----- handleKeyUp: anEvent "System level event handling." + anEvent wasHandled ifTrue: [^ self]. + (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. + - anEvent wasHandled ifTrue:[^self]. - (self handlesKeyboard: anEvent) ifFalse:[^self]. anEvent wasHandled: true. + ^ self keyUp: anEvent! - ^self keyUp: anEvent! Item was changed: ----- Method: Morph>>handleKeystroke: (in category 'events-processing') ----- handleKeystroke: anEvent "System level event handling. Has support for automatically grabbing the keyboard focus considering the keyboard focus delegate. See #newKeyboardFocus:" | handler | anEvent wasHandled ifTrue: [^ self]. (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. handler := self wantsKeyboardFocus ifFalse: [self] ifTrue: [(anEvent hand newKeyboardFocus: self) ifNil: [self]]. anEvent handler: handler. anEvent wasHandled: true. ^ handler keyStroke: anEvent! Item was added: + ----- Method: Morph>>handlesKeyboardOnlyOnFocus (in category 'event handling') ----- + handlesKeyboardOnlyOnFocus + "If set, reject every keyboard event until the receiver has received the keyboard focus in another way, i.e. a mouse click (see #mouseDown:) or programmatic focusing (see HandMorph >> #newKeyboardFocus:). This allows sending keyboard events to any owner of the receiver while the receiver is hovered by the hand. See senders. + A particular user is DialogWindow which looks for Enter and Escape presses and should not loose these events to the content morph unless it is explicitly focused. For the full discussion, see http://forum.world.st/The-Inbox-Morphic-cbc-1665-mcz-td5117905.html." + + ^ self valueOfProperty: #handlesKeyboardOnlyOnFocus ifAbsent: [false]! Item was added: + ----- Method: Morph>>handlesKeyboardOnlyOnFocus: (in category 'event handling') ----- + handlesKeyboardOnlyOnFocus: aBoolean + + ^ self setProperty: #handlesKeyboardOnlyOnFocus toValue: aBoolean! Item was changed: ----- Method: PluggableTextMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event "Restore the selection in the text morph if there was a selection." super mouseEnter: event. selectionInterval ifNotNil: [:interval | textMorph editor selectInterval: selectionInterval; setEmphasisHere]. Preferences mouseOverForKeyboardFocus + ifTrue: [event hand newKeyboardFocus: self].! - ifTrue:[event hand newKeyboardFocus: self]! Item was changed: ----- Method: TextMorph>>handleKeystroke: (in category 'events-processing') ----- handleKeystroke: anEvent "Overwritten to support tab-among-fields preference." | pasteUp | anEvent wasHandled ifTrue:[^self]. (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. anEvent keyCharacter = Character tab ifTrue: [ "Allow passing through text morph inside pasteups" (self wouldAcceptKeyboardFocusUponTab and: [(pasteUp := self pasteUpMorphHandlingTabAmongFields) notNil]) ifTrue: [ anEvent wasHandled: true. ^ pasteUp tabHitWithEvent: anEvent]]. ^ super handleKeystroke: anEvent! Item was changed: ----- Method: TextMorph>>handlesKeyboard: (in category 'event handling') ----- + handlesKeyboard: evt + ^true! - handlesKeyboard: anEvent - - ^ ((self valueOfProperty: #needsClickToFocus ifAbsent: [false]) ==> [ - anEvent hand keyboardFocus = self])!

1 0

The Trunk: Morphic-LM.1678.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Fabio Niephaus uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-LM.1678.mcz ==================== Summary ==================== Name: Morphic-LM.1678 Author: LM Time: 3 September 2020, 12:58:35.620287 pm UUID: d1262531-fd1c-43a1-ba41-9ff8b3728a3a Ancestors: Morphic-ct.1677 Prevent users from creating multiple SystemProgressMorphs by abusing uniqueInstance. Currently the UniqueInstance class variable is not set properly when it is nil, which allows the user to call it multiple times to generate many SystemProgressMorphs, defeating the purpose of having a *unique* instance. =============== Diff against Morphic-mt.1674 =============== Item was changed: ----- Method: MenuItemMorph>>invokeWithEvent: (in category 'events') ----- invokeWithEvent: evt "Perform the action associated with the given menu item." - | w | self isEnabled ifFalse: [^ self]. + + (owner notNil and: [self isStayUpItem not]) ifTrue: [ - target class == HandMorph ifTrue: [(self notObsolete) ifFalse: [^ self]]. - owner ifNotNil:[self isStayUpItem ifFalse:[ self flag: #workAround. "The tile system invokes menus straightforwardly so the menu might not be in the world." + self world ifNotNil: [:world | - (w := self world) ifNotNil:[ owner deleteIfPopUp: evt. "Repair damage before invoking the action for better feedback" + world displayWorldSafely]]. + + selector ifNil: [^ self]. + + Cursor normal showWhile: [ + "show cursor in case item opens a new MVC window" + selector numArgs isZero + ifTrue: [target perform: selector] + ifFalse: [target perform: selector withArguments: ( + selector numArgs = arguments size + ifTrue: [arguments] + ifFalse: [arguments copyWith: evt] )] ].! - w displayWorldSafely]]]. - selector ifNil:[^self]. - Cursor normal showWhile: [ | selArgCount | "show cursor in case item opens a new MVC window" - (selArgCount := selector numArgs) = 0 - ifTrue: - [target perform: selector] - ifFalse: - [selArgCount = arguments size - ifTrue: [target perform: selector withArguments: arguments] - ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]].! Item was removed: - ----- Method: MenuItemMorph>>notObsolete (in category 'private') ----- - notObsolete - "Provide backward compatibility with messages being sent to the Hand. Remove this when no projects made prior to 2.9 are likely to be used. If this method is removed early, the worst that can happen is a notifier when invoking an item in an obsolete menu." - - (HandMorph canUnderstand: (selector)) ifTrue: [^ true]. "a modern one" - - self inform: 'This world menu is obsolete. - Please dismiss the menu and open a new one.'. - ^ false - ! Item was changed: ----- Method: SystemProgressMorph class>>uniqueInstance (in category 'instance creation') ----- uniqueInstance + + ^ UniqueInstance ifNil: [UniqueInstance := super new]! - ^UniqueInstance ifNil:[super new]!

2 1

The Trunk: Morphic-ct.1677.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Fabio Niephaus uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1677.mcz ==================== Summary ==================== Name: Morphic-ct.1677 Author: ct Time: 22 August 2020, 7:34:52.856555 pm UUID: 094ccc97-c3f6-364c-a10d-7418b3482703 Ancestors: Morphic-mt.1674 Nuke backward compatibility for Squeak 2.x menus. This should really not be relevant any longer I think. ;-) Also minor refactoring to MenuItemMorph >> #invokeWithEvent:. =============== Diff against Morphic-mt.1674 =============== Item was changed: ----- Method: MenuItemMorph>>invokeWithEvent: (in category 'events') ----- invokeWithEvent: evt "Perform the action associated with the given menu item." - | w | self isEnabled ifFalse: [^ self]. + + (owner notNil and: [self isStayUpItem not]) ifTrue: [ - target class == HandMorph ifTrue: [(self notObsolete) ifFalse: [^ self]]. - owner ifNotNil:[self isStayUpItem ifFalse:[ self flag: #workAround. "The tile system invokes menus straightforwardly so the menu might not be in the world." + self world ifNotNil: [:world | - (w := self world) ifNotNil:[ owner deleteIfPopUp: evt. "Repair damage before invoking the action for better feedback" + world displayWorldSafely]]. + + selector ifNil: [^ self]. + + Cursor normal showWhile: [ + "show cursor in case item opens a new MVC window" + selector numArgs isZero + ifTrue: [target perform: selector] + ifFalse: [target perform: selector withArguments: ( + selector numArgs = arguments size + ifTrue: [arguments] + ifFalse: [arguments copyWith: evt] )] ].! - w displayWorldSafely]]]. - selector ifNil:[^self]. - Cursor normal showWhile: [ | selArgCount | "show cursor in case item opens a new MVC window" - (selArgCount := selector numArgs) = 0 - ifTrue: - [target perform: selector] - ifFalse: - [selArgCount = arguments size - ifTrue: [target perform: selector withArguments: arguments] - ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]].! Item was removed: - ----- Method: MenuItemMorph>>notObsolete (in category 'private') ----- - notObsolete - "Provide backward compatibility with messages being sent to the Hand. Remove this when no projects made prior to 2.9 are likely to be used. If this method is removed early, the worst that can happen is a notifier when invoking an item in an obsolete menu." - - (HandMorph canUnderstand: (selector)) ifTrue: [^ true]. "a modern one" - - self inform: 'This world menu is obsolete. - Please dismiss the menu and open a new one.'. - ^ false - !

1 0

The Inbox: NetworkTests-ct.59.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Christoph Thiede uploaded a new version of NetworkTests to project The Inbox: http://source.squeak.org/inbox/NetworkTests-ct.59.mcz ==================== Summary ==================== Name: NetworkTests-ct.59 Author: ct Time: 3 September 2020, 1:05:46.401083 pm UUID: f29c9c9a-0f9d-2c49-9a78-2ff656b9c3a4 Ancestors: NetworkTests-pre.58 Regression tests for Network-ct.242. =============== Diff against NetworkTests-pre.58 =============== Item was added: + ----- Method: SocketStreamTest>>testOpenConnection (in category 'tests') ----- + testOpenConnection + + | stream | + [self + shouldnt: [stream := SocketStream openConnectionToHostNamed: 'google.de' port: 80] + raise: NetworkError. + self assert: stream isConnected] ensure: [ + stream close]. + + [self + should: [stream := SocketStream openConnectionToHostNamed: 'thisurlshouldbeinval.it' port: 80] + raise: NetworkError] ensure: [stream close]. + + [self + should: [stream := SocketStream openConnectionToHostNamed: '' port: 80] + raise: NetworkError] ensure: [stream close].!

1 0

The Inbox: Network-ct.242.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Christoph Thiede uploaded a new version of Network to project The Inbox: http://source.squeak.org/inbox/Network-ct.242.mcz ==================== Summary ==================== Name: Network-ct.242 Author: ct Time: 3 September 2020, 1:05:00.729083 pm UUID: 8c331b27-3e86-aa41-bc42-910d53097713 Ancestors: Network-eem.241 Fixes two MNUs that can occur during connecting to an unavailable network resource. Bug #1 (stream>>>#timeout:) Steps to reproduce: 1. Start your image while an internet connection is available. Make any connection attempt (e.g. refresh a Monticello HTTP(s) repository) to ensure that the network is initialized (NetNameResolver initializeNetwork). 2. There are two alternative scenarios: 2.(i) Do it: WebClient httpGet: 'https://foo.bar'. 2.(ii) Turn off your internet connection (e.g. disable your WLAN adapter). Then make another connection attempt. In both scenarios, you will see the following error: MessageNotUnderstood: UndefinedObject>>timeout: (stream) WebClient>>connect WebClient>>sendRequest:contentBlock: ... This bug occurred because there was no check for the presence of any network socket for the request host/port. Bug #2 (#findNextHandlerContextStarting): Steps to reproduce: Do it: WebClient httpGet: 'https://'. Error: MessageNotUnderstood: UndefinedObject>>findNextHandlerContextStarting Context>>nextHandlerContext ConnectionRefused(Exception)>>pass ... This bug was related to the unorthodox way of exception handling in the unpatched method when trying to connect to the different available sockets. You cannot pass an exception if its context is dead, so I used recursion instead, which also has the advantage that every exception from every socket is stored on the stack and can be explored by users encountering an error. Also improves multilingual support. Please review! - Is SocketStream the right place to signal the NoNetworkError? (Because of its enumerative character, I found SocketAddressInformation>>#forHost:service:flags:addressFamily:socketType:protocol:) appropriate to return an empty collection. =============== Diff against Network-eem.241 =============== Item was changed: ----- Method: SocketStream class>>openConnectionToHostNamed:port: (in category 'instance creation') ----- openConnectionToHostNamed: hostName port: portNumber + | addressInformations | + NetNameResolver useOldNetwork ifTrue: [ + | hostIP | + hostIP := NetNameResolver addressForName: hostName timeout: 20. + hostIP ifNil: [NetworkError signal: ('Cannot resolve {1}.' format: {hostName})]. + ^ self openConnectionToHost: hostIP port: portNumber]. + + addressInformations := SocketAddressInformation + forHost: hostName + service: portNumber asString + flags: 0 + addressFamily: 0 + socketType: SocketAddressInformation socketTypeStream + protocol: SocketAddressInformation protocolTCP. + addressInformations ifEmpty: [ + NoNetworkError signal: ('Could not find a network for {1} on port {2}' translated format: {hostName. portNumber})]. + + addressInformations readStream in: [:stream | + | connectBlock | + connectBlock := [ + [^ self on: stream next connect] + on: NetworkError do: [:error | + stream atEnd + ifFalse: connectBlock "ignore and try next" + ifTrue: [error pass]]]. + ^ connectBlock value].! - NetNameResolver useOldNetwork - ifTrue: [ | hostIP | - hostIP := NetNameResolver addressForName: hostName timeout: 20. - hostIP ifNil: [NetworkError signal: ('Cannot resolve {1}.' format: {hostName})]. - ^self openConnectionToHost: hostIP port: portNumber] - ifFalse: [| addressInformations lastError | - addressInformations := SocketAddressInformation - forHost: hostName - service: portNumber asString - flags: 0 - addressFamily: 0 - socketType: SocketAddressInformation socketTypeStream - protocol: SocketAddressInformation protocolTCP. - addressInformations do: [:addressInformation | - [^ self on: addressInformation connect] on: NetworkError do: [:e | lastError := e]]. - ^ lastError ifNotNil: [:e | e pass]]!

1 0

The Inbox: Morphic-LM.1678.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-LM.1678.mcz ==================== Summary ==================== Name: Morphic-LM.1678 Author: LM Time: 3 September 2020, 12:58:35.620287 pm UUID: d1262531-fd1c-43a1-ba41-9ff8b3728a3a Ancestors: Morphic-ct.1677 Prevent users from creating multiple SystemProgressMorphs by abusing uniqueInstance. Currently the UniqueInstance class variable is not set properly when it is nil, which allows the user to call it multiple times to generate many SystemProgressMorphs, defeating the purpose of having a *unique* instance. =============== Diff against Morphic-ct.1677 =============== Item was changed: ----- Method: SystemProgressMorph class>>uniqueInstance (in category 'instance creation') ----- uniqueInstance + + ^ UniqueInstance ifNil: [UniqueInstance := super new]! - ^UniqueInstance ifNil:[super new]!

1 0

Squeak on a cellphone may need better blocking behavior
by Tony Garnock-Jones 02 Sep '20

02 Sep '20

It occurs to me that to get better power efficiency, Squeak may need to learn how to go to sleep more often. At present it's using about a quarter of a core on my phone when I'm not doing anything to it. JIT could help that, I guess; but more generally, it'd be nice just not to be awake when there's nothing pressing to do... Tony

7 8

Jump to page: