Packages August 2013

packages@lists.squeakfoundation.org

1 participants
153 discussions

The Trunk: Monticello-fbs.551.mcz
by commits＠source.squeak.org 09 Aug '13

09 Aug '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.551.mcz ==================== Summary ==================== Name: Monticello-fbs.551 Author: fbs Time: 9 August 2013, 8:48:52.682 am UUID: 7810c197-4a7b-314a-88c3-bad54e8309f2 Ancestors: Monticello-fbs.550 Move the Trait code to MonticelloForTraits. =============== Diff against Monticello-fbs.550 =============== Item was removed: - ----- Method: Trait>>asClassDefinition (in category '*monticello') ----- - asClassDefinition - ^Smalltalk at: #MCTraitDefinition ifPresent:[:aClass| - aClass - name: self name - traitComposition: self traitCompositionString - category: self category - comment: self organization classComment asString - commentStamp: self organization commentStamp].! Item was removed: - ----- Method: Trait>>classDefinitions (in category '*monticello') ----- - classDefinitions - | definitions | - definitions := OrderedCollection with: self asClassDefinition. - (self hasClassTrait - and: [self classTrait hasTraitComposition - and: [self classTrait traitComposition isEmpty not]]) - ifTrue: [definitions add: self classTrait asMCDefinition]. - ^definitions asArray!

1 0

The Trunk: Monticello-fbs.551.mcz
by commits＠source.squeak.org 09 Aug '13

09 Aug '13

1 0

The Trunk: Monticello-fbs.551.mcz
by commits＠source.squeak.org 09 Aug '13

09 Aug '13

1 0

The Trunk: MonticelloForTraits-fbs.1.mcz
by commits＠source.squeak.org 09 Aug '13

09 Aug '13

Frank Shearar uploaded a new version of MonticelloForTraits to project The Trunk: http://source.squeak.org/trunk/MonticelloForTraits-fbs.1.mcz ==================== Summary ==================== Name: MonticelloForTraits-fbs.1 Author: fbs Time: 9 August 2013, 8:46:48.716 am UUID: 160be615-5ab7-4148-a7cb-60dd629ab085 Ancestors: Initial commit. This package extends Monticello to support Traits. It exists so that one may freely unload Monticello, Traits, or both, in an image. ==================== Snapshot ==================== ----- Method: Trait>>asClassDefinition (in category '*MonticelloForTraits') ----- asClassDefinition ^Smalltalk at: #MCTraitDefinition ifPresent:[:aClass| aClass name: self name traitComposition: self traitCompositionString category: self category comment: self organization classComment asString commentStamp: self organization commentStamp].! ----- Method: Trait>>classDefinitions (in category '*MonticelloForTraits') ----- classDefinitions | definitions | definitions := OrderedCollection with: self asClassDefinition. (self hasClassTrait and: [self classTrait hasTraitComposition and: [self classTrait traitComposition isEmpty not]]) ifTrue: [definitions add: self classTrait asMCDefinition]. ^definitions asArray!

1 0

The Trunk: MonticelloForTraits-fbs.1.mcz
by commits＠source.squeak.org 09 Aug '13

09 Aug '13

1 0

The Trunk: MonticelloForTraits-fbs.1.mcz
by commits＠source.squeak.org 09 Aug '13

09 Aug '13

1 0

The Trunk: Collections-ul.529.mcz
by commits＠source.squeak.org 08 Aug '13

08 Aug '13

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.529.mcz ==================== Summary ==================== Name: Collections-ul.529 Author: ul Time: 8 August 2013, 2:41:52.108 pm UUID: 50df97ce-0aed-44f0-a0bf-e0f96d541205 Ancestors: Collections-fbs.528 - reimplemented ArrayedCollection >> #isSorted and #isSortedBy: - added #isSorted and #isSortedBy: to OrderedCollection - added two new variants: #isSortedBetween:and: and #isSortedBy:between:and: which only check the given range =============== Diff against Collections-fbs.528 =============== Item was changed: ----- Method: ArrayedCollection>>isSorted (in category 'sorting') ----- isSorted + "Return true if the receiver is sorted by #<=." - "Return true if the receiver is sorted by the given criterion. - Optimization for isSortedBy: [:a :b | a <= b]." + ^self isSortedBetween: 1 and: self size! - | lastElm elm | - self isEmpty ifTrue: [^ true]. - lastElm := self first. - 2 to: self size do: - [:index | - elm := self at: index. - lastElm <= elm ifFalse: [^ false]. - lastElm := elm]. - ^ true! Item was added: + ----- Method: ArrayedCollection>>isSortedBetween:and: (in category 'sorting') ----- + isSortedBetween: startIndex and: endIndex + "Return true if the receiver is sorted by #<= between startIndex and endIndex." + + | previousElement | + endIndex < startIndex ifTrue: [ ^true ]. + previousElement := self at: startIndex. + startIndex + 1 to: endIndex do: [ :index | + | element | + element := self at: index. + previousElement <= element ifFalse: [ ^false ]. + previousElement := element ]. + ^true! Item was changed: ----- Method: ArrayedCollection>>isSortedBy: (in category 'sorting') ----- + isSortedBy: aSortBlockOrNil + "Return true if the receiver is sorted by aSortBlockOrNil. Use #<= for comparison if aSortBlockOrNil is nil." - isSortedBy: aBlock - "Return true if the receiver is sorted by the given criterion." + ^self isSortedBy: aSortBlockOrNil between: 1 and: self size! - | lastElm elm | - self isEmpty ifTrue: [^ true]. - lastElm := self first. - 2 to: self size do: - [:index | - elm := self at: index. - (aBlock value: lastElm value: elm) ifFalse: [^ false]. - lastElm := elm]. - ^ true! Item was added: + ----- Method: ArrayedCollection>>isSortedBy:between:and: (in category 'sorting') ----- + isSortedBy: aSortBlockOrNil between: startIndex and: endIndex + "Return true if the receiver is sorted by aSortBlockOrNil between startIndex and endIndex. Use #<= for comparison if aSortBlockOrNil is nil." + + | previousElement | + aSortBlockOrNil ifNil: [ ^self isSortedBetween: startIndex and: endIndex ]. + endIndex < startIndex ifTrue: [ ^true ]. + previousElement := self at: startIndex. + startIndex + 1 to: endIndex do: [ :index | + | element | + element := self at: index. + (aSortBlockOrNil value: previousElement value: element) ifFalse: [ ^false ]. + previousElement := element ]. + ^true! Item was added: + ----- Method: OrderedCollection>>isSorted (in category 'sorting') ----- + isSorted + "Return true if the receiver is sorted by #<=." + + ^array + isSortedBetween: firstIndex + and: lastIndex! Item was added: + ----- Method: OrderedCollection>>isSortedBetween:and: (in category 'sorting') ----- + isSortedBetween: startIndex and: endIndex + "Return true if the receiver is sorted by #<= between startIndex and endIndex." + + ^array isSortedBetween: startIndex + firstIndex - 1 and: endIndex + firstIndex - 1! Item was added: + ----- Method: OrderedCollection>>isSortedBy: (in category 'sorting') ----- + isSortedBy: aSortBlockOrNil + "Return true if the receiver is sorted by aSortBlockOrNil. Use #<= for comparison if aSortBlockOrNil is nil." + + ^array + isSortedBy: aSortBlockOrNil + between: firstIndex + and: lastIndex! Item was added: + ----- Method: OrderedCollection>>isSortedBy:between:and: (in category 'sorting') ----- + isSortedBy: aSortBlockOrNil between: startIndex and: endIndex + "Return true if the receiver is sorted by #<= between startIndex and endIndex." + + ^array + isSortedBy: aSortBlockOrNil + between: startIndex + firstIndex - 1 + and: endIndex + firstIndex - 1!

1 0

The Trunk: Collections-ul.529.mcz
by commits＠source.squeak.org 08 Aug '13

08 Aug '13

1 0

The Trunk: Collections-ul.529.mcz
by commits＠source.squeak.org 08 Aug '13

08 Aug '13

1 0

The Trunk: Tools-ul.491.mcz
by commits＠source.squeak.org 08 Aug '13

08 Aug '13

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.491.mcz ==================== Summary ==================== Name: Tools-ul.491 Author: ul Time: 8 August 2013, 1:22:10.07 pm UUID: 35dad6b2-fd68-49d5-b1cd-37ac4a293dbf Ancestors: Tools-fbs.490 - use the new pragma preference for #thoroughSenders =============== Diff against Tools-fbs.490 =============== Item was changed: ----- Method: StringHolder>>withSelectorAndMessagesIn:evaluate: (in category '*Tools') ----- withSelectorAndMessagesIn: aCompiledMethod evaluate: aBlock "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector. If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any" | selectorOrNil litGetter messages | selectorOrNil := aCompiledMethod selector. + messages := SystemNavigation thoroughSenders - messages := Preferences thoroughSenders ifTrue: [litGetter := [:set :l| (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: [set add: l]. l isArray ifTrue: [l inject: set into: litGetter copy]. set]. aCompiledMethod allLiterals , (aCompiledMethod pragmas collect: [:pragma| pragma keyword]) inject: aCompiledMethod messages into: litGetter copy] ifFalse: [aCompiledMethod messages]. (messages isEmpty "if no messages, use only selector" or: [messages size = 1 and: [messages includes: selectorOrNil]]) ifTrue: [^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]]. "If only one item, there is no choice" self systemNavigation showMenuOf: messages withFirstItem: selectorOrNil ifChosenDo: aBlock!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
16
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2013