Packages March 2020

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Monticello-ct.710.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.710.mcz ==================== Summary ==================== Name: Monticello-ct.710 Author: ct Time: 30 December 2019, 3:17:37.039602 pm UUID: 6df89c06-6946-d141-9ebc-bc42ae6d9b7f Ancestors: Monticello-ct.706 Improve support for traits by moving some class extensions up to ClassDefinition. This is possible because PackageInfo >> #includesClass: also works with metaclasses or traits. Just by the way, this fixes some bugs introduced by SqueakIssueIntegration's UI extensions (see https://github.com/hpi-swa-teaching/SqueakIssueIntegration/blob/master/pack…). =============== Diff against Monticello-ct.706 =============== Item was removed: - ----- Method: Class>>packageInfo (in category '*monticello') ----- - packageInfo - ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) - ifEmpty: [ nil ] - ifNotEmpty: - [ : myPackages | "Select the most-qualified match." - myPackages detectMax: [ : each | each packageName size ] ]! Item was removed: - ----- Method: Class>>workingCopy (in category '*monticello') ----- - workingCopy - "Answer the MCWorkingCopy in which I am defined." - ^ self packageInfo ifNotNil: [ : pi | pi workingCopy ]! Item was added: + ----- Method: ClassDescription>>packageInfo (in category '*monticello') ----- + packageInfo + ^ (PackageInfo allPackages select: [ : each | each includesClass: self ]) + ifEmpty: [ nil ] + ifNotEmpty: + [ : myPackages | "Select the most-qualified match." + myPackages detectMax: [ : each | each packageName size ] ]! Item was added: + ----- Method: ClassDescription>>workingCopy (in category '*monticello') ----- + workingCopy + "Answer the MCWorkingCopy in which I am defined." + ^ self packageInfo ifNotNil: [ : pi | pi workingCopy ]!

1 0

The Trunk: Monticello-eem.709.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.709.mcz ==================== Summary ==================== Name: Monticello-eem.709 Author: eem Time: 24 January 2020, 6:17:42.907101 pm UUID: ec11ed59-223d-4b58-aa08-c214e1ceb2e9 Ancestors: Monticello-cmm.708 Provide 'filter out unchanged methods...' to ignore any timestamp-only changes. =============== Diff against Monticello-cmm.708 =============== Item was added: + ----- Method: MCOperationsBrowser>>filterOutUnchangedMethods (in category 'actions') ----- + filterOutUnchangedMethods + "Remove from the list methods that only have changed timestamps" + | unchangedMethods | + unchangedMethods := self unchangedMethods. + (self confirm: ('Ignore {1} methods that only differ in timestamp?' translated + format: {unchangedMethods size})) + ifTrue: + [items := items reject: [:op| op isUnchangedMethod]. + self changed: #list] + ! Item was changed: ----- Method: MCOperationsBrowser>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu selection ifNotNil: [aMenu addList: #( ('install' installSelection) ('revert (x)' revertSelection) ('browse origin' browseSelectionOrigin) -)]. self unchangedMethods ifNotEmpty: [aMenu addList: #( ('revert unchanged methods...' revertUnchangedMethods) + ('filter out unchanged methods...' filterOutUnchangedMethods) -)]. super methodListMenu: aMenu. ^ aMenu! Item was changed: ----- Method: MCOperationsBrowser>>revertUnchangedMethods (in category 'actions') ----- revertUnchangedMethods "revert methods that only have changed timestamps" | loader unchangedMethods | + unchangedMethods := self unchangedMethods. + (self confirm: ('Revert {1} methods that only differ in timestamp?' translated + format: {unchangedMethods size})) + ifTrue: + [loader := MCPackageLoader new. - unchangedMethods := items select: [:op | op isUnchangedMethod]. - (self confirm: ('Revert {1} methods that only differ in timestamp?' translated format: {unchangedMethods size})) - ifTrue: [ - loader := MCPackageLoader new. unchangedMethods do: [:op | op inverse applyTo: loader]. loader loadWithName: self changeSetNameForInstall]. !

1 0

The Trunk: 60Deprecated-mt.73.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.73.mcz ==================== Summary ==================== Name: 60Deprecated-mt.73 Author: mt Time: 5 March 2020, 4:26:08.425454 pm UUID: 7e6fa2f2-3b3d-0143-8e68-5a6cfcce829d Ancestors: 60Deprecated-mt.72 Complements MorphicExtras-mt.274. =============== Diff against 60Deprecated-mt.72 =============== Item was added: + ----- Method: FancyMailComposition>>morphicOpen (in category '*60Deprecated-user interface') ----- + morphicOpen + + self deprecated. + ^ self open! Item was changed: ----- Method: FancyMailComposition>>mvcOpen (in category '*60Deprecated-ST80-Support') ----- mvcOpen - | textView sendButton | + self deprecated. + ^ self open! - mvcWindow := StandardSystemView new - label: 'Mister Postman'; - minimumSize: 400@250; - model: self. - - textView := PluggableTextView - on: self - text: #messageText - accept: #messageText:. - textEditor := textView controller. - - sendButton := PluggableButtonView - on: self - getState: nil - action: #submit. - sendButton label: 'Send'. - sendButton borderWidth: 1. - - sendButton window: (1@1 extent: 398@38). - mvcWindow addSubView: sendButton. - - textView window: (0@40 corner: 400@250). - mvcWindow addSubView: textView below: sendButton. - - mvcWindow controller open. - - - ! Item was added: + ----- Method: FancyMailComposition>>openInMorphic (in category '*60Deprecated-morphic gui') ----- + openInMorphic + + self deprecated. + ^ self open!

1 0

The Trunk: ToolBuilder-Morphic-mt.255.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.255.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.255 Author: mt Time: 5 March 2020, 4:25:33.066454 pm UUID: 793a3a0f-91db-c84e-a5a0-e49881af6e63 Ancestors: ToolBuilder-Morphic-mt.254 Remove temporary workaround for opening fancy mail composition bc. it is now using tool building. Complements MorphicExtras-mt.274. =============== Diff against ToolBuilder-Morphic-mt.254 =============== Item was removed: - ----- Method: MorphicUIManager>>openFancyMailComposition: (in category 'ui project indirecting') ----- - openFancyMailComposition: fancyMail - "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" - ^fancyMail morphicOpen!

1 0

The Trunk: ToolBuilder-MVC-mt.58.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-mt.58.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-mt.58 Author: mt Time: 5 March 2020, 4:25:07.800454 pm UUID: 33f4d46a-9c6c-5d40-95c0-3d947d8f1d3e Ancestors: ToolBuilder-MVC-mt.57 Remove temporary workaround for opening fancy mail composition bc. it is now using tool building. Complements MorphicExtras-mt.274. =============== Diff against ToolBuilder-MVC-mt.57 =============== Item was removed: - ----- Method: MVCUIManager>>openFancyMailComposition: (in category 'ui project indirecting') ----- - openFancyMailComposition: fancyMail - "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" - ^fancyMail mvcOpen!

1 0

The Trunk: CommandLine-mt.16.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of CommandLine to project The Trunk: http://source.squeak.org/trunk/CommandLine-mt.16.mcz ==================== Summary ==================== Name: CommandLine-mt.16 Author: mt Time: 5 March 2020, 4:24:50.322454 pm UUID: ad8ab789-003f-544d-b5c6-97eebff4afa2 Ancestors: CommandLine-mt.15 Remove temporary workaround for opening fancy mail composition bc. it is now using tool building. Complements MorphicExtras-mt.274. =============== Diff against CommandLine-mt.15 =============== Item was removed: - ----- Method: DummyUIManager>>openFancyMailComposition: (in category 'ui project indirecting') ----- - openFancyMailComposition: fancyMail - "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" - ^nil!

1 0

The Trunk: ToolBuilder-Kernel-mt.137.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.137.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.137 Author: mt Time: 5 March 2020, 4:24:30.911454 pm UUID: 12ed5e60-7505-d04b-9d26-ab6a631f3f96 Ancestors: ToolBuilder-Kernel-ct.136 Remove temporary workaround for opening fancy mail composition bc. it is now using tool building. Complements MorphicExtras-mt.274. =============== Diff against ToolBuilder-Kernel-ct.136 =============== Item was removed: - ----- Method: UIManager>>openFancyMailComposition: (in category 'ui project indirecting') ----- - openFancyMailComposition: fancyMail - "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" - ^self subclassResponsibility!

1 0

The Trunk: MorphicExtras-mt.274.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.274.mcz ==================== Summary ==================== Name: MorphicExtras-mt.274 Author: mt Time: 5 March 2020, 4:23:09.451454 pm UUID: effd6ab6-57af-ba4c-810f-3d050dcf4521 Ancestors: MorphicExtras-mt.273 Make FancyMailComposition use ToolBuilder. Not sure whether we need this tool at all. :-) Maybe Merge with MailComposition. =============== Diff against MorphicExtras-mt.273 =============== Item was changed: Model subclass: #FancyMailComposition + instanceVariableNames: 'messageText theLinkToInclude to subject' - instanceVariableNames: 'messageText textEditor morphicWindow mvcWindow theLinkToInclude to subject textFields' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtras-EToy-Download'! Item was changed: ----- Method: FancyMailComposition>>addAttachment (in category 'actions') ----- addAttachment + self changed: #acceptChanges. - textEditor - ifNotNil: [self hasUnacceptedEdits ifTrue: [textEditor accept]]. (FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment') ifNotNil: [:fileName | FileStream readOnlyFileNamed: fileName do: [:file | file binary. self messageText: ((MailMessage from: self messageText asString) addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); text)]]! Item was removed: - ----- Method: FancyMailComposition>>borderAndButtonColor (in category 'morphic gui') ----- - borderAndButtonColor - - ^Color r: 0.729 g: 0.365 b: 0.729! Item was added: + ----- Method: FancyMailComposition>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + + | panel | + panel := builder pluggablePanelSpec new. + panel + layout: #horizontal; + children: OrderedCollection new. + + panel children addLast: (builder pluggableButtonSpec new + model: self; + label: 'send later'; + help: 'add this to the queue of messages to be sent'; + action: #submit; + color: Color white; + yourself). + + panel children addLast: (builder pluggableButtonSpec new + model: self; + label: 'send now'; + help: 'send this message immediately'; + action: #sendNow; + color: Color white; + yourself). + + panel children addLast: (builder pluggableButtonSpec new + model: self; + label: 'add attachment'; + help: 'send a file with the message'; + action: #addAttachment; + color: Color white; + yourself). + + ^ panel! Item was added: + ----- Method: FancyMailComposition>>buildMessageTextWith: (in category 'toolbuilder') ----- + buildMessageTextWith: builder + + ^ builder pluggableTextSpec new + model: self; + getText: #messageText; + setText: #messageText:; + menu: #menuGet:shifted:; + yourself! Item was added: + ----- Method: FancyMailComposition>>buildTextFieldsWith: (in category 'toolbuilder') ----- + buildTextFieldsWith: builder + + | panel | + panel := builder pluggablePanelSpec new. + panel + layout: #vertical; + children: OrderedCollection new. + + panel children addLast: (builder pluggableInputFieldSpec new + model: self; + help: 'To'; + getText: #to; + setText: #to:; + yourself). + + panel children addLast: (builder pluggableInputFieldSpec new + model: self; + help: 'Subject'; + getText: #subject; + setText: #subject:; + yourself). + + ^ panel! Item was added: + ----- Method: FancyMailComposition>>buildWith: (in category 'toolbuilder') ----- + buildWith: builder + + ^ builder build: (self buildWindowWith: builder specs: { + (0 @ 0 corner: 1 @ 0.1) -> [self buildButtonsWith: builder]. + (0 @ 0.1 corner: 1 @ 0.3) -> [self buildTextFieldsWith: builder]. + (0 @ 0.3 corner: 1 @ 1) -> [self buildMessageTextWith: builder]. })! Item was removed: - ----- Method: FancyMailComposition>>buttonWithAction:label:help: (in category 'morphic gui') ----- - buttonWithAction: aSymbol label: labelString help: helpString - - ^self newColumn - wrapCentering: #center; cellPositioning: #topCenter; - addMorph: ( - SimpleButtonMorph new - color: self borderAndButtonColor; - target: self; - actionSelector: aSymbol; - label: labelString; - setBalloonText: helpString - ) - ! Item was changed: ----- Method: FancyMailComposition>>celeste:to:subject:initialText:theLinkToInclude: (in category 'initialization') ----- celeste: aCeleste to: argTo subject: argSubject initialText: aText theLinkToInclude: linkText "self new celeste: Celeste current to: 'danielv(a)netvision.net.il' subject: 'Mysubj' initialText: 'atext' theLinkToInclude: 'linkText'" to := argTo. subject := argSubject. messageText := aText. + theLinkToInclude := linkText.! - theLinkToInclude := linkText. - textFields := #(). - ! Item was changed: ----- Method: FancyMailComposition>>completeTheMessage (in category 'actions') ----- completeTheMessage | newText strm | + self changed: #acceptChanges. - textFields do: [ :each | each hasUnacceptedEdits ifTrue: [ each accept ] ]. newText := String new: 200. strm := WriteStream on: newText. strm nextPutAll: 'Content-Type: text/html'; cr; nextPutAll: 'From: ', MailSender userName; cr; nextPutAll: 'To: ',to; cr; nextPutAll: 'Subject: ',subject; cr; cr; nextPutAll: '<HTML><BODY><BR>'; nextPutAll: messageText asStringToHtml; nextPutAll: '<BR><BR>',theLinkToInclude,'<BR></BODY></HTML>'. + ^strm contents! - ^strm contents - - - - - ! Item was added: + ----- Method: FancyMailComposition>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + + ^ Color veryLightGray! Item was changed: + ----- Method: FancyMailComposition>>forgetIt (in category 'user interface') ----- - ----- Method: FancyMailComposition>>forgetIt (in category 'morphic gui') ----- forgetIt + self changed: #close.! - morphicWindow ifNotNil: [ morphicWindow delete ]. - mvcWindow ifNotNil: [ mvcWindow controller close ]. - ! Item was removed: - ----- Method: FancyMailComposition>>morphicOpen (in category 'user interface') ----- - morphicOpen - "open an interface for sending a mail message with the given initial - text " - | textMorph buttonsList sendButton attachmentButton | - morphicWindow := SystemWindow labelled: 'Mister Postman'. - morphicWindow model: self. - textEditor := textMorph := PluggableTextMorph - on: self - text: #messageText - accept: #messageText: - readSelection: nil - menu: #menuGet:shifted:. - morphicWindow addMorph: textMorph frame: (0 @ 0.1 corner: 1 @ 1). - buttonsList := AlignmentMorph newRow. - sendButton := PluggableButtonMorph - on: self - getState: nil - action: #submit. - sendButton - hResizing: #spaceFill; - vResizing: #spaceFill; - label: 'send message'; - setBalloonText: 'Accept any unaccepted edits and add this to the queue of messages to be sent'; - onColor: Color white offColor: Color white. - buttonsList addMorphBack: sendButton. - - attachmentButton := PluggableButtonMorph - on: self - getState: nil - action: #addAttachment. - attachmentButton - hResizing: #spaceFill; - vResizing: #spaceFill; - label: 'add attachment'; - setBalloonText: 'Send a file with the message'; - onColor: Color white offColor: Color white. - buttonsList addMorphBack: attachmentButton. - - morphicWindow addMorph: buttonsList frame: (0 @ 0 extent: 1 @ 0.1). - morphicWindow openInWorld! Item was removed: - ----- Method: FancyMailComposition>>newColumn (in category 'morphic gui') ----- - newColumn - - ^AlignmentMorph newColumn color: self staticBackgroundColor! Item was removed: - ----- Method: FancyMailComposition>>newRow (in category 'morphic gui') ----- - newRow - - ^AlignmentMorph newRow color: self staticBackgroundColor! Item was changed: ----- Method: FancyMailComposition>>open (in category 'user interface') ----- open + + self flag: #refactor. "FancyMailComposition should probably be removed in favour of MailComposition." + ^ ToolBuilder open: self! - "FancyMailComposition should probably be removed in favour of MailComposition, but at least ought to be made a ToolBuilder thing" "open an interface" - self deprecated: 'ought to be removed of ToolBuilderised'. - ^ Project uiManager openFancyMailComposition: self! Item was removed: - ----- Method: FancyMailComposition>>openInMorphic (in category 'morphic gui') ----- - openInMorphic - "open an interface for sending a mail message with the given initial - text " - | buttonsList container toField subjectField | - buttonsList := self newRow. - buttonsList wrapCentering: #center; cellPositioning: #leftCenter. - buttonsList - addMorphBack: ( - (self - buttonWithAction: #submit - label: 'send later' - help: 'add this to the queue of messages to be sent') - ); - addMorphBack: ( - (self - buttonWithAction: #sendNow - label: 'send now' - help: 'send this message immediately') - ); - addMorphBack: ( - (self - buttonWithAction: #forgetIt - label: 'forget it' - help: 'forget about sending this message') - ). - morphicWindow := container := AlignmentMorphBob1 new - borderWidth: 8; - borderColor: self borderAndButtonColor; - color: Color white. - - container - addMorphBack: (buttonsList vResizing: #shrinkWrap; minHeight: 25; yourself); - addMorphBack: ((self simpleString: 'To:') vResizing: #shrinkWrap; minHeight: 18; yourself); - addMorphBack: ((toField := PluggableTextMorph - on: self - text: #to - accept: #to:) hResizing: #spaceFill; vResizing: #rigid; height: 50; yourself - ); - addMorphBack: ((self simpleString: 'Subject:') vResizing: #shrinkWrap; minHeight: 18; yourself); - addMorphBack: ((subjectField := PluggableTextMorph - on: self - text: #subject - accept: #subject:) hResizing: #spaceFill; vResizing: #rigid; height: 50; yourself - ); - addMorphBack: ((self simpleString: 'Message:') vResizing: #shrinkWrap; minHeight: 18; yourself); - addMorphBack: ((textEditor := PluggableTextMorph - on: self - text: #messageText - accept: #messageText:) hResizing: #spaceFill; vResizing: #spaceFill; yourself - ). - textFields := {toField. subjectField. textEditor}. - container - extent: 300@400; - openInWorld.! Item was removed: - ----- Method: FancyMailComposition>>perform:orSendTo: (in category 'private') ----- - perform: selector orSendTo: otherTarget - - (self respondsTo: selector) - ifTrue: [^self perform: selector] - ifFalse: [^otherTarget perform: selector] - - ! Item was removed: - ----- Method: FancyMailComposition>>simpleString: (in category 'morphic gui') ----- - simpleString: aString - - ^self newRow - layoutInset: 2; - addMorphBack: (StringMorph contents: aString) lock! Item was removed: - ----- Method: FancyMailComposition>>staticBackgroundColor (in category 'morphic gui') ----- - staticBackgroundColor - - ^Color veryLightGray! Item was added: + ----- Method: FancyMailComposition>>windowTitle (in category 'user interface') ----- + windowTitle + + ^ 'Mister Postman'!

1 0

The Trunk: 60Deprecated-mt.72.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.72.mcz ==================== Summary ==================== Name: 60Deprecated-mt.72 Author: mt Time: 5 March 2020, 3:20:35.783454 pm UUID: cd2a44a1-9902-ac41-8da7-19a685125327 Ancestors: 60Deprecated-mt.71 Complements Monticello-cmm.708, Protocols-eem.68, Tools-mt.954. =============== Diff against 60Deprecated-mt.71 =============== Item was added: + ----- Method: Browser>>classHierarchy (in category '*60Deprecated-multi-window support') ----- + classHierarchy + + self deprecated: 'Use #browseClassHierarchy instead'. + self browseClassHierarchy.! Item was added: + ----- Method: Debugger>>classHierarchy (in category '*60Deprecated-toolbuilder') ----- + classHierarchy + + self deprecated: 'Use #browseClassHierarchy instead'. + self browseClassHierarchy.! Item was added: + ----- Method: MCCodeTool>>classHierarchy (in category '*60Deprecated-menus') ----- + classHierarchy + + self deprecated: 'Use #browseClassHierarchy instead'. + self browseClassHierarchy.! Item was changed: ----- Method: ObjectExplorer>>classHierarchy (in category '*60Deprecated-Tools') ----- classHierarchy - "Create and schedule a class list browser on the receiver's hierarchy." self deprecated: 'Use #browseClassHierarchy instead'. + self browseClassHierarchy.! - self browseClassHierarchy - ! Item was added: + ----- Method: StringHolder>>classHierarchy (in category '*60Deprecated-Tools') ----- + classHierarchy + + self deprecated: 'Use #browseClassHierarchy instead'. + self browseClassHierarchy.!

1 0

The Trunk: Tools-mt.955.mcz
by commits＠source.squeak.org 05 Mar '20

05 Mar '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.955.mcz ==================== Summary ==================== Name: Tools-mt.955 Author: mt Time: 5 March 2020, 3:19:50.650454 pm UUID: c6edc6b3-361b-1c40-ba50-686fe7cb3e3d Ancestors: Tools-mt.954 Complete the "#classHierarchy -> #browseClassHierarchy" rename-method refactoring, which was started in 2018 for the ObjectExplorer. =============== Diff against Tools-mt.954 =============== Item was added: + ----- Method: Browser>>browseClassHierarchy (in category 'multi-window support') ----- + browseClassHierarchy + "Overridden to consider multi-window state and hierarchy browser." + + | behavior newBrowser | + (behavior := self selectedClassOrMetaClass) isNil ifTrue: + [^self]. + + (self isPackage "PackageBrowser panes can't support a hierarchy browser; not sure why." + or: [self multiWindowState isNil]) ifTrue: + [^super browseClassHierarchy]. + + (newBrowser := HierarchyBrowser new initHierarchyForClass: behavior) + selectMessageCategoryNamed: self selectedMessageCategoryName; + selectMessageNamed: self selectedMessageName; + editSelection: editSelection. + + self multiWindowState addWindow: newBrowser! Item was removed: - ----- Method: Browser>>classHierarchy (in category 'multi-window support') ----- - classHierarchy - | behavior newBrowser | - (behavior := self selectedClassOrMetaClass) isNil ifTrue: - [^self]. - - (self isPackage "PackageBrowser pains can't support a hierarchy browser; not sure why." - or: [self multiWindowState isNil]) ifTrue: - [^super classHierarchy]. - - (newBrowser := HierarchyBrowser new initHierarchyForClass: behavior) - selectMessageCategoryNamed: self selectedMessageCategoryName; - selectMessageNamed: self selectedMessageName; - editSelection: editSelection. - - self multiWindowState addWindow: newBrowser - ! Item was changed: ----- Method: Browser>>mainMessageListMenu: (in category 'message functions') ----- mainMessageListMenu: aMenu <messageListMenuShifted: false> ^ aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) + ('browse hierarchy (h)' browseClassHierarchy) - ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('explore method' exploreMethod) ('inspect method' inspectMethod)); yourself ! Item was changed: ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') ----- 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]. 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]. "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 == $h ifTrue: [^ self classHierarchy]. 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>>optionalButtonPairs (in category 'controls') ----- optionalButtonPairs "Answer a tuple (formerly pairs) defining buttons, in the format: button label selector to send help message" | aList | aList := #( ('browse' browseMethodFull 'view this method in a browser') ('senders' browseSendersOfMessages 'browse senders of...') ('implementors' browseMessages 'browse implementors of...') ('versions' browseVersions 'browse versions')), (Preferences decorateBrowserButtons ifTrue: [{#('inheritance' methodHierarchy 'browse method inheritance green: sends to super tan: has override(s) mauve: both of the above pink: is an override but doesn''t call super pinkish tan: has override(s), also is an override but doesn''t call super' )}] ifFalse: [{#('inheritance' methodHierarchy 'browse method inheritance')}]), #( + ('hierarchy' browseClassHierarchy 'browse class hierarchy') - ('hierarchy' classHierarchy 'browse class hierarchy') ('vars' browseVariableReferences 'references...')). ^ aList! Item was added: + ----- Method: Debugger>>browseClassHierarchy (in category 'toolbuilder') ----- + browseClassHierarchy + "Create and schedule a class list browser on the receiver's hierarchy." + + (self selectedMessageName = #doesNotUnderstand: and: [ self selectedClassOrMetaClass = Object ]) + ifTrue: + [ self systemNavigation + spawnHierarchyForClass: self receiverClass + selector: self selectedMessageName ] + ifFalse: [ super browseClassHierarchy ]! Item was removed: - ----- Method: Debugger>>classHierarchy (in category 'toolbuilder') ----- - classHierarchy - "Create and schedule a class list browser on the receiver's hierarchy." - (self selectedMessageName = #doesNotUnderstand: and: [ self selectedClassOrMetaClass = Object ]) - ifTrue: - [ self systemNavigation - spawnHierarchyForClass: self receiverClass - selector: self selectedMessageName ] - ifFalse: [ super classHierarchy ]! Item was changed: ----- Method: Debugger>>shiftedContextStackMenu: (in category 'context stack menu') ----- shiftedContextStackMenu: aMenu "Set up the menu appropriately for the context-stack-list, shifted" <contextStackMenuShifted: true> ^ aMenu addList: #( + ('browse class hierarchy' browseClassHierarchy) - ('browse class hierarchy' classHierarchy) ('browse class' browseClass) ('implementors of sent messages' browseAllMessages) ('change sets with this method' findMethodInChangeSets) - ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances) - ('revert to previous version' revertToPreviousVersion) ('remove from current change set' removeFromCurrentChanges) ('revert & remove from changes' revertAndForget)); yourself ! Item was changed: ----- Method: Inspector>>inspectorKey:from: (in category 'menu commands') ----- inspectorKey: aChar from: view "Respond to a Command key issued while the cursor is over my field list" aChar == $i ifTrue: [^ self selection inspect]. aChar == $I ifTrue: [^ self selection explore]. aChar == $b ifTrue: [^ self browseClass]. + aChar == $h ifTrue: [^ self browseClassHierarchy]. - aChar == $h ifTrue: [^ self classHierarchy]. aChar == $c ifTrue: [^ self copyName]. aChar == $p ifTrue: [^ self browseFullProtocol]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $t ifTrue: [^ self tearOffTile]. aChar == $v ifTrue: [^ self viewerForValue]. ^ self arrowKey: aChar from: view! Item was changed: ----- Method: Inspector>>mainFieldListMenu: (in category 'menu commands') ----- mainFieldListMenu: aMenu "Arm the supplied menu with items for the field-list of the receiver" <fieldListMenu> "gets overriden by subclasses, _whithout_ the <fieldListMenu>" aMenu addStayUpItemSpecial. aMenu addList: #( ('inspect (i)' inspectSelection) ('explore (I)' exploreSelection)). self addCollectionItemsTo: aMenu. aMenu addList: #( - ('method refs to this inst var' referencesToSelection) ('methods storing into this inst var' defsOfSelection) ('objects pointing to this value' objectReferencesToSelection) ('chase pointers' chasePointers) ('explore pointers' explorePointers) - ('browse full (b)' browseClass) + ('browse hierarchy (h)' browseClassHierarchy) - ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('copy name (c)' copyName) ('basic inspect' inspectBasic)). Smalltalk isMorphic ifTrue: [aMenu addList: #( - ('tile for this value (t)' tearOffTile) ('viewer for this value (v)' viewerForValue))]. ^ aMenu " - ('alias for this value' aliasForValue) ('watcher for this slot' watcherForSlot)" ! Item was changed: ----- Method: MessageSet>>mainMessageListMenu: (in category 'message list') ----- mainMessageListMenu: aMenu "Answer the message-list menu" <messageListMenuShifted: false> aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) + ('browse hierarchy (h)' browseClassHierarchy) - ('browse hierarchy (h)' classHierarchy) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector) ('copy reference (C)' copyReference) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) ('explore method' exploreMethod) ('inspect method' inspectMethod)). ^ aMenu! Item was changed: ----- Method: ObjectExplorer>>browseClassHierarchy (in category 'menus - actions') ----- browseClassHierarchy "Create and schedule a class list browser on the receiver's hierarchy." self systemNavigation spawnHierarchyForClass: self selectedClass + selector: nil.! - selector: nil - ! Item was added: + ----- Method: StringHolder>>browseClassHierarchy (in category '*Tools') ----- + browseClassHierarchy + "Create and schedule a class list browser on the receiver's hierarchy." + + self systemNavigation + spawnHierarchyForClass: self selectedClassOrMetaClass "OK if nil" + selector: self selectedMessageName! Item was removed: - ----- Method: StringHolder>>classHierarchy (in category '*Tools') ----- - classHierarchy - "Create and schedule a class list browser on the receiver's hierarchy." - - self systemNavigation - spawnHierarchyForClass: self selectedClassOrMetaClass "OK if nil" - selector: self selectedMessageName - ! 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]. 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" (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 == $h ifTrue: [^ self classHierarchy]. 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

← Newer
1
...
4
5
6
7
8
9
10
...
14
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 March 2020