[squeak-dev] The Inbox: Tools-ct.1136.mcz

Marcel Taeumel marcel.taeumel at hpi.de
Mon Feb 28 08:32:12 UTC 2022


Oh, my. -1 :-)

Let's keep menu click and button-bar click consistent. 

We have
#browseSendersOfMessages ... button bar + popup menu
#browseSenders ... text/list keyboard shortcuts

It's confusing enough that there are two paths. What I would agree with is when we spawn a new window for the #browseSendersOfMessages, which you can easily distinguish via requestor being #modelMenu.

Best,
Marcel
Am 25.02.2022 16:51:30 schrieb commits at source.squeak.org <commits at source.squeak.org>:
A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.1136.mcz

==================== Summary ====================

Name: Tools-ct.1136
Author: ct
Time: 25 February 2022, 4:51:14.742129 pm
UUID: d3396d11-145e-294d-b51c-805c6b3b64ab
Ancestors: Tools-mt.1135

Revises senders/implementors in message traces so that:

* using the buttons always spawns a new window
* you can press shift to invert whether the new messages will be appended to the existing window or opened in a new window

See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-February/218946.html

=============== Diff against Tools-mt.1135 ===============

Item was changed:
----- Method: MessageTrace>>browseAllCallsOn:requestor: (in category 'actions') -----
browseAllCallsOn: selectorSymbol requestor: anObject
"Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)."

+ (((Preferences traceMessages and: [anObject ~= #button] and: [selectorSymbol = self selectedMessageName]) xor: Sensor shiftPressed)
+ and: [self hasUnacceptedEdits not])
- (selectorSymbol = self selectedMessageName
- and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ])
ifTrue: [ self addParentMethodsSending: selectorSymbol ]
ifFalse: [ super browseAllCallsOn: selectorSymbol requestor: anObject ].!

Item was changed:
----- Method: MessageTrace>>browseAllImplementorsOf:requestor: (in category 'actions') -----
browseAllImplementorsOf: selectorSymbol requestor: anObject
"Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)."

| selectorToBrowse |
selectorToBrowse := self selection
ifNil: [ selectorSymbol ]
ifNotNil: [ self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals"].
+ (((Preferences traceMessages and: [anObject ~= #button]) xor: Sensor shiftPressed) and: [self hasUnacceptedEdits not])
- (Preferences traceMessages and: [ self hasUnacceptedEdits not ])
ifTrue: [ self addChildMethodsNamed: selectorToBrowse ]
ifFalse: [ super browseAllImplementorsOf: selectorToBrowse requestor: anObject ].!

Item was added:
+ ----- Method: MessageTrace>>browseMessagesFromButton (in category 'controls') -----
+ browseMessagesFromButton
+
+ self getSelectorAndSendQuery: #browseAllImplementorsOf:requestor: to: self with: #(button).!

Item was added:
+ ----- Method: MessageTrace>>browseSendersOfMessagesFromButton (in category 'controls') -----
+ browseSendersOfMessagesFromButton
+
+ self getSelectorAndSendQuery: #browseAllCallsOn:requestor: to: self with: #(button).!

Item was added:
+ ----- Method: MessageTrace>>optionalButtonPairs (in category 'controls') -----
+ optionalButtonPairs
+
+ ^ super optionalButtonPairs collect: [:spec |
+ spec second
+ caseOf:
+ {[#browseSendersOfMessages] -> [spec copy
+ at: 2 put: #browseSendersOfMessagesFromButton;
+ yourself].
+ [#browseMessages] -> [spec copy
+ at: 2 put: #browseMessagesFromButton;
+ yourself]}
+ otherwise: [spec]]!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220228/9daa5119/attachment.html>


More information about the Squeak-dev mailing list