Packages August 2023

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Kernel-ct.1522.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1522.mcz ==================== Summary ==================== Name: Kernel-ct.1522 Author: ct Time: 17 August 2023, 1:50:03.497905 pm UUID: abf58cc7-53ac-5042-9c7e-861cbfb5e6dd Ancestors: Kernel-ct.1521 Merges sanitize-cat-names.1.cs (step 2/2): Sanitizes names of categories and packages by removing leading/trailing blanks before construction/lookup. This fixes a bug with invisible categories in the tree browser. Answer new package from PackageOrganizer>>#registerPackage*. Recategorize PackageServices. Must be loaded after Kernel-ct.1521 (step 1/2). =============== Diff against Kernel-ct.1521 =============== Item was changed: ----- Method: Categorizer>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory "Add a new category named heading. If default category exists and is empty, remove it. If nextCategory is nil, then add the new one at the end, otherwise, insert it before nextCategory." | index newCategory | + newCategory := (self sanitizeName: catString) asSymbol. - newCategory := catString asSymbol. (categoryArray indexOf: newCategory) > 0 ifTrue: [^self]. "heading already exists, so done" (self isSpecialCategoryName: newCategory) ifTrue: [^self inform: 'This category name is system reserved' translated]. index := categoryArray indexOf: nextCategory ifAbsent: [categoryArray size + 1]. categoryArray := categoryArray copyReplaceFrom: index to: index-1 with: (Array with: newCategory). categoryStops := categoryStops copyReplaceFrom: index to: index-1 with: (Array with: (index = 1 ifTrue: [0] ifFalse: [categoryStops at: index-1])). "remove empty default category" (newCategory ~= Default and: [(self listAtCategoryNamed: Default) isEmpty]) ifTrue: [self removeCategory: Default]! Item was changed: ----- Method: Categorizer>>classify:under:suppressIfDefault: (in category 'classifying') ----- classify: element under: heading suppressIfDefault: aBoolean "Store the argument, element, in the category named heading. If aBoolean is true, then invoke special logic such that the classification is NOT done if the new heading is the Default and the element already had a non-Default classification -- useful for filein" | catName catIndex elemIndex realHeading | realHeading := (heading isEmptyOrNil or: [self isSpecialCategoryName: heading]) ifTrue: [Default] + ifFalse: [(self sanitizeName: heading) asSymbol]. - ifFalse: [heading asSymbol]. (catName := self categoryOfElement: element) = realHeading ifTrue: [^ self]. "done if already under that category" catName ifNotNil: [ (aBoolean and: [realHeading = Default]) ifTrue: [^ self]. "return if non-Default category already assigned in memory" self basicRemoveElement: element]. "remove if in another category" (categoryArray indexOf: realHeading) = 0 ifTrue: [self addCategory: realHeading]. catIndex := categoryArray indexOf: realHeading. elemIndex := catIndex > 1 ifTrue: [categoryStops at: catIndex - 1] ifFalse: [0]. [(elemIndex := elemIndex + 1) <= (categoryStops at: catIndex) and: [element >= (elementArray at: elemIndex)]] whileTrue. "elemIndex is now the index for inserting the element. Do the insertion before it." elementArray := elementArray copyReplaceFrom: elemIndex to: elemIndex-1 with: (Array with: element). "add one to stops for this and later categories" catIndex to: categoryArray size do: [:i | categoryStops at: i put: (categoryStops at: i) + 1]. ((categoryArray includes: Default) and: [(self listAtCategoryNamed: Default) size = 0]) ifTrue: [self removeCategory: Default]. self assertInvariant.! Item was changed: ----- Method: Categorizer>>listAtCategoryNamed: (in category 'accessing') ----- listAtCategoryNamed: categoryName "Answer the array of elements associated with the name, categoryName." | i | + i := categoryArray indexOf: (self sanitizeName: categoryName) ifAbsent: [^Array new]. - i := categoryArray indexOf: categoryName ifAbsent: [^Array new]. ^self listAtCategoryNumber: i! Item was changed: ----- Method: Categorizer>>removeCategory: (in category 'accessing') ----- removeCategory: cat "Remove the category named, cat. Create an error notificiation if the category has any elements in it." | index lastStop | + index := categoryArray indexOf: (self sanitizeName: cat) ifAbsent: [^self]. - index := categoryArray indexOf: cat ifAbsent: [^self]. lastStop := index = 1 ifTrue: [0] ifFalse: [categoryStops at: index - 1]. (categoryStops at: index) - lastStop > 0 ifTrue: [^self error: 'cannot remove non-empty category']. categoryArray := categoryArray copyReplaceFrom: index to: index with: Array new. categoryStops := categoryStops copyReplaceFrom: index to: index with: Array new. categoryArray size = 0 ifTrue: [categoryArray := Array with: Default. categoryStops := Array with: 0] ! Item was changed: ----- Method: Categorizer>>renameCategory:toBe: (in category 'accessing') ----- renameCategory: oldCatString toBe: newCatString "Rename a category. No action if new name already exists, or if old name does not exist." | index oldCategory newCategory | + oldCategory := (self sanitizeName: oldCatString) asSymbol. + newCategory := (self sanitizeName: newCatString) asSymbol. - oldCategory := oldCatString asSymbol. - newCategory := newCatString asSymbol. (categoryArray indexOf: newCategory) > 0 ifTrue: [^ self]. "new name exists, so no action" (index := categoryArray indexOf: oldCategory) = 0 ifTrue: [^ self]. "old name not found, so no action" categoryArray := categoryArray copy. "need to change identity so smart list update will notice the change" categoryArray at: index put: newCategory! Item was changed: ----- Method: ClassOrganizer>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory SystemChangeNotifier uniqueInstance doSilently: [super addCategory: catString before: nextCategory]; + protocolAdded: (self sanitizeName: catString) inClass: self subject! - protocolAdded: catString inClass: self subject! Item was changed: ----- Method: ClassOrganizer>>removeCategory: (in category 'accessing') ----- removeCategory: cat SystemChangeNotifier uniqueInstance doSilently: [super removeCategory: cat]; + protocolRemoved: (self sanitizeName: cat) inClass: self subject! - protocolRemoved: cat inClass: self subject! Item was changed: ----- Method: ClassOrganizer>>renameCategory:toBe: (in category 'accessing') ----- renameCategory: oldCatString toBe: newCatString SystemChangeNotifier uniqueInstance doSilently: [super renameCategory: oldCatString toBe: newCatString]; + protocolRenamedFrom: (self sanitizeName: oldCatString) asSymbol to: (self sanitizeName: newCatString) asSymbol inClass: self subject. + self logSelectorsInChangedCategory: (self sanitizeName: newCatString). - protocolRenamedFrom: oldCatString asSymbol to: newCatString asSymbol inClass: self subject. - self logSelectorsInChangedCategory: newCatString. !

1 0

The Trunk: PackageInfo-Base-ct.77.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-ct.77.mcz ==================== Summary ==================== Name: PackageInfo-Base-ct.77 Author: ct Time: 17 August 2023, 1:46:50.394905 pm UUID: eccaf965-ae70-2843-b938-56e3f00c92f3 Ancestors: PackageInfo-Base-eem.76 Complements Kernel-ct.1521 (merges sanitize-cat-names.1.cs, step 1/2). =============== Diff against PackageInfo-Base-eem.76 =============== Item was added: + ----- Method: PackageInfo class>>sanitizeName: (in category 'private') ----- + sanitizeName: aString + ^ aString withBlanksTrimmed!

1 0

The Trunk: Kernel-ct.1521.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1521.mcz ==================== Summary ==================== Name: Kernel-ct.1521 Author: ct Time: 17 August 2023, 1:45:58.465905 pm UUID: fdd3f626-12b1-f347-97c2-80f0d046141c Ancestors: Kernel-ct.1520 Merges sanitize-cat-names.1.cs (step 1/2): Sanitizes names of categories and packages by removing leading/trailing blanks before construction/lookup. This fixes a bug with invisible categories in the tree browser. Answer new package from PackageOrganizer>>#registerPackage*. Recategorize PackageServices. =============== Diff against Kernel-ct.1520 =============== Item was added: + ----- Method: Categorizer>>sanitizeName: (in category 'private') ----- + sanitizeName: aString + + ^ aString withBlanksTrimmed!

1 0

The Trunk: Help-Squeak-Project-ct.99.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-ct.99.mcz ==================== Summary ==================== Name: Help-Squeak-Project-ct.99 Author: ct Time: 17 August 2023, 9:12:26.757459 am UUID: 3c1432d5-67db-0a4a-939f-358fb258fa39 Ancestors: Help-Squeak-Project-ct.98 Removes a font size slip in the front page of the help browser. How come we have not been seeing this for two years? =============== Diff against Help-Squeak-Project-ct.98 =============== Item was changed: ----- Method: SqueakHelp class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" "SqueakHelp edit: #introduction" <generated> ^(HelpTopic title: 'Welcome' contents: 'Welcome to Squeak Visit https://www.squeak.org for the lastest information. Squeak is a modern, open-source Smalltalk programming system with fast execution environments for all major platforms. It features the Morphic framework, which promotes low effort graphical, interactive application development and maintenance. Many projects have been successfully created with Squeak. They cover a wide range of domains such as education, multimedia, gaming, research, and commerce. Squeak is fast, flexible and free. It''s Smalltalk!!!! Everything is an object. Objects collaborate by sending messages to achieve the desired application behavior. The Smalltalk programming language has a concise syntax and simple execution semantics. The Smalltalk system is implemented in itself: Compiler, debugger, programming tools, and so on are all Smalltalk code the user can read and modify. Novice programmers can get started easily and experts can engineer elegant solutions at large. Morphic UI Framework All graphical objects are tangible and interactively changeable. This promotes short feedback loops and low-effort application development. Morphic thus leverages the live programming experience of traditional Smalltalk environments from a mainly text-focused domain to a graphical one. Powerful Tooling The dynamic Squeak environment provides a variety of tools for browsing, writing, executing, and versioning Smalltalk code. Multiple debugging sessions can be served concurrently. Thanks to Morphic, tool customization can be achieved with reasonable effort. Fast Virtual Machine The standard VM for Squeak, Cog Spur, has the most advanced object representation yet devised for Smalltalk. Spur has direct pointers, a compact object header, and efficiently implements become (Smalltalk''s object mutation primitive) via lazy forwarding. Spur provides pinning, and a segmented heap, releasing memory back to the OS after global garbage collection. Cog Spur''s JIT combines context-to-stack mapping, aggressive in-line message caching, a register based calling convention, and Spur''s object representation to provide the fastest production Smalltalk VM. Cog Spur is developed in Smalltalk, in a uniquely productive VM development environment. There are other important Squeak VMs. Examples include SqueakJS, which runs in web browsers, and research VMs such as TruffleSqueak (based on GraalVM and a method JIT using partial evaluation) and RSqueak/VM (based on PyPy''s meta-tracing JIT). Web Development With frameworks like Seaside and AIDA, Squeak can be a web server. It provides a layered set of abstractions over HTTP and HTML that let you build highly interactive web applications quickly, reusably, and maintainably. Multi-Platform Support Squeak supports Windows, Linux (X86, X64 and ARM), and macOS and is preinstalled on C.H.I.P., Raspberry Pi, and OLPC XO.!! + ]style[(19 5 1 22 29 438 15 18 6 33 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 29 8 353 24 13 23 43 28 111 26 28 10 19 8 56 13 11 7 48 10 11 6 21 15 22 7 5 4 18 3 163 22 121)a0b,a0,a0b,Rhttps://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,Rhttps://github.com/OpenSmalltalk/opensmalltalk-vm#readme;,,Rhttp… /#virtual-machines;,,Rhttps://squeak.js.org;,,Rhttps://github.com/hpi-swa/trufflesqueak/;,,Rhttps://www.graalvm.org/;,,Rhttps://github.com/hpi-swa/RSqueak/;,,Rhttps://www.pypy.org/;,,i,,Rhttp://www.seaside.st/;,,Rhttp://www.aidaweb.si/;,,Rcode://WebClient;,,i,!!' readStream nextChunkText) - ]style[(19 5 1 22 29 438 15 18 6 33 8 87 14 80 8 2 8 2 17 161 20 27 8 254 16 64 8 11 9 6 10 152 20 28 1 8 2 351 24 13 23 43 28 111 26 28 10 19 8 56 13 11 7 48 10 11 6 21 15 22 7 5 4 18 3 163 22 121)a0b,a0,a0b,Rhttps://www.squeak.org;,a0,,i,,Rcode://Object;,,Rcode://MessageSend;,,Rcode://HelpBrowser openOn: TerseGuideHelp;,,Rcode://Compiler;,,Rcode://Debugger;,,Rcode://Browser;,,i,,Rcode://Morph new openInHand;,,i,,Rcode://ToolSet browse: String selector: #findTokens:;,,Rcode://7/0;,,Rcode://MCWorkingCopyBrowser new show;,,i,,f5,Rhttps://github.com/OpenSmalltalk/opensmalltalk-vm#readme;,f5,… evelopment/#virtual-machines;,,Rhttps://squeak.js.org;,,Rhttps://github.com…,!!' readStream nextChunkText) key: #introduction; shouldStyle: false; yourself!

1 0

The Trunk: Tools-ct.1228.mcz
by commits＠source.squeak.org 17 Aug '23

17 Aug '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1228.mcz ==================== Summary ==================== Name: Tools-ct.1228 Author: ct Time: 17 August 2023, 9:08:20.948459 am UUID: fafafb16-f12c-3545-8ed6-30697318cdb6 Ancestors: Tools-ct.1227 In message traces, fixes implementors button for removed ("Missing") methods. Closes https://github.com/squeak-smalltalk/squeak-object-memory/issues/88. Thanks to Jakob (jr) for the report! =============== Diff against Tools-ct.1227 =============== Item was changed: ----- Method: MessageTrace>>getImplementorNamed: (in category 'private accessing') ----- getImplementorNamed: selectorSymbol + | allMessages allPossibilities | + allMessages := (self selection compiledMethod ifNil: [^ selectorSymbol]) messages. + allPossibilities := (((allMessages - | 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?' translated. selectionIndex = 0 ifFalse: [ allPossibilities at: selectionIndex ] ] ifFalse: [ allPossibilities isEmpty ifTrue: [ selectorSymbol ] ifFalse: [ allPossibilities first ] ]!

1 0

The Trunk: Morphic-mt.2122.mcz
by commits＠source.squeak.org 16 Aug '23

16 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2122.mcz ==================== Summary ==================== Name: Morphic-mt.2122 Author: mt Time: 16 August 2023, 5:05:20.497324 pm UUID: bb070114-2fe5-5444-beb5-25b543948c14 Ancestors: Morphic-mt.2121 Fix typo. =============== Diff against Morphic-mt.2121 =============== Item was changed: ----- Method: Editor>>enter: (in category 'typing/selecting keys') ----- enter: aKeyboardEvent "Enter / return key was pressed" "Process the various Enter / Return keystrokes" morph acceptOnCR ifTrue: [ self closeTypeIn. ^ true]. aKeyboardEvent controlKeyPressed ifTrue: [ ^ self cr: aKeyboardEvent ]. aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. + aKeyboardEvent commandKeyPressed ifTrue: [ - aKeyboardEvent commandAltKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. ^ self crWithIndent: aKeyboardEvent!

1 0

The Trunk: Tools-ct.1032.mcz
by commits＠source.squeak.org 15 Aug '23

15 Aug '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1032.mcz ==================== Summary ==================== Name: Tools-ct.1032 Author: ct Time: 10 March 2021, 6:51:33.356304 pm UUID: 897e4ea2-3740-6a45-a054-d7da65105568 Ancestors: Tools-mt.1030 In the Message Names tool, show definition, comment, and hierarchy for class hits. In particular helpful to find out efficiently whether a selector belongs to a binding or to an actual class. =============== Diff against Tools-mt.1030 =============== Item was changed: ----- Method: MessageNames>>computeMessageList (in category 'search') ----- computeMessageList + | selector | + selectorListIndex = 0 ifTrue: [^ #()]. + + selector := selectorList at: selectorListIndex. + ^ (selector first isUppercase ifTrue: [Smalltalk classNamed: selector]) + ifNotNil: [:class | + class := Smalltalk classNamed: selector. + #(Definition Comment Hierarchy) collect: [:sel | + MethodReference class: class selector: sel] ] + ifNil: [self systemNavigation allImplementorsOf: selector]! - ^ selectorListIndex = 0 - ifTrue: [#()] - ifFalse: [self systemNavigation - allImplementorsOf: (selectorList at: selectorListIndex)]! Item was changed: ----- Method: MessageNames>>selectedMessageName (in category 'message list') ----- selectedMessageName selectorList basicSize = 0 ifTrue: [^ nil]. "Deals with selectorList nil or empty" + ^super selectedMessageName ifNil: [ + "only message name selected" + selectorList at: (selectorListIndex max: 1) ifAbsent: [nil] "If no selection we can still find a selector"]! - ^selectorList at: (selectorListIndex max: 1) ifAbsent: [nil] "If no selection we can still find a selector"! Item was changed: ----- Method: MessageSet>>aboutToStyle: (in category 'code pane') ----- + aboutToStyle: aStyler + "This is a notification that aStyler is about to re-style its text. + Set the classOrMetaClass in aStyler, so that identifiers will be resolved correctly. - aboutToStyle: aPluggableShoutMorphOrView - "This is a notification that aPluggableShoutMorphOrView is about to re-style its text. - Set the classOrMetaClass in aPluggableShoutMorphOrView, so that identifiers - will be resolved correctly. Answer true to allow styling to proceed, or false to veto the styling" | selectedMessageName showingMethod | self showingSource ifFalse: [^false]. selectedMessageName := self selectedMessageName. showingMethod := (#(Comment Definition Hierarchy) includes: selectedMessageName) not. + aStyler parseAMethod: showingMethod. "Hack!! setting classOrMetaClass: to nil allows doit or class definition colouring." + aStyler classOrMetaClass: (showingMethod ifTrue: [self selectedClassOrMetaClass]). - aPluggableShoutMorphOrView classOrMetaClass: (showingMethod ifTrue: [self selectedClassOrMetaClass]). ^(#(Comment Hierarchy) includes: selectedMessageName) not! Item was changed: ----- Method: MessageSet>>selectedMessage (in category 'message list') ----- selectedMessage "Answer the source method for the currently selected message." - self setClassAndSelectorIn: [:class :selector | | source | class ifNil: [^ 'Class vanished']. selector first isUppercase ifTrue: [selector == #Comment ifTrue: + ["currentCompiledMethod := class organization commentRemoteStr." - [currentCompiledMethod := class organization commentRemoteStr. ^ class comment]. selector == #Definition ifTrue: [^ class definition]. selector == #Hierarchy ifTrue: [^ class printHierarchy]]. source := class sourceMethodAt: selector ifAbsent: [currentCompiledMethod := nil. ^ 'Missing']. self showingDecompile ifTrue: [^ self decompiledSourceIntoContents]. currentCompiledMethod := class compiledMethodAt: selector ifAbsent: [nil]. self showingDocumentation ifTrue: [^ self commentContents]. source := self sourceStringPrettifiedAndDiffed. ^ source asText makeSelectorBoldIn: class]!

1 0

The Trunk: Tools-ct.1227.mcz
by commits＠source.squeak.org 15 Aug '23

15 Aug '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1227.mcz ==================== Summary ==================== Name: Tools-ct.1227 Author: ct Time: 15 August 2023, 3:57:45.54903 pm UUID: 1e52719c-677f-904f-9280-f4dba2058cc1 Ancestors: Tools-ct.1226, Tools-ct.1032 Merges Tools-ct.1032 (show class definition et al. in MessageNames). =============== Diff against Tools-ct.1226 =============== Item was changed: ----- Method: MessageNames>>computeMessageList (in category 'search') ----- computeMessageList + | selector | + selectorListIndex = 0 ifTrue: [^ #()]. + + selector := selectorList at: selectorListIndex. + ^ (selector first isUppercase ifTrue: [Smalltalk classNamed: selector]) + ifNotNil: [:class | + #(Definition Comment Hierarchy) collect: [:sel | + MethodReference class: class selector: sel] ] + ifNil: [self systemNavigation allImplementorsOf: selector]! - ^ selectorListIndex = 0 - ifTrue: [#()] - ifFalse: [self systemNavigation - allImplementorsOf: (selectorList at: selectorListIndex)]! Item was changed: ----- Method: MessageNames>>selectedMessageName (in category 'message list') ----- selectedMessageName selectorList basicSize = 0 ifTrue: [^ nil]. "Deals with selectorList nil or empty" + ^super selectedMessageName ifNil: [ + "only message name selected" + selectorList at: (selectorListIndex max: 1) ifAbsent: [nil] "If no selection we can still find a selector"]! - ^selectorList at: (selectorListIndex max: 1) ifAbsent: [nil] "If no selection we can still find a selector"! Item was changed: ----- Method: MessageSet>>aboutToStyle: (in category 'code pane') ----- + aboutToStyle: aStyler + "This is a notification that aStyler is about to re-style its text. + Set the classOrMetaClass in aStyler, so that identifiers will be resolved correctly. - aboutToStyle: styler - "This is a notification that aPluggableShoutMorphOrView is about to re-style its text. - Set the classOrMetaClass in aPluggableShoutMorphOrView, so that identifiers will be resolved correctly. Answer true to allow styling to proceed, or false to veto the styling." + | selectedMessageName showingMethod | - | selectedMessageName | self isModeStyleable ifFalse: [^ false]. - selectedMessageName := self selectedMessageName. + aStyler classOrMetaClass: self selectedClassOrMetaClass. + showingMethod := (#(Comment Definition Hierarchy) includes: selectedMessageName) not. + aStyler parseAMethod: showingMethod. + ^(#(Comment Hierarchy) includes: selectedMessageName) not! - styler classOrMetaClass: self selectedClassOrMetaClass. - styler parseAMethod: (#(Comment Definition Hierarchy) includes: selectedMessageName) not. - ^ (#(Comment Hierarchy) includes: selectedMessageName) not!

1 0

The Trunk: Kernel-ct.1520.mcz
by commits＠source.squeak.org 15 Aug '23

15 Aug '23

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1520.mcz ==================== Summary ==================== Name: Kernel-ct.1520 Author: ct Time: 15 August 2023, 3:10:09.691866 pm UUID: 26ff8963-9b5d-8a49-b54a-35a487efc001 Ancestors: Kernel-mt.1519 Proposal: Adds ScaledDecimal>>#printFractionAsDecimal similar to #printShowingDecimalPlaces:. Usage: (5/7*100s2) printFractionAsDecimal '71.42' Essentially, this gets rid of the scale ("s2") to create a user-friendly printString. =============== Diff against Kernel-mt.1519 =============== Item was added: + ----- Method: ScaledDecimal>>printFractionAsDecimal (in category 'printing') ----- + printFractionAsDecimal + + ^ String streamContents: [:stream | + self printFractionAsDecimalOn: stream]!

1 0

The Trunk: Tools-ct.935.mcz
by commits＠source.squeak.org 15 Aug '23

15 Aug '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.935.mcz ==================== Summary ==================== Name: Tools-ct.935 Author: ct Time: 20 January 2020, 4:31:15.448972 pm UUID: 00d7a637-e3ae-dd42-abaf-8aa2523cf17e Ancestors: Tools-mt.929 MessageTrace: Improves display of parent/child messages by using unified message labels everywhere. =============== Diff against Tools-mt.929 =============== Item was changed: ----- Method: MessageSet>>initializeMessageList: (in category 'private') ----- initializeMessageList: anArray "Initialize my messageList from the given list of MethodReference or string objects. NB: special handling for uniclasses. Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer systems, such as differencers between existing and edited versions of code." messageList := OrderedCollection new. anArray do: [:each | each isMethodReference ifTrue: [messageList addLast: each] ifFalse: [ MessageSet parse: each toClassAndSelector: [ : class : sel | class ifNotNil: [ messageList addLast: (MethodReference class: class selector: sel) ] ] ] ]. "Unify labels if wanted." self class useUnifiedMessageLabels ifTrue: [ messageList withIndexDo: + [ : each : index | + each stringVersion: (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) , (self unifiedMessageLabelFor: each) ] ]. - [ : each : index | | cls | - cls := each actualClass. - each stringVersion: - (self indentionPrefixOfSize: (self indentionsIn: each stringVersion)) - , (cls - ifNil: [each asString] - ifNotNil: - [cls isUniClass - ifTrue: [cls typicalInstanceName, ' ', each selector] - ifFalse: - [ cls name , ' ' , each selector , ' {' - , ((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' - , ' {', cls category, '}' ] ]) ] ]. messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1]. contents := String empty! Item was added: + ----- Method: MessageSet>>unifiedMessageLabelFor: (in category 'private') ----- + unifiedMessageLabelFor: aMethodReference + + | class selector | + class := aMethodReference actualClass. + selector := aMethodReference selector. + class ifNil: [^ aMethodReference asString]. + class isUniClass + ifTrue: [^ class typicalInstanceName, ' ', selector]. + ^ '{1} {2} \{{3}\} \{{4}\}' format: { + class. + selector. + class organization categoryOfElement: selector. + class category }! Item was changed: ----- Method: MessageTrace>>addChildMessages:autoSelectString: (in category 'building') ----- addChildMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables selectableString newAnchor | selectableString := aString keywords ifEmpty: [ String empty ] ifNotEmptyDo: [ : keywords | "we can probably do something more precise here; perhaps recombining the extracted keywords into a single selector? Then again all usages of this method seem to already enforce use of a selector" aString ]. [ (messageListIndex between: 1 and: autoSelectStrings size) ] whileFalse: [ autoSelectStrings add: selectableString ]. currentIndentionLevel := self currentIndentionLevel. "Don't add mulitple copies of the same method, if a method is already in the list we will merely select it." addables := methodReferences reject: [ : each | messageList includes: each ]. addables do: [ : each | + each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) + , (self class useUnifiedMessageLabels + ifTrue: [self unifiedMessageLabelFor: each] + ifFalse: [each asStringOrText]). - each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel + 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex. autoSelectStrings add: nil afterIndex: self messageListIndex. messageSelections add: false afterIndex: self messageListIndex ]. selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. self deselectAll. anchorIndex := nil. selectables do: [ : each | self messageAt: (newAnchor := messageList indexOf: each) beSelected: true. anchorIndex ifNil: [ anchorIndex := newAnchor ] ]. self changed: #messageList. "Select the first child method." self messageListIndex: (selectables size > 0 ifTrue: [ messageList indexOf: selectables last ] ifFalse: [ messageList ifEmpty: [ 0 ] ifNotEmpty: [ 1 ] ])! Item was changed: ----- Method: MessageTrace>>addParentMessages:autoSelectString: (in category 'building') ----- addParentMessages: methodReferences autoSelectString: aString | currentIndentionLevel addables selectables | addables := methodReferences reject: [ : each | messageList includes: each ]. "we may need to process aString here in a similar manner to that in #addChildMessages:autoSelectString:" selectables := addables copy addAll: (methodReferences select: [ : each | messageList includes: each ]) ; yourself. currentIndentionLevel := self currentIndentionLevel. (currentIndentionLevel = 0 and: [ addables notEmpty ]) ifTrue: [ self indentEverything. currentIndentionLevel := 1 ]. addables do: [ : each | + each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) + , (self class useUnifiedMessageLabels + ifTrue: [self unifiedMessageLabelFor: each] + ifFalse: [each asStringOrText]). - each stringVersion: (self indentionPrefixOfSize: currentIndentionLevel - 1) , each asStringOrText. messageList add: each afterIndex: self messageListIndex - 1. autoSelectStrings add: aString afterIndex: self messageListIndex - 1. messageSelections add: false afterIndex: self messageListIndex - 1 ]. self deselectAll. selectables do: [ : each | | messageIndex | messageIndex := messageList indexOf: each. self messageAt: messageIndex beSelected: true. autoSelectStrings at: messageIndex put: aString ]. self changed: #messageList. anchorIndex := messageListIndex. selectables size > 0 ifTrue: [ self messageListIndex: (messageList indexOf: selectables first) ]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2023