Packages January 2022

packages@lists.squeakfoundation.org

1 participants
209 discussions

The Trunk: Tools-mt.1102.mcz
by commits＠source.squeak.org 11 Jan '22

11 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1102.mcz ==================== Summary ==================== Name: Tools-mt.1102 Author: mt Time: 11 January 2022, 10:58:04.097851 am UUID: 1b324423-7076-45b9-898d-9c282b430fc6 Ancestors: Tools-mt.1101 Fixes regression in ChangeSorter, which got visible MVC but not Morphic. Somebody added #buildWith: to Morph ... not sure why. =============== Diff against Tools-mt.1101 =============== Item was changed: ----- Method: ChangeSorter>>buildWith: (in category 'toolbuilder') ----- buildWith: builder + ^ self + buildWith: builder + in: (self buildWindowWith: builder) + rect: (0@0 extent: 1@1)! - ^ builder build: - (self - buildWith: builder - in: (self buildWindowWith: builder) - rect: (0@0 extent: 1@1))!

1 0

The Treated Inbox: Morphic-cmm.1839.mcz
by commits＠source.squeak.org 11 Jan '22

11 Jan '22

Marcel Taeumel uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-cmm.1839.mcz ==================== Summary ==================== Name: Morphic-cmm.1839 Author: cmm Time: 9 January 2022, 6:58:59.881673 pm UUID: a4b7b103-923c-466b-b6d6-fc81c2dfe0ae Ancestors: Morphic-mt.1837 Browsing senders from the code pane must never insert the sending messages into the Trace in the upper pane, because it would no longer represent a correct trace of execution flow. =============== Diff against Morphic-mt.1837 =============== Item was changed: ----- Method: TextEditor>>sendersOfIt (in category 'menu messages') ----- sendersOfIt "Open a senders browser on the selected selector" self lineSelectAndEmptyCheck: [^ self]. + self selectedSelector ifNotNil: + [:aSelector| ^self systemNavigation browseAllCallsOn: aSelector]. + self selectedLiteral ifNotNil: + [:aLiteral| ^self systemNavigation browseAllCallsOn: aLiteral]. + morph flash! - self selectedSelector ifNotNil: [:aSelector | - ^ self model browseAllCallsOn: aSelector]. - self selectedLiteral ifNotNil: [:aLiteral | - ^ self model browseAllCallsOn: aLiteral]. - morph flash.!

1 0

The Trunk: Morphic-mt.1844.mcz
by commits＠source.squeak.org 11 Jan '22

11 Jan '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1844.mcz ==================== Summary ==================== Name: Morphic-mt.1844 Author: mt Time: 11 January 2022, 9:48:30.418724 am UUID: 721f3062-f45a-4f5e-8e74-b9871a0269ee Ancestors: Morphic-ct.1843 Complements Tools-mt.1101. Note that an editor's requestor must be its view/morph because the editor is an implementation detail not to be exposed to the model. A view/morph, however, can have a #name and thus easily be queried -- even without exposing Morphic details and supporting MVC as well. ... this is Morphic only though. TextEditor not that specific to Morphic, though. We might want to improve that in the future. And text editing/rendering in general. It's really not about Morphic but more low-level. =============== Diff against Morphic-ct.1843 =============== Item was changed: ----- Method: TextEditor>>browseIt (in category 'menu messages') ----- browseIt "Launch a browser for the current selection, if appropriate." Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt]. self lineSelectAndEmptyCheck: [^ morph flash]. "First, try to show all accesses to instance or class variables." self selectedInstanceVariable ifNotNil: [:nameToClass | self systemNavigation browseAllAccessesTo: nameToClass key from: nameToClass value]. self selectedClassVariable ifNotNil: [:binding | self model browseAllCallsOn: binding]. "Then, either browse the class (from a binding) or all implementors of a selector." self selectedBinding ifNotNil: [:binding | ^ self systemNavigation browseClass: binding]. self selectedSelector ifNotNil: + [:selector | ^ self model browseAllImplementorsOf: selector requestor: morph]. - [:selector | ^ self model browseAllImplementorsOf: selector]. morph flash! Item was changed: ----- Method: TextEditor>>implementorsOfIt (in category 'menu messages') ----- implementorsOfIt "Open an implementors browser on the selected selector" self lineSelectAndEmptyCheck: [^ self]. self selectedSelector ifNotNil: + [:aSelector| ^self model browseAllImplementorsOf: aSelector requestor: morph]. - [:aSelector| ^self model browseAllImplementorsOf: aSelector]. self selectedLiteral ifNotNil: + [:aLiteral| ^self model browseAllImplementorsOf: aLiteral requestor: morph]. - [:aLiteral| ^self model browseAllImplementorsOf: aLiteral]. morph flash.! Item was changed: ----- Method: TextEditor>>sendersOfIt (in category 'menu messages') ----- sendersOfIt "Open a senders browser on the selected selector" self lineSelectAndEmptyCheck: [^ self]. self selectedSelector ifNotNil: [:aSelector | + ^ self model browseAllCallsOn: aSelector requestor: morph]. - ^ self model browseAllCallsOn: aSelector]. self selectedLiteral ifNotNil: [:aLiteral | + ^ self model browseAllCallsOn: aLiteral requestor: morph]. - ^ self model browseAllCallsOn: aLiteral]. morph flash.!

1 0

The Trunk: Tools-mt.1101.mcz
by commits＠source.squeak.org 11 Jan '22

11 Jan '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1101.mcz ==================== Summary ==================== Name: Tools-mt.1101 Author: mt Time: 11 January 2022, 9:45:33.663724 am UUID: a26d9da7-dbb4-473b-ac22-713303b30480 Ancestors: Tools-ct.1100 Extends protocol for browsing senders/implementors to enable models to consider a 'requestor'. Use this to fix a regression in MessageTrace tool, which discriminates between browse-senders/implementors requests that originate either from the message list or the text/code field. =============== Diff against Tools-ct.1100 =============== Item was changed: ----- Method: CodeHolder>>browseImplementors (in category 'commands') ----- browseImplementors + "Create and schedule a message set browser on all implementors of the currently selected message selector. If there is no message currently selected, offer a type-in" - "Create and schedule a message set browser on all implementors of the currently selected message selector. Do nothing if no message is selected." + self sendQuery: #browseAllImplementorsOf:requestor: to: self with: #(modelMenu).! - | aMessageName | - (aMessageName := self selectedMessageName) ifNotNil: - [self systemNavigation browseAllImplementorsOf: aMessageName]! Item was changed: ----- Method: CodeHolder>>browseSenders (in category 'commands') ----- browseSenders + "Create and schedule a message set browser on all senders of the currently selected message selector. If there is no message currently selected, offer a type-in" - "Create and schedule a message set browser on all senders of the currently selected message selector. Of there is no message currently selected, offer a type-in" + self sendQuery: #browseAllCallsOn:requestor: to: self with: #(modelMenu).! - self sendQuery: #browseAllCallsOn: to: self systemNavigation! Item was changed: ----- Method: CodeHolder>>getSelectorAndSendQuery:to: (in category 'misc') ----- getSelectorAndSendQuery: querySelector to: queryPerformer + "See commentary in #getSelectorAndSendQuery:to:with:." - "Obtain a selector relevant to the current context, and then send the querySelector to the queryPerformer with the selector obtained as its argument. If no message is currently selected, then obtain a method name from a user type-in" + ^ self getSelectorAndSendQuery: querySelector to: queryPerformer with: {}! - self getSelectorAndSendQuery: querySelector to: queryPerformer with: { }. - ! Item was changed: ----- Method: CodeHolder>>getSelectorAndSendQuery:to:with: (in category 'misc') ----- getSelectorAndSendQuery: querySelector to: queryPerformer with: queryArgs + "Obtain a selector relevant to the current context, and then send the querySelector to the queryPerformer with the selector obtained and queryArgs as its arguments." - "Obtain a selector relevant to the current context, and then send the querySelector to the queryPerformer with the selector obtained and queryArgs as its arguments. If no message is currently selected, then obtain a method name from a user type-in" + ^ self selectedMessageName + ifNotNil: [ "We have a message. Let the user choose a symbol from its contents." + self selectMessageAndEvaluate: [ :aSymbol | + queryPerformer + perform: querySelector + withArguments: {aSymbol}, queryArgs ]] + ifNil: [ "No message currently selected. Obtain a selector from a user type-in." + (Project uiManager request: 'Type selector:' initialAnswer: 'flag:') + ifEmpty: [ nil "Cancelled by user" ] + ifNotEmpty: [ :typeIn | | selectorString | + (Symbol lookup: (selectorString := typeIn asLegalSelector)) + ifNil: [ self inform: 'There is no symbol known as #', selectorString ] + ifNotNil: [ :aSymbol | + queryPerformer + perform: querySelector + withArguments: {aSymbol}, queryArgs ] ]]! - | strm array | - strm := WriteStream on: (array := Array new: queryArgs size + 1). - strm nextPut: nil. - strm nextPutAll: queryArgs. - - self selectedMessageName ifNil: [ | selector | - selector := UIManager default request: 'Type selector:' initialAnswer: 'flag:'. - selector := selector copyWithout: Character space. - ^ selector isEmptyOrNil ifFalse: [ - (Symbol hasInterned: selector - ifTrue: [ :aSymbol | - array at: 1 put: aSymbol. - queryPerformer perform: querySelector withArguments: array]) - ifFalse: [ self inform: 'no such selector'] - ] - ]. - - self selectMessageAndEvaluate: [:selector | - array at: 1 put: selector. - queryPerformer perform: querySelector withArguments: array - ]! Item was changed: ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') ----- messageListKey: aChar from: view + "Overwritten to add more code-specific commands." + - "Respond to a Command key. I am a model with a code pane, and I also - have a listView that has a list of methods. The view knows how to get - the list and selection." - | sel class | - aChar == $D ifTrue: [^ self toggleDiffing]. - sel := self selectedMessageName. - aChar == $m ifTrue: "These next two put up a type in if no message selected" - [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ]. - aChar == $n ifTrue: - [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ]. aChar == $d ifTrue: [^ self removeMessageFromBrowser]. + + self selectedClassOrMetaClass ifNotNil: [ + aChar == $r ifTrue: [^ self browseVariableReferences]. + aChar == $a ifTrue: [^ self browseVariableAssignments]. + (aChar == $Y and: [self canShowMultipleMessageCategories]) + ifTrue: [^ self showHomeCategory]]. + + ^ super messageListKey: aChar from: view! - "The following require a class selection" - (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. - aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. - aChar == $N ifTrue: [^ self browseClassRefs]. - aChar == $i ifTrue: [^ self methodHierarchy]. - aChar == $h ifTrue: [^ self browseClassHierarchy]. - aChar == $p ifTrue: [^ self browseFullProtocol]. - aChar == $r ifTrue: [^ self browseVariableReferences]. - aChar == $a ifTrue: [^ self browseVariableAssignments]. - (aChar == $Y and: [self canShowMultipleMessageCategories]) - ifTrue: [^ self showHomeCategory]. - "The following require a method selection" - sel ifNotNil: - [aChar == $o ifTrue: [^ self fileOutMessage]. - aChar == $c ifTrue: [^ self copySelector]. - aChar == $v ifTrue: [^ self browseVersions]. - aChar == $x ifTrue: [^ self removeMessage]. - aChar == $C ifTrue: [ self copyReference ]]. - ^ self arrowKey: aChar from: view! Item was changed: ----- Method: CodeHolder>>sendQuery:to: (in category 'misc') ----- sendQuery: querySelector to: queryPerformer + "See commentary in #sendQuery:to:with:." - "Apply a query to the primary selector associated with the current context. If no such selection exists, obtain one by user type-in. Then send querySelector to queryPerformer with the selector as its argument." + ^ self sendQuery: querySelector to: queryPerformer with: { }! - | aSelector aString | - aSelector := self selectedMessageName ifNil: - [aString :=UIManager default request: 'Type selector:' initialAnswer: 'flag:'. - ^ aString isEmptyOrNil ifFalse: - [(Symbol hasInterned: aString ifTrue: - [:aSymbol | queryPerformer perform: querySelector with: aSymbol]) - ifFalse: - [self inform: 'no such selector']]]. - - queryPerformer perform: querySelector with: aSelector! Item was added: + ----- Method: CodeHolder>>sendQuery:to:with: (in category 'misc') ----- + sendQuery: querySelector to: queryPerformer with: queryArgs + "Apply a query to the primary selector associated with the current context. If no such selection exists, obtain one by user type-in. Then send querySelector to queryPerformer with the selector as its argument. Unlike #getSelectorAndSendQuery:to:with:, DO NOT let the user choose from the list of known symbols inside the selected context/message." + + ^ self selectedMessageName + ifNotNil: [ :aSymbol | "We have a message name. Use it directly." + queryPerformer + perform: querySelector + withArguments: {aSymbol}, queryArgs ] + ifNil: [ "No message currently selected. Obtain a selector from a user type-in." + (Project uiManager request: 'Type selector:' initialAnswer: 'flag:') + ifEmpty: [ nil "Cancelled by user" ] + ifNotEmpty: [ :typeIn | | selectorString | + (Symbol lookup: (selectorString := typeIn asLegalSelector)) + ifNil: [ self inform: 'There is no symbol known as #', selectorString ] + ifNotNil: [ :aSymbol | + queryPerformer + perform: querySelector + withArguments: {aSymbol}, queryArgs ] ]]! Item was changed: ----- Method: CodeHolder>>useSelector:orGetSelectorAndSendQuery:to: (in category 'misc') ----- useSelector: incomingSelector orGetSelectorAndSendQuery: querySelector to: queryPerformer - "If incomingSelector is not nil, use it, else obtain a selector from user type-in. Using the determined selector, send the query to the performer provided." + self flag: #deprecated. + self selectedMessageName = incomingSelector + ifFalse: [^ self notify: 'This protocol is not supported anymore. Please revise using #seletedMessageName and either #sendQuery:to:with: or #getSelectorAndSendQuery:to:with:.']. + + ^ self sendQuery: querySelector to: queryPerformer! - | aSelector | - incomingSelector - ifNotNil: - [queryPerformer perform: querySelector with: incomingSelector] - ifNil: - [aSelector :=UIManager default request: 'Type selector:' initialAnswer: 'flag:'. - aSelector isEmptyOrNil ifFalse: - [(Symbol hasInterned: aSelector ifTrue: - [:aSymbol | queryPerformer perform: querySelector with: aSymbol]) - ifFalse: - [self inform: 'no such selector']]]! Item was removed: - ----- Method: MessageTrace>>browseAllCallsOn: (in category 'actions') ----- - browseAllCallsOn: selectorSymbol - (self hasUnacceptedEdits or: [ Preferences traceMessages not ]) - ifTrue: [ super browseAllCallsOn: selectorSymbol ] - ifFalse: [ self addParentMethodsSending: selectorSymbol ]! Item was added: + ----- 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)." + + (anObject = #modelMenu and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ]) + ifTrue: [ self addParentMethodsSending: selectorSymbol ] + ifFalse: [ super browseAllCallsOn: selectorSymbol requestor: anObject ].! Item was removed: - ----- Method: MessageTrace>>browseAllImplementorsOf: (in category 'actions') ----- - browseAllImplementorsOf: selectorSymbol - | selectorToBrowse | - selectorToBrowse := self selection - ifNil: [ selectorSymbol ] - 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 added: + ----- 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"]. + (anObject = #modelMenu and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ]) + ifTrue: [ self addChildMethodsNamed: selectorToBrowse ] + ifFalse: [ super browseAllImplementorsOf: selectorToBrowse requestor: anObject ].! Item was changed: ----- Method: Object>>browseAllCallsOn: (in category '*Tools-MessageSets') ----- browseAllCallsOn: selectorSymbol + "A tool's widget/view (i.e., 'requestor') requested to browse the calls on selectorSymbol. By default, let #systemNavigation handle it." + + self flag: #todo. "mt: Push down to Model but check non-Model tools such as TranscriptStream." - "Models get the first chance to handle this, so a message-tracer can be built.. Not all Tool 'models' inherit from Model, otherwise this would be there." self systemNavigation browseAllCallsOn: selectorSymbol! Item was added: + ----- Method: Object>>browseAllCallsOn:requestor: (in category '*Tools-MessageSets') ----- + browseAllCallsOn: selectorSymbol requestor: anObject + "A tool's widget/view (i.e., 'requestor') requested to browse the calls on selectorSymbol. By default, let #systemNavigation handle it." + + self flag: #todo. "mt: Push down to Model but check non-Model tools such as TranscriptStream." + self browseAllCallsOn: selectorSymbol! Item was changed: ----- Method: Object>>browseAllImplementorsOf: (in category '*Tools-MessageSets') ----- browseAllImplementorsOf: selectorSymbol + "A tool's widget/view (i.e., 'requestor') requested to browse the implementors of selectorSymbol. By default, let #systemNavigation handle it." + + self flag: #todo. "mt: Push down to Model but check non-Model tools such as TranscriptStream." + self systemNavigation browseAllImplementorsOf: selectorSymbol.! - "Models get first chance to handle browseAllImplementorsOf:, so a tracing-messages browser can be built.. Not all Tool 'models' inherit from Model, otherwise this would be there." - self systemNavigation browseAllImplementorsOf: selectorSymbol! Item was added: + ----- Method: Object>>browseAllImplementorsOf:requestor: (in category '*Tools-MessageSets') ----- + browseAllImplementorsOf: selectorSymbol requestor: anObject + "A tool's widget/view (i.e., 'requestor') requested to browse the implementors of selectorSymbol. By default, let #systemNavigation handle it." + + self flag: #todo. "mt: Push down to Model but check non-Model tools such as TranscriptStream." + self browseAllImplementorsOf: selectorSymbol.! Item was added: + ----- Method: StringHolder>>browseImplementors (in category '*Tools') ----- + browseImplementors + + self browseAllImplementorsOf: self selectedMessageName requestor: #modelMenu.! Item was added: + ----- Method: StringHolder>>browseSenders (in category '*Tools') ----- + browseSenders + + self browseAllCallsOn: self selectedMessageName requestor: #modelMenu.! Item was changed: ----- Method: StringHolder>>messageListKey:from: (in category '*Tools') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. + aChar == $m ifTrue: [^ self browseImplementors]. + aChar == $n ifTrue: [^ self browseSenders]. - sel := self selectedMessageName. - aChar == $m ifTrue: "These next two put up a type in if no message selected" - [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self systemNavigation]. - aChar == $n ifTrue: - [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation]. "The following require a class selection" + sel := self selectedMessageName. (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self browseClassHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $C ifTrue: [^ self copyReference]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]]. ^ self arrowKey: aChar from: view!

1 0

The Trunk: System-ct.1280.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1280.mcz ==================== Summary ==================== Name: System-ct.1280 Author: ct Time: 10 January 2022, 11:03:03.429359 pm UUID: fa106a43-6333-374a-aa71-53ab31792e69 Ancestors: System-ct.1279 Honors preference #checkForUnsavedProjects when closing a project. =============== Diff against System-ct.1279 =============== Item was changed: ----- Method: Project>>okToChange (in category 'release') ----- okToChange "Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation" | answer | (self isCurrentProject and: [self isTopProject]) ifTrue: [ self inform: 'You cannot close the top project.'. ^ false]. + ((Preferences valueOfFlag: #checkForUnsavedProjects) ==> + [self confirm: ('Do you really want to delete the project\{1}\and all its content?' withCRs translated format:{self name})]) - (self confirm: ('Do you really want to delete the project\{1}\and all its content?' withCRs translated format:{self name})) ifFalse: [^ false]. self subProjects ifNotEmpty: [:sp | answer := Project uiManager chooseFrom: #( "1" 'Lift all sub-projects' "2" 'Discard all sub-projects (NO UNDO!!)' "3 or 0" 'Cancel') lines: #(2) title: ('The project {1}\contains {2} sub-project(s).' withCRs translated format:{self name. sp size}). (answer = 0 or: [answer = 3]) ifTrue: [^ false]. answer = 1 ifTrue: [self liftSubProjects. ^ true]. answer = 2 ifTrue: [^ sp allSatisfy: [:ea | [ea okToChange] valueSuppressingMessages: {'*delete the project*and all its content*'}]]]. ^ true!

1 0

The Trunk: System-ct.1279.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1279.mcz ==================== Summary ==================== Name: System-ct.1279 Author: xyz Time: 10 January 2022, 10:50:35.316477 pm UUID: 1116bbe8-61e2-5c42-9d22-c0536cf9059a Ancestors: System-ct.1278 Fixes Utilities authorName which answered the receiver rather than the new author name for known authors ("Let the user confirm" case). =============== Diff against System-ct.1278 =============== Item was removed: - ----- Method: Preferences class>>allowEtoyUserCustomEvents (in category 'standard queries') ----- - allowEtoyUserCustomEvents - ^ self - valueOfFlag: #allowEtoyUserCustomEvents - ifAbsent: [false]! Item was changed: ----- Method: Utilities class>>authorName (in category 'identification') ----- authorName "Maybe interactive. Answer the full name to be used in various tools to identify the user/author. Ask the user if the name is empty. Try to derive the name from existing initials." ^ AuthorName ifEmpty: [ AuthorInitials + ifEmpty: [self setAuthorName] - ifEmpty: [self setAuthorName. AuthorName] ifNotEmpty: [:initials | SystemNavigation authorsInverted at: initials ifPresent: [:authorNames | AuthorName := authorNames sorted joinSeparatedBy: '/'. self setAuthorName. "Let the user confirm"] + ifAbsent: [self setAuthorName]]]! - ifAbsent: [self setAuthorName. AuthorName]]]! Item was changed: ----- Method: Utilities class>>setAuthorName (in category 'identification') ----- setAuthorName + ^ AuthorName := Project uiManager - AuthorName := Project uiManager request: 'Please type your name:' translated + initialAnswer: (AuthorName ifEmpty: ['Your Name' translated])! - initialAnswer: (AuthorName ifEmpty: ['Your Name' translated]).!

1 0

The Trunk: Tests-ct.473.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.473.mcz ==================== Summary ==================== Name: Tests-ct.473 Author: ct Time: 10 January 2022, 10:26:00.222477 pm UUID: 4b70032e-1a94-aa46-9a1c-93d8e29f255a Ancestors: Tests-ct.472 Complements System-ct.1278 (#allRegisteredClasses). =============== Diff against Tests-ct.472 =============== Item was changed: ----- Method: AppRegistryTest>>test01AppsAreBehaviors (in category 'tests') ----- test01AppsAreBehaviors "This test ensures the integrity of the given image state with respect to AppRegistry. After the ReleaseBuilder scripts ran, this test must pass." AppRegistry withAllSubclasses do: [:app | + self assert: (app allRegisteredClasses reject: [:ea | ea isBehavior]) isEmpty].! - self assert: (app registeredClasses reject: [:ea | ea isBehavior]) isEmpty].!

1 0

The Trunk: System-ct.1278.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1278.mcz ==================== Summary ==================== Name: System-ct.1278 Author: ct Time: 10 January 2022, 10:25:10.923477 pm UUID: 2f741962-60cc-e94f-b885-996c93b6baa3 Ancestors: System-eem.1277 Fixes AppRegistry test for TextStyler by introducing public #allRegisteredClasses selector that can be overridden by subclasses that redefine the layout of registeredClasses. Also implements #removeObsolete correctly on TextStyler. =============== Diff against System-eem.1277 =============== Item was added: + ----- Method: AppRegistry class>>allRegisteredClasses (in category 'registration') ----- + allRegisteredClasses + + ^ self registeredClasses! Item was changed: ----- Method: AppRegistry class>>removeObsolete (in category 'registration') ----- removeObsolete + "AppRegistry removeObsolete" - "AppRegistry removeObsoleteClasses" self registeredClasses copy do:[:cls| (cls class isObsolete or:[cls isBehavior and:[cls isObsolete]]) ifTrue:[self unregister: cls]]. self subclasses do:[:cls| cls removeObsolete].! Item was added: + ----- Method: TextStyler class>>allRegisteredClasses (in category 'registration') ----- + allRegisteredClasses + + ^ self knownSyntaxes gather: [:syntax | self registeredClassesFor: syntax]! Item was added: + ----- Method: TextStyler class>>knownSyntaxes (in category 'registration') ----- + knownSyntaxes + + ^ registeredClasses keys! Item was added: + ----- Method: TextStyler class>>registeredClassesFor: (in category 'registration') ----- + registeredClassesFor: syntax + + ^ registeredClasses at: syntax! Item was added: + ----- Method: TextStyler class>>removeObsolete (in category 'registration') ----- + removeObsolete + "TextStyler removeObsolete" + self registeredClasses copy keysAndValuesDo: [:syntax :classes | + classes do: [:cls | + (cls class isObsolete or: [cls isBehavior and: [cls isObsolete]]) + ifTrue: [self unregister: cls for: syntax]]]. + self subclasses do: [:cls| cls removeObsolete].!

1 0

The Trunk: 51Deprecated-ct.59.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-ct.59.mcz ==================== Summary ==================== Name: 51Deprecated-ct.59 Author: ct Time: 10 January 2022, 9:58:07.120477 pm UUID: 781c6bd8-50c5-2f4a-85bd-c16982406dd0 Ancestors: 51Deprecated-mt.58 Moves WindowColorSpec from 51Deprecated to 60Deprecated because it is referenced from the latter package already via Object class>>#windowColorSpecification (*60Deprecated-window color). See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-April/215018.ht… =============== Diff against 51Deprecated-mt.58 =============== Item was removed: - Object subclass: #WindowColorSpec - instanceVariableNames: 'classSymbol wording brightColor pastelColor normalColor helpMessage' - classVariableNames: '' - poolDictionaries: '' - category: '51Deprecated-System-Support'! Item was removed: - ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg - "Answer a new instance of the receiver with the given slots filled in" - - ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'instance creation') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg - - ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>brightColor (in category 'access') ----- - brightColor - "Answer the brightColor" - - ^ brightColor! Item was removed: - ----- Method: WindowColorSpec>>classSymbol (in category 'access') ----- - classSymbol - "Answer the classSymbol" - - ^ classSymbol! Item was removed: - ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg - "Initialize the receiver's instance variables" - - self - classSymbol: sym - wording: wrd - brightColor: brCol - pastelColor: paCol - normalColor: (Color colorFrom: brCol) duller - helpMessage: hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'initialization') ----- - classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg - "Initialize the receiver's instance variables" - - classSymbol := sym. - wording := wrd. - brightColor := brCol. - pastelColor := paCol. - normalColor := noCol. - helpMessage := hlpMsg! Item was removed: - ----- Method: WindowColorSpec>>helpMessage (in category 'access') ----- - helpMessage - "Answer the helpMessage" - - ^ helpMessage! Item was removed: - ----- Method: WindowColorSpec>>normalColor (in category 'access') ----- - normalColor - - ^ normalColor! Item was removed: - ----- Method: WindowColorSpec>>pastelColor (in category 'access') ----- - pastelColor - "Answer the pastelColor" - - ^ pastelColor! Item was removed: - ----- Method: WindowColorSpec>>printOn: (in category 'printing') ----- - printOn: aStream - "Print the receiver on a stream" - - super printOn: aStream. - classSymbol printOn: aStream. - aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString, ' normal: ', normalColor printString! Item was removed: - ----- Method: WindowColorSpec>>wording (in category 'access') ----- - wording - "Answer the wording" - - ^ wording!

1 0

The Trunk: 60Deprecated-ct.103.mcz
by commits＠source.squeak.org 10 Jan '22

10 Jan '22

Christoph Thiede uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ct.103.mcz ==================== Summary ==================== Name: 60Deprecated-ct.103 Author: ct Time: 10 January 2022, 9:57:47.516477 pm UUID: 665cba43-46c4-6145-b97d-445a835c8306 Ancestors: 60Deprecated-ct.102 Moves WindowColorSpec from 51Deprecated to 60Deprecated because it is referenced from the latter package already via Object class>>#windowColorSpecification (*60Deprecated-window color). See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-April/215018.ht… =============== Diff against 60Deprecated-ct.102 =============== Item was added: + Object subclass: #WindowColorSpec + instanceVariableNames: 'classSymbol wording brightColor pastelColor normalColor helpMessage' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-System-Support'! Item was added: + ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg + "Answer a new instance of the receiver with the given slots filled in" + + ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'instance creation') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg + + ^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec>>brightColor (in category 'access') ----- + brightColor + "Answer the brightColor" + + ^ brightColor! Item was added: + ----- Method: WindowColorSpec>>classSymbol (in category 'access') ----- + classSymbol + "Answer the classSymbol" + + ^ classSymbol! Item was added: + ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg + "Initialize the receiver's instance variables" + + self + classSymbol: sym + wording: wrd + brightColor: brCol + pastelColor: paCol + normalColor: (Color colorFrom: brCol) duller + helpMessage: hlpMsg! Item was added: + ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'initialization') ----- + classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg + "Initialize the receiver's instance variables" + + classSymbol := sym. + wording := wrd. + brightColor := brCol. + pastelColor := paCol. + normalColor := noCol. + helpMessage := hlpMsg! Item was added: + ----- Method: WindowColorSpec>>helpMessage (in category 'access') ----- + helpMessage + "Answer the helpMessage" + + ^ helpMessage! Item was added: + ----- Method: WindowColorSpec>>normalColor (in category 'access') ----- + normalColor + + ^ normalColor! Item was added: + ----- Method: WindowColorSpec>>pastelColor (in category 'access') ----- + pastelColor + "Answer the pastelColor" + + ^ pastelColor! Item was added: + ----- Method: WindowColorSpec>>printOn: (in category 'printing') ----- + printOn: aStream + "Print the receiver on a stream" + + super printOn: aStream. + classSymbol printOn: aStream. + aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString, ' normal: ', normalColor printString! Item was added: + ----- Method: WindowColorSpec>>wording (in category 'access') ----- + wording + "Answer the wording" + + ^ wording!

1 0

← Newer
1
...
14
15
16
17
18
19
20
21
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2022