tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.769.mcz
==================== Summary ====================
Name: Tools-tpr.769 Author: tpr Time: 22 October 2017, 3:53:05.953495 pm UUID: 0879078d-c9fe-4863-814e-dd459c06d9ea Ancestors: Tools-dtl.768
Changes to clean up creation and construction of Browsers. All Browsers can now be made with ToolBuilder open: BrowserClassOfMyChoice except for FileContentsBrowser, which requires setup that doesn't really work as a default thing.
=============== Diff against Tools-dtl.768 ===============
Item was changed: ----- Method: Browser class>>fullOnClass: (in category 'instance creation') ----- fullOnClass: aClass "Open a new full browser set to class." + "Browser fullOnClass: Browser"
+ ^ self new - ^ self - openBrowserView: (self new setClass: aClass; + buildAndOpenFullBrowser! - openEditString: nil) - label: nil!
Item was changed: ----- Method: Browser class>>fullOnClass:category: (in category 'instance creation') ----- fullOnClass: aClass category: category + "Open a new full browser set to class and message category." + "Browser fullOnClass: Browser category: 'controls' "
+ ^ self new - ^ self - openBrowserView: (self new setClass: aClass; selectMessageCategoryNamed: category; + buildAndOpenFullBrowser! - openEditString: nil) - label: nil!
Item was changed: ----- Method: Browser class>>fullOnClass:selector: (in category 'instance creation') ----- fullOnClass: aClass selector: aSelector + "Open a new full browser set to the class and selector." + "Browser fullOnClass: Browser selector: #defaultWindowColor" - "Open a new full browser set to class."
+ ^ self new - ^ self - openBrowserView: (self new setClass: aClass selector: aSelector; + buildAndOpenFullBrowser! - openEditString: nil) - label: nil!
Item was changed: ----- Method: Browser class>>newOnCategory: (in category 'instance creation') ----- newOnCategory: aCategory + "Open a new browser on this category" - "Browse the system category of the given name. 7/13/96 sw"
+ "Browser newOnCategory: 'Tools-Browser'" - "Browser newOnCategory: 'Interface-Browser'"
+ ^self newOnCategory: aCategory label: 'Classes in category ', aCategory - | newBrowser newCat | - newBrowser := self new.. - newCat := aCategory asSymbol. - (newBrowser systemCategoryList includes: newCat) - ifTrue: [ newBrowser selectSystemCategory: newCat ] - ifFalse: [ ^ self inform: 'No such category' ]. - - ^ self - openBrowserView: (newBrowser openSystemCatEditString: nil) - label: 'Classes in category ', aCategory !
Item was added: + ----- Method: Browser class>>newOnCategory:editString:label: (in category 'instance creation') ----- + newOnCategory: aCategory editString: aString label: aLabel + "Open a new browser on this category (testing first for existence) with aString pre-selected in the code pane. + We have to be a bit sneaky to do the string insertion since it cannot be handled until after the actual browser is built and opened" + + "Browser newOnCategory: 'Tools-Browser' editString: 'test string edit setup' label: 'Testing category browser with set edit string'" + + | newBrowser | + newBrowser := self newOnCategory: aCategory label: aLabel. + aString ifNotNil:[newBrowser changed: #editString with: aString]. + ^ newBrowser + + !
Item was added: + ----- Method: Browser class>>newOnCategory:label: (in category 'instance creation') ----- + newOnCategory: aCategory label: aLabel + "Open a new browser on this category (testing first for existence)." + + "Browser newOnCategory: 'Tools-Browser' label: 'Testing category browser'" + + | newBrowser newCat | + newBrowser := self new. + newCat := aCategory asSymbol. + (newBrowser systemCategoryList includes: newCat) + ifTrue: [ newBrowser selectSystemCategory: newCat ] + ifFalse: [ ^ self inform: 'No such category' ]. + + newBrowser buildAndOpenCategoryBrowserLabel: aLabel. + ^ newBrowser + + !
Item was added: + ----- Method: Browser class>>newOnClass:editString:label: (in category 'instance creation') ----- + newOnClass: aClass editString: aString label: aLabel + "Open a new class browser on this class with aString pre-selected in the code pane. + We have to be a bit sneaky to do the string insertion since it cannot be handled until after the actual browser is built and opened" + "Browser newOnClass: Browser editString: 'test string edit setup' label: 'Testing category browser with set edit string'" + | newBrowser| + + newBrowser := self newOnClass: aClass label: aLabel. + newBrowser editSelection: #newMessage. + aString ifNotNil:[newBrowser changed: #editString with: aString]. + ^ newBrowser + !
Item was changed: ----- Method: Browser class>>newOnClass:label: (in category 'instance creation') ----- newOnClass: aClass label: aLabel + "Open a new class browser on this class and set the label." + "Browser newOnClass: Browser label: 'A specific label that I want'" - "Open a new class browser on this class." | newBrowser |
newBrowser := self new. newBrowser setClass: aClass. + ^ newBrowser buildAndOpenClassBrowserLabel: aLabel - ^ self - openBrowserView: (newBrowser openOnClassWithEditString: nil) - label: aLabel !
Item was added: + ----- Method: Browser class>>newOnClass:messageCategory: (in category 'instance creation') ----- + newOnClass: aClass messageCategory: aCategory + + ^ self newOnClass: aClass messageCategory: aCategory editString: nil label: 'Message Category Browser (' , aClass name, ')'.!
Item was added: + ----- Method: Browser class>>newOnClass:messageCategory:editString:label: (in category 'instance creation') ----- + newOnClass: aClass messageCategory: aCategory editString: aString label: aLabel + "Open a new message protocol browser on this class & protocol with aString pre-selected in the code pane. + We have to be a bit sneaky to do the string insertion since it cannot be handled until after the actual browser is built and opened" + + ^self newOnClass: aClass messageCategory: aCategory selector: nil editString: aString label: aLabel!
Item was added: + ----- Method: Browser class>>newOnClass:messageCategory:selector:editString:label: (in category 'instance creation') ----- + newOnClass: aClass messageCategory: aCategory selector: aSelector editString: aString label: aLabel + "Open a new message protocol browser on this class & protocol with aString pre-selected in the code pane. + We have to be a bit sneaky to do the string insertion since it cannot be handled until after the actual browser is built and opened" + "Browser newOnClass: Browser messageCategory: 'controls' selector: #decorateButtons editString: 'test string edit setup' label: 'Testing class browser with set edit string'" + | newBrowser| + + newBrowser := self new. + "setting up a new browser for a specific class, category and selector requires this order of messages + since the #selectMessageCategoryNamed: carefully nils the chosen selector; thus we can't use + the more obvious seeming #setClass:selector: method" + newBrowser setClass: aClass; + selectMessageCategoryNamed: aCategory; + selectMessageNamed: aSelector. + + newBrowser buildAndOpenMessageCategoryBrowserLabel: 'Message Category Browser (' , aClass name, ')'. + aString ifNotNil:[newBrowser changed: #editString with: aString]. + ^newBrowser!
Item was changed: ----- Method: Browser class>>newOnClass:selector: (in category 'instance creation') ----- newOnClass: aClass selector: aSymbol "Open a new class browser on this class." + "Browser newOnClass: Browser selector: #decorateButtons" | newBrowser |
newBrowser := self new. newBrowser setClass: aClass selector: aSymbol. + ^ newBrowser buildAndOpenClassBrowserLabel: 'Class Browser: ', aClass name - ^ self - openBrowserView: (newBrowser openOnClassWithEditString: nil) - label: 'Class Browser: ', aClass name !
Item was removed: - ----- Method: Browser class>>newOnMessageCategory:inClass: (in category 'instance creation') ----- - newOnMessageCategory: aCategory inClass: aClass - - ^ self - openBrowserView: (self new - setClass: aClass; - selectMessageCategoryNamed: aCategory; - openMessageCatEditString: nil) - label: 'Message Category Browser (' , aClass name, ')'.!
Item was changed: ----- Method: Browser class>>openBrowser (in category 'instance creation') ----- openBrowser + "Open a standard system browser with the generic category/class/protocol/message lists" + "Browser openBrowser" - "Create and schedule a BrowserView with default browser label. The - view consists of five subviews, starting with the list view of system - categories of SystemOrganization. The initial text view part is empty."
+ ^ self new buildAndOpenFullBrowser - | br | - br := self new. - ^ self - openBrowserView: (br openEditString: nil) - label: br defaultBrowserTitle.
!
Item was removed: - ----- Method: Browser class>>openBrowserView:label: (in category 'instance creation') ----- - openBrowserView: aBrowserView label: aString - "Schedule aBrowserView, labelling the view aString." - - (aBrowserView isKindOf: ToolBuilderSpec) - ifTrue:[ - (self canUseMultiWindowBrowsers - and: [self useMultiWindowBrowsers]) - ifTrue: [aBrowserView multiWindowStyle: #labelButton]. - aString - ifNil: [ToolBuilder open: aBrowserView] - ifNotNil: [ToolBuilder open: aBrowserView label: aString]] - ifFalse:[ - aBrowserView isMorph - ifTrue: [ - aString ifNotNil: [aBrowserView setLabel: aString]. - aBrowserView openInWorld] - ifFalse: [ - aString ifNotNil: [aBrowserView label: aString]. - aBrowserView minimumSize: 300 @ 200. - aBrowserView subViews do: [:each | each controller]. - aBrowserView controller open]]. - - ^ aBrowserView model - !
Item was changed: ----- Method: Browser class>>prototypicalToolWindow (in category 'instance creation') ----- prototypicalToolWindow "Answer an example of myself seen in a tool window, for the benefit of parts-launching tools"
+ ^ ToolBuilder default build: self ! - | aWindow | - aWindow := self new openEditString: nil. - ^ ToolBuilder build: aWindow!
Item was changed: ----- Method: Browser>>browseAllClasses (in category 'system category functions') ----- browseAllClasses "Create and schedule a new browser on all classes alphabetically." + + ^ClassListBrowser newOnAllClasses! - | newBrowser | - newBrowser := HierarchyBrowser new initAlphabeticListing. - self class openBrowserView: (newBrowser openSystemCatEditString: nil) - label: 'All Classes Alphabetically'!
Item was added: + ----- Method: Browser>>buildAndOpenCategoryBrowser (in category 'toolbuilder') ----- + buildAndOpenCategoryBrowser + "assemble the spec for a system category browser, build it and open it - use the default label" + + ^self buildAndOpenCategoryBrowserLabel: nil + !
Item was added: + ----- Method: Browser>>buildAndOpenCategoryBrowserLabel: (in category 'toolbuilder') ----- + buildAndOpenCategoryBrowserLabel: aLabelString + "assemble the spec for a system category browser, build it and open it" + + | builder windowSpec | + builder := ToolBuilder default. + + windowSpec := self buildCategoryBrowserWith: builder. + aLabelString ifNotNil:[:str| windowSpec label: str]. + + builder open: windowSpec. + + ^self + !
Item was added: + ----- Method: Browser>>buildAndOpenClassBrowserLabel: (in category 'toolbuilder') ----- + buildAndOpenClassBrowserLabel: aLabelString + "assemble the spec for a class browser, build it and open it" + + | builder max windowSpec catPaneHeight| + builder := ToolBuilder default. + catPaneHeight := Preferences standardListFont height + 5 "top margin/border" + 5 "bottom margin/border". + max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. + + windowSpec :=self buildWindowWith: builder specs: { + (self topConstantHeightFrame: self buttonHeight fromLeft: 0 width: 0.5) -> [self buildClassListSingletonWith: builder]. + (self frameOffsetFromTop: self buttonHeight fromLeft: 0 width: 0.5 bottomFraction: max) -> [self buildMessageCategoryListWith: builder]. + (self topConstantHeightFrame: self buttonHeight fromLeft: 0.5 width: 0.5) -> [self buildSwitchesWith: builder]. + (self frameOffsetFromTop: self buttonHeight fromLeft: 0.5 width: 0.5 bottomFraction: max) -> [self buildMessageListWith: builder]. + (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. + }. + self setMultiWindowFor:windowSpec. + windowSpec label: aLabelString. + + builder open: windowSpec. + + ^self + !
Item was added: + ----- Method: Browser>>buildAndOpenFullBrowser (in category 'toolbuilder') ----- + buildAndOpenFullBrowser + "assemble the spec for a full system browser, build it and open it" + + | builder windowSpec | + builder := ToolBuilder default. + + "the build-but-don't-open phase is factored out to support the prototypicalToolWindow facility" + windowSpec := self buildDefaultBrowserWith: builder. + builder open: windowSpec. + + ^self + !
Item was added: + ----- Method: Browser>>buildAndOpenMessageCategoryBrowserLabel: (in category 'toolbuilder') ----- + buildAndOpenMessageCategoryBrowserLabel: aLabelString + "assemble the spec for a messasge category browser, build it and open it" + + | builder max windowSpec| + builder := ToolBuilder default. + max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. + + windowSpec :=self buildWindowWith: builder specs: { + (0@0 corner: 1.0@0.08) -> [self buildMessageListCatSingletonWith: builder]. + (0.0@0.08 corner: 1.0@max) -> [self buildMessageListWith: builder]. + (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. + }. + self setMultiWindowFor:windowSpec. + windowSpec label: aLabelString. + + builder open: windowSpec. + + ^self + !
Item was added: + ----- Method: Browser>>buildCategoryBrowserWith: (in category 'toolbuilder') ----- + buildCategoryBrowserWith: builder + "assemble the spec for a system category browser, build it and return it" + + | max windowSpec catPaneHeight| + catPaneHeight := Preferences standardListFont height + 5 "top margin/border" + 5 "bottom margin/border". + max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. + + windowSpec := self buildWindowWith: builder specs: { + (LayoutFrame fractions: (0@0 corner: 1.0@0) offsets: (0@0 corner: 0@catPaneHeight)) -> [self buildSystemCatListSingletonWith: builder]. + ((self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333) + topOffset: catPaneHeight) -> [self buildClassListWith: builder]. + (self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder]. + (LayoutFrame fractions: (0.333@0 corner: 0.666@max) offsets: (0@catPaneHeight corner: 0@0)) -> [self buildMessageCategoryListWith: builder]. + (LayoutFrame fractions: (0.666@0 corner: 1@max) offsets: (0@catPaneHeight corner: 0@0)) -> [self buildMessageListWith: builder]. + (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. + }. + self setMultiWindowFor:windowSpec. + + ^builder build: windowSpec + !
Item was added: + ----- Method: Browser>>buildDefaultBrowserWith: (in category 'toolbuilder') ----- + buildDefaultBrowserWith: builder + "assemble the spec for a full system browser, build it and return the built but not opened morph" + "this build-but-don't-open phase is factored out to support the prototypicalToolWindow facility" + + | max windowSpec | + max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. + + windowSpec := self buildWindowWith: builder specs: { + (0@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder]. + (self classListFrame: max) -> [self buildClassListWith: builder]. + (self switchesFrame: max) -> [self buildSwitchesWith: builder]. + (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. + (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. + (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. + }. + self setMultiWindowFor:windowSpec. + + ^builder build: windowSpec!
Item was changed: ----- Method: Browser>>buildMessageCategoryBrowserEditString: (in category 'message category functions') ----- buildMessageCategoryBrowserEditString: aString + "Create and schedule a new class browser for the current selection, + with initial textual contents set to aString. This is used specifically in + spawning where a class is established but a method-category is not." + ^ self hasMessageCategorySelected ifTrue: [Browser + newOnClass: self selectedClassOrMetaClass + messageCategory: self selectedMessageCategoryName + selector: self selectedMessageName + editString: aString + label: 'Message category Browser: ' , self selectedClassOrMetaClass name , self categoryOfCurrentMethod]! - "Create and schedule a message category browser for the currently - selected message category. The initial text view contains the characters - in aString." - - ^ self hasMessageCategorySelected ifTrue: [ - (self class - newOnMessageCategory: self selectedMessageCategoryName - inClass: self selectedClassOrMetaClass) - "Select my message." - selectMessageNamed: self selectedMessageName; - yourself]!
Item was changed: ----- Method: Browser>>buildSystemCategoryBrowser (in category 'system category functions') ----- buildSystemCategoryBrowser + "Open a new system category browser on the selelcted category, if there is one" - "Create and schedule a new system category browser."
+ self hasSystemCategorySelected + ifTrue: + [self class newOnCategory: self selectedSystemCategory]! - self buildSystemCategoryBrowserEditString: nil!
Item was changed: ----- Method: Browser>>buildSystemCategoryBrowserEditString: (in category 'system category functions') ----- buildSystemCategoryBrowserEditString: aString + "Open a new system category browser on the selelcted category, if + there is one" - "Create and schedule a new system category browser with initial textual - contents set to aString." - - | newBrowser | self hasSystemCategorySelected + ifTrue: [self class + newOnCategory: self selectedSystemCategory + editString: aString + label: 'Classes in category ' , self selectedSystemCategory]! - ifTrue: - [newBrowser := self class new. - newBrowser selectSystemCategory: self selectedSystemCategory. - newBrowser setClass: self selectedClassOrMetaClass selector: self selectedMessageName. - self class openBrowserView: (newBrowser openSystemCatEditString: aString) - label: 'Classes in category ', newBrowser selectedSystemCategory]!
Item was changed: ----- Method: Browser>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" + "Browser is a bit of an oddity in the ToolBuilder>build: world since the class provides several dfferent UIs rather than the one-per-class idiom of ToolBuilder. Here we are building the full browser version" + + ^self buildDefaultBrowserWith: builder ! - | windowSpec max | - max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. - windowSpec := self buildWindowWith: builder specs: { - (0@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder]. - (self classListFrame: max fromLeft: 0.25 width: 0.25) -> [self buildClassListWith: builder]. - (self switchesFrame: max fromLeft: 0.25 width: 0.25) -> [self buildSwitchesWith: builder]. - (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. - (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - }. - ^builder build: windowSpec!
Item was removed: - ----- Method: Browser>>openEditString: (in category 'initialize-release') ----- - openEditString: aString - "Create a pluggable version of all the views for a Browser, including views and controllers." - "Example: - Browser fullOnClass: Browser. - " - | builder max | - builder := ToolBuilder default. - max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. - ^self buildWindowWith: builder specs: { - (0@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder]. - (self classListFrame: max) -> [self buildClassListWith: builder]. - (self switchesFrame: max) -> [self buildSwitchesWith: builder]. - (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. - (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. - "(0@max corner: 1@0.5) -> [self buildOptionalButtonsWith: builder]." - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - }!
Item was removed: - ----- Method: Browser>>openMessageCatEditString: (in category 'initialize-release') ----- - openMessageCatEditString: aString - "Create a pluggable version of the views for a Browser that just shows one message category." - "Example: - Preferences browseThemes. - " - | builder max | - aString ifNotNil:[ - "Note: The views aren't actually built yet after we've called buildWindowWith:. - Since we can't send changed: #editString before the views have been built - we just shoot the #changed: message into the #future. This is the easiest - way to solve this issue locally." - self future changed: #editString with: aString]. - builder := ToolBuilder default. - max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. - ^self buildWindowWith: builder specs: { - (0@0 corner: 1.0@0.08) -> [self buildMessageListCatSingletonWith: builder]. - (0.0@0.08 corner: 1.0@max) -> [self buildMessageListWith: builder]. - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - }.!
Item was removed: - ----- Method: Browser>>openOnClassWithEditString: (in category 'initialize-release') ----- - openOnClassWithEditString: aString - "Create a pluggable version of all the views for a Browser, including views and controllers." - "Example: - Browser newOnClass: Browser. - " - | builder max | - builder := ToolBuilder default. - max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. - ^self buildWindowWith: builder specs: { - (self topConstantHeightFrame: self buttonHeight fromLeft: 0 width: 0.5) -> [self buildClassListSingletonWith: builder]. - (self frameOffsetFromTop: self buttonHeight fromLeft: 0 width: 0.5 bottomFraction: max) -> [self buildMessageCategoryListWith: builder]. - (self topConstantHeightFrame: self buttonHeight fromLeft: 0.5 width: 0.5) -> [self buildSwitchesWith: builder]. - (self frameOffsetFromTop: self buttonHeight fromLeft: 0.5 width: 0.5 bottomFraction: max) -> [self buildMessageListWith: builder]. - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - } - !
Item was removed: - ----- Method: Browser>>openSystemCatEditString: (in category 'initialize-release') ----- - openSystemCatEditString: aString - "Create a pluggable version of all the views for a Browser, including views and controllers. The top list view is of the currently selected system class category--a single item list." - "Example: - Browser new browseAllClasses. - " - | builder catPaneHeight max | - catPaneHeight := Preferences standardListFont height + 5 "top margin/border" + 5 "bottom margin/border". - builder := ToolBuilder default. - max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. - ^self buildWindowWith: builder specs: { - (LayoutFrame fractions: (0@0 corner: 1.0@0) offsets: (0@0 corner: 0@catPaneHeight)) -> [self buildSystemCatListSingletonWith: builder]. - ((self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333) - topOffset: catPaneHeight) -> [self buildClassListWith: builder]. - (self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder]. - (LayoutFrame fractions: (0.333@0 corner: 0.666@max) offsets: (0@catPaneHeight corner: 0@0)) -> [self buildMessageCategoryListWith: builder]. - (LayoutFrame fractions: (0.666@0 corner: 1@max) offsets: (0@catPaneHeight corner: 0@0)) -> [self buildMessageListWith: builder]. - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - }!
Item was added: + ----- Method: Browser>>setMultiWindowFor: (in category 'toolbuilder') ----- + setMultiWindowFor: windowSpec + "set the multi-window style for the windowSpec according to both the users preference and the browser's ability" + (self class canUseMultiWindowBrowsers and: [self class useMultiWindowBrowsers]) + ifTrue: [windowSpec multiWindowStyle: #labelButton]. + + !
Item was changed: ----- Method: Browser>>setSelector: (in category 'initialize-release') ----- setSelector: aSymbol + "Make the receiver point at the given selector, in the currently chosen class. If the selector is found in the class organization we also set the message category to suit" - "Make the receiver point at the given selector, in the currently chosen class"
| aClass | aSymbol ifNil: [^ self]. (aClass := self selectedClassOrMetaClass) ifNil: [^ self]. (aClass organization categoryOfElement: aSymbol) ifNil: [^ self] ifNotNil: [:category | self selectMessageCategoryNamed: category; selectMessageNamed: aSymbol].!
Item was changed: ----- Method: Browser>>spawn: (in category 'accessing') ----- spawn: aString "Create and schedule a fresh browser and place aString in its code pane. This method is called when the user issues the #spawn command (cmd-o) in any code pane. Whatever text was in the original code pane comes in to this method as the aString argument; the changes in the original code pane have already been cancelled by the time this method is called, so aString is the only copy of what the user had in his code pane."
self selectedClassOrMetaClass ifNotNil: [^ super spawn: aString].
self hasSystemCategorySelected ifTrue: + ["Open a browser with the initial codepane string set" - ["This choice is slightly useless but is the historical implementation" ^ self buildSystemCategoryBrowserEditString: aString]. ^ super spawn: aString "This bail-out at least saves the text being spawned, which would otherwise be lost"!
Item was changed: HierarchyBrowser subclass: #ClassListBrowser instanceVariableNames: 'defaultTitle' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'!
+ !ClassListBrowser commentStamp: 'tpr 10/15/2017 16:46' prior: 0! - !ClassListBrowser commentStamp: '<historical>' prior: 0! A ClassListBrowser displays the code for an arbitrary list of classes.
ClassListBrowser example1. "all classes that have the string 'Pluggable' in their names" ClassListBrowser example2. "all classes whose names start with the letter S" ClassListBrowser example3. "all variable classes" ClassListBrowser example4. "all classes with more than 100 methods" ClassListBrowser example5. "all classes that lack class comments" ClassListBrowser example6. "all classes that have class instance variables"
+ ClassListBrowser newOnClassesNamed: #(Browser Boolean) label: 'Browser and Boolean!!'. + ClassListBrowser newOnAllClasses "all classes listed alphabetically" - ClassListBrowser new initForClassesNamed: #(Browser Boolean) title: 'Browser and Boolean!!'. !
Item was changed: ----- Method: ClassListBrowser class>>browseClassesSatisfying:title: (in category 'instance creation') ----- browseClassesSatisfying: classBlock title: aTitle "Put up a ClassListBrowser showing all classes that satisfy the classBlock."
+ self newOnClassesNamed: + (self systemNavigation allClasses select: [:c | (classBlock value: c) == true] + thenCollect: [:c | c name]) + label: aTitle! - self new - initForClassesNamed: - (self systemNavigation allClasses select: - [:c | (classBlock value: c) == true] - thenCollect: - [:c | c name]) - title: - aTitle!
Item was changed: ----- Method: ClassListBrowser class>>example2 (in category 'examples') ----- example2 "Put up a ClassListBrowser that shows all classes whose names start with the letter S"
+ self newOnClassesNamed: (self systemNavigation allClasses - self new - initForClassesNamed: (self systemNavigation allClasses collect: [:c | c name] thenSelect: [:aName | aName first == $S]) + label: 'All classes starting with S' - title: 'All classes starting with S' "ClassListBrowser example2"!
Item was added: + ----- Method: ClassListBrowser class>>newOnAllClasses (in category 'instance creation') ----- + newOnAllClasses + "Open a browser on all the classes in the system, listed alphabetically" + "NB - what meaning does 'all classes' have in an environment that is not the root? + - what might alphabetic ordering need to do for non-latin languages?" + "ClassListBrowser newOnAllClasses" + + | newBrowser | + + newBrowser := self new. + ^ newBrowser buildAndOpenBrowserLabel: 'All Classes Alphabetically' + !
Item was added: + ----- Method: ClassListBrowser class>>newOnClassesNamed:label: (in category 'instance creation') ----- + newOnClassesNamed: aListOfClassNames label: aString + "Open a browser on all the classes in the list, set the label to aString since we may need to specify to the user what the list includes" + "ClassListBrowser newOnClassesNamed: #(Browser Boolean) label: 'Browser and Boolean!!'." + | newBrowser | + + newBrowser := self new. + newBrowser initForClassesNamed: aListOfClassNames. + ^ newBrowser buildAndOpenBrowserLabel: aString + !
Item was added: + ----- Method: ClassListBrowser>>defaultBrowserTitle (in category 'initialization') ----- + defaultBrowserTitle + ^ 'Class List Browser' !
Item was added: + ----- Method: ClassListBrowser>>initAlphabeticListing (in category 'initialization') ----- + initAlphabeticListing + | tab stab index | + self systemOrganizer: SystemOrganization. + metaClassIndicated := false. + classDisplayList := Smalltalk classNames.!
Item was added: + ----- Method: ClassListBrowser>>initForClassesNamed: (in category 'initialization') ----- + initForClassesNamed: nameList + "Initialize the receiver for the class-name-list" + + self systemOrganizer: SystemOrganization. + metaClassIndicated := false. + classDisplayList := nameList copy!
Item was removed: - ----- Method: ClassListBrowser>>initForClassesNamed:title: (in category 'initialization') ----- - initForClassesNamed: nameList title: aTitle - "Initialize the receiver for the class-name-list and title provided" - - self systemOrganizer: SystemOrganization. - metaClassIndicated := false. - defaultTitle := aTitle. - classDisplayList := nameList copy. - self class openBrowserView: (self openSystemCatEditString: nil) - label: aTitle - - "ClassListBrowser new initForClassesNamed: #(Browser CategoryViewer) title: 'Frogs'"!
Item was added: + ----- Method: ClassListBrowser>>setupIfNotInitialisedYet (in category 'toolbuilder') ----- + setupIfNotInitialisedYet + "ClassListBrowser needs some initialisation to work in the ToolBuilder>build: world since there has to be a list of classes ready to be listed. As a default we use the full list of classes in the system" + + classDisplayList ifNil:[self initAlphabeticListing]!
Item was changed: ----- Method: CodeHolder>>buildClassBrowserEditString: (in category 'construction') ----- buildClassBrowserEditString: aString "Create and schedule a new class browser for the current selection, with initial textual contents set to aString. This is used specifically in spawning where a class is established but a method-category is not."
+ ^Browser newOnClass: self selectedClassOrMetaClass editString: aString label: 'Class Browser: ', self selectedClassOrMetaClass name - | newBrowser | - newBrowser := Browser new. - newBrowser setClass: self selectedClassOrMetaClass selector: nil. - newBrowser editSelection: #newMessage. - Browser openBrowserView: (newBrowser openOnClassWithEditString: aString) - label: 'Class Browser: ', self selectedClassOrMetaClass name !
Item was added: + ----- Method: CodeHolder>>buildMessageBrowserEditString: (in category 'construction') ----- + buildMessageBrowserEditString: aString + "Create and schedule a new message browser for the current selection, + with initial textual contents set to aString." + ^ Browser + newOnClass: self selectedClassOrMetaClass + messageCategory: self categoryOfCurrentMethod + selector: self selectedMessageName + editString: aString + label: 'Message Browser: ' , self selectedClassOrMetaClass name , self categoryOfCurrentMethod!
Item was added: + ----- Method: CodeHolder>>buildMessageCategoryBrowserForClass:selector:editString: (in category 'construction') ----- + buildMessageCategoryBrowserForClass: aClass selector: aSelectorOrNil editString: aString + "Create and schedule a new class browser for the current selection, + with initial textual contents set to aString. This is used specifically in + spawning where a class is established but a method-category is not." + ^ Browser + newOnClass: aClass + messageCategory: self categoryOfCurrentMethod + selector: aSelectorOrNil + editString: aString + label: 'Message category Browser: ' , self selectedClassOrMetaClass name , self categoryOfCurrentMethod!
Item was changed: ----- Method: CodeHolder>>spawn: (in category 'commands') ----- spawn: aString "Create and schedule a spawned message category browser for the currently selected message category. The initial text view contains the characters in aString. In the spawned browser, preselect the current selector (if any) as the going-in assumption, though upon acceptance this will often change"
+ | aCategory aClass | - | newBrowser aCategory aClass | (aClass := self selectedClassOrMetaClass) isNil ifTrue: [^ aString isEmptyOrNil ifFalse: [(Workspace new contents: aString) openLabel: 'spawned workspace']].
(aCategory := self categoryOfCurrentMethod) ifNil: [self buildClassBrowserEditString: aString] ifNotNil: + [self buildMessageCategoryBrowserForClass: aClass selector: self selectedMessageName editString: aString ]! - [newBrowser := Browser new setClass: aClass selector: self selectedMessageName. - self suggestCategoryToSpawnedBrowser: newBrowser. - ^ Browser openBrowserView: (newBrowser openMessageCatEditString: aString) - label: 'category "', aCategory, '" in ', - newBrowser selectedClassOrMetaClassName]!
Item was changed: ----- Method: CodeHolder>>spawnToClass: (in category 'commands') ----- spawnToClass: aClass "Used to copy down code from a superclass to a subclass in one easy step, if you know what you're doing. Spawns a new message-category browser for the indicated class, populating it with the source code seen in the current tool."
+ self categoryOfCurrentMethod - | aCategory newBrowser org | - (aCategory := self categoryOfCurrentMethod) ifNil: [self buildClassBrowserEditString: self contents] ifNotNil: + [self buildMessageCategoryBrowserForClass: aClass selector: nil editString: self contents]! - [((org := aClass organization) categories includes: aCategory) - ifFalse: [org addCategory: aCategory]. - newBrowser := Browser new setClass: aClass selector: nil. - newBrowser selectMessageCategoryNamed: aCategory. - Browser openBrowserView: (newBrowser openMessageCatEditString: self contents) - label: 'category "', aCategory, '" in ', - newBrowser selectedClassOrMetaClassName]!
Item was changed: ----- Method: FileContentsBrowser class>>browseFiles: (in category 'instance creation') ----- browseFiles: fileList + "Open a browser on the packages found within the files in the list; we expect the list to contain acceptable filename strings. + If there is more than one package found the browser will be a full system browser, otherwise it will be a category browser" - | browser | Cursor wait showWhile: [ | organizer packageDict | packageDict := Dictionary new. organizer := SystemOrganizer defaultList: Array new. fileList do: [:fileName | | package | package := FilePackage fromFileNamed: fileName. packageDict at: package packageName put: package. organizer classifyAll: package classes keys under: package packageName]. (browser := self systemOrganizer: organizer) packages: packageDict]. + ^ browser buildAndOpenBrowser - self - openBrowserView: browser createViews - label: 'File Contents Browser'. !
Item was changed: ----- Method: FileContentsBrowser class>>browseStream: (in category 'instance creation') ----- browseStream: aStream + + aStream setConverterForCode. - aStream setConverterForCode. self browseStream: aStream named: aStream name!
Item was changed: ----- Method: FileContentsBrowser class>>browseStream:named: (in category 'instance creation') ----- browseStream: aStream named: aString + "Read an already opened file stream into a browser" - | browser | Cursor wait showWhile: [ | package packageDict organizer | packageDict := Dictionary new. browser := self new. organizer := SystemOrganizer defaultList: Array new. package := (FilePackage new fullName: aString; fileInFrom: aStream). packageDict at: package packageName put: package. organizer classifyAll: package classes keys under: package packageName. (browser := self systemOrganizer: organizer) packages: packageDict]. + ^ browser buildAndOpenBrowser - self - openBrowserView: browser createViews - label: 'File Contents Browser'. !
Item was added: + ----- Method: FileContentsBrowser>>buildAndOpenBrowser (in category 'toolbuilder') ----- + buildAndOpenBrowser + "assemble the spec for a file contents browser, build it and open it" + "The browser may have either the full 4-pane layout or the simpler 3-pane version, depending on whether we have 1 or more packages to look at" + + contentsSymbol := self defaultDiffsSymbol. "#showDiffs or #prettyDiffs" + + ^ self packages size = 1 + ifTrue:[ + self systemCategoryListIndex: 1. + self buildAndOpenCategoryBrowser] + ifFalse: [self buildAndOpenFullBrowser]!
Item was changed: ----- Method: FileContentsBrowser>>buildWith: (in category 'toolbuilder') ----- buildWith: builder + "Depending upon whether we have a single package or multiple packages, we use different window specs. "
+ self packages ifNil:[^self error: self class name, ' cannot be built without any packages; see class instance creation methods' ]. ^ self packages size = 1 ifTrue:[ + self systemCategoryListIndex: 1; + buildCategoryBrowserWith: builder] - self systemCategoryListIndex: 1. - self openSystemCatEditString: ''] ifFalse: [super buildWith: builder]!
Item was removed: - ----- Method: FileContentsBrowser>>createViews (in category 'creation') ----- - createViews - "Create a pluggable version of all the views for a Browser, including views and controllers." - contentsSymbol := self defaultDiffsSymbol. "#showDiffs or #prettyDiffs" - ^self buildWith: ToolBuilder default!
Item was changed: + ----- Method: FileContentsBrowser>>defaultBrowserTitle (in category 'toolbuilder') ----- - ----- Method: FileContentsBrowser>>defaultBrowserTitle (in category 'initialize-release') ----- defaultBrowserTitle + ^ 'File Contents Browser' ! - ^ 'File Contents Browser'!
Item was added: + ----- Method: HierarchyBrowser class>>openBrowser (in category 'instance creation') ----- + openBrowser + "Open a default hierarchy browser on Object - ie the entire class tree, so it may take a moment - with class/protocol/message lists" + "HierarchyBrowser openBrowser" + | newBrowser | + newBrowser := self new initHierarchyForClass: Object. + ^ newBrowser buildAndOpenBrowserLabel: nil + !
Item was removed: - ----- Method: HierarchyBrowser>>assureSelectionsShow (in category 'class list') ----- - assureSelectionsShow - "This is a workaround for the fact that a hierarchy browser, when launched, often does not show the selected class" - - | saveMsgName saveCatName | - saveCatName := self selectedMessageCategoryName. - saveMsgName := self selectedMessageName. - self selectClassNamed: selectedClassName. - self selectMessageCategoryNamed: saveCatName. - self selectMessageNamed: saveMsgName!
Item was added: + ----- Method: HierarchyBrowser>>buildAndOpenBrowserLabel: (in category 'toolbuilder') ----- + buildAndOpenBrowserLabel: aLabelString + "assemble the spec for a class list/hierarchy browser, build it and open it" + + | builder windowSpec | + builder := ToolBuilder default. + + windowSpec := self buildDefaultBrowserWith: builder. + aLabelString ifNotNil:[:str| windowSpec label: str]. + + builder open: windowSpec. + + ^self + !
Item was changed: ----- Method: HierarchyBrowser>>buildClassBrowserEditString: (in category 'menu messages') ----- buildClassBrowserEditString: aString + "Open a hierarchy browser on the currently selected class; the string has to be ignored in this case" - "Create and schedule a new class browser for the current selection, if one - exists, with initial textual contents set to aString."
self spawnHierarchy!
Item was added: + ----- Method: HierarchyBrowser>>buildDefaultBrowserWith: (in category 'toolbuilder') ----- + buildDefaultBrowserWith: builder + "assemble the spec for a hierarchical browser, build it and return the built but not opened morph" + "this build-but-don't-open phase is factored out to support the prototypicalToolWindow facility" + + | max windowSpec | + + + self setupIfNotInitialisedYet. + max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. + + windowSpec := self buildWindowWith: builder specs: { + (self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333) -> [self buildClassListWith: builder]. + (self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder]. + (LayoutFrame fractions: (0.333@0 corner: 0.666@max) offsets: (0@0 corner: 0@0)) -> [self buildMessageCategoryListWith: builder]. + (LayoutFrame fractions: (0.666@0 corner: 1@max) offsets: (0@0 corner: 0@0)) -> [self buildMessageListWith: builder]. + (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. + }. + self setMultiWindowFor:windowSpec. + + ^builder build: windowSpec!
Item was removed: - ----- Method: HierarchyBrowser>>buildWith: (in category 'toolbuilder') ----- - buildWith: builder - ^builder build: (self openSystemCatEditString: '')!
Item was changed: ----- Method: HierarchyBrowser>>classList (in category 'class list') ----- classList + "each time we update the class list make sure to check that all the classes we think we should display are in fact in the environment" classDisplayList := classDisplayList select: [:each | (self environment valueOf: each withBlanksTrimmed asSymbol) notNil]. ^ classDisplayList!
Item was removed: - ----- Method: HierarchyBrowser>>initAlphabeticListing (in category 'initialization') ----- - initAlphabeticListing - | tab stab index | - self systemOrganizer: SystemOrganization. - metaClassIndicated := false. - classDisplayList := Smalltalk classNames.!
Item was changed: ----- Method: HierarchyBrowser>>isHierarchy (in category 'multi-window support') ----- isHierarchy + "This almost certainly needs implementing in ClassListBrowser to return false" ^true!
Item was removed: - ----- Method: HierarchyBrowser>>openEditString: (in category 'initialization') ----- - openEditString: aString - "Create a pluggable version of all the views for a HierarchyBrowser, including views and controllers. The top list view is of the currently selected system class category--a single item list." - - ^ self openSystemCatEditString: aString!
Item was removed: - ----- Method: HierarchyBrowser>>openSystemCatEditString: (in category 'toolbuilder') ----- - openSystemCatEditString: aString - "Create a pluggable version of all the views for a Browser, including views and controllers. The top list view is of the currently selected system class category--a single item list." - "Example: - Browser new browseAllClasses. - " - | builder catPaneHeight max | - catPaneHeight := Preferences standardListFont height + 5 "top margin/border" + 5 "bottom margin/border". - builder := ToolBuilder default. - max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. - ^self buildWindowWith: builder specs: { - (self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333) -> [self buildClassListWith: builder]. - (self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder]. - (LayoutFrame fractions: (0.333@0 corner: 0.666@max) offsets: (0@0 corner: 0@0)) -> [self buildMessageCategoryListWith: builder]. - (LayoutFrame fractions: (0.666@0 corner: 1@max) offsets: (0@0 corner: 0@0)) -> [self buildMessageListWith: builder]. - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - }!
Item was added: + ----- Method: HierarchyBrowser>>setupIfNotInitialisedYet (in category 'toolbuilder') ----- + setupIfNotInitialisedYet + "HierarchyBrowser needs some initialisation to work in the ToolBuilder>build: world since there has to be a list of classes ready to be listed. As a default we use the full Object class tree" + classDisplayList ifNil:[ self initHierarchyForClass: Object]!
Item was changed: ----- Method: HierarchyBrowser>>systemCatSingletonKey:from: (in category 'menu messages') ----- systemCatSingletonKey: aChar from: aView + "This appears to be obsolete now that the hierarchybrowser has not category view" ^ self systemCatListKey: aChar from: aView!
Item was changed: ----- Method: HierarchyBrowser>>systemCatSingletonMenu: (in category 'menu messages') ----- systemCatSingletonMenu: aMenu + "This appears to be obsolete now that the hierarchybrowser has not category view" - ^ aMenu labels: 'find class... (f) browse printOut fileOut update rename... remove' lines: #(1 4) selections: #(findClass buildSystemCategoryBrowser printOutSystemCategory fileOutSystemCategory updateSystemCategories renameSystemCategory removeSystemCategory ) !
Item was removed: - ----- Method: PackagePaneBrowser class>>prototypicalToolWindow (in category 'instance creation') ----- - prototypicalToolWindow - "Answer an example of myself seen in a tool window, for the benefit of parts-launching tools" - - | aWindow | - aWindow := self new openEditString: nil. - ^ ToolBuilder build: aWindow!
Item was added: + ----- Method: PackagePaneBrowser>>buildDefaultBrowserWith: (in category 'toolbuilder') ----- + buildDefaultBrowserWith: builder + "assemble the spec for a full 5-pane browser - package, category, class, protocol & message lists, build it and return the built but not opened morph. + the build-but-don't-open phase is factored out to support the prototypicalToolWindow facility" + + "PackagePaneBrowser fullOnClass: Browser." + + | max windowSpec | + max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. + windowSpec := self buildWindowWith: builder specs: { + (0@0 corner: 0.15@max) -> [self buildPackageListWith: builder]. + (0.15@0 corner: 0.35@max) -> [self buildSystemCategoryListWith: builder]. + (self classListFrame: max fromLeft: 0.35 width: 0.25) -> [self buildClassListWith: builder]. + (self switchesFrame: max fromLeft: 0.35 width: 0.25) -> [self buildSwitchesWith: builder]. + (0.6@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. + (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. + (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. + }. + self setMultiWindowFor:windowSpec. + + ^builder build: windowSpec!
Item was changed: + ----- Method: PackagePaneBrowser>>buildPackageListWith: (in category 'toolbuilder') ----- - ----- Method: PackagePaneBrowser>>buildPackageListWith: (in category 'initialize-release') ----- buildPackageListWith: builder | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #packageList; getIndex: #packageListIndex; setIndex: #packageListIndex:; menu: #packageMenu:; keyPress: #packageListKey:from:. ^listSpec !
Item was removed: - ----- Method: PackagePaneBrowser>>openEditString: (in category 'initialize-release') ----- - openEditString: aString - "Create a pluggable version of all the views for a Browser, including views and controllers." - "Example: - PackagePaneBrowser fullOnClass: Browser. - " - | builder max | - builder := ToolBuilder default. - max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5]. - ^self buildWindowWith: builder specs: { - (0@0 corner: 0.15@max) -> [self buildPackageListWith: builder]. - (0.15@0 corner: 0.35@max) -> [self buildSystemCategoryListWith: builder]. - (self classListFrame: max fromLeft: 0.35 width: 0.25) -> [self buildClassListWith: builder]. - (self switchesFrame: max fromLeft: 0.35 width: 0.25) -> [self buildSwitchesWith: builder]. - (0.6@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder]. - (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder]. - (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. - }!
Item was changed: StringHolder subclass: #SelectorBrowser instanceVariableNames: 'selectorIndex selectorList classListIndex classList' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'! + + !SelectorBrowser commentStamp: 'tpr 10/15/2017 16:42' prior: 0! + A SelectorBrowser is more commonly referred to as the method finder; you can enter message names or more interestingly, example inputs and results to have the system try to find plausible methods that would satisfy the parameters. See SelectorBrowser>>#byExample for much more detail.!
Item was changed: ----- Method: StandardToolSet class>>browseMessageCategory:inClass: (in category 'browsing') ----- browseMessageCategory: aCategory inClass: aClass "Open a message category browser." ^ SystemBrowser default + newOnClass: aClass messageCategory: aCategory! - newOnMessageCategory: aCategory inClass: aClass.!
Item was changed: ----- Method: StandardToolSet class>>openClassListBrowser:title: (in category 'browsing') ----- openClassListBrowser: anArray title: aString + "Open a class list browser on the list of classes named" + + ^ClassListBrowser newOnClassesNamed: anArray label: aString - "Open a class list browser" - ^ClassListBrowser new initForClassesNamed: anArray title: aString !