Squeak-dev October 2009

squeak-dev@lists.squeakfoundation.org

84 participants
353 discussions

Problem with latest versions of Multilingual
by Casimiro de Almeida Barreto 28 Oct '09

28 Oct '09

Today I updated squeak-trunk to latest releases & got the following problem: UTF8TextConverter(Object)>>does not understand: #convertFromSystemString installLineEndConvention: lineEndStringOrNil latin1Map := self class latin1Map. latin1Encodings := self class latin1Encodings. lineEndStringOrNil ifNotNil: [latin1Encodings := latin1Encodings copy. latin1Encodings at: Character cr asciiValue + 1 put: (self convertFromSystemString: lineEndStringOrNil). latin1Map := latin1Map copy. latin1Map at: Character cr asciiValue + 1 put: 1] I had to retrofit Multilingual to version dated Sept. 9 in order to regain control over UTF-8 conversion from ASCII file. It seems that the implementation of the message convertFromSystemString was lost in UTF8TextConverter (also in UTF16? and other encoding converters?) CdAB

1 0

The Trunk: Multilingual-ar.57.mcz
by commits＠source.squeak.org 28 Oct '09

28 Oct '09

Andreas Raab uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ar.57.mcz ==================== Summary ==================== Name: Multilingual-ar.57 Author: ar Time: 27 October 2009, 8:34:29 am UUID: bcc6cf2e-dc77-0644-adc5-9ad3ffd89bfe Ancestors: Multilingual-ar.56 Remove unnecessary convertFromSystemString: call. ==== ERROR === Error: subscript is out of bounds: 0 28 October 2009 3:35:18 am VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: nil hereChar: $ aheadChar: $ token: nil tokenType: nil currentComment: nil buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: nil hereType: nil hereMark: nil hereEnd: nil prevMark: nil prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: nil tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>scan: Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]}

1 0

The Trunk: Morphic-MarcoSchmidt.217.mcz
by commits＠source.squeak.org 28 Oct '09

28 Oct '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-MarcoSchmidt.217.mcz ==================== Summary ==================== Name: Morphic-MarcoSchmidt.217 Author: MarcoSchmidt Time: 27 October 2009, 4:50:49 am UUID: de8a2083-febd-9e42-8fa8-120603a01169 Ancestors: Morphic-ar.216 Remove the typo in TheWorldMenu>>setDisplayDepth see http://bugs.squeak.org/view.php?id=7408 =============== Diff against Morphic-ar.216 =============== Item was changed: ----- Method: TheWorldMenu>>setDisplayDepth (in category 'commands') ----- setDisplayDepth "Let the user choose a new depth for the display. " | result oldDepth allDepths allLabels hasBoth | oldDepth := Display nativeDepth. allDepths := #(1 -1 2 -2 4 -4 8 -8 16 -16 32 -32) select: [:d | Display supportsDisplayDepth: d]. hasBoth := (allDepths anySatisfy:[:d| d > 0]) and:[allDepths anySatisfy:[:d| d < 0]]. allLabels := allDepths collect:[:d| String streamContents:[:s| s nextPutAll: (d = oldDepth ifTrue:['<on>'] ifFalse:['<off>']). s print: d abs. hasBoth ifTrue:[s nextPutAll: (d > 0 ifTrue:[' (big endian)'] ifFalse:[' (little endian)'])]. ]]. result := UIManager default + chooseFrom: allLabels - chooseFrom: allLabels v values: allDepths title: 'Choose a display depth' translated. result ifNotNil: [Display newDepth: result]. oldDepth := oldDepth abs. (Smalltalk isMorphic and: [(Display depth < 4) ~= (oldDepth < 4)]) ifTrue: ["Repaint windows since they look better all white in depth < 4" (SystemWindow windowsIn: myWorld satisfying: [:w | true]) do: [:w | oldDepth < 4 ifTrue: [w restoreDefaultPaneColor] ifFalse: [w updatePaneColors]]]!

1 0

The Trunk: Graphics-jdr.84.mcz
by commits＠source.squeak.org 28 Oct '09

28 Oct '09

Andreas Raab uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-jdr.84.mcz ==================== Summary ==================== Name: Graphics-jdr.84 Author: jdr Time: 27 October 2009, 6:17:33 am UUID: d65885ed-8bde-4ede-b96a-5e80c5fdbc15 Ancestors: Graphics-jdr.83 correct reading of gray PNMs =============== Diff against Graphics-jmv.82 =============== Item was changed: ----- Method: PNMReadWriter>>readGray (in category 'reading') ----- readGray + "gray form, return ColorForm with gray ramp" + | form poker | - "gray form" - | val form poker | maxValue > 255 ifTrue:[self error:'Gray value > 8 bits not supported in Squeak']. stream binary. + form := ColorForm extent: cols@rows depth: depth. + form colors: nil. - form := Form extent: cols@rows depth: depth. poker := BitBlt current bitPokerToForm: form. 0 to: rows-1 do: [:y | 0 to: cols-1 do: [:x | + |val| val := stream next. poker pixelAt: x@y put: val. ] ]. + "a better way is using a gamma corrected palette" + form colors: ((0 to: 255) collect:[:c| + c > maxValue + ifTrue:[Color white] + ifFalse:[Color gray: (c/maxValue) asFloat]]). + form colors at: 1 put: (Color black). ^form !

1 0

non braking space oddity
by Nicolas Cellier 28 Oct '09

28 Oct '09

While looking at http://bugs.squeak.org/view.php?id=7211, I found this funny classification: Character nbsp isSeparator. -> false (Scanner new typeTableAt: Character nbsp) -> #xBinary That makes nbsp a valid binary selector, and that ain't good... Example: I thought I would compile a method #bingo, but I compile a method with an invisible binary selector... Object compile: (String with: Character nbsp) , ' bingo ^self'. 2 perform: (String with: Character nbsp) asSymbol with: nil. 2 perform: #bingo. Note that a leading nbsp can happen via a copy from web... I doubt this is an intentional feature.

2 3

Daily Commit Log
by commits＠source.squeak.org 28 Oct '09

28 Oct '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-October/001686.ht… Name: Compiler-nice.94 Ancestors: Compiler-nice.93 Ensure usage of #typeTableAt: rather than typeTable ivar to handle Wide characters ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001687.ht… Name: Tools-nice.139 Ancestors: Tools-nice.138 (Compiler evaluate: '#x:0') fails to open a SyntaxError. I provide a quick fix hereafter. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001688.ht… Name: Compiler-nice.95 Ancestors: Compiler-nice.94 Be verbose in case of illegal character This might be usefull if the character is not not visible, or not displayable by current font. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001689.ht… Name: Compiler-nice.96 Ancestors: Compiler-nice.95 Test and minimal change to isLiteralSymbol: to make the test pass. This is related to http://bugs.squeak.org/view.php?id=7211 I did not apply change proposed above, though it might be a good idea to restrict unquoted notation to explicitely documented valid Smalltalk literals. There are pending decisions about wide characters and binary selectors to be resolved first. =============================================

1 0

OrderedDictionary?
by Andreas Raab 27 Oct '09

27 Oct '09

Hi - Subject line says it all: Does anyone have an OrderedDictionary handy, that is a dictionary which during enumeration preserves the order in which the elements were added? Thanks, - Andreas

2 1

"error: can't find EOCD position" during update
by merlyn＠stonehenge.com 27 Oct '09

27 Oct '09

My screen shows I'm processing "update-nice.42.mcm" and downloading "kernel-nice.278.mcz" and I get a debugger notify "can't find EOCD position" Known? Or does someone want some debugging data? -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <merlyn(a)stonehenge.com> <URL:http://www.stonehenge.com/merlyn/> Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc. See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion

2 1

PackageInfo>>overrideMethods
by Igor Stasenko 27 Oct '09

27 Oct '09

In both Pharo & Squeak has no senders: overrideMethods ^ self extensionMethods select: [:ea | self isOvverideMethod: ea] as well as #isOvverideMethod: not implemented, which makes this method fail to work , even if it would be called by anyone. -- Best regards, Igor Stasenko AKA sig.

3 5

The Trunk: Compiler-nice.96.mcz
by commits＠source.squeak.org 27 Oct '09

27 Oct '09

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.96.mcz ==================== Summary ==================== Name: Compiler-nice.96 Author: nice Time: 27 October 2009, 3:25:48 am UUID: bfe3f3dc-3f22-c04f-974e-90cb4725b53e Ancestors: Compiler-nice.95 Test and minimal change to isLiteralSymbol: to make the test pass. This is related to http://bugs.squeak.org/view.php?id=7211 I did not apply change proposed above, though it might be a good idea to restrict unquoted notation to explicitely documented valid Smalltalk literals. There are pending decisions about wide characters and binary selectors to be resolved first. =============== Diff against Compiler-nice.95 =============== Item was changed: ----- Method: Scanner class>>isLiteralSymbol: (in category 'testing') ----- isLiteralSymbol: aSymbol "Test whether a symbol can be stored as # followed by its characters. Symbols created internally with asSymbol may not have this property, e.g. '3' asSymbol." + | i ascii type next | - | i ascii type | i := aSymbol size. i = 0 ifTrue: [^ false]. + i = 1 ifTrue: [^('$''"()#0123456789_' includes: (aSymbol at: 1)) not + and: ["should be (TypeTable at: (aSymbol at: 1) charCode ifAbsent: [#xLetter]) ~~ #xDelimiter" + (aSymbol at: 1) isSeparator not]]. - i = 1 ifTrue: [^('$''"()#0123456789_' includes: (aSymbol at: 1)) not]. ascii := (aSymbol at: 1) charCode. "TypeTable should have been origined at 0 rather than 1 ..." ascii = 0 ifTrue: [^ false]. type := TypeTable at: ascii ifAbsent: [#xLetter]. (type == #xColon or: [type == #verticalBar or: [type == #xBinary]]) ifTrue: [^i = 1]. type == #xLetter ifTrue: + [next := nil. + [i > 1] whileTrue: - [[i > 1] whileTrue: [ascii := (aSymbol at: i) charCode. ascii = 0 ifTrue: [^false]. type := TypeTable at: ascii ifAbsent: [#xLetter]. (type == #xLetter or: [type == #xDigit or: [type == #xColon]]) ifFalse: [^false]. + (next == #xDigit and: [type == #xColon]) ifTrue: [^false]. + next := type. i := i - 1]. ^true]. ^false! Item was added: + TestCase subclass: #ScannerTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Compiler-Tests'! Item was added: + ----- Method: ScannerTest>>testLiteralSymbols (in category 'testing') ----- + testLiteralSymbols + + self assert: ('*+-/\~=<>&@%,|' allSatisfy: [:char | Scanner isLiteralSymbol: (Symbol with: char)]) + description: 'single letter binary symbols can be printed without string quotes'. + + self assert: (#('x' 'x:' 'x:y:' 'from:to:by:' 'yourself') allSatisfy: [:str | Scanner isLiteralSymbol: str asSymbol]) + description: 'valid ascii selector symbols can be printed without string quotes'. + + ((32 to: 126) collect: [:ascii | Character value: ascii]) , + #(':x:yourself' '::' 'x:yourself' '123' 'x0:1:2:' 'x.y.z' '1abc' 'a1b0c2' ' x' 'x ' '+x-y' '||' '--' '++' '+-' '+/-' '-/+' '<|>' '#x' '()' '[]' '{}' '') + do: [:str | + self assert: (Compiler evaluate: str asSymbol printString) = str asSymbol + description: 'in all case, a Symbol must be printed in an interpretable fashion']!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
36
Older →

Jump to page: