Packages March 2013

packages@lists.squeakfoundation.org

1 participants
258 discussions

The Trunk: ToolBuilder-Morphic-ul.89.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

Levente Uzonyi uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ul.89.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ul.89 Author: ul Time: 2 March 2013, 1:36:31.1 am UUID: f1b278f5-477a-47b4-bc8a-eec006d343fc Ancestors: ToolBuilder-Morphic-fbs.88 Optimized version of ListChooser>>updateFilter. Don't add any stars to the pattern if the user added some already. =============== Diff against ToolBuilder-Morphic-fbs.88 =============== Item was changed: ----- Method: ListChooser>>updateFilter (in category 'event handling') ----- updateFilter + selectedItems := searchText isEmptyOrNil ifTrue: [ fullList ] ifFalse: [ | pattern patternMatches prefixMatches | + pattern := (searchText includes: $*) + ifTrue: [ searchText ] + ifFalse: [ '*', searchText, '*' ]. + patternMatches := fullList select: [:s | pattern match: s ]. + prefixMatches := OrderedCollection new: patternMatches size. + patternMatches removeAllSuchThat: [ :each | + (each findString: searchText startingAt: 1 caseSensitive: false) = 1 + and: [ + prefixMatches add: each. + true ] ]. - pattern := (searchText beginsWith: '*') - ifTrue: [searchText] - ifFalse: ['*', searchText, '*']. - prefixMatches := fullList select: [:s | (s findString: searchText startingAt: 1 caseSensitive: false) = 1]. - patternMatches := (fullList select: [:s | pattern match: s]) difference: prefixMatches. prefixMatches addAllLast: patternMatches; yourself]. self changed: #list. self selectedIndex: 1. self changed: #selectedIndex.!

1 0

The Trunk: ToolBuilder-Morphic-ul.89.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

1 0

The Trunk: ToolBuilder-Morphic-ul.89.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

1 0

The Trunk: Collections-bf.502.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

Bert Freudenberg uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bf.502.mcz ==================== Summary ==================== Name: Collections-bf.502 Author: bf Time: 2 March 2013, 1:45:38.248 pm UUID: 87a84004-6bba-4930-acf3-a86574e1f415 Ancestors: Collections-fbs.501 Sundry changes: * deal with "[:" and "{}" in String>>findSelector * process numeric entities in String>>asUnHtml * remove PositionableStream>>last (unused, buggy) =============== Diff against Collections-fbs.501 =============== Item was removed: - ----- Method: PositionableStream>>last (in category 'accessing') ----- - last - "Return the final element in the receiver" - - ^ collection at: position! Item was changed: ----- Method: String>>asUnHtml (in category 'converting') ----- asUnHtml "Strip out all Html stuff (commands in angle brackets <>) and convert the characters &<> back to their real value. Leave actual cr and tab as they were in text." | in out char rest | in := ReadStream on: self. out := WriteStream on: (String new: self size). [in atEnd] whileFalse: [in peek = $< ifTrue: [in unCommand] "Absorb <...><...>" ifFalse: [(char := in next) = $& ifTrue: [rest := in upTo: $;. out nextPut: (HtmlEntities at: rest + ifAbsent: [ + (rest beginsWith: '#') + ifTrue: [Character value: rest allButFirst asInteger] + ifFalse: [Character space]])] - ifAbsent: [Character space])] ifFalse: [out nextPut: char]]. ]. ^ out contents! Item was changed: ----- Method: String>>findSelector (in category 'converting') ----- findSelector "Dan's code for hunting down selectors with keyword parts; while this doesn't give a true parse, in most cases it does what we want, in where it doesn't, we're none the worse for it." | sel possibleParens | sel := self withBlanksTrimmed. (sel includes: $:) ifTrue: [sel := sel copyReplaceAll: ':' with: ': '. "for the style (aa max:bb) with no space" + sel := sel copyReplaceAll: '[:' with: '[ :'. "for the style ([:a) with no space" possibleParens := sel findTokens: Character separators. sel := self class streamContents: [:s | | level | + level := 0. - level := 0. possibleParens do: + [:token | - [:token | | n | (level = 0 and: [token endsWith: ':']) ifTrue: [s nextPutAll: token] + ifFalse: [level := level + + (token occurrencesOf: $() - (token occurrencesOf: $)) + + (token occurrencesOf: $[) - (token occurrencesOf: $]) + + (token occurrencesOf: ${) - (token occurrencesOf: $})]]]]. - ifFalse: [(n := token occurrencesOf: $( ) > 0 ifTrue: [level := level + n]. - (n := token occurrencesOf: $[ ) > 0 ifTrue: [level := level + n]. - (n := token occurrencesOf: $] ) > 0 ifTrue: [level := level - n]. - (n := token occurrencesOf: $) ) > 0 ifTrue: [level := level - n]]]]]. - sel isEmpty ifTrue: [^ nil]. sel isOctetString ifTrue: [sel := sel asOctetString]. Symbol hasInterned: sel ifTrue: [:aSymbol | ^ aSymbol]. ^ nil!

1 0

The Trunk: Collections-bf.502.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

1 0

The Trunk: Collections-bf.502.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

1 0

The Trunk: System-cwp.514.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.514.mcz ==================== Summary ==================== Name: System-cwp.514 Author: cwp Time: 1 March 2013, 11:25:26.111 pm UUID: 714a404b-f27e-4ed5-9743-4be2d25ebe6b Ancestors: System-nice.513 Make SystemOrganizer add categories even if it's not the global SystemOrganization. =============== Diff against System-nice.513 =============== Item was changed: ----- Method: SystemOrganizer>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory + self == SystemOrganization + ifTrue: + [SystemChangeNotifier uniqueInstance + doSilently: [super addCategory: catString before: nextCategory]; + classCategoryAdded: catString] + ifFalse: + [super addCategory: catString before: nextCategory]! - self == SystemOrganization ifTrue: [ - SystemChangeNotifier uniqueInstance - doSilently: [super addCategory: catString before: nextCategory]; - classCategoryAdded: catString]!

1 0

The Trunk: System-cwp.514.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

1 0

The Trunk: System-cwp.514.mcz
by commits＠source.squeak.org 02 Mar '13

02 Mar '13

1 0

The Trunk: SMLoader-fbs.79.mcz
by commits＠source.squeak.org 01 Mar '13

01 Mar '13

Frank Shearar uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-fbs.79.mcz ==================== Summary ==================== Name: SMLoader-fbs.79 Author: fbs Time: 1 March 2013, 11:54:10.335 am UUID: 9f7d983e-d958-4115-94aa-21302f89ad8b Ancestors: SMLoader-fbs.78 Style the release scripts. http://bugs.squeak.org/view.php?id=7737 =============== Diff against SMLoader-fbs.78 =============== Item was added: + ----- Method: SMReleaseBrowser>>aboutToStyle: (in category 'as yet unclassified') ----- + aboutToStyle: aStyler + ^ true.!

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 March 2013