Squeak-dev November 2020

squeak-dev@lists.squeakfoundation.org

31 participants
223 discussions

The Inbox: Tools-ct.1016.mcz
by commits＠source.squeak.org 01 Nov '20

01 Nov '20

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1016.mcz ==================== Summary ==================== Name: Tools-ct.1016 Author: ct Time: 1 November 2020, 6:29:01.297544 pm UUID: 6d13e111-bc02-d342-9591-6dc4cdbd41f3 Ancestors: Tools-tpr.1014 Fine-tune message adding in a MessageTrace. When the user is asked for one of many selectors and cancels the menu, don't add any message. Reuse the selector search known from browsing implementors for browsing senders as well. Improve multilingual support. =============== Diff against Tools-tpr.1014 =============== Item was changed: ----- Method: MessageTrace>>addChildMethodsNamed: (in category 'building') ----- addChildMethodsNamed: selectorSymbol | methodsReferences | messageListIndex = 0 ifTrue: + [ ^(PopUpMenu labels: 'OK' translated) + startUpWithCaption: 'Please reselect a method.' translated ]. - [ ^(PopUpMenu labels: ' OK ') - startUpWithCaption: 'Please reselect a method.' ]. (methodsReferences := self filteredSelectorsNamed: selectorSymbol) isEmpty ifTrue: + [ ^(PopUpMenu labels: 'OK' translated) + startUpWithCaption: ('There are no methods named {1}' translated format: {selectorSymbol}) ] - [ ^(PopUpMenu labels: ' OK ') - startUpWithCaption: 'There are no methods named ', selectorSymbol ] ifFalse: [ self addChildMessages: methodsReferences + autoSelectString: selectorSymbol ]! - autoSelectString: selectorSymbol ] - ! Item was changed: ----- Method: MessageTrace>>addParentMethodsSending: (in category 'building') ----- addParentMethodsSending: selectorSymbol | methodsList | (methodsList := self systemNavigation allCallsOn: selectorSymbol) isEmpty ifTrue: + [ ^ (PopUpMenu labels: 'OK' translated) + startUpWithCaption: ('There are no methods that send {1}' translated format: {selectorSymbol}) ] - [ ^(PopUpMenu labels: ' OK ') - startUpWithCaption: 'There are no methods that send ', selectorSymbol ] ifFalse: [ self addParentMessages: methodsList + autoSelectString: selectorSymbol ]! - autoSelectString: selectorSymbol ] - ! Item was changed: ----- Method: MessageTrace>>browseAllCallsOn: (in category 'actions') ----- browseAllCallsOn: selectorSymbol + | selectorToBrowse | + selectorToBrowse := self selection + ifNil: [ selectorSymbol ] + ifNotNil: [ self + getSelectorNamed: selectorSymbol + toBrowseAs: 'senders' translated ]. + selectorToBrowse ifNil: [^ self]. (self hasUnacceptedEdits or: [ Preferences traceMessages not ]) + ifTrue: [ super browseAllCallsOn: selectorToBrowse ] + ifFalse: [ self addParentMethodsSending: selectorToBrowse ]! - ifTrue: [ super browseAllCallsOn: selectorSymbol ] - ifFalse: [ self addParentMethodsSending: selectorSymbol ]! Item was changed: ----- Method: MessageTrace>>browseAllImplementorsOf: (in category 'actions') ----- browseAllImplementorsOf: selectorSymbol | selectorToBrowse | selectorToBrowse := self selection ifNil: [ selectorSymbol ] + ifNotNil: [ self + getSelectorNamed: selectorSymbol + toBrowseAs: 'implementors' translated ]. + selectorToBrowse ifNil: [^ self]. - ifNotNil: [ self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals"]. (self hasUnacceptedEdits or: [ Preferences traceMessages not ]) ifTrue: [ super browseAllImplementorsOf: selectorToBrowse ] ifFalse: [ self addChildMethodsNamed: selectorToBrowse ] ! Item was removed: - ----- Method: MessageTrace>>getImplementorNamed: (in category 'private accessing') ----- - getImplementorNamed: selectorSymbol - | allPossibilities | - allPossibilities := (((self selection compiledMethod messages - select: [ :eachSelector | eachSelector beginsWith: selectorSymbol ]) - copyWith: selectorSymbol) - select: [ :each | (Symbol lookup: each) notNil ]) - asSet asOrderedCollection sort. - (allPossibilities includes: selectorSymbol) ifTrue: - [ allPossibilities addFirst: (allPossibilities remove: selectorSymbol) ]. - ^allPossibilities size > 1 - ifTrue: - [ | selectionIndex | - selectionIndex := (PopUpMenu labelArray: allPossibilities lines: #(1)) - startUpWithCaption: - 'Browse implementors of - which message?'. - selectionIndex = 0 ifTrue: [ selectorSymbol ] ifFalse: [ allPossibilities at: selectionIndex ] ] - ifFalse: [ allPossibilities isEmpty - ifTrue: [ selectorSymbol ] - ifFalse: [ allPossibilities first ] ] - ! Item was added: + ----- Method: MessageTrace>>getSelectorNamed:toBrowseAs: (in category 'private accessing') ----- + getSelectorNamed: selectorSymbol toBrowseAs: selectorRole + | allPossibilities | + allPossibilities := (((self selection compiledMethod messages + select: [ :eachSelector | eachSelector beginsWith: selectorSymbol asString ]) + copyWith: selectorSymbol) + select: [ :each | (Symbol lookup: each) notNil ]) + asSet asOrderedCollection sort. + (allPossibilities includes: selectorSymbol) ifTrue: + [ allPossibilities addFirst: (allPossibilities remove: selectorSymbol) ]. + ^allPossibilities size > 1 + ifTrue: + [ | selectionIndex | + selectionIndex := (PopUpMenu labelArray: allPossibilities lines: #(1)) + startUpWithCaption: ('Browse {1} of which message?' translated format: {selectorRole}). + selectionIndex = 0 ifTrue: [ nil ] ifFalse: [ allPossibilities at: selectionIndex ] ] + ifFalse: [ allPossibilities isEmpty + ifTrue: [ selectorSymbol ] + ifFalse: [ allPossibilities first ] ]!

1 0

Not allowed to change a Squeak Wiki entry
by Trygve Reenskaug 01 Nov '20

01 Nov '20

Hi, My BabyIDE is described in https://wiki.squeak.org/squeak/2540.version?id=16 <https://wiki.squeak.org/squeak/2540.version?id=16> The entry contains an outdated URL so I need to change it. I click /edit /and am asked to /sign in/. I have a few Squeak-related accounts, but none of my old account details help me. Can somebody please tell me what I should do? Thanks Trygve -- /The essence of object orientation is that objects collaborateto achieve a goal. / Trygve Reenskaug mailto: trygver(a)ifi.uio.no <mailto:%20trygver@ifi.uio.no> Morgedalsvn. 5A http://heim.ifi.uio.no/trygver/ <http://heim.ifi.uio.no/trygver/> N-0378 Oslo http://fullOO.info <http://fullOO.info> Norway Tel: (+47) 468 58 625

2 2

The Inbox: MorphicExtras-ct.283.mcz
by commits＠source.squeak.org 01 Nov '20

01 Nov '20

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.283.mcz ==================== Summary ==================== Name: MorphicExtras-ct.283 Author: ct Time: 1 November 2020, 2:13:44.005544 pm UUID: 50d9e7fa-55ad-4c4c-acd4-6ba27932b25a Ancestors: MorphicExtras-pre.279 Proposal: Override Bag >> #asMorph to create a HistogramMorph. Usage example: ((PackageInfo named: #Morphic) methods collect: [:method | method timeStamp findTokens ifEmpty: nil ifNotEmpty: #first] as: Bag) openAsMorph =============== Diff against MorphicExtras-pre.279 =============== Item was added: + ----- Method: Bag>>asMorph (in category '*MorphicExtras-converting') ----- + asMorph + + ^ HistogramMorph on: self!

1 0

Jump to page: