Packages August 2012

packages@lists.squeakfoundation.org

1 participants
123 discussions

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

19 Aug '12

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.493.mcz ==================== Summary ==================== Name: System-ul.493 Author: ul Time: 16 August 2012, 4:07:05.302 pm UUID: 9b43acfa-a8e6-6442-a8cb-34aa8ca2370a Ancestors: System-cmm.492 - enh: Clipboard instances send notifications (triggerEvent) to their subscribers when their content changes. =============== Diff against System-cmm.492 =============== Item was changed: Object subclass: #Clipboard instanceVariableNames: 'contents recent interpreter' classVariableNames: 'Default' poolDictionaries: '' category: 'System-Support'! + !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. + + To unsubscribe from the clipboard changes, just evaluate: + + Clipboard default removeActionsWithReceiver: subscriber! - !Clipboard commentStamp: '<historical>' 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.! Item was changed: ----- Method: Clipboard>>clipboardText: (in category 'accessing') ----- clipboardText: text + self clipboardText: text notifyWith: nil! - | string | - string := text asString. - self noteRecentClipping: text asText. - contents := text asText. - string := self interpreter toSystemClipboard: string. - self primitiveClipboardText: string. - ! Item was added: + ----- Method: Clipboard>>clipboardText:notifyWith: (in category 'accessing') ----- + clipboardText: text notifyWith: anObject + "Set the contents of the clipboard to text. anObject can be used as a marker for the source of the clipboard change, the default value is nil." + + | string | + string := text asString. + self noteRecentClipping: text asText. + contents := text asText. + string := self interpreter toSystemClipboard: string. + self primitiveClipboardText: string. + self triggerEvent: #contentChanged withArguments: { text. anObject }!

1 0

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

19 Aug '12

1 0

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

19 Aug '12

1 0

The Trunk: Multilingual-ul.156.mcz
by commits＠source.squeak.org 18 Aug '12

18 Aug '12

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.156.mcz ==================== Summary ==================== Name: Multilingual-ul.156 Author: ul Time: 17 August 2012, 11:46:39.54 pm UUID: f231c73f-47cf-a740-9ba6-c5580464cc7a Ancestors: Multilingual-edc.155 - fix an indexing bug in TextConverter >> #next:putAll:startingAt:toStream: =============== Diff against Multilingual-edc.155 =============== Item was changed: ----- Method: TextConverter>>next:putAll:startingAt:toStream: (in category 'conversion') ----- next: anInteger putAll: aString startingAt: startIndex toStream: aStream "Handle fast conversion if ByteString" | lastIndex nextIndex | aString class == ByteString ifFalse: [ startIndex to: startIndex + anInteger - 1 do: [ :index | self nextPut: (aString at: index) toStream: aStream ]. ^aString ]. aStream isBinary ifTrue: [ aStream basicNext: anInteger putAll: aString startingAt: startIndex. ^aString ]. lastIndex := startIndex. [ (nextIndex := ByteString findFirstInString: aString inSet: latin1Map + startingAt: lastIndex) = 0 or: [ anInteger + startIndex <= nextIndex ] ] whileFalse: [ - startingAt: lastIndex) = 0 or: [ nextIndex > anInteger ] ] whileFalse: [ aStream basicNext: nextIndex - lastIndex putAll: aString startingAt: lastIndex; basicNextPutAll: (latin1Encodings at: (aString byteAt: nextIndex) + 1). lastIndex := nextIndex + 1 ]. aStream basicNext: anInteger - lastIndex + startIndex putAll: aString startingAt: lastIndex. ^aString!

1 0

The Trunk: Multilingual-ul.156.mcz
by commits＠source.squeak.org 18 Aug '12

18 Aug '12

1 0

The Trunk: Multilingual-ul.156.mcz
by commits＠source.squeak.org 18 Aug '12

18 Aug '12

1 0

The Trunk: Tests-cwp.160.mcz
by commits＠source.squeak.org 17 Aug '12

17 Aug '12

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.160.mcz ==================== Summary ==================== Name: Tests-cwp.160 Author: cwp Time: 17 August 2012, 2:02:48.348 pm UUID: 7f94a1f9-3176-43aa-aef1-05ce3b437125 Ancestors: Tests-cwp.159, Tests-eem.158 merge Tests-eem.158: Add a test that tests outer in the contex of an enclosing handler, unlike testResumableOuter which tests outer in the absence of an enclosing handler. =============== Diff against Tests-cwp.159 =============== Item was added: + ----- Method: ExceptionTests>>testOuter (in category 'testing-outer') ----- + testOuter + | result | + result := [[Notification signal. #signal] + on: Notification + do: [:ex| ex outer. #inner]] + on: Notification + do: [:ex| #outer]. + self assert: result = #outer!

1 0

The Trunk: Tests-cwp.160.mcz
by commits＠source.squeak.org 17 Aug '12

17 Aug '12

1 0

The Trunk: Tests-cwp.160.mcz
by commits＠source.squeak.org 17 Aug '12

17 Aug '12

1 0

The Trunk: Tests-cwp.159.mcz
by commits＠source.squeak.org 17 Aug '12

17 Aug '12

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.159.mcz ==================== Summary ==================== Name: Tests-cwp.159 Author: cwp Time: 14 August 2012, 10:33:15.982 am UUID: b081e01e-3063-4d7f-9804-eda9b599c6a8 Ancestors: Tests-cwp.158 Infix selectors can't include underscores, so remove those tests, and add one that ensures that a single underscore is considered a unary message. =============== Diff against Tests-cwp.157 =============== Item was added: + ----- Method: UnderscoreSelectorsTest>>assertSelector:hasPrecedence: (in category 'support') ----- + assertSelector: aSymbol hasPrecedence: expected + | actual | + actual := aSymbol precedence. + self assert: actual = expected! Item was changed: + ----- Method: UnderscoreSelectorsTest>>pref:during: (in category 'support') ----- - ----- Method: UnderscoreSelectorsTest>>pref:during: (in category 'as yet unclassified') ----- pref: aBoolean during: aBlock | tmp | tmp := Scanner prefAllowUnderscoreSelectors. [Scanner prefAllowUnderscoreSelectors: aBoolean. aBlock value] ensure: [Scanner prefAllowUnderscoreSelectors: tmp].! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP1InternalUnderscore (in category 'tests') ----- + testP1InternalUnderscore + + self + assertSelector: #'is_symbol' + hasPrecedence: 1. + ! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP1LeadingUnderscore (in category 'tests') ----- + testP1LeadingUnderscore + self + assertSelector: #'_isSymbol' + hasPrecedence: 1. + ! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP1SingleUnderscore (in category 'tests') ----- + testP1SingleUnderscore + self + assertSelector: #'_' + hasPrecedence: 1! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP1Traditional (in category 'tests') ----- + testP1Traditional + self + assertSelector: #isSymbol + hasPrecedence: 1! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP1TrailingUnderscore (in category 'tests') ----- + testP1TrailingUnderscore + self + assertSelector: #'isSymbol_' + hasPrecedence: 1! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP2Traditional (in category 'tests') ----- + testP2Traditional + self + assertSelector: #+ + hasPrecedence: 2! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP3InternalUnderscore (in category 'tests') ----- + testP3InternalUnderscore + self + assertSelector: #'with_value:' + hasPrecedence: 3! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP3LeadingUnderscore (in category 'tests') ----- + testP3LeadingUnderscore + self + assertSelector: #'_value:' + hasPrecedence: 3! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP3Traditional (in category 'tests') ----- + testP3Traditional + self + assertSelector: #value: + hasPrecedence: 3! Item was added: + ----- Method: UnderscoreSelectorsTest>>testP3TrailingUnderscore (in category 'tests') ----- + testP3TrailingUnderscore + self + assertSelector: #'value_:' + hasPrecedence: 3! Item was removed: - ----- Method: UnderscoreSelectorsTest>>testPrefFalse (in category 'as yet unclassified') ----- - testPrefFalse - self pref: false during: [self deny: $_ tokenish].! Item was removed: - ----- Method: UnderscoreSelectorsTest>>testPrefTrue (in category 'as yet unclassified') ----- - testPrefTrue - self pref: true during: [self assert: $_ tokenish].! Item was added: + ----- Method: UnderscoreSelectorsTest>>testTokenishFalse (in category 'tests') ----- + testTokenishFalse + self pref: false during: [self deny: $_ tokenish].! Item was added: + ----- Method: UnderscoreSelectorsTest>>testTokenishTrue (in category 'tests') ----- + testTokenishTrue + self pref: true during: [self assert: $_ tokenish].!

1 0

← Newer
1
2
3
4
5
6
7
...
13
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2012