Squeak-dev January 2011

squeak-dev@lists.squeakfoundation.org

94 participants
379 discussions

[squeak-dev] The Weekly Squeak Summary No. 22: Dec 27, 2010 - Jan 30, 2011
by Michael Haupt 31 Jan '11

31 Jan '11

Dear Squeakers, welcome to this edition of The WeeklySqueakSummary, an (in principle) monthly but somewhat traffic-dependent report on what's going on in the world of Squeak based on the WeeklySqueak blog. The past month only saw three posts in the blog, but each single one of them is a highlight in itself. Sean P. DeNigris has achieved something that brings a bit of the multimedia spirit of Squeak 3.8 back to recent images: movies can be played again [1]! Sean backported QuickTime support from Sophie. *Thanks!* The lean-and-mean (more lean than mean) Squeak offspring called Cuis has been released in version 3.0 [2], and I wonder whether the Morphic enhancements this system supports aren't actually worthwhile for inclusion in Squeak proper ... Microsoft's Kinect remote control is now also supported in Squeak [3], and this was brought to us by Ricardo Moran, who already did outstanding work on Physical Etoys. The past month's news items: [1] Bringing Multimedia (back) to Squeak http://news.squeak.org/2011/01/06/bringing-multimedia-back-to-squeak/ [2] Cuis 3.0 released http://news.squeak.org/2011/01/15/cuis-3-0-released/ [3] Welcome to the Real World – Kinect in Squeak http://news.squeak.org/2011/01/21/welcome-to-the-real-world-kinect-in-squea… You can find this and much more on The WeeklySqueak blog, the newsblog dedicated to the world of Squeak: http://news.squeak.org/ Subscribe to the WeeklySqueak RSS feed: http://news.squeak.org/feed/ Happy squeaking, Michael

1 0

Umlaut input in Workspace
by Görge Albrecht 31 Jan '11

31 Jan '11

Hi, when updating to the latest Trunk (10949) and saving the image, typing german umlauts (äöüßÄÖÜ) into the Workspace leads to wrong characters being displayed. When only updating and not saving the image it works fine. I updated from 10910. Does anyone see the same behavior? Thanks, Görge

3 3

The Trunk: Multilingual-bf.136.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Bert Freudenberg uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-bf.136.mcz ==================== Summary ==================== Name: Multilingual-bf.136 Author: bf Time: 31 January 2011, 5:03:34.511 pm UUID: c2e685e7-a73c-44b6-93b8-1bf6319972eb Ancestors: Multilingual-ul.135 - make MacUnicodeInputInterpreter use utf32 keycode unconditionally, since VMs older than 4.x are not supported anymore anyway. =============== Diff against Multilingual-ul.135 =============== Item was removed: - ----- Method: MacUnicodeInputInterpreter>>initialize (in category 'initialization') ----- - initialize - | satisfiesVersion | - satisfiesVersion := self - majorMinorBuildFrom: SmalltalkImage current vmVersion - satisfies: [:major :minor :build | - major >= 4 or: [ - major >= 3 and: [minor >= 8 and: [build >= 7]]]]. - satisfiesVersion - ifTrue: [keyValueIndex := 6] - ifFalse: [keyValueIndex := 3]! Item was removed: - ----- Method: MacUnicodeInputInterpreter>>keyValueIndex (in category 'accessing') ----- - keyValueIndex - ^ keyValueIndex! Item was removed: - ----- Method: MacUnicodeInputInterpreter>>majorMinorBuildFrom:satisfies: (in category 'version check') ----- - majorMinorBuildFrom: aString satisfies: aBlock - | v | - v := aString - ifNil: [^ false]. - v := ((v copyAfter: $]) - findTokens: $ ) last findTokens: $.. - v size = 3 - ifFalse: [^ false]. - v := v - collect: [:s | s initialIntegerOrNil - ifNil: [^ false]]. - ^ aBlock valueWithArguments: v asArray! Item was changed: ----- Method: MacUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | + keyValue := evtBuf at: 6. - keyValue := evtBuf at: self keyValueIndex. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 ifTrue: [^ (Character value: keyValue) squeakToIso]. "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue!

1 0

The Inbox: Tests-ul.114.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-ul.114.mcz ==================== Summary ==================== Name: Tests-ul.114 Author: ul Time: 31 January 2011, 3:57:33.887 am UUID: b227acf0-758e-6e42-be8e-fbc92a7db74d Ancestors: Tests-ul.113 Fixed LocaleTest >> #testIsFontAvailable. =============== Diff against Tests-ul.113 =============== Item was removed: - ----- Method: LocaleTest>>expectedFailures (in category 'testing') ----- - expectedFailures - - ^#(testIsFontAvailable)! Item was changed: ----- Method: LocaleTest>>testIsFontAvailable (in category 'testing') ----- testIsFontAvailable "self debug: #testIsFontAvailable" + + <timeout: 60> "takes quite a while" + Preferences restoreFontsAfter: [ + | currentDefaultTextStyle | + currentDefaultTextStyle := TextStyle default. + [ + TextStyle setDefault: (TextStyle actualTextStyles at: #Accuny). + (Locale isoLanguage: 'ja') languageEnvironment removeFonts. + self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable. + "Next test should fail after installing Japanese font" + self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not. + (Locale isoLanguage: 'ja') languageEnvironment installFont. + self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable ] + ensure: [ TextStyle setDefault: currentDefaultTextStyle ] ].! - Preferences restoreFontsAfter:[ - (Locale isoLanguage: 'ja') languageEnvironment removeFonts. - self assert: (Locale isoLanguage: 'en') languageEnvironment isFontAvailable. - "Next test should fail after installing Japanese font" - self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable not. - (Locale isoLanguage: 'ja') languageEnvironment installFont. - self assert: (Locale isoLanguage: 'ja') languageEnvironment isFontAvailable. - ].!

1 0

The Trunk: Multilingual-ul.134.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.134.mcz ==================== Summary ==================== Name: Multilingual-ul.134 Author: ul Time: 31 January 2011, 2:11:28.724 am UUID: 6ed3b9ef-ef78-f44e-bc6c-850656c00040 Ancestors: Multilingual-ul.133 A fix for http://bugs.squeak.org/view.php?id=7603 . Requires Collections-ul.422. Added TextConverter >> #next:putAll:startingAt:toStream: which is used by MultiByteFileStream and MultiByteBinaryOrTextStream to properly implement #next:putAll:startingAt:. =============== Diff against Multilingual-ul.133 =============== Item was added: + ----- Method: MultiByteBinaryOrTextStream>>basicNext:putAll:startingAt: (in category 'private basic') ----- + basicNext: anInteger putAll: aCollection startingAt: startIndex + + ^super next: anInteger putAll: aCollection startingAt: startIndex! Item was added: + ----- Method: MultiByteBinaryOrTextStream>>next:putAll:startingAt: (in category 'public') ----- + next: anInteger putAll: aCollection startingAt: startIndex + + (self isBinary or: [ aCollection class == ByteArray ]) ifTrue: [ + ^super next: anInteger putAll: aCollection startingAt: startIndex ]. + ^self converter next: anInteger putAll: aCollection startingAt: startIndex toStream: self + ! Item was added: + ----- Method: MultiByteFileStream>>basicNext:putAll:startingAt: (in category 'private basic') ----- + basicNext: anInteger putAll: aCollection startingAt: startIndex + + ^super next: anInteger putAll: aCollection startingAt: startIndex! Item was added: + ----- Method: MultiByteFileStream>>next:putAll:startingAt: (in category 'public') ----- + next: anInteger putAll: aCollection startingAt: startIndex + + (self isBinary or: [ aCollection class == ByteArray ]) ifTrue: [ + ^super next: anInteger putAll: aCollection startingAt: startIndex ]. + ^converter next: anInteger putAll: aCollection startingAt: startIndex toStream: self! Item was changed: ----- Method: MultiByteFileStream>>nextPutAll: (in category 'public') ----- nextPutAll: aCollection (self isBinary or: [aCollection class == ByteArray]) ifTrue: [ ^ super nextPutAll: aCollection. ]. + ^converter nextPutAll: aCollection toStream: self! - converter nextPutAll: aCollection toStream: self. - ^aCollection! Item was added: + ----- 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: [ 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 + 1 putAll: aString startingAt: lastIndex. + ^aString! Item was changed: ----- Method: TextConverter>>nextPutAll:toStream: (in category 'conversion') ----- nextPutAll: aString toStream: aStream "Handle fast conversion if ByteString" + ^self next: aString size putAll: aString startingAt: 1 toStream: aStream! - | lastIndex nextIndex | - aString class == ByteString ifFalse: [ - aString do: [:char | self nextPut: char toStream: aStream]. - ^self]. - - aStream isBinary ifTrue: [ - aStream basicNextPutAll: aString. - ^self]. - lastIndex := 1. - [nextIndex := ByteString findFirstInString: aString inSet: latin1Map startingAt: lastIndex. - nextIndex = 0] whileFalse: - [aStream next: nextIndex-lastIndex putAll: aString startingAt: lastIndex. - aStream basicNextPutAll: (latin1Encodings at: (aString byteAt: nextIndex)+1). - lastIndex := nextIndex + 1]. - aStream next: aString size-lastIndex+1 putAll: aString startingAt: lastIndex. - ^self - !

1 0

The Trunk: Multilingual-ul.135.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.135.mcz ==================== Summary ==================== Name: Multilingual-ul.135 Author: ul Time: 31 January 2011, 2:40:43.278 am UUID: 8cec33f7-5ea5-1c45-974d-a335275f1192 Ancestors: Multilingual-ul.134 Fixed an indexing mistake. =============== Diff against Multilingual-ul.133 =============== Item was added: + ----- Method: MultiByteBinaryOrTextStream>>basicNext:putAll:startingAt: (in category 'private basic') ----- + basicNext: anInteger putAll: aCollection startingAt: startIndex + + ^super next: anInteger putAll: aCollection startingAt: startIndex! Item was added: + ----- Method: MultiByteBinaryOrTextStream>>next:putAll:startingAt: (in category 'public') ----- + next: anInteger putAll: aCollection startingAt: startIndex + + (self isBinary or: [ aCollection class == ByteArray ]) ifTrue: [ + ^super next: anInteger putAll: aCollection startingAt: startIndex ]. + ^self converter next: anInteger putAll: aCollection startingAt: startIndex toStream: self + ! Item was added: + ----- Method: MultiByteFileStream>>basicNext:putAll:startingAt: (in category 'private basic') ----- + basicNext: anInteger putAll: aCollection startingAt: startIndex + + ^super next: anInteger putAll: aCollection startingAt: startIndex! Item was added: + ----- Method: MultiByteFileStream>>next:putAll:startingAt: (in category 'public') ----- + next: anInteger putAll: aCollection startingAt: startIndex + + (self isBinary or: [ aCollection class == ByteArray ]) ifTrue: [ + ^super next: anInteger putAll: aCollection startingAt: startIndex ]. + ^converter next: anInteger putAll: aCollection startingAt: startIndex toStream: self! Item was changed: ----- Method: MultiByteFileStream>>nextPutAll: (in category 'public') ----- nextPutAll: aCollection (self isBinary or: [aCollection class == ByteArray]) ifTrue: [ ^ super nextPutAll: aCollection. ]. + ^converter nextPutAll: aCollection toStream: self! - converter nextPutAll: aCollection toStream: self. - ^aCollection! Item was added: + ----- 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: [ 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! Item was changed: ----- Method: TextConverter>>nextPutAll:toStream: (in category 'conversion') ----- nextPutAll: aString toStream: aStream "Handle fast conversion if ByteString" + ^self next: aString size putAll: aString startingAt: 1 toStream: aStream! - | lastIndex nextIndex | - aString class == ByteString ifFalse: [ - aString do: [:char | self nextPut: char toStream: aStream]. - ^self]. - - aStream isBinary ifTrue: [ - aStream basicNextPutAll: aString. - ^self]. - lastIndex := 1. - [nextIndex := ByteString findFirstInString: aString inSet: latin1Map startingAt: lastIndex. - nextIndex = 0] whileFalse: - [aStream next: nextIndex-lastIndex putAll: aString startingAt: lastIndex. - aStream basicNextPutAll: (latin1Encodings at: (aString byteAt: nextIndex)+1). - lastIndex := nextIndex + 1]. - aStream next: aString size-lastIndex+1 putAll: aString startingAt: lastIndex. - ^self - !

1 0

The Trunk: Collections-ul.422.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.422.mcz ==================== Summary ==================== Name: Collections-ul.422 Author: ul Time: 31 January 2011, 2:02:00.387 am UUID: 89c6854c-b6d1-1646-a22b-bbc47ce7522f Ancestors: Collections-ul.421 Introduced Stream >> #basicNext:putAll:startingAt: which will be used by MultiByteFileStream to fix http://bugs.squeak.org/view.php?id=7603 . =============== Diff against Collections-ul.421 =============== Item was added: + ----- Method: Stream>>basicNext:putAll:startingAt: (in category 'accessing') ----- + basicNext: anInteger putAll: aCollection startingAt: startIndex + + ^self next: anInteger putAll: aCollection startingAt: startIndex + !

1 0

The Trunk: MultilingualTests-ul.14.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Levente Uzonyi uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-ul.14.mcz ==================== Summary ==================== Name: MultilingualTests-ul.14 Author: ul Time: 31 January 2011, 2:48:54.024 am UUID: a13c0bcc-b2dd-a446-833a-0315f98a3d83 Ancestors: MultilingualTests-ul.13 Added a widestring to MultiByteFileStreamTest >> #testNextPutAllStartingAt, otherwise it passes. =============== Diff against MultilingualTests-ul.13 =============== Item was changed: ----- Method: MultiByteFileStreamTest>>testNextPutAllStartingAt (in category 'testing') ----- testNextPutAllStartingAt | result | fileName := 'foonextputallstartingat.txt'. MultiByteFileStream forceNewFileNamed: fileName do: [ :file | + { 'abcde' asWideString. 'abcde' } do: [ :string | + file + next: 1 putAll: string startingAt: 5; + next: 3 putAll: string startingAt: 2; + next: 1 putAll: string startingAt: 1 ] ]. - file - next: 1 putAll: 'abcde' startingAt: 5; - next: 3 putAll: 'abcde' startingAt: 2; - next: 1 putAll: 'abcde' startingAt: 1 ]. result := StandardFileStream readOnlyFileNamed: fileName do: [ :file | file binary; contents ]. + self assert: #[101 98 99 100 97 101 98 99 100 97] equals: result - self assert: #[101 98 99 100 97] equals: result !

1 0

The Trunk: MultilingualTests-ul.13.mcz
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Levente Uzonyi uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-ul.13.mcz ==================== Summary ==================== Name: MultilingualTests-ul.13 Author: ul Time: 31 January 2011, 2:39:52.142 am UUID: 40a392eb-d132-e849-955f-be120d8b7758 Ancestors: MultilingualTests-ar.12 Added a test to demonstrate http://bugs.squeak.org/view.php?id=7603 . =============== Diff against MultilingualTests-ar.12 =============== Item was added: + ----- Method: MultiByteFileStreamTest>>testNextPutAllStartingAt (in category 'testing') ----- + testNextPutAllStartingAt + + | result | + fileName := 'foonextputallstartingat.txt'. + MultiByteFileStream forceNewFileNamed: fileName do: [ :file | + file + next: 1 putAll: 'abcde' startingAt: 5; + next: 3 putAll: 'abcde' startingAt: 2; + next: 1 putAll: 'abcde' startingAt: 1 ]. + result := StandardFileStream readOnlyFileNamed: fileName do: [ :file | + file binary; contents ]. + self assert: #[101 98 99 100 97] equals: result + !

1 0

Daily Commit Log
by commits＠source.squeak.org 31 Jan '11

31 Jan '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-January/004193.ht… Name: System-laza.417 Ancestors: System-ul.416 update the comment of getSystemAttribute: to match current VMs ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004194.ht… Name: Tools-cmm.292 Ancestors: Tools-laza.291 Default shouldStyle to false. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004195.ht… Name: Tools-cmm.293 Ancestors: Tools-cmm.292 Name the DependencyBrowser's panes so they can be identified via a blue-click. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004196.ht… Name: ReleaseBuilder-cmm.57 Ancestors: ReleaseBuilder-cmm.56 Document everything done to make a release via the #prepareNewBuild method, including the opening of the Welcome Workspace. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004197.ht… Name: Collections-ul.421 Ancestors: Collections-ul.420 Compact all HashedCollections instead of just rehashing during aggressive clean up. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004198.ht… Name: Kernel-ul.541 Ancestors: Kernel-ul.540 Removed MethodDictionary's #cleanUp: because HashedCollection's #cleanUp: does this too. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-January/004199.ht… Name: ReleaseBuilder-ul.58 Ancestors: ReleaseBuilder-cmm.57 Removed the unnecessary triple symbol table compaction code, because it has no effect. =============================================

1 0

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

Jump to page: