Packages August 2015

packages@lists.squeakfoundation.org

1 participants
204 discussions

The Trunk: Kernel-eem.950.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.950.mcz ==================== Summary ==================== Name: Kernel-eem.950 Author: eem Time: 28 August 2015, 12:10:24.052 pm UUID: 2b3d6360-4395-4cdf-8186-86c145c93ee2 Ancestors: Kernel-eem.949 Fix deprecated:[block:] =============== Diff against Kernel-eem.949 =============== Item was added: + ----- Method: Deprecation class>>maybeSignalDeprecationFor:message:explanation: (in category 'utilities') ----- + maybeSignalDeprecationFor: context message: messageString explanation: explanationString + ShowDeprecationWarnings == true ifTrue: + [self signal: context method reference, ' has been deprecated', messageString, '. ', explanationString]! Item was changed: ----- Method: Object>>backwardCompatibilityOnly: (in category 'error handling') ----- + backwardCompatibilityOnly: explanationString - backwardCompatibilityOnly: anExplanationString "Warn that the sending method has been deprecated. Methods that are tagt with #backwardCompatibility: are kept for compatibility." + Deprecation + maybeSignalDeprecationFor: thisContext sender + message: ' (but will be kept for compatibility)' + explanation: explanationString! - Preferences showDeprecationWarnings ifTrue: - [Deprecation signal: thisContext sender printString, ' has been deprecated (but will be kept for compatibility). ', anExplanationString]! Item was changed: ----- Method: Object>>deprecated: (in category 'error handling') ----- + deprecated: explanationString - deprecated: anExplanationString "Warn that the sending method has been deprecated." + Deprecation + maybeSignalDeprecationFor: thisContext sender + message: '' + explanation: explanationString! - Preferences showDeprecationWarnings ifTrue: - [Deprecation signal: thisContext sender printString, ' has been deprecated. ', anExplanationString]! Item was changed: ----- Method: Object>>deprecated:block: (in category 'error handling') ----- + deprecated: explanationString block: aBlock - deprecated: anExplanationString block: aBlock "Warn that the sender has been deprecated. Answer the value of aBlock on resumption. (Note that #deprecated: is usually the preferred method.)" + Deprecation + maybeSignalDeprecationFor: thisContext sender + message: '' + explanation: explanationString. - Preferences showDeprecationWarnings ifTrue: - [Deprecation - signal: thisContext sender printString, ' has been deprecated. ', anExplanationString]. ^ aBlock value. !

1 0

The Trunk: Kernel-eem.950.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

1 0

The Trunk: Kernel-eem.949.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.949.mcz ==================== Summary ==================== Name: Kernel-eem.949 Author: eem Time: 28 August 2015, 10:22:44.926 am UUID: d9195787-aea0-48b2-afd4-c3961b86b568 Ancestors: Kernel-eem.948 #~~ has a primitive. Use it. =============== Diff against Kernel-eem.948 =============== Item was changed: ----- Method: ProtoObject>>~~ (in category 'comparing') ----- ~~ anObject "Answer whether the receiver and the argument are not the same object + (do not have the same object pointer). Primitive. Optional." + <primitive: 169> + self == anObject ifTrue: [^false]. + ^true! - (do not have the same object pointer)." - - self == anObject - ifTrue: [^ false] - ifFalse: [^ true]!

1 0

The Trunk: Kernel-eem.949.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

1 0

The Trunk: Collections-eem.650.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.650.mcz ==================== Summary ==================== Name: Collections-eem.650 Author: eem Time: 28 August 2015, 10:18:46.207 am UUID: 5e4ce352-b835-441d-ab18-afc018290378 Ancestors: Collections-ul.649 #~~ has a primitive. Use it. =============== Diff against Collections-ul.649 =============== Item was added: ==== ERROR === Error: Unrecognized class type 28 August 2015 5:19:09.412 pm VM: unix - a SmalltalkImage Image: Squeak3.11alpha [latest update: #8824] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak MCClassDefinition(Object)>>error: Receiver: a MCClassDefinition(Ephemeron) Arguments and temporary variables: aString: 'Unrecognized class type' Receiver's instance variables: name: #Ephemeron superclassName: #Association variables: an OrderedCollection() category: #'Collections-Weak' type: #ephemeron comment: 'An Ephemeron is a mechanism both for instance-based finalization and ...etc... commentStamp: 'eem 8/26/2015 10:05' traitComposition: nil classTraitComposition: nil MCClassDefinition>>kindOfSubclass Receiver: a MCClassDefinition(Ephemeron) Arguments and temporary variables: Receiver's instance variables: name: #Ephemeron superclassName: #Association variables: an OrderedCollection() category: #'Collections-Weak' type: #ephemeron comment: 'An Ephemeron is a mechanism both for instance-based finalization and ...etc... commentStamp: 'eem 8/26/2015 10:05' traitComposition: nil classTraitComposition: nil MCClassDefinition>>printDefinitionOn: Receiver: a MCClassDefinition(Ephemeron) Arguments and temporary variables: stream: a WriteStream Receiver's instance variables: name: #Ephemeron superclassName: #Association variables: an OrderedCollection() category: #'Collections-Weak' type: #ephemeron comment: 'An Ephemeron is a mechanism both for instance-based finalization and ...etc... commentStamp: 'eem 8/26/2015 10:05' traitComposition: nil classTraitComposition: nil [] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: Receiver: a MCDiffyTextWriter Arguments and temporary variables: definition: a WriteStream s: a MCClassDefinition(Ephemeron) Receiver's instance variables: stream: a WriteStream initStream: nil --- The full stack --- MCClassDefinition(Object)>>error: MCClassDefinition>>kindOfSubclass MCClassDefinition>>printDefinitionOn: [] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: MCDiffyTextWriter(MCTextWriter)>>chunkContents: MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: MCDiffyTextWriter(MCStWriter)>>visitClassDefinition: MCClassDefinition>>accept: [] in MCDiffyTextWriter(MCTextWriter)>>visitInFork: String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: MCDiffyTextWriter(MCTextWriter)>>visitInFork: MCDiffyTextWriter>>writePatchFrom:to: MCDiffyTextWriter>>writeAddition: [] in MCDiffyTextWriter>>writePatch: SortedCollection(OrderedCollection)>>do: MCDiffyTextWriter>>writePatch: SSDiffyTextWriter>>writePatch: [] in SSDiffyTextWriter>>writeVersion:for: BlockClosure>>on:do: SSDiffyTextWriter>>writeVersion:for: [] in SSEMailSubscription>>versionAdded:to: BlockClosure>>on:do: SSEMailSubscription>>versionAdded:to: [] in [] in SSProject>>versionAdded: [] in BlockClosure>>newProcess

1 0

The Trunk: Collections-eem.650.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

1 0

The Trunk: Regex-Core-ul.44.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Levente Uzonyi uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ul.44.mcz ==================== Summary ==================== Name: Regex-Core-ul.44 Author: ul Time: 28 August 2015, 2:21:49.191 pm UUID: eb190b36-cf56-4381-97cb-58ef044c6416 Ancestors: Regex-Core-ul.43 RxMatcher: - updated class comment - renamed two class variables - added some speedups for those regular expressions which don't have any subexpressions - #resetMarkerPositions is now clearly something extracted from #tryMatch - use the fact that the stream is a stream of characters, so when #next returns nil, then we have found the end of the stream. =============== Diff against Regex-Core-ul.43 =============== Item was changed: Object subclass: #RxMatcher + instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions previousMarkerPositions markerCount lastResult firstTryMatch' - instanceVariableNames: 'matcher ignoreCase startOptimizer stream markerPositions markerCount lastResult oldMarkerPositions firstTry' classVariableNames: 'Cr Lf' poolDictionaries: '' category: 'Regex-Core'! + !RxMatcher commentStamp: 'ul 8/28/2015 14:18' prior: 0! - !RxMatcher commentStamp: 'Tbn 11/12/2010 23:13' 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.! - matcher <RxmLink> The entry point into the actual matcher. - stream <Stream> The stream currently being matched against. - markerPositions <Array of: Integer> Positions of markers' matches. - markerCount <Integer> Number of markers. - lastResult <Boolean> Whether the latest match attempt succeeded or not. - lastChar <Character | nil> character last seen in the matcher stream! Item was changed: ----- Method: RxMatcher>>copyStream:to:replacingMatchesWith: (in category 'match enumeration') ----- copyStream: aStream to: writeStream replacingMatchesWith: aString "Copy the contents of <aStream> on the <writeStream>, except for the matches. Replace each match with <aString>." | searchStart matchStart matchEnd | stream := aStream. + firstTryMatch := true. - self resetMarkerPositions. [searchStart := aStream position. self proceedSearchingStream: aStream] whileTrue: [matchStart := (self subBeginning: 1) last. matchEnd := (self subEnd: 1) last. aStream position: searchStart. searchStart to: matchStart - 1 do: [:ignoredPos | writeStream nextPut: aStream next]. writeStream nextPutAll: aString. aStream position: matchEnd. "Be extra careful about successful matches which consume no input. After those, make sure to advance or finish if already at end." matchEnd = searchStart ifTrue: [aStream atEnd ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] ifFalse: [writeStream nextPut: aStream next]]]. aStream position: searchStart. [aStream atEnd] whileFalse: [writeStream nextPut: aStream next]! Item was changed: ----- Method: RxMatcher>>copyStream:to:translatingMatchesUsing: (in category 'match enumeration') ----- copyStream: aStream to: writeStream translatingMatchesUsing: aBlock "Copy the contents of <aStream> on the <writeStream>, except for the matches. For each match, evaluate <aBlock> passing the matched substring as the argument. Expect the block to answer a String, and write the answer to <writeStream> in place of the match." | searchStart matchStart matchEnd match | stream := aStream. + firstTryMatch := true. - self resetMarkerPositions. [searchStart := aStream position. self proceedSearchingStream: aStream] whileTrue: [matchStart := (self subBeginning: 1) last. matchEnd := (self subEnd: 1) last. aStream position: searchStart. searchStart to: matchStart - 1 do: [:ignoredPos | writeStream nextPut: aStream next]. match := (String new: matchEnd - matchStart + 1) writeStream. matchStart to: matchEnd - 1 do: [:ignoredPos | match nextPut: aStream next]. writeStream nextPutAll: (aBlock value: match contents). "Be extra careful about successful matches which consume no input. After those, make sure to advance or finish if already at end." matchEnd = searchStart ifTrue: [aStream atEnd ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] ifFalse: [writeStream nextPut: aStream next]]]. aStream position: searchStart. [aStream atEnd] whileFalse: [writeStream nextPut: aStream next]! Item was changed: ----- Method: RxMatcher>>initialize:ignoreCase: (in category 'initialize-release') ----- initialize: syntaxTreeRoot ignoreCase: aBoolean "Compile thyself for the regex with the specified syntax tree. See comment and `building' protocol in this class and #dispatchTo: methods in syntax tree components for details on double-dispatch building. The argument is supposedly a RxsRegex." ignoreCase := aBoolean. self buildFrom: syntaxTreeRoot. + self initializeMarkerPositions. startOptimizer := RxMatchOptimizer new initialize: syntaxTreeRoot ignoreCase: aBoolean! Item was added: + ----- Method: RxMatcher>>initializeMarkerPositions (in category 'initialize-release') ----- + initializeMarkerPositions + + markerPositions := Array new: markerCount. + previousMarkerPositions := Array new: markerCount.. + 3 to: markerCount do: [ :index | + markerPositions at: index put: (OrderedCollection new: 1). + previousMarkerPositions at: index put: (OrderedCollection new: 1) ].! Item was changed: ----- Method: RxMatcher>>isWordChar: (in category 'private') ----- isWordChar: aCharacterOrNil "Answer whether the argument is a word constituent character: alphanumeric or _." + aCharacterOrNil ifNil: [ ^false ]. + ^aCharacterOrNil isAlphaNumeric! - ^aCharacterOrNil ~~ nil - and: [aCharacterOrNil isAlphaNumeric]! Item was changed: ----- Method: RxMatcher>>markerPositionAt:add: (in category 'privileged') ----- + markerPositionAt: index add: position - markerPositionAt: anIndex add: position "Remember position of another instance of the given marker." + index <= 2 ifTrue: [ + markerPositions at: index put: position. + ^self ]. + (markerPositions at: index) addLast: position! - (markerPositions at: anIndex) addLast: position! Item was changed: ----- Method: RxMatcher>>matchesStreamPrefix: (in category 'accessing') ----- matchesStreamPrefix: theStream "Match thyself against a positionable stream." stream := theStream. + firstTryMatch := true. - self resetMarkerPositions. ^self tryMatch! Item was changed: ----- Method: RxMatcher>>proceedSearchingStream: (in category 'private') ----- proceedSearchingStream: aStream | position | + [ + position := aStream position. + self tryMatch ifTrue: [ ^true ]. + (aStream position: position; next) ifNil: [ + "Try match at the very stream end too!!" + ^self tryMatch ] ] repeat! - position := aStream position. - [aStream atEnd] whileFalse: - [self tryMatch ifTrue: [^true]. - aStream position: position; next. - position := aStream position]. - "Try match at the very stream end too!!" - self tryMatch ifTrue: [^true]. - ^false! Item was changed: ----- Method: RxMatcher>>resetMarkerPositions (in category 'private') ----- resetMarkerPositions + "Reset the marker positions. This method should only be sent from #tryMatch. When this is after the first #tryMatch send, then the marker positions must be swapped." - "This method should be sent before the first #tryMatch send." + firstTryMatch + ifTrue: [ firstTryMatch := false ] + ifFalse: [ + | temp | + temp := previousMarkerPositions. + previousMarkerPositions := markerPositions. + markerPositions := temp ]. + markerPositions + at: 1 put: nil; + at: 2 put: nil. + 3 to: markerCount do: [ :index | + (markerPositions at: index) resetTo: 1 ]! - firstTry := true. - markerPositions ifNotNil: [ - markerPositions do: [ :each | each resetTo: 1 ] ]! Item was changed: ----- Method: RxMatcher>>searchStream: (in category 'accessing') ----- searchStream: aStream "Search the stream for occurrence of something matching myself. After the search has occurred, stop positioned after the end of the matched substring. Answer a Boolean indicating success." | position | stream := aStream. position := aStream position. + firstTryMatch := true. - self resetMarkerPositions. [aStream atEnd] whileFalse: [self tryMatch ifTrue: [^true]. aStream position: position; next. position := aStream position]. "Try match at the very stream end too!!" ^self tryMatch! Item was changed: ----- Method: RxMatcher>>subBeginning: (in category 'accessing') ----- subBeginning: subIndex + subIndex = 1 ifTrue: [ + (markerPositions at: 1) + ifNil: [ ^#()] + ifNotNil: [ :mp | ^{ mp } ] ]. ^markerPositions at: subIndex * 2 - 1! Item was changed: ----- Method: RxMatcher>>subEnd: (in category 'accessing') ----- subEnd: subIndex + subIndex = 1 ifTrue: [ + (markerPositions at: 2) + ifNil: [ ^#()] + ifNotNil: [ :mp | ^{ mp } ] ]. ^markerPositions at: subIndex * 2! Item was changed: ----- Method: RxMatcher>>tryMatch (in category 'private') ----- tryMatch "Match thyself against the current stream." + | wasFirstTryMatch | + wasFirstTryMatch := firstTryMatch. + self resetMarkerPositions. - | newMarkerPositions wasFirstTry | - wasFirstTry := firstTry. - firstTry := false. - newMarkerPositions := oldMarkerPositions. - oldMarkerPositions := markerPositions. - markerPositions := newMarkerPositions. - markerPositions - ifNil: [ - markerPositions := Array new: markerCount. - 1 to: markerCount do: [ :i | - "There are usually 0 or 1 objects to store." - markerPositions at: i put: (OrderedCollection new: 2) ] ] - ifNotNil: [ - 1 to: markerCount do: [ :i | - (markerPositions at: i) resetTo: 1 ] ]. lastResult := startOptimizer + ifNil: [ matcher matchAgainst: self ] - ifNil: [ matcher matchAgainst: self] ifNotNil: [ (startOptimizer canStartMatch: stream peek in: self) and: [ matcher matchAgainst: self ] ]. "check for duplicates" lastResult ifFalse: [ ^false ]. + wasFirstTryMatch ifTrue: [ ^true ]. + (previousMarkerPositions hasEqualElements: markerPositions) ifFalse: [ ^true ]. - wasFirstTry ifTrue: [ ^true ]. - (oldMarkerPositions hasEqualElements: markerPositions) ifFalse: [ ^true ]. "this is a duplicate match" ^ lastResult := false!

1 0

The Trunk: Regex-Core-ul.44.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

1 0

The Trunk: PreferenceBrowser-mt.56.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '15

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.56.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.56 Author: mt Time: 28 August 2015, 10:42:09.726 am UUID: 653323a1-a37f-f047-9a58-06ceac3598e8 Ancestors: PreferenceBrowser-mt.55 Fixes menu pop-up for color preferences. =============== Diff against PreferenceBrowser-mt.55 =============== Item was changed: ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') ----- borderStyleMenu "Add border-style menu items" | aMenu | aMenu := MenuMorph new defaultTarget: self. aMenu addStayUpItemSpecial. aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button. aMenu addLine. BorderStyle borderStyleChoices do: [:sym | (aMenu borderStyleForSymbol: sym) ifNotNil: [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]]. + ^aMenu popUpInWorld - ^aMenu openNear: ActiveHand bounds. ! Item was changed: ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') ----- fillStyleMenu "Add the items for changing the current fill style of the Morph" | aMenu | "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]." aMenu := MenuMorph new defaultTarget: self. "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self." aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button. aMenu addLine. aMenu add: 'solid fill' translated action: #useSolidFill. "aMenu add: 'gradient fill' translated action: #useGradientFill. aMenu add: 'bitmap fill' translated action: #useBitmapFill. aMenu add: 'default fill' translated action: #useDefaultFill." + ^aMenu popUpInWorld - ^aMenu openNear: ActiveHand bounds. !

1 0

The Trunk: PreferenceBrowser-mt.56.mcz
by commits＠source.squeak.org 28 Aug '15

28 Aug '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 August 2015