Packages April 2015

packages@lists.squeakfoundation.org

2 participants
1358 discussions

The Trunk: ToolBuilder-Morphic-cmm.114.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.114.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.114 Author: cmm Time: 1 April 2015, 3:05:39.686 pm UUID: 734dc0ce-3ffa-429c-a740-12d57659e296 Ancestors: ToolBuilder-Morphic-cmm.113 No, you cannot send copyFrom: 0 to: 0 to an empty Array. Must check for emptiness. =============== Diff against ToolBuilder-Morphic-cmm.113 =============== Item was changed: ----- Method: PluggableTreeMorph>>visibleItems (in category 'geometry') ----- visibleItems + ^ self items ifNotEmpty: + [ : items | items + copyFrom: self topVisibleRowIndex + to: self bottomVisibleRowIndex ]! - ^ self items - copyFrom: self topVisibleRowIndex - to: self bottomVisibleRowIndex!

1 0

The Trunk: ToolBuilder-Morphic-cmm.114.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

1 0

The Trunk: SMLoader-cmm.81.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-cmm.81.mcz ==================== Summary ==================== Name: SMLoader-cmm.81 Author: cmm Time: 1 April 2015, 3:04:04.314 pm UUID: 5b84720e-18e5-4254-88b5-b58ad5abaa46 Ancestors: SMLoader-bf.80 - Fix selection rendering in SqueakMap. =============== Diff against SMLoader-bf.80 =============== Item was removed: - ----- Method: FileList2 class>>morphicView (in category '*smloader-override') ----- - morphicView - ^ self morphicViewOnDirectory: FileDirectory default! Item was changed: ----- Method: SMLoaderPlus>>selectedCategory: (in category 'accessing') ----- selectedCategory: anSMCategory "Change the selected category." selectedCategory := anSMCategory. + selectedCategory ifNotNil: + [ (selectedCategory objects includes: self selectedItem) ifFalse: [ self selectedItem: nil ] ]. + self + changed: #selectedCategoryPath ; + changed: #packageList! - selectedCategory - ifNotNil: [(selectedCategory objects includes: self selectedItem) - ifFalse: [self selectedItem: nil]]. - self changed: #selectedCategory. - self changed: #packageList! Item was changed: ----- Method: SMLoaderPlus>>selectedCategoryPath (in category 'accessing') ----- selectedCategoryPath "Return selected category's path." | path | path := #(). selectedCategory ifNotNil: [selectedCategory parent ifNotNilDo: [:p | path := path copyWith: p]. path := path copyWith: selectedCategory]. + ^ path! - ^ path - collect: [:cat | self categoryLabel: cat]!

1 0

The Trunk: SMLoader-cmm.81.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

1 0

The Trunk: SMLoader-cmm.81.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

1 0

The Trunk: Tools-cmm.572.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.572.mcz ==================== Summary ==================== Name: Tools-cmm.572 Author: cmm Time: 1 April 2015, 2:43:55.003 pm UUID: cc792d4a-a258-496c-bffe-ad6db90b52b6 Ancestors: Tools-cmm.571 - Fix test for scrollbar presence for Vertical Smart Splitter support. - Fix "Reuse Windows" preference for ObjectExplorers. =============== Diff against Tools-cmm.571 =============== Item was changed: ----- Method: IndentingListItemMorph>>charactersOccluded (in category 'private') ----- charactersOccluded "Answer the number of characters occluded in my #visibleList by my right edge." | listIndex leftEdgeOfRightmostColumn eachString indexOfLastVisible iconWidth totalWidth | listIndex := 0. leftEdgeOfRightmostColumn := container columns ifNil: [ 0 ] ifNotNil: [ : cols | (1 to: cols size - 1) inject: 0 into: [ : sum : each | sum + (self widthOfColumn: each) ] ]. eachString := container columns ifNil: [ self complexContents asString ] ifNotNil: [ : cols | self contentsAtColumn: container columns size ]. iconWidth := self icon ifNil: [ 0 ] ifNotNil: [ : icon | icon width + 2 ]. totalWidth := self toggleBounds right. indexOfLastVisible := ((1 to: eachString size) detect: [ : stringIndex | (totalWidth:=totalWidth+(self fontToUse widthOf: (eachString at: stringIndex))) > (container width - + (container vIsScrollbarShowing + ifTrue: [ container scrollBar width ] + ifFalse: [ 0 ]) - iconWidth - leftEdgeOfRightmostColumn) ] - (container scrollBar - ifNil: [ 0 ] - ifNotNil: [ container scrollBar width ]) - iconWidth - leftEdgeOfRightmostColumn) ] ifNone: [ eachString size + 1 ]) - 1. ^ eachString size - indexOfLastVisible! Item was changed: ----- Method: ObjectExplorer>>openExplorerFor:withLabel: (in category 'user interface') ----- openExplorerFor: anObject withLabel: label + "ObjectExplorer new openExplorerFor: Smalltalk withLabel: 'Smalltalk'" + "Model must be set to support Reuse Windows preference." + self rootObject: anObject. + ToolBuilder + open: self + label: label. + "Set model again to ensure window title updated (hmm, why not the first time?)." + self rootObject: anObject! - "ObjectExplorer new openExplorerFor: Smalltalk withLabel: 'Smalltalk'" - - ToolBuilder open: self label: label. - self rootObject: anObject.!

1 0

The Trunk: Tools-cmm.572.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

1 0

The Trunk: Tools-cmm.572.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

1 0

The Trunk: ToolBuilder-Morphic-cmm.113.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.113.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-cmm.113 Author: cmm Time: 1 April 2015, 2:39:58.323 pm UUID: 85dfc77a-e0ca-47b4-b633-ac05b10332a8 Ancestors: ToolBuilder-Morphic-cmm.112 - Filter-navigation DNU when there is no selection. Filtering still needs to be figured out for the roots of a tree... - Restore Marcel's latest selectPath:in: from today. - Don't rely on #selection: from setSelectedMorph: to fix selection-rendering in UI's, instead we should be sending proper changed notifications from each model. =============== Diff against ToolBuilder-Morphic-cmm.112 =============== Item was changed: ----- Method: PluggableTreeMorph>>filterTree (in category 'filtering') ----- filterTree self hasFilter ifFalse: [ self removeFilter. ^ self ]. self indicateFiltered. "Clean up the tree." (self selectedMorph ifNil: [ self roots ] ifNotNil: [ : m | {m} ]) do: [ : item | | filteredItems | item applyFilter: lastKeystrokes. item visible ifFalse: [ "Do not hide the item where the filter is based on." item show. item isExpanded ifFalse: [ item toggleExpandedState ] ]. filteredItems := self filteredItems. "If configured as a navigation tool, advance the selection." (PluggableTreeMorph maximumSearchDepth = 1 and: [ PluggableTreeMorph filterByLabelsOnly not ]) ifTrue: + [ |toBeExpanded| + (filteredItems notEmpty and: [ selectedMorph ~= filteredItems last ]) ifTrue: + [ self setSelectedMorph: + (toBeExpanded := selectedMorph + ifNil: [ filteredItems first ] + ifNotNil: [ filteredItems after: selectedMorph ]). + toBeExpanded isExpanded ifFalse: [ toBeExpanded toggleExpandedState ] ] ] ]. - [ (filteredItems notEmpty and: [ selectedMorph ~= filteredItems last ]) ifTrue: - [ self setSelectedMorph: (filteredItems after: selectedMorph). - selectedMorph isExpanded ifFalse: [ selectedMorph toggleExpandedState ] ] ] ]. self adjustSubmorphPositions! Item was changed: ----- Method: PluggableTreeMorph>>selectPath:in: (in category 'selection') ----- selectPath: path in: listItem + path isEmpty ifTrue: [^self selection: nil]. + - path isEmpty ifTrue: [^self setSelectedMorph: nil]. listItem withSiblingsDo: [:each | (each complexContents item = path first) ifTrue: [ each isExpanded ifFalse: [ each toggleExpandedState. self adjustSubmorphPositions. ]. each changed. path size = 1 ifTrue: [ + ^self selection: each complexContents - ^self setSelectedMorph: each ]. + each firstChild ifNil: [^self selection: nil]. - each firstChild ifNil: [^self setSelectedMorph: nil]. ^self selectPath: path allButFirst in: each firstChild ]. ]. + ^self selection: nil - ^self setSelectedMorph: nil ! Item was changed: ----- Method: PluggableTreeMorph>>setSelectedMorph: (in category 'selection') ----- setSelectedMorph: aMorph selectedWrapper := aMorph complexContents. - self selection: selectedWrapper. "Let the model now about the selected object, not wrapper." setSelectionSelector ifNotNil: [:symbol | model perform: symbol with: (selectedWrapper ifNotNil: [ selectedWrapper 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: [selectedWrapper parent ifNotNil: [: parentWrapper | parentWrapper item]])].!

1 0

The Trunk: ToolBuilder-Morphic-cmm.113.mcz
by commits＠source.squeak.org 01 Apr '15

01 Apr '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2015