Squeak-dev October 2017

squeak-dev@lists.squeakfoundation.org

40 participants
132 discussions

Restoring an Alto
by Ben Coman 23 Oct '17

23 Oct '17

An interesting side story... A Digibarn Xerox Alto arrives for restoration https://www.youtube.com/watch?v=JSPlr4AZsKQ cheers -ben

1 0

MCMcmUpdaters for squeak46 in trunk image?
by Bernhard Pieber 23 Oct '17

23 Oct '17

Dear Squeakers, I was looking at the MCMcmUpdater class trying to find a way to identify the exact place in the update process where the packages get dirty. I wonder how do others debug problems with the update process. I tripped over something strange. In each of the Registry and Updaters class vars there is a reference to an MCMcmUpdater instance for http://source.squeak.org/squeak46 in addition to one for http://source.squeak.org/trunk. Does this have a reason or is this a glitch? Cheers, Bernhard

2 5

The Trunk: ReleaseBuilder-dtl.170.mcz
by commits＠source.squeak.org 23 Oct '17

23 Oct '17

David T. Lewis uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-dtl.170.mcz ==================== Summary ==================== Name: ReleaseBuilder-dtl.170 Author: dtl Time: 22 October 2017, 9:19:52.093743 pm UUID: 31532d3c-8537-4e8e-b924-e27de683d339 Ancestors: ReleaseBuilder-mt.169 Do "MCMcmUpdater clearRegistry" to clear all but the current default updater =============== Diff against ReleaseBuilder-mt.169 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareSourceCode (in category 'preparing') ----- prepareSourceCode "Update code. Remove foreign packages." MCMcmUpdater defaultUpdateURL: self buildRepository description. MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. TestCase new ensureInternetConnectionTo: self buildRepository description. "Flush all caches. If a previous download failed this is often helpful" MCFileBasedRepository flushAllCaches. + "Save the current default updater, clear the registry, and re-register the current updater" + MCMcmUpdater clearRegistry. + [MCMcmUpdater default doUpdate: false. "non-interactive"] on: MCEmptyVersion do: [:warning | warning resume]. self unloadForeignPackages; checkForDirtyPackages; loadWellKnownPackages; checkForUndeclaredSymbols. Compiler recompileAll.!

1 0

"repository editions" is finally permanent!
by Chris Muller 23 Oct '17

23 Oct '17

"repository editions" is finally permanent! This function formerly known as "mc history" appeared in 2013, but was clunky and unreliable and I didn't have time to fix it. Now with the recent server upgrade, I took the opportunity to upgrade the image to modern trunk, running under spur, with integration of the editions feature from directly within the image. It is now finally a permanent part of our source.squeak.org code repository. (Go ahead, try it!) It self-hosts its own code within our "ss" project. This is the exact same code loaded by the Personal Squeaksource package. Together can provide editions for ALL code (trunk and proprietary). The 'mc history' menu was recently renamed to "browse repository editions" because its only "history" if its retrieving them from the trunk repository. It selects from the first repository in the repository list of a package which can satisfy the editions request, so if you put inbox above trunk then you'll be looking at a list of "alternate editions" of that method (or class) existing in the Inbox, not the "history" from trunk. The new "demote to bottom" menu item can be used to adjust the order of the list. Nicolas wrote: > so you mean that we now browse all editions, including those which are not > in current MC version ancestors: > - those in concurrent branches Yes. And, I think this was always supported (when it worked!) -- In the server there is one big dictionary per Project (e.g., one for "trunk", one for "VMMaker", one for "inbox", etc.). The editions you see in the list are instances of MCMethodDefinition or MCClassDefinition which are keyed simply by their #description -- so for method editions this is {className. selector. classIsMeta}, and for class editions, simply its (class) name. Its valued by an OrderedCollection of all the editions. (hmm, that key might be too loose..) > - those in other packages (if the method was moved from one package to > another) So, yes, as long as the other package is in the same repository, they'll still be keyed by their same #description's. On Tue, 1 Nov 2016, Hans-Martin Mosner wrote: > Looks like there is a regression with raised and inset borders. The method #initialize in SimpleBorder sets baseColor to > ... snip... > > Levente, the method is from April 2016 and carries your initials - do you remember what the motivation for this change was? I'd been wanting encourage Hans-Martin to test this real-world use case for "browse origin" for the last weeks, now we finally can! :) 1) Bring up SimpleBorder, select the #initialize method. 2) Select "browse repository editions", a window with two editions is presented. 3) Select the one being asked about, "ul 4/7/2016 20:10" and select "browse origin". NOTE: "browse origin" is actually just "the earliest-known Version in which that definition appears." If a proper repository with all versions is kept, then it will be the origin. In this case, it appears Levente wrote very good "why" reasoning in the notes. _____ The timeouts should all be fixed. Our code repository has never been in a better shape than now. Please feel free to use browse repository editions and origins with confidence they will work! Cheers! Chris

4 7

The Inbox: Tools-tpr.769.mcz
by commits＠source.squeak.org 23 Oct '17

23 Oct '17

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/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(a)0.08) -> [self buildMessageListCatSingletonWith: builder]. + (0.0(a)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(a)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(a)0.08) -> [self buildMessageListCatSingletonWith: builder]. - (0.0(a)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 !

1 0

HtmlParser MNU: ByteString>>replaceHtmlCharRefs
by Bernhard Pieber 22 Oct '17

22 Oct '17

Dear Squeakers, I tried to parse an HTML file like this in a trunk image and ran into a MNU: FileStream fileNamed: ’some.html’ do: [:stream | HtmlParser parse: stream] In HtmlText>>#initialize the message #replaceHtmlCharRefs is sent. I suppose this method was once the image. Otherwise HtmlParser would never have worked. How can I find out, when it got lost? How would you do it? Cheers, Bernhard

3 8

Transfer of binary data between images
by Herbert König 22 Oct '17

22 Oct '17

Hi all, I want to spread an algorithm over several images. For that I need to transfer some objects. For other purposes I already read and write objects via JSON files. To change this to UDP is straightforward. But the conversion to JSON and back takes considerable time, biggest chunk of data is an array with floats. Is there a fast and easy way to transfer objects binary between images? I can transfer only the array of floats (maybe a float array) if that saves time. Thanks, Herbert

7 13

The Trunk: Collections-bp.765.mcz
by commits＠source.squeak.org 22 Oct '17

22 Oct '17

Bernhard Pieber uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bp.765.mcz ==================== Summary ==================== Name: Collections-bp.765 Author: bp Time: 22 October 2017, 9:52:05.334068 pm UUID: 5207defa-6a76-4177-93d0-b5a6806b805e Ancestors: Collections-topa.764 Bring back String>>#replaceHtmlCharRefs from Squeak3.4 to make HtmlParser work again. =============== Diff against Collections-topa.764 =============== Item was added: + ----- Method: String>>replaceHtmlCharRefs (in category 'internet') ----- + replaceHtmlCharRefs + + | pos ampIndex scIndex special specialValue outString outPos newOutPos | + + outString := String new: self size. + outPos := 0. + + pos := 1. + + [ pos <= self size ] whileTrue: [ + "read up to the next ampersand" + ampIndex := self indexOf: $& startingAt: pos ifAbsent: [0]. + + ampIndex = 0 ifTrue: [ + pos = 1 ifTrue: [ ^self ] ifFalse: [ ampIndex := self size+1 ] ]. + + newOutPos := outPos + ampIndex - pos. + outString + replaceFrom: outPos + 1 + to: newOutPos + with: self + startingAt: pos. + outPos := newOutPos. + pos := ampIndex. + + ampIndex <= self size ifTrue: [ + "find the $;" + scIndex := self indexOf: $; startingAt: ampIndex ifAbsent: [ self size + 1 ]. + + special := self copyFrom: ampIndex+1 to: scIndex-1. + specialValue := HtmlEntity valueOfHtmlEntity: special. + + specialValue + ifNil: [ + "not a recognized entity. wite it back" + scIndex > self size ifTrue: [ scIndex := self size ]. + + newOutPos := outPos + scIndex - ampIndex + 1. + outString + replaceFrom: outPos+1 + to: newOutPos + with: self + startingAt: ampIndex. + outPos := newOutPos.] + ifNotNil: [ + outPos := outPos + 1. + outString at: outPos put: specialValue isoToSqueak.]. + + pos := scIndex + 1. ]. ]. + + + ^outString copyFrom: 1 to: outPos!

1 0

HtmlParser MNU: ByteString>>replaceHtmlCharRefs
by Chris Cunnington 22 Oct '17

22 Oct '17

>Dear Squeakers, >I tried to parse an HTML file like this in a trunk image and ran into a MNU: >FileStream fileNamed: ’some.html’ do: [:stream | HtmlParser parse: stream] >In HtmlText>>#initialize the message #replaceHtmlCharRefs is sent. I suppose this method was once the image. Otherwise HtmlPar>ser would never have worked. How can I find out, when it got lost? How would you do it? >Cheers, >Bernhard Go to the files archive and start opening old images to find what was removed. Your method is in a 3.2 image. I have old images lying around on my desktops and I cannot get off the couch right now, so I thought I’d look for it. Googling your selector “replaceHtmlCharRefs” would show that Steph had the same problem in 2009. Chris String>>#replaceHtmlCharRefs | pos ampIndex scIndex special specialValue outString outPos newOutPos | outString _ String new: self size. outPos _ 0. pos _ 1. [ pos <= self size ] whileTrue: [ "read up to the next ampersand" ampIndex _ self indexOf: $& startingAt: pos ifAbsent: [0]. ampIndex = 0 ifTrue: [ pos = 1 ifTrue: [ ^self ] ifFalse: [ ampIndex _ self size+1 ] ]. newOutPos _ outPos + ampIndex - pos. outString replaceFrom: outPos + 1 to: newOutPos with: self startingAt: pos. outPos _ newOutPos. pos _ ampIndex. ampIndex <= self size ifTrue: [ "find the $;" scIndex _ self indexOf: $; startingAt: ampIndex ifAbsent: [ self size + 1 ]. special _ self copyFrom: ampIndex+1 to: scIndex-1. specialValue _ HtmlEntity valueOfHtmlEntity: special. specialValue ifNil: [ "not a recognized entity. wite it back" scIndex > self size ifTrue: [ scIndex _ self size ]. newOutPos _ outPos + scIndex - ampIndex + 1. outString replaceFrom: outPos+1 to: newOutPos with: self startingAt: ampIndex. outPos _ newOutPos.] ifNotNil: [ outPos _ outPos + 1. outString at: outPos put: specialValue.]. pos _ scIndex + 1. ]. ]. ^outString copyFrom: 1 to: outPos

2 1

Bleeding edge build for Mac missing?
by Bernhard Pieber 22 Oct '17

22 Oct '17

How can I download the latest (bleeding edge) Cog Spur VMs for Mac. I had assumed if I went to https://github.com/OpenSmalltalk/opensmalltalk-vm and then clicked the download bleeding edge button I’d find it. However, the opened list only contains files for Linux and Windows. Cheers, Bernhard

4 8

← Newer
1
2
3
4
5
6
7
8
...
14
Older →

Jump to page: