Packages January 2016

packages@lists.squeakfoundation.org

1 participants
126 discussions

The Trunk: HelpSystem-Core-mt.85.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Marcel Taeumel uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-mt.85.mcz ==================== Summary ==================== Name: HelpSystem-Core-mt.85 Author: mt Time: 23 January 2016, 12:10:31.113398 pm UUID: b57d1c05-9c97-4f30-8ca1-ea36ec62e045 Ancestors: HelpSystem-Core-mt.84 Updates help browser to not consider edits in the search field. Fixes the bug with annoying dialog popups for every search request. =============== Diff against HelpSystem-Core-mt.84 =============== Item was changed: ----- Method: HelpBrowser>>buildSearchWith: (in category 'toolbuilder') ----- buildSearchWith: builder ^ builder pluggableInputFieldSpec new model: self; getText: #searchTerm; setText: #searchTerm:; help: 'Search...'; + askBeforeDiscardingEdits: false; + indicateUnacceptedChanges: false; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ (Preferences standardDefaultTextFont height * 2))); yourself!

1 0

The Trunk: HelpSystem-Core-mt.85.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

1 0

The Trunk: ToolBuilder-Morphic-mt.157.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.157.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.157 Author: mt Time: 23 January 2016, 12:08:47.304398 pm UUID: 85c03d29-bbf2-4737-affe-7b1752475575 Ancestors: ToolBuilder-Morphic-mt.156 Fixes a bug where text fields did not accept when they agreed to discard their edits silently. =============== Diff against ToolBuilder-Morphic-mt.156 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableText: (in category 'widgets required') ----- buildPluggableText: aSpec | widget | widget := self textPaneClass new. aSpec stylerClass ifNotNil: [:c | widget styler: (c new view: widget)]. widget on: aSpec model text: aSpec getText accept: aSpec setText readSelection: aSpec selection menu: aSpec menu. aSpec font ifNotNil: [:f | widget font: f]. widget readOnly: aSpec readOnly. widget editTextSelector: aSpec editText. widget wantsFrameAdornments: aSpec indicateUnacceptedChanges. + widget askBeforeDiscardingEdits: aSpec askBeforeDiscardingEdits. + widget setProperty: #alwaysAccept toValue: aSpec askBeforeDiscardingEdits not. aSpec softLineWrap ifNotNil: [:b | widget wrapFlag: b]. widget isAutoFit ifTrue: [widget hideHScrollBarIndefinitely] ifFalse: [widget showHScrollBarOnlyWhenNeeded]. self register: widget id: aSpec name. widget getColorSelector: aSpec color. self buildHelpFor: widget spec: aSpec. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. widget borderColor: Color lightGray. widget color: Color white. ^widget!

1 0

The Trunk: ToolBuilder-Morphic-mt.157.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

1 0

The Trunk: ToolBuilder-Morphic-mt.156.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.156.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.156 Author: mt Time: 23 January 2016, 11:41:12.364398 am UUID: e35cd3fa-7c53-4b6d-a989-867783958b05 Ancestors: ToolBuilder-Morphic-kfr.155 Fixes a regression in pluggable trees. Now models can again govern the behavior of double-selections. FileList, for example, uses it to refresh the list of files. =============== Diff against ToolBuilder-Morphic-kfr.155 =============== Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph - "Avoid unnecessary model callbacks." - self selectedMorph == aMorph ifTrue: [^ self]. - selectedWrapper := aMorph complexContents. "Let the model now about the selected object, not wrapper." setSelectionSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [:w | w item])]. "The model may not have access to the parent object in terms of this tree structure." setSelectedParentSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [:w | w parent ifNotNil: [:pw | pw item]])].!

1 0

The Trunk: ToolBuilder-Morphic-mt.156.mcz
by commits＠source.squeak.org 23 Jan '16

23 Jan '16

1 0

The Trunk: EToys-mt.132.mcz
by commits＠source.squeak.org 22 Jan '16

22 Jan '16

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.132.mcz ==================== Summary ==================== Name: EToys-mt.132 Author: mt Time: 22 January 2016, 2:28:46.325541 pm UUID: f70ffb37-684a-4e38-b662-cc8ce9563c40 Ancestors: EToys-cmm.131 Use tool set to spawn hierarchy browser. =============== Diff against EToys-cmm.131 =============== Item was changed: ----- Method: StackMorph>>browseCardClass (in category 'card access') ----- browseCardClass "Browse the class of the current card" | suffix | suffix := self currentCard class name numericSuffix. + ToolSet browseHierarchy: self currentCard class selector: nil. - HierarchyBrowser newFor: self currentCard class labeled: 'Background ', suffix asString !

1 0

The Trunk: EToys-mt.132.mcz
by commits＠source.squeak.org 22 Jan '16

22 Jan '16

1 0

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

22 Jan '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.667.mcz ==================== Summary ==================== Name: Tools-mt.667 Author: mt Time: 22 January 2016, 2:27:46.750541 pm UUID: be24b1d6-4343-49a7-a3fa-ccafb5215cdb Ancestors: Tools-kfr.666 Cleans up code regarding spawning system and hierarchy browsers. Adds support for browser message categories via toolsets. =============== Diff against Tools-kfr.666 =============== Item was changed: ----- Method: Browser class>>fullOnClass: (in category 'instance creation') ----- fullOnClass: aClass "Open a new full browser set to class." + + ^ self + openBrowserView: (self new + setClass: aClass; + openEditString: nil) + label: nil! - | brow | - brow := self new. - brow setClass: aClass selector: nil. - ^ self - openBrowserView: (brow openEditString: nil) - label: 'System Browser'! Item was added: + ----- Method: Browser class>>fullOnClass:category: (in category 'instance creation') ----- + fullOnClass: aClass category: category + + ^ self + openBrowserView: (self new + setClass: aClass; + selectMessageCategoryNamed: category; + 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 class." + ^ self + openBrowserView: (self new + setClass: aClass selector: aSelector; + openEditString: nil) + label: nil! - | brow classToUse | - classToUse := SystemBrowser default. - brow := classToUse new. - brow setClass: aClass selector: aSelector. - ^ classToUse - openBrowserView: (brow openEditString: nil) - label: brow labelString! Item was changed: ----- Method: Browser class>>newOnClass:label: (in category 'instance creation') ----- newOnClass: aClass label: aLabel "Open a new class browser on this class." | newBrowser | newBrowser := self new. + newBrowser setClass: aClass. - newBrowser setClass: aClass selector: nil. ^ self openBrowserView: (newBrowser openOnClassWithEditString: nil) label: aLabel ! Item was added: + ----- 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>>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 isKindOf: ToolBuilderSpec) ifTrue:[ - (self canUseMultiWindowBrowsers - and: [self useMultiWindowBrowsers]) ifTrue: - [aBrowserView multiWindowStyle: #labelButton]. - ToolBuilder open: aBrowserView label: aString. - ] ifFalse:[ - aBrowserView isMorph - ifTrue: [(aBrowserView setLabel: aString) openInWorld] - ifFalse: [aBrowserView label: aString. - aBrowserView minimumSize: 300 @ 200. - aBrowserView subViews do: [:each | each controller]. - aBrowserView controller open]. - ]. ^ aBrowserView model ! Item was changed: ----- Method: Browser>>buildMessageCategoryBrowserEditString: (in category 'message category functions') ----- buildMessageCategoryBrowserEditString: aString "Create and schedule a message category browser for the currently selected message category. The initial text view contains the characters in aString." - "wod 6/24/1998: set newBrowser classListIndex so that it works whether the - receiver is a standard or a Hierarchy Browser." + ^ self hasMessageCategorySelected ifTrue: [ + (self class + newOnMessageCategory: self selectedMessageCategoryName + inClass: self selectedClassOrMetaClass) + "Select my message." + selectMessageNamed: self selectedMessageName; + yourself]! - | newBrowser | - ^ self hasMessageCategorySelected - ifFalse: [ nil ] - ifTrue: - [newBrowser := Browser new. - newBrowser selectSystemCategory: self selectedSystemCategory. - newBrowser selectClass: self selectedClass. - newBrowser metaClassIndicated: self metaClassIndicated. - newBrowser selectMessageCategoryNamed: self selectedMessageCategoryName. - newBrowser selectMessageNamed: self selectedMessageName. - self class openBrowserView: (newBrowser openMessageCatEditString: aString) - label: 'Message Category Browser (' , - newBrowser selectedClassOrMetaClassName , ')'. - newBrowser.].! Item was added: + ----- Method: Browser>>setClass: (in category 'initialize-release') ----- + setClass: aBehavior + "Set the state of a new, uninitialized Browser." + + | isMeta aClass | + aBehavior ifNil: [^ self]. + (aBehavior isKindOf: Metaclass) + ifTrue: [ + isMeta := true. + aClass := aBehavior soleInstance] + ifFalse: [ + isMeta := false. + aClass := aBehavior]. + + self + selectEnvironment: aClass environment; + selectCategoryForClass: aClass; + classListIndex: (self classListIndexOf: aClass name); + metaClassIndicated: isMeta.! Item was changed: ----- Method: Browser>>setClass:selector: (in category 'initialize-release') ----- setClass: aBehavior selector: aSymbol "Set the state of a new, uninitialized Browser." - | isMeta aClass | aBehavior ifNil: [^ self]. + - (aBehavior isKindOf: Metaclass) - ifTrue: [ - isMeta := true. - aClass := aBehavior soleInstance] - ifFalse: [ - isMeta := false. - aClass := aBehavior]. - self + setClass: aBehavior; - selectEnvironment: aClass environment; - selectCategoryForClass: aClass; - classListIndex: (self classListIndexOf: aClass name); - metaClassIndicated: isMeta; setSelector: aSymbol.! Item was changed: ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. sel := self selectedMessageName. aChar == $m ifTrue: "These next two put up a type in if no message selected" [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ]. aChar == $d ifTrue: [^ self removeMessageFromBrowser]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. + aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. - aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self classHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. aChar == $r ifTrue: [^ self browseVariableReferences]. aChar == $a ifTrue: [^ self browseVariableAssignments]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]. aChar == $C ifTrue: [ self copyReference ]. (aChar == $Y and: [self canShowMultipleMessageCategories]) ifTrue: [^ self showHomeCategory]]. ^ self arrowKey: aChar from: view! Item was changed: ----- Method: CodeHolder>>spawnHierarchy (in category 'traits') ----- spawnHierarchy "Create and schedule a new hierarchy browser on the currently selected class or meta." + ^ ToolSet + browseHierarchy: self selectedClassOrMetaClass + selector: self selectedMessageName! - | newBrowser aSymbol selectedClassOrMetaClass | - (selectedClassOrMetaClass := self selectedClassOrMetaClass) - ifNil: [^ self]. - selectedClassOrMetaClass isTrait ifTrue: [^self]. - newBrowser := HierarchyBrowser new initHierarchyForClass: selectedClassOrMetaClass. - ((aSymbol := self selectedMessageName) notNil and: [(MessageSet isPseudoSelector: aSymbol) not]) - ifTrue: [newBrowser setSelector: aSymbol]. - Browser - openBrowserView: (newBrowser openSystemCatEditString: nil) - label: newBrowser labelString. - Smalltalk isMorphic - ifTrue: ["this workaround only needed in morphic" - newBrowser assureSelectionsShow]. - ^ newBrowser.! Item was removed: - ----- Method: HierarchyBrowser class>>newFor: (in category 'instance creation') ----- - newFor: aClass - "Open a new HierarchyBrowser on the given class" - | newBrowser | - newBrowser := HierarchyBrowser new initHierarchyForClass: aClass. - Browser openBrowserView: (newBrowser openSystemCatEditString: nil) - label: newBrowser labelString - - "HierarchyBrowser newFor: Boolean"! Item was removed: - ----- Method: HierarchyBrowser class>>newFor:labeled: (in category 'instance creation') ----- - newFor: aClass labeled: aLabel - "Open a new HierarchyBrowser on the given class, using aLabel as the window title." - - | newBrowser | - newBrowser := HierarchyBrowser new initHierarchyForClass: aClass. - Browser openBrowserView: (newBrowser openSystemCatEditString: nil) - label: aLabel - - "HierarchyBrowser newFor: Boolean labeled: 'Testing'"! Item was added: + ----- Method: HierarchyBrowser>>setClass: (in category 'initialization') ----- + setClass: aClass + + self initHierarchyForClass: aClass. + super setClass: aClass.! Item was changed: ----- Method: ProcessBrowser>>browseContext (in category 'stack list') ----- browseContext selectedContext ifNil: [^ self]. + ToolSet browse: self selectedClass selector: self selectedSelector! - Browser newOnClass: self selectedClass selector: self selectedSelector! Item was changed: ----- Method: SelectorBrowser>>classListIndex: (in category 'class list') ----- classListIndex: anInteger classListIndex := anInteger. classListIndex > 0 ifTrue: [self changed: #startNewBrowser. "MVC view will terminate control to prepare for new browser" + ToolSet browse: self selectedClass selector: self selectedMessageName. - Browser fullOnClass: self selectedClass selector: self selectedMessageName. "classListIndex := 0"] ! Item was added: + ----- Method: StandardToolSet class>>browseClass:category: (in category 'browsing') ----- + browseClass: aClass category: aCategory + "Open a browser for a class selecting a given message category." + + ^ SystemBrowser default + fullOnClass: aClass + category: aCategory! Item was changed: ----- Method: StandardToolSet class>>browseHierarchy:selector: (in category 'browsing') ----- browseHierarchy: aClass selector: aSelector "Open a browser" + + ^ HierarchyBrowser fullOnClass: aClass selector: aSelector.! - | newBrowser | - (aClass == nil) ifTrue: [^ self]. - (newBrowser := SystemBrowser default new) setClass: aClass selector: aSelector. - newBrowser spawnHierarchy.! Item was added: + ----- Method: StandardToolSet class>>browseMessageCategory:inClass: (in category 'browsing') ----- + browseMessageCategory: aCategory inClass: aClass + "Open a message category browser." + + ^ SystemBrowser default + newOnMessageCategory: aCategory inClass: aClass.! Item was changed: ----- Method: StringHolder>>messageListKey:from: (in category '*Tools') ----- messageListKey: aChar from: view "Respond to a Command key. I am a model with a code pane, and I also have a listView that has a list of methods. The view knows how to get the list and selection." | sel class | aChar == $D ifTrue: [^ self toggleDiffing]. sel := self selectedMessageName. aChar == $m ifTrue: "These next two put up a type in if no message selected" [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self systemNavigation]. aChar == $n ifTrue: [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation]. "The following require a class selection" (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view]. + aChar == $b ifTrue: [^ ToolSet browse: class selector: sel]. - aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel]. aChar == $N ifTrue: [^ self browseClassRefs]. aChar == $i ifTrue: [^ self methodHierarchy]. aChar == $h ifTrue: [^ self classHierarchy]. aChar == $p ifTrue: [^ self browseFullProtocol]. "The following require a method selection" sel ifNotNil: [aChar == $o ifTrue: [^ self fileOutMessage]. aChar == $c ifTrue: [^ self copySelector]. aChar == $C ifTrue: [^ self copyReference]. aChar == $v ifTrue: [^ self browseVersions]. aChar == $x ifTrue: [^ self removeMessage]]. ^ self arrowKey: aChar from: view!

1 0

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

22 Jan '16

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2016