Packages April 2016

packages@lists.squeakfoundation.org

3 participants
23176 discussions

The Trunk: Monticello-ul.630.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.630.mcz ==================== Summary ==================== Name: Monticello-ul.630 Author: ul Time: 3 April 2016, 4:19:20.511794 am UUID: 97dea0c7-b1ca-4436-8d32-3706c1efa628 Ancestors: Monticello-mt.629 - removed hard dependency on ShoutCore =============== Diff against Monticello-mt.629 =============== Item was changed: ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'styling') ----- aboutToStyle: aStyler | classDefinition shouldStyle | classSelection ifNil: [ ^false ]. self switchIsComment ifTrue: [ ^false ]. methodSelection ifNotNil: [ classDefinition := items detect: [:ea | ea isClassDefinition and: [ ea className = classSelection ] ] ifNone: [ (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ]. shouldStyle := true ] ifNil: [ classDefinition := nil. shouldStyle := categorySelection ~= self extensionsCategory ]. + (self environment classNamed: #SHMCClassDefinition) + ifNil: [ ^false ] + ifNotNil: [ :SHMCClassDefinition | + aStyler + environment: self; + classOrMetaClass: (classDefinition ifNotNil: [ + SHMCClassDefinition + classDefinition: classDefinition + items: items + meta: switch = #class ]) ]. - aStyler - environment: self; - classOrMetaClass: (classDefinition ifNotNil: [ - SHMCClassDefinition - classDefinition: classDefinition - items: items - meta: switch = #class ]). ^shouldStyle!

1 0

The Trunk: Monticello-ul.630.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

1 0

The Trunk: Regex-Core-ul.50.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.50.mcz ==================== Summary ==================== Name: Regex-Core-ul.50 Author: ul Time: 3 April 2016, 3:34:24.097121 am UUID: dd38bd8a-38ae-47d0-aef4-8b02926d9d9c Ancestors: Regex-Core-ul.49 - few more Spur-related character comparison optimizations - RxMatcher >> #atBeginningOfLine will consider lf as an end-of-line character =============== Diff against Regex-Core-ul.49 =============== Item was changed: ----- Method: RxMatchOptimizer>>nonPrefixTester (in category 'private') ----- nonPrefixTester nonPrefixes ifNil: [ ^nil ]. nonPrefixes size = 1 ifTrue: [ | nonPrefixChar | nonPrefixChar := nonPrefixes anyOne. + ^[ :char :matcher | (char == nonPrefixChar) not ] ]. - ^[ :char :matcher | char ~~ nonPrefixChar ] ]. ^[ :char : matcher | (nonPrefixes includes: char) not ]! Item was changed: Object subclass: #RxMatcher instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions previousMarkerPositions markerCount lastResult firstTryMatch' + classVariableNames: 'Cr Lf NullCharacter' - classVariableNames: 'Cr Lf' poolDictionaries: '' category: 'Regex-Core'! !RxMatcher commentStamp: 'ul 8/28/2015 14:18' prior: 0! -- Regular Expression Matcher v 1.1 (C) 1996, 1999 Vassili Bykov -- This is a recursive regex matcher. Not strikingly efficient, but simple. Also, keeps track of matched subexpressions. The life cycle goes as follows: 1. Initialization. Accepts a syntax tree (presumably produced by RxParser) and compiles it into a matcher built of other classes in this category. 2. Matching. Accepts a stream or a string and returns a boolean indicating whether the whole stream or its prefix -- depending on the message sent -- matches the regex. 3. Subexpression query. After a successful match, and before any other match, the matcher may be queried about the range of specific stream (string) positions that matched to certain parenthesized subexpressions of the original expression. Any number of queries may follow a successful match, and any number or matches may follow a successful initialization. Note that `matcher' is actually a sort of a misnomer. The actual matcher is a web of Rxm* instances built by RxMatcher during initialization. RxMatcher is just the interface facade of this network. It is also a builder of it, and also provides a stream-like protocol to easily access the stream being matched. Instance variables: matcher <RxmLink> The entry point into the actual matcher. igoreCase <Boolean> Whether the matching algorithm should be case sensitive or not. startOptimizer <RxMatchOptimizer> An object which can quickly decide whether the next character can be the prefix of a match or not. stream <Stream> The stream currently being matched against. markerPositions <Array of: nil | Integer | OrderedCollection> Positions of markers' matches. previousMarkerPositions <Array of: nil | Integer | OrderedCollection> Positions of markers from the previous #tryMatch send. markerCount <Integer> Number of markers. lastResult <Boolean> Whether the latest match attempt succeeded or not. firtTryMatch <Boolean> True if there hasn't been any send of #tryMatch during the current matching.! Item was changed: ----- Method: RxMatcher class>>initialize (in category 'class initialization') ----- initialize + "RxMatcher initialize" Cr := Character cr. + Lf := Character lf. + NullCharacter := Character value: 0! - Lf := Character lf.! Item was changed: ----- Method: RxMatcher>>atBeginningOfLine (in category 'testing') ----- atBeginningOfLine + | lastCharacter | + stream position = 0 ifTrue: [ ^true ]. + (lastCharacter := stream last) == Cr ifTrue: [ ^true ]. + ^lastCharacter == Lf! - ^self position = 0 or: [self lastChar = Cr]! Item was changed: ----- Method: RxMatcher>>lastChar (in category 'accessing') ----- lastChar + + ^stream position = 0 ifFalse: [ stream last ]! - ^ stream position = 0 - ifFalse: [ stream skip: -1; next ]! Item was changed: ----- Method: RxMatcher>>matchingRangesIn: (in category 'match enumeration') ----- matchingRangesIn: aString "Search aString repeatedly for the matches of the receiver. Answer an OrderedCollection of ranges of each match (index of first character to: index of last character)." | result | result := OrderedCollection new. self matchesIn: aString + do: [ :match | + | streamPosition | + result add: ((streamPosition := stream position) - match size + 1 to: streamPosition)]. - do: [:match | result add: (self position - match size + 1 to: self position)]. ^result! Item was removed: - ----- Method: RxMatcher>>position (in category 'streaming') ----- - position - - ^stream position! Item was changed: ----- Method: RxMatcher>>syntaxAny (in category 'double dispatch') ----- syntaxAny "Double dispatch from the syntax tree. Create a matcher for any non-null character." ^RxmPredicate new + predicate: [:char | (char == NullCharacter) not ]! - predicate: [:char | char asInteger ~= 0]! Item was changed: ----- Method: RxmTerminator>>terminateWith: (in category 'building') ----- terminateWith: aTerminator "Branch terminators are never supposed to change. Make sure this is the case." + aTerminator == self ifFalse: [ + RxParser signalCompilationException: 'internal matcher build error - wrong terminator' ]! - aTerminator ~~ self - ifTrue: [RxParser signalCompilationException: - 'internal matcher build error - wrong terminator']! Item was changed: ----- Method: RxsCharSet>>enumerablePartPredicateIgnoringCase: (in category 'privileged') ----- enumerablePartPredicateIgnoringCase: ignoreCase | set p | set := (self enumerableSetIgnoringCase: ignoreCase) ifNil: [ ^nil ]. set size = 1 ifTrue: [ | char | char := set anyOne. ignoreCase ifTrue: [ | lowercaseChar | lowercaseChar := char asLowercase. char := char asUppercase. char == lowercaseChar ifFalse: [ negated ifTrue: [ ^[ :character | (character == char or: [ character == lowercaseChar ]) not ] ]. ^[ :character | character == char or: [ character == lowercaseChar ] ] ] ]. + negated ifTrue: [ ^[ :character | (character == char) not ] ]. - negated ifTrue: [ ^[ :character | character ~~ char ] ]. ^[ :character | character == char ] ]. ignoreCase ifTrue: [ set copy do: [ :each | | char | (char := each asUppercase) == each ifFalse: [ set add: char ] ifTrue: [ (char := each asLowercase) == each ifFalse: [ set add: char ] ] ] ]. set size < 10 ifTrue: [ "10 is an empirical value" p := set asArray. negated ifTrue: [ ^[ :character | (p instVarsInclude: character) not ] ]. ^[ :character | p instVarsInclude: character ] ]. negated ifTrue: [ ^[ :character | (set includes: character) not ] ]. ^[ :character | set includes: character ]! Item was changed: ----- Method: RxsContextCondition>>isNullable (in category 'testing') ----- isNullable + ^(#syntaxAny == kind) not! - ^#syntaxAny ~~ kind! Item was changed: ----- Method: RxsPredicate>>beCharacter: (in category 'initialize-release') ----- beCharacter: aCharacter predicate := [ :char | char == aCharacter ]. + negation := [ :char | (char == aCharacter) not ]! - negation := [ :char | char ~~ aCharacter ]! Item was changed: ----- Method: RxsPredicate>>beWordConstituent (in category 'initialize-release') ----- beWordConstituent + predicate := [ :char | char == $_ or: [ char isAlphaNumeric ] ]. + negation := [ :char | (char == $_ or: [ char isAlphaNumeric ]) not ]! - predicate := [:char | char isAlphaNumeric or: [char == $_]]. - negation := [:char | char isAlphaNumeric not and: [char ~~ $_]]!

1 0

The Trunk: Regex-Core-ul.50.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

1 0

The Trunk: Tests-ul.338.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.338.mcz ==================== Summary ==================== Name: Tests-ul.338 Author: ul Time: 3 April 2016, 4:18:16.318046 am UUID: 512a1174-e020-4178-8a84-f0e3403d9794 Ancestors: Tests-ul.337 PackageDependencyTest changes: - added Chronology-Core - use symbols for package names =============== Diff against Tests-ul.337 =============== Item was changed: ----- Method: PackageDependencyTest>>testBalloon (in category 'tests') ----- testBalloon self testPackage: 'Balloon' dependsExactlyOn: #( + Collections + Graphics + Kernel + )! - Kernel Collections Graphics - ).! Item was added: + ----- Method: PackageDependencyTest>>testChronologyCore (in category 'tests') ----- + testChronologyCore + self testPackage: #'Chronology-Core' dependsExactlyOn: #( + Collections + Kernel + )! Item was changed: ----- Method: PackageDependencyTest>>testCollections (in category 'tests') ----- testCollections + self testPackage: #Collections dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Collections' dependsExactlyOn: #( Compiler Kernel Files Graphics Multilingual + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testCompiler (in category 'tests') ----- testCompiler + self testPackage: #Compiler dependsExactlyOn: #( - self testPackage: 'Compiler' dependsExactlyOn: #( Collections Graphics Kernel System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testCompression (in category 'tests') ----- testCompression + self testPackage: #Compression dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Compression' dependsExactlyOn: #( Collections Files Graphics Kernel Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testEtoys (in category 'tests') ----- testEtoys + self testPackage: #EToys dependsExactlyOn: #( - self testPackage: 'EToys' dependsExactlyOn: #( Balloon + #'Chronology-Core' Collections Compiler Compression Files Graphics Kernel Morphic MorphicExtras Multilingual Network - PreferenceBrowser Protocols SUnit System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testFiles (in category 'tests') ----- testFiles + self testPackage: #Files dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Files' dependsExactlyOn: #( Collections Kernel Multilingual System ).! Item was changed: ----- Method: PackageDependencyTest>>testGraphics (in category 'tests') ----- testGraphics + self testPackage: #Graphics dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Graphics' dependsExactlyOn: #( Collections Compression Files Kernel Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testInstaller (in category 'tests') ----- testInstaller + self testPackage: #Installer dependsExactlyOn: #( - self testPackage: 'Installer' dependsExactlyOn: #( Collections Compression Exceptions Files Kernel Monticello MonticelloConfigurations Multilingual Network System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testKernel (in category 'tests') ----- testKernel + self testPackage: #Kernel dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Kernel' dependsExactlyOn: #( Collections Compiler Environments Files Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- testMonticello + self testPackage: #Monticello dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Monticello' dependsExactlyOn: #( Collections Compiler Compression Environments Files Graphics Kernel Morphic Multilingual Network + #'PackageInfo-Base' + #'Services-Base' - 'PackageInfo-Base' - 'Services-Base' System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') ----- testMorphic + self testPackage: #Morphic dependsExactlyOn: #( - self testPackage: 'Morphic' dependsExactlyOn: #( Balloon + #'Chronology-Core' Collections Compiler EToys Files Graphics Kernel Monticello MonticelloConfigurations MorphicExtras Multilingual Network Sound System SystemReporter + #'ToolBuilder-Kernel' + #'ToolBuilder-Morphic' - 'ToolBuilder-Kernel' - 'ToolBuilder-Morphic' Tools TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testMorphicExtras (in category 'tests') ----- testMorphicExtras + self testPackage: #MorphicExtras dependsExactlyOn: #( - self testPackage: 'MorphicExtras' dependsExactlyOn: #( Balloon + #'Chronology-Core' Collections Compiler Files Graphics Kernel MonticelloConfigurations Morphic Multilingual Network Protocols Sound System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testMultilingual (in category 'tests') ----- testMultilingual + self testPackage: #Multilingual dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Multilingual' dependsExactlyOn: #( Collections Files Graphics Kernel Network System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testNetwork (in category 'tests') ----- testNetwork + self testPackage: #Network dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Network' dependsExactlyOn: #( Collections Compiler Compression Files Graphics Kernel Morphic System + #'ToolBuilder-Kernel' + #'WebClient-Core' - 'ToolBuilder-Kernel' - 'WebClient-Core' ).! Item was changed: ----- Method: PackageDependencyTest>>testPackageInfo (in category 'tests') ----- testPackageInfo + self testPackage: #PackageInfo dependsExactlyOn: #( - self testPackage: 'PackageInfo' dependsExactlyOn: #( Collections Compiler Graphics Kernel Morphic System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testPreferenceBrowser (in category 'tests') ----- testPreferenceBrowser + self testPackage: #PreferenceBrowser dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'PreferenceBrowser' dependsExactlyOn: #( Collections Graphics Kernel Morphic MorphicExtras System Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testProtocols (in category 'tests') ----- testProtocols + self testPackage: #Protocols dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Protocols' dependsExactlyOn: #( Collections Graphics Kernel Morphic MorphicExtras System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnit (in category 'tests') ----- testSUnit + self testPackage: #SUnit dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'SUnit' dependsExactlyOn: #( Collections Kernel System ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') ----- testSUnitGUI + self testPackage: #SUnitGUI dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'SUnitGUI' dependsExactlyOn: #( Collections Graphics Kernel + #'PackageInfo-Base' - 'PackageInfo-Base' SUnit System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testServices (in category 'tests') ----- testServices + self testPackage: #'Services-Base' dependsExactlyOn: #( - self testPackage: 'Services-Base' dependsExactlyOn: #( Collections Compiler Graphics Kernel Morphic + #'PackageInfo-Base' - 'PackageInfo-Base' PreferenceBrowser System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testShoutCore (in category 'tests') ----- testShoutCore + self testPackage: #ShoutCore dependsExactlyOn: #( - self testPackage: 'ShoutCore' dependsExactlyOn: #( Collections Environments Graphics Kernel Monticello System Compiler Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSound (in category 'tests') ----- testSound + self testPackage: #Sound dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Sound' dependsExactlyOn: #( Collections Balloon Files Graphics Kernel Network System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- testSystem + self testPackage: #System dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'System' dependsExactlyOn: #( Collections Compiler Compression Environments Files Graphics + #'Installer-Core' - 'Installer-Core' Kernel MonticelloConfigurations Morphic MorphicExtras Multilingual Network + #'PackageInfo-Base' - 'PackageInfo-Base' Sound + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilder (in category 'tests') ----- testToolBuilder + self testPackage: #'ToolBuilder-Kernel' dependsExactlyOn: #( - self testPackage: 'ToolBuilder-Kernel' dependsExactlyOn: #( Collections Files Kernel System ).! Item was changed: ----- Method: PackageDependencyTest>>testTools (in category 'tests') ----- testTools + self testPackage: #Tools dependsExactlyOn: #( + #'Chronology-Core' - self testPackage: 'Tools' dependsExactlyOn: #( Collections Compiler Compression Files Graphics Kernel Morphic MorphicExtras Multilingual Network + #'PackageInfo-Base' - 'PackageInfo-Base' System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testTraits (in category 'tests') ----- testTraits + self testPackage: #Traits dependsExactlyOn: #( - self testPackage: 'Traits' dependsExactlyOn: #( Collections Compiler Files Kernel Monticello System ).! Item was changed: ----- Method: PackageDependencyTest>>testTrueType (in category 'tests') ----- testTrueType + self testPackage: #TrueType dependsExactlyOn: #( - self testPackage: 'TrueType' dependsExactlyOn: #( Collections Balloon Files Graphics Kernel Multilingual System + #'ToolBuilder-Kernel' - 'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testVersionNumber (in category 'tests') ----- testVersionNumber + self testPackage: #VersionNumber dependsExactlyOn: #( - self testPackage: 'VersionNumber' dependsExactlyOn: #( Collections Kernel ).! Item was changed: ----- Method: PackageDependencyTest>>testXML (in category 'tests') ----- testXML + self testPackage: #XML dependsExactlyOn: #( - self testPackage: 'XML' dependsExactlyOn: #( Collections Exceptions Files Kernel Multilingual System Tests ).!

1 0

The Trunk: Tests-ul.338.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

1 0

The Trunk: Tools-ul.682.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.682.mcz ==================== Summary ==================== Name: Tools-ul.682 Author: ul Time: 3 April 2016, 4:16:13.327179 am UUID: 8fe2129c-026c-4af5-a470-0c8aeeb5e9e7 Ancestors: Tools-mt.681 - removed hard dependency on ShoutCore =============== Diff against Tools-mt.681 =============== Item was changed: ----- Method: Browser>>messageHelpFor: (in category 'message list') ----- messageHelpFor: aSelector "Show the first n lines of the sources code of the message behind aSelector." | source formatted iconHelp | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. source := (self selectedClassOrMetaClass compiledMethodAt: aSelector ifAbsent: [^ nil]) getSource. source lineCount > 5 ifTrue: [ | sourceLines | sourceLines := (source asString lines copyFrom: 1 to: 5) asOrderedCollection. sourceLines add: ' [...]'. source := sourceLines joinSeparatedBy: Character cr]. + + formatted := (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [ source asText ] + ifNotNil: [ :SHTextStylerST80 | + SHTextStylerST80 new + classOrMetaClass: self selectedClassOrMetaClass; + styledTextFor: source asText ]. - formatted := SHTextStylerST80 new - classOrMetaClass: self selectedClassOrMetaClass; - styledTextFor: source asText. iconHelp := (self messageIconHelpFor: aSelector) ifNotEmpty: [:t | t , Character cr, Character cr]. ^ iconHelp asText append: formatted; yourself! Item was changed: ----- Method: Debugger>>messageHelpAt: (in category 'context stack (message list)') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." | method source formatted lineCount | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. contextStack size < anIndex ifTrue: [^ nil]. method := (contextStack at: anIndex) method. source := method getSource. + formatted := (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [ source asText ] + ifNotNil: [ :SHTextStylerST80 | + SHTextStylerST80 new + classOrMetaClass: method methodClass; + styledTextFor: source asText ]. - formatted := SHTextStylerST80 new - classOrMetaClass: method methodClass; - styledTextFor: source asText. lineCount := 0. source doWithIndex: [:char :index | char = Character cr ifTrue: [lineCount := lineCount + 1]. lineCount > 10 ifTrue: [ formatted := formatted copyFrom: 1 to: index-1. formatted append: ' [...]'. ^ formatted]]. ^ formatted! Item was changed: ----- Method: MessageSet>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." | reference source formatted lineCount | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. reference := self messageList at: anIndex. reference isValid ifFalse: [^ nil]. source := reference compiledMethod getSource. + formatted := (Smalltalk classNamed: #SHTextStylerST80) + ifNil: [ source asText ] + ifNotNil: [ :SHTextStylerST80 | + SHTextStylerST80 new + classOrMetaClass: reference actualClass; + styledTextFor: source asText ]. - formatted := SHTextStylerST80 new - classOrMetaClass: reference actualClass; - styledTextFor: source asText. lineCount := 0. source doWithIndex: [:char :index | char = Character cr ifTrue: [lineCount := lineCount + 1]. lineCount > 10 ifTrue: [ formatted := formatted copyFrom: 1 to: index-1. formatted append: ' [...]'. ^ formatted]]. ^ formatted!

1 0

The Trunk: Tools-ul.682.mcz
by commits＠source.squeak.org 03 Apr '16

03 Apr '16

1 0

The Trunk: Network-ul.176.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.176.mcz ==================== Summary ==================== Name: Network-ul.176 Author: ul Time: 2 April 2016, 9:06:31.957661 pm UUID: 1b580a49-2663-4d5d-a659-606ba1c698de Ancestors: Network-ul.175 Use primitiveMakeUUID when it's available in UUID >> #makeUUID. This should keep things snappier when UUIDPlugin works, and it should decrease the possibility of a UUID collision due to our poor seed generation in Random. =============== Diff against Network-ul.175 =============== Item was changed: ----- Method: UUID>>makeUUID (in category 'as yet unclassified') ----- makeUUID + + self primMakeUUID ifNil: [ + UUIDGenerator default generateBytes: self forVersion: 4 ]! - UUIDGenerator default generateBytes: self forVersion: 4.!

1 0

The Trunk: Network-ul.176.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

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 2016