Packages August 2012

packages@lists.squeakfoundation.org

1 participants
123 discussions

The Trunk: System-ul.494.mcz
by commits＠source.squeak.org 20 Aug '12

20 Aug '12

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.494.mcz ==================== Summary ==================== Name: System-ul.494 Author: ul Time: 20 August 2012, 2:15:22.378 am UUID: d402500d-3d26-6b45-997e-a2120e22c15e Ancestors: System-ul.493 - improved the comment of Clipboard =============== Diff against System-ul.493 =============== Item was changed: Object subclass: #Clipboard instanceVariableNames: 'contents recent interpreter' classVariableNames: 'Default' poolDictionaries: '' category: 'System-Support'! + !Clipboard commentStamp: 'ul 8/20/2012 02:14' prior: 0! - !Clipboard commentStamp: 'ul 8/16/2012 15:26' prior: 0! The Clipboard class implements a basic buffering scheme for text. The currently selected text is also exported to the OS so that text can be copied from and to other applications. Commonly only a single instance is used (the default clipboard) but applications are free to use other than the default clipboard if necessary. If you'd like to be notified of the changes of the clipboard, you can subscribe to it's #contentChanged event. For example: - | subscriber | subscriber := [ :newClipboardText :updateSource | Transcript show: ('Clipboard was updated by {1}, the new content is: {2}' format: { updateSource. newClipboardText }); cr ]. Clipboard default when: #contentChanged send: #value:value: to: subscriber. + + At this point if you open a Transcript and copy or cut some text, then the message will appear on the Transcript. Make sure that there's a reference kept to subscriber, otherwise it will be garbage collected and no messages will appear. To unsubscribe from the clipboard changes, just evaluate: Clipboard default removeActionsWithReceiver: subscriber!

1 0

The Trunk: Tests-ul.161.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.161.mcz ==================== Summary ==================== Name: Tests-ul.161 Author: ul Time: 19 August 2012, 6:53:41.704 pm UUID: 9e72a8cb-b86e-3e45-819d-e98c1f3a84c9 Ancestors: Tests-cwp.160 Added a test for Clipboard, mainly for the new notification mechanism. =============== Diff against Tests-cwp.160 =============== Item was added: + TestCase subclass: #ClipboardTest + instanceVariableNames: 'originalClipboardText' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-System-Support'! Item was added: + ----- Method: ClipboardTest>>setUp (in category 'as yet unclassified') ----- + setUp + "Store the contents of the default clipboard. This is necessary, because all Clipboard instances modify the contents of the system clipboard." + + originalClipboardText := Clipboard default clipboardText! Item was added: + ----- Method: ClipboardTest>>tearDown (in category 'as yet unclassified') ----- + tearDown + "Restore the contents of the default clipboard. This is necessary, because all Clipboard instances modify the contents of the system clipboard." + + Clipboard default clipboardText: originalClipboardText! Item was added: + ----- Method: ClipboardTest>>testClipboardText (in category 'as yet unclassified') ----- + testClipboardText + + | uuidString clipboard | + uuidString := UUID new asString36. + clipboard := Clipboard new. + clipboard clipboardText: uuidString. + self assert: uuidString equals: clipboard clipboardText asString! Item was added: + ----- Method: ClipboardTest>>testClipboardTextNotifyWith (in category 'as yet unclassified') ----- + testClipboardTextNotifyWith + + | uuidString clipboard subscriber notifiedText notifiedSource | + uuidString := UUID new asString36. + clipboard := Clipboard new. + subscriber := [ :text :source | + notifiedText := text. + notifiedSource := source ]. + clipboard + when: #contentChanged + send: #value:value: + to: subscriber. + clipboard clipboardText: uuidString. + self + assert: uuidString equals: notifiedText; + assert: nil equals: notifiedSource. + clipboard clipboardText: uuidString reversed notifyWith: self. + self + assert: uuidString reversed equals: notifiedText; + assert: self == notifiedSource. + clipboard removeActionsWithReceiver: subscriber. + clipboard clipboardText: uuidString. + self + assert: uuidString reversed equals: notifiedText; + assert: self == notifiedSource!

1 0

The Trunk: Tests-ul.161.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

1 0

The Trunk: Tests-ul.161.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

1 0

The Trunk: CollectionsTests-ul.188.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.188.mcz ==================== Summary ==================== Name: CollectionsTests-ul.188 Author: ul Time: 19 August 2012, 3:19:50.449 pm UUID: 85f1372a-70ab-ef44-8b53-31c67f7cae63 Ancestors: CollectionsTests-ael.187 - simplified StringTest >> #testUnescapePercents and added a few more cases which failed with the previous implementation =============== Diff against CollectionsTests-ael.187 =============== Item was changed: ----- Method: StringTest>>testUnescapePercents (in category 'tests - converting') ----- testUnescapePercents - self assert: '' unescapePercents = ''. - self assert: 'x' unescapePercents = 'x'. + #( + '' '' + 'x' 'x' + '+' ' ' + 'x+' 'x ' + '+x' ' x' + 'x+x' 'x x' + '%' '%' + '%3' '%3' + '%3C' '<' + '%3C%' '%3C%' + '%3C%3' '%3C%3' + '%3C%3C' '<<' + '%3Cx%3E4%3C%2Fx%3E' '<x>4</x>' + '!!@#$%25%5E&*()%7B%7D%5B%5D=:/;?+''%22' '!!@#$%^&*(){}[]=:/;? ''"' + '!!%40%23%24%25%5E%26*()%7B%7D%5B%5D%3D%3A%2F%3B%3F%2B''%22' '!!@#$%^&*(){}[]=:/;?+''"' + '%21@%23%24%25%5E%26*%28%29%7B%7D%5B%5D%3D%3A/%3B%3F+%27%22' '!!@#$%^&*(){}[]=:/;? ''"' + ) pairsDo: [ :from :to | + self assert: to equals: from unescapePercents ]! - self assert: '+' unescapePercents = ' '. - self assert: 'x+' unescapePercents = 'x '. - self assert: '+x' unescapePercents = ' x'. - self assert: 'x+x' unescapePercents = 'x x'. - - self assert: '%' unescapePercents = '%'. - self assert: '%3' unescapePercents = '%3'. - self assert: '%3C' unescapePercents = '<'. - - self assert: '%3Cx%3E4%3C%2Fx%3E' unescapePercents = '<x>4</x>'. - - self assert: '!!@#$%25%5E&*()%7B%7D%5B%5D=:/;?+''%22' unescapePercents = '!!@#$%^&*(){}[]=:/;? ''"'. - self assert: '!!%40%23%24%25%5E%26*()%7B%7D%5B%5D%3D%3A%2F%3B%3F%2B''%22' unescapePercents = '!!@#$%^&*(){}[]=:/;?+''"'. - self assert: '%21@%23%24%25%5E%26*%28%29%7B%7D%5B%5D%3D%3A/%3B%3F+%27%22' unescapePercents = '!!@#$%^&*(){}[]=:/;? ''"'!

1 0

The Trunk: CollectionsTests-ul.188.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

1 0

The Trunk: CollectionsTests-ul.188.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

1 0

The Trunk: Collections-ul.488.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.488.mcz ==================== Summary ==================== Name: Collections-ul.488 Author: ul Time: 19 August 2012, 11:26:54.909 am UUID: a2927620-f372-1f4e-8e29-b6a5ff77fa9f Ancestors: Collections-cwp.487 Updated String >> #unescapePercentsRaw - it always returns the receiver if it is not percent-encoded - the implementation is simpler and slightly faster =============== Diff against Collections-cwp.487 =============== Item was changed: ----- Method: String>>unescapePercentsRaw (in category 'converting') ----- unescapePercentsRaw + "Decode myself if I'm percent-encoded, also replace + with space. Return self if the encoding is not valid." - "decode string including %XX form" + ^String new: self size streamContents: [ :stream | + | value1 value2 specialChars startIndex endIndex | + specialChars := '+%' asCharacterSet. + startIndex := 1. + [ (endIndex := self indexOfAnyOf: specialChars startingAt: startIndex) > 0 ] whileTrue: [ + stream next: endIndex - startIndex putAll: self startingAt: startIndex. + (self at: endIndex) == $% + ifTrue: [ + endIndex + 2 <= self size ifFalse: [ ^self ]. + value1 := (self at: endIndex + 1) asUppercase digitValue. + (value1 < 0 or: [ value1 > 15 ]) ifTrue: [ ^self ]. + value2 := (self at: endIndex + 2) asUppercase digitValue. + (value2 < 0 or: [ value2 > 15 ]) ifTrue: [ ^self ]. + stream nextPut: (Character value: value1 * 16 + value2). + startIndex := endIndex + 3 ] + ifFalse: [ "$+" + stream nextPut: Character space. + startIndex := endIndex + 1 ] ]. + startIndex <= self size ifTrue: [ + stream next: self size + 1 - startIndex putAll: self startingAt: startIndex ] ]! - | unescaped char asciiVal specialChars oldPos pos | - unescaped := ReadWriteStream on: String new. - specialChars := '+%' asCharacterSet. - oldPos := 1. - [pos := self indexOfAnyOf: specialChars startingAt: oldPos. - pos > 0] - whileTrue: [unescaped - nextPutAll: (self copyFrom: oldPos to: pos - 1). - char := self at: pos. - (char = $% - and: [pos + 2 <= self size]) - ifTrue: [asciiVal := (self at: pos + 1) asUppercase digitValue * 16 + (self at: pos + 2) asUppercase digitValue. - asciiVal > 255 - ifTrue: [^ self]. - unescaped - nextPut: (Character value: asciiVal). - pos := pos + 3. - pos <= self size - ifFalse: [char := nil]. - oldPos := pos] - ifFalse: [char = $+ - ifTrue: [unescaped nextPut: Character space] - ifFalse: [unescaped nextPut: char]. - oldPos := pos + 1]]. - oldPos <= self size - ifTrue: [unescaped - nextPutAll: (self copyFrom: oldPos to: self size)]. - ^unescaped contents!

1 0

The Trunk: Collections-ul.488.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

1 0

The Trunk: Collections-ul.488.mcz
by commits＠source.squeak.org 19 Aug '12

19 Aug '12

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2012