Packages November 2021

packages@lists.squeakfoundation.org

1 participants
118 discussions

The Trunk: Tools-mt.1069.mcz
by commits＠source.squeak.org 19 Nov '21

19 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1069.mcz ==================== Summary ==================== Name: Tools-mt.1069 Author: mt Time: 19 November 2021, 4:41:49.193971 pm UUID: 63168b74-ec6c-9641-b21e-6c95c3a34245 Ancestors: Tools-mt.1068 Complements Morphic-mt.1791 =============== Diff against Tools-mt.1068 =============== Item was changed: ----- Method: Browser>>buildClassListWith: (in category 'toolbuilder') ----- buildClassListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #classList; getIndex: #classListIndex; setIndex: #classListIndex:; icon: #classIconAt:; menu: #classListMenu:shifted:; keyPress: #classListKey:from:. + SystemBrowser browseWithDragNDrop ifTrue: [ + listSpec + dragItem: #dragFromClassList:; + dragType: #dragTypeForClassListAt:]. - SystemBrowser browseWithDragNDrop - ifTrue:[listSpec dragItem: #dragFromClassList:]. ^listSpec ! Item was added: + ----- Method: Browser>>dragTypeForClassListAt: (in category 'drag and drop') ----- + dragTypeForClassListAt: index + + ^ #sourceCode!

1 0

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

19 Nov '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1791.mcz ==================== Summary ==================== Name: Morphic-mt.1791 Author: mt Time: 19 November 2021, 4:40:57.558971 pm UUID: 446440ff-1c9e-3a4a-af60-7f6f7dc26ea7 Ancestors: Morphic-eem.1790 Open a class browser when dropping a class into the world. Extends existing method-dropping behavior. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-October/216734.… =============== Diff against Morphic-eem.1790 =============== Item was changed: ----- Method: PasteUpMorph>>dropSourceCode:event: (in category 'event handling') ----- dropSourceCode: anObject event: evt (anObject isMethodReference and: [anObject isValid]) ifTrue: [^ self dropSourceCode: anObject compiledMethod event: evt]. + (anObject isBehavior or: [anObject isCompiledMethod]) - anObject isCompiledMethod ifTrue: [ | tool window | + tool := anObject isBehavior + ifTrue: [Browser new + setClass: anObject] + ifFalse: [CodeHolder new + setClass: anObject methodClass + selector: anObject selector]. - tool := CodeHolder new - setClass: anObject methodClass - selector: anObject selector. window := ToolBuilder open: tool. window center: evt position. window bounds: (window bounds translatedToBeWithin: self bounds)]. anObject isString ifTrue: [anObject edit].!

1 0

The Trunk: Tools-mt.1068.mcz
by commits＠source.squeak.org 19 Nov '21

19 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1068.mcz ==================== Summary ==================== Name: Tools-mt.1068 Author: mt Time: 19 November 2021, 3:34:44.956971 pm UUID: a5840900-36eb-d242-8155-949506d43aa0 Ancestors: Tools-mt.1067 Complements System-mt.1247 =============== Diff against Tools-mt.1067 =============== Item was added: + ----- Method: Browser class>>fullOnClassComment: (in category 'instance creation') ----- + fullOnClassComment: aClass + + ^ self new + setClass: aClass; + editComment; + buildAndOpenFullBrowser! Item was added: + ----- Method: StandardToolSet class>>browseClassComment: (in category 'browsing') ----- + browseClassComment: aClass + + ^ SystemBrowser default fullOnClassComment: aClass!

1 0

The Trunk: System-mt.1247.mcz
by commits＠source.squeak.org 19 Nov '21

19 Nov '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1247.mcz ==================== Summary ==================== Name: System-mt.1247 Author: mt Time: 19 November 2021, 3:34:02.688971 pm UUID: 1a0702be-f2ef-2b46-a6eb-c37679413041 Ancestors: System-mt.1246 Adds #browseClassComment: as requested via http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-September/21639… I decided to rename "comment of class" to "class comment" because there are no other browse-able comments. No comments for system categories. No comments for message categories. And #browseMethod: includes that method's comments already. =============== Diff against System-mt.1246 =============== Item was added: + ----- Method: ToolSet class>>browseClassComment: (in category 'browsing') ----- + browseClassComment: aClass + + self default ifNil: [^self inform: 'Cannot open Browser' translated]. + ^ self default browseClassComment: aClass!

1 0

The Trunk: Tools-mt.1067.mcz
by commits＠source.squeak.org 19 Nov '21

19 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1067.mcz ==================== Summary ==================== Name: Tools-mt.1067 Author: mt Time: 19 November 2021, 3:17:00.693971 pm UUID: eb7582cc-d2c1-b34a-a5e7-3732928a143f Ancestors: Tools-mt.1066 Complements HelpSystem-Core-mt.136 =============== Diff against Tools-mt.1066 =============== Item was changed: ----- Method: Browser>>browseAllCommentsForClass (in category 'message functions') ----- browseAllCommentsForClass "Opens a HelpBrowser on the class" | myClass | + myClass := self selectedClass ifNil: [ ^self ]. - myClass := self selectedClassOrMetaClass ifNil: [ ^self ]. myClass isTrait ifTrue: [ ^self ]. + myClass openHelpBrowser model showTopicNamed: myClass name.! - (Smalltalk classNamed: #HelpBrowser) - ifNil: [ ^self inform: 'HelpBrowser is not available.' ] - ifNotNil: [ :HelpBrowser | - HelpBrowser openOn: myClass theNonMetaClass ] - ! Item was changed: ----- Method: Browser>>classListMenu: (in category 'class functions') ----- classListMenu: aMenu "Conveniently fit for backward compatibility with old browers stored in image segments" <classListMenuShifted: false> aMenu addList: #( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol (p)' browseFullProtocol) + ('browse documentation' browseAllCommentsForClass) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('show hierarchy' hierarchy) ('show definition' editClass) ('show comment' editComment) - ('show all comments' browseAllCommentsForClass) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('rename class ...' renameClass) ('copy class' copyClass) ('remove class (x)' removeClass) - ('find method...' findMethod)). ^ aMenu !

1 0

The Trunk: HelpSystem-Core-mt.136.mcz
by commits＠source.squeak.org 19 Nov '21

19 Nov '21

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.136.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.136 Author: mt Time: 19 November 2021, 3:16:09.544971 pm UUID: 8804b60d-2054-3f48-8532-60f3d0112165 Ancestors: HelpSystem-Core-eem.135 Move up #priority to be able to customize it for all hand-crafted HelpTopic instances, which can hold all kinds of help topics as their subtopics. Extend SystemReference to also include a class' superclasses (see class-list menu entry "show all comments" or "browse documentation"). =============== Diff against HelpSystem-Core-eem.135 =============== Item was changed: Model subclass: #AbstractHelpTopic + instanceVariableNames: 'priority' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'HelpSystem-Core-Model'! !AbstractHelpTopic commentStamp: 'mt 3/24/2015 16:26' prior: 0! A HelpTopic provides content information that can be used as a help to the user. It can be labeled with a title and marked with an (optional) icon. Help topics form a hierarchy since any topic is able to have zero or more subtopics. ! Item was changed: ----- Method: AbstractHelpTopic>>priority (in category 'accessing') ----- priority + "A hint for tools to influence sort order. See commentary in #<=." + + ^ priority! - - ^ nil! Item was added: + ----- Method: AbstractHelpTopic>>priority: (in category 'accessing') ----- + priority: anInteger + + priority := anInteger.! Item was changed: ----- Method: Behavior>>openHelpBrowser (in category '*HelpSystem-Core') ----- openHelpBrowser "Set openHelpBrowser" + ^ HelpBrowser openOn: self asHelpTopic! - HelpBrowser openOn: self asHelpTopic! Item was changed: ----- Method: ClassBasedHelpTopic>>priority (in category 'accessing') ----- priority + "Overwritten to consider #helpClass if not already set." + + ^ super priority ifNil: [self helpClass priority]! - - ^ self helpClass priority! Item was changed: AbstractHelpTopic subclass: #HelpTopic + instanceVariableNames: 'title key icon contents subtopics isEditable shouldStyle' - instanceVariableNames: 'title key icon contents subtopics priority isEditable shouldStyle' classVariableNames: '' poolDictionaries: '' category: 'HelpSystem-Core-Model'! !HelpTopic commentStamp: 'mt 3/25/2015 11:27' prior: 0! This is a configurable version of a help topic. You can define its contents, title, icon, and subtopics manually. Help builders make use of this.! Item was removed: - ----- Method: HelpTopic>>priority (in category 'accessing') ----- - priority - "A hint for tools to influence sort order." - - ^ priority! Item was removed: - ----- Method: HelpTopic>>priority: (in category 'accessing') ----- - priority: anInteger - - priority := anInteger.! Item was added: + ----- Method: MethodListHelpTopic>>initialize (in category 'initialization') ----- + initialize + + super initialize. + self priority: -999.! Item was removed: - ----- Method: MethodListHelpTopic>>priority (in category 'accessing') ----- - priority - - ^ -999! Item was changed: ----- Method: SystemReference class>>forClass: (in category 'help topic creation') ----- forClass: aClass + + | root | + root := HelpTopic named: 'System Reference for ' translated, aClass name. + aClass allSuperclasses withIndexDo: [:cls :index | + root addSubtopic: (ClassAPIHelpTopic new + priority: index negated; + theClass: cls; + withSubclasses: false; + withMethods: true; + yourself)]. + root addSubtopic: (ClassAPIHelpTopic new + theClass: aClass; + withSubclasses: true; + withMethods: true; + subclassesAsSeparateTopic: false; + yourself). - |root topic | - root := HelpTopic named: 'System reference for ', aClass name. - topic := ClassAPIHelpTopic new theClass: aClass; withSubclasses: true; withMethods: true; - subclassesAsSeparateTopic: false. - root addSubtopic: topic. ^root!

1 0

The Trunk: Tests-ul.465.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.465.mcz ==================== Summary ==================== Name: Tests-ul.465 Author: ul Time: 18 November 2021, 6:12:23.870228 pm UUID: 6cbe94f9-e292-4e77-af92-6a75b75a5bd2 Ancestors: Tests-eem.464 - actualized DecompilerTests >> #decompilerFailures to make all decompiler tests pass =============== Diff against Tests-eem.464 =============== Item was changed: ----- Method: DecompilerTests>>decompilerFailures (in category 'utilities') ----- decompilerFailures "Here is the list of failures: either a syntax error, a hard error or some failure to decompile correctly. Collected initially via DecompilerTestFailuresCollector new computeFailures. But can be maintained manually." "class name, selector, error class name or nil" ^#( #(BrowserCommentTextMorph showPane SyntaxErrorNotification) #(CodeHolder getSelectorAndSendQuery:to:with: SyntaxErrorNotification) #(DecompilerTests testDecompileUnreachableParameter Error) #(MVCToolBuilder setLayout:in: SyntaxErrorNotification) "same-name block-local temps in optimized blocks" #(PNGReadWriter copyPixelsGray: SyntaxErrorNotification) + #(SHMCClassDefinition withAllSuperclassesDo: SyntaxErrorNotification) "same-name block-local temps in optimized blocks" + #(DoItFirst parse: SyntaxErrorNotification) "same-name block-local temps in optimized blocks" + #(TheWorldMainDockingBar listChangesOn: SyntaxErrorNotification) "same-name block-local temps in optimized blocks" + )! - #(SHMCClassDefinition withAllSuperclassesDo: SyntaxErrorNotification)), "same-name block-local temps in optimized blocks" - (Scanner allowBlockArgumentAssignment - ifTrue: [#()] - ifFalse: - [#( - #(NebraskaSenderMorph hideField: SyntaxErrorNotification)) "assigns into block argument"])!

1 0

The Trunk: Protocols-ct.78.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-ct.78.mcz ==================== Summary ==================== Name: Protocols-ct.78 Author: ct Time: 2 March 2021, 3:45:36.46717 pm UUID: 0213a785-c806-e344-83fb-4876ec5be7ee Ancestors: Protocols-mt.77 Refactors removal of selectors. Complements System-ct.1221. =============== Diff against Protocols-mt.77 =============== Item was changed: ----- Method: Lexicon>>removeMessage (in category 'menu commands') ----- removeMessage - "Remove the selected message from the system." + super removeMessage ifFalse: [^ false]. + - messageListIndex = 0 ifTrue: [^ self]. - self okToChange ifFalse: [^ self]. - - super removeMessage. "my #reformulateList method, called from the super #removeMethod method, will however try to preserve the selection, so we take pains to clobber it by the below..." messageListIndex := 0. self changed: #messageList. self changed: #messageListIndex. contents := nil. self contentsChanged!

1 0

The Trunk: Tools-ct.1028.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1028.mcz ==================== Summary ==================== Name: Tools-ct.1028 Author: ct Time: 2 March 2021, 3:44:29.75717 pm UUID: 9b55450f-acf1-274e-b4fd-a502f8a89d86 Ancestors: Tools-mt.1027 Refactors removal of selectors. Complements System-ct.1221. Includes deduplication, better reusage of the removal confirmation dialogs, and fixes the "remove and/or browse" options for the FileContentsBrowser. =============== Diff against Tools-mt.1027 =============== Item was changed: ----- Method: Browser>>removeMessage (in category 'message functions') ----- removeMessage + + self hasMessageSelected ifFalse: [^ false]. + + super removeMessage ifFalse: [^ false]. - "If a message is selected, create a Confirmer so the user can verify that - the currently selected message should be removed from the system. If - so, - remove it. If the Preference 'confirmMethodRemoves' is set to false, the - confirmer is bypassed." - | messageName confirmation | - self hasMessageSelected not - ifTrue: [^ self]. - self okToChange - ifFalse: [^ self]. - messageName := self selectedMessageName. - confirmation := self systemNavigation confirmRemovalOf: messageName on: self selectedClassOrMetaClass. - confirmation = 3 - ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: messageName. self selectMessageNamed: nil. self changed: #messageList. self setClassOrganizer. + + ^ true! - "In case organization not cached" - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: messageName]! Item was changed: ----- Method: ChangeSorter>>removeMessage (in category 'message list') ----- removeMessage + + ^ super removeMessage + ifTrue: [self update]; + yourself! - "Remove the selected msg from the system. Real work done by the - parent, a ChangeSorter" - | confirmation sel | - self okToChange - ifFalse: [^ self]. - currentSelector - ifNotNil: [confirmation := self systemNavigation confirmRemovalOf: (sel := self selectedMessageName) on: self selectedClassOrMetaClass. - confirmation = 3 - ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: sel. - self update. - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: sel]]! Item was added: + ----- Method: CodeHolder>>removeMessage (in category 'commands') ----- + removeMessage + "If a message is selected, create a Confirmer so the user can verify that the currently selected message should be removed from the system. If so, remove it. Answer a boolean indicating whether the removal was succesful." + self okToChange ifFalse: [^ false]. + + ^ self systemNavigation + confirmAndRemoveSelector: self selectedMessageName + class: self selectedClassOrMetaClass! Item was changed: ----- Method: Debugger>>removeMessage (in category 'context stack menu') ----- removeMessage + | oldContext method cleanIndex | - | oldContext method cleanIndex confirmation | self okToChange ifFalse: [^ false]. contextStackIndex isZero ifTrue: [^ false]. oldContext := self selectedContext. method := oldContext method. cleanIndex := self findCleanHomeBelow: method. contextStack at: cleanIndex ifAbsent: [ self inform: 'Sender of method not found on stack, can''t remove message'. ^ false]. (self confirm: 'I will have to revert to the sender of this message. Is that OK?') ifFalse: [^ false]. + super removeMessage ifFalse: [^ false]. - confirmation := self systemNavigation - confirmRemovalOf: method selector - on: method methodClass. - confirmation = 3 ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: method selector. - self contextStackIndex: cleanIndex oldContextWas: oldContext; tryRestartFrom: self selectedContext. + + ^ true! - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: method selector].! Item was changed: ----- Method: FileContentsBrowser>>removeMessage (in category 'removing') ----- removeMessage + + self hasMessageSelected ifFalse: [^ false]. + + super removeMessage ifFalse: [^ false]. - | messageName | - self hasMessageSelected - ifFalse: [^ self]. - self okToChange - ifFalse: [^ self]. - messageName := self selectedMessageName. - (self selectedClass confirmRemovalOf: messageName) - ifFalse: [^ false]. - self selectedClassOrMetaClass removeMethod: self selectedMessageName. self selectMessageNamed: nil. self setClassOrganizer. "In case organization not cached" + self changed: #messageList.! - self changed: #messageList! Item was changed: ----- Method: MessageSet>>removeMessage (in category 'message functions') ----- removeMessage + + self hasMessageSelected ifFalse: [^ false]. + + super removeMessage ifFalse: [^ false]. - "Remove the selected message from the system. 1/15/96 sw" - | messageName confirmation | - self hasMessageSelected - ifFalse: [^ self]. - self okToChange - ifFalse: [^ self]. - messageName := self selectedMessageName. - confirmation := self systemNavigation confirmRemovalOf: messageName on: self selectedClassOrMetaClass. - confirmation = 3 - ifTrue: [^ self]. - self selectedClassOrMetaClass removeSelector: messageName. self deleteFromMessageList: self selection. self reformulateList. + + ^ true! - confirmation = 2 - ifTrue: [self systemNavigation browseAllCallsOn: messageName]! Item was changed: ----- Method: MessageTrace>>removeMessage (in category 'actions') ----- removeMessage "Remove the selected messages from the system." self selectedMessages size = 0 ifTrue: [ ^self ]. self selectedMessages size = 1 ifTrue: [ ^super removeMessage ]. + (self confirm: ('Are you certain you want to remove all the {1} selected methods from the image?' translated format: {self selectedMessages size})) ifFalse: [ ^self ]. - (self confirm: 'Are you certain you want to remove all of the selected methods from the image?') ifFalse: [ ^self ]. self selectedMessages do: [ :each | each actualClass removeSelector: each methodSymbol. self deleteFromMessageList: each ]!

1 0

The Trunk: System-ct.1221.mcz
by commits＠source.squeak.org 18 Nov '21

18 Nov '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1221.mcz ==================== Summary ==================== Name: System-ct.1221 Author: ct Time: 2 March 2021, 3:43:49.27617 pm UUID: 9d574208-4d9d-9549-b398-2b34b8fce241 Ancestors: System-mt.1219 Refactors removal of selectors. Deprecates #confirmRemovalOf:on: because of its high coupling and magic number return values. Also improves multilingual support. Please only merge together with {Tools-ct.1028. Protocols-ct.78}, (HelpSystem-Core-ct.124 isInTrunk ifTrue: [{HelpSystem-Core-ct.135}] ifFalse: [].) :-) =============== Diff against System-mt.1219 =============== Item was added: + ----- Method: SystemNavigation>>confirmAndRemoveSelector:class: (in category 'ui') ----- + confirmAndRemoveSelector: selector class: aClass + + | method allCalls browse remove | + method := MethodReference class: aClass selector: selector environment: self environment. + allCalls := self allCallsOn: selector. + + remove := true. + browse := false. + (allCalls anySatisfy: [:ea | ea ~= method]) ifTrue: [ + | choice | + choice := UIManager default + chooseFromLabeledValues: (OrderedDictionary newFrom: { + 'Remove it' translated -> []. + 'Remove, then browse senders' translated -> [browse := true]. + 'Don''t remove, but show me those senders' translated -> [remove := false. browse := true]. + 'Forget it -- do nothing -- sorry I asked' translated -> [remove := false] }) + title: ('The message "{1}" has {2}.' translated format: { + selector. + allCalls size > 1 + ifFalse: ['1 sender' translated] + ifTrue: ['{1} senders' translated format: {allCalls size}] }). + choice ifNil: [choice := [remove := false]]. + choice value]. + + remove ifTrue: [ + aClass removeSelector: selector]. + browse ifTrue: [ + self headingAndAutoselectForLiteral: selector do: [ :label :autoSelect | + self + browseMessageList: allCalls + name: label + autoSelect: autoSelect]]. + + ^ remove! Item was changed: ----- Method: SystemNavigation>>confirmRemovalOf:on: (in category 'ui') ----- confirmRemovalOf: aSelector on: aClass "Determine if it is okay to remove the given selector. Answer 1 if it should be removed, 2 if it should be removed followed by a senders browse, and 3 if it should not be removed." | count answer caption allCalls | + self deprecated: 'ct: Use #confirmAndRemoveSelector:class: instead.'. + allCalls := self allCallsOn: aSelector. (count := allCalls size) = 0 ifTrue: [^ 1]. "no senders -- let the removal happen without warning" count = 1 ifTrue: [(allCalls first actualClass == aClass and: [allCalls first methodSymbol == aSelector]) ifTrue: [^ 1]]. "only sender is itself" caption := 'The message "{1}" has {2} sender{3}.' translated format: {aSelector. count. count > 1 ifTrue: ['s'] ifFalse: ['']}. answer := UIManager default chooseFrom: #('Remove it' 'Remove, then browse senders' 'Don''t remove, but show me those senders' 'Forget it -- do nothing -- sorry I asked') title: caption. answer = 3 ifTrue: [self browseMessageList: allCalls name: 'Senders of ' , aSelector autoSelect: aSelector keywords first]. answer = 0 ifTrue: [answer := 3]. "If user didn't answer, treat it as cancel" ^ answer min: 3!

1 0

← Newer
1
...
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2021