Squeak-dev January 2017

squeak-dev@lists.squeakfoundation.org

34 participants
77 discussions

The Inbox: Environments-jr.69.mcz
by commits＠source.squeak.org 23 Feb '17

23 Feb '17

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-jr.69.mcz ==================== Summary ==================== Name: Environments-jr.69 Author: jr Time: 22 January 2017, 1:58:32.760832 am UUID: bef4785f-f66c-1246-bae6-6a15be9aaf33 Ancestors: Environments-jr.68 prevent the removal of third-party imported bindings Previously, when environment T imported from A and B, which both had a binding for #x, unbinding #x from either A or B would remove the binding from T. Now if the binding of #x is removed from A it will only be removed from T if T actually uses the binding from A, but not if T uses the binding from B. It also prevents an environment A from unbinding something in an imported environment B when A imports itself and A and B both have a declaration with the same key. =============== Diff against Environments-jr.68 =============== Item was changed: ----- Method: Environment>>hideBinding: (in category 'binding') ----- hideBinding: aBinding + (bindings bindingOf: aBinding key) == aBinding ifFalse: [^ self]. self undeclare: aBinding key from: bindings!

2 1

Etoys in 2017?
by H. Hirzel 22 Feb '17

22 Feb '17

Hello In 2016 Etoys was merged back into the trunk image. http://wiki.squeak.org/squeak/6419 How do I open an Etoys project in the current 6.0a development image? What is the status of it currently? Is it ready for limited use? Regards Hannes

2 2

The Trunk: Morphic-tfel.1317.mcz
by commits＠source.squeak.org 13 Feb '17

13 Feb '17

Tim Felgentreff uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tfel.1317.mcz ==================== Summary ==================== Name: Morphic-tfel.1317 Author: tfel Time: 18 January 2017, 10:03:40.884167 am UUID: 8a50cc7e-f401-4381-a1ce-97d0423370b1 Ancestors: Morphic-bp.1316 add Ctrl +, Ctrl -, and Ctrl = (as in Emacs) for quick font size changes =============== Diff against Morphic-bp.1316 =============== Item was changed: ----- Method: PasteUpMorph>>filterEvent:for: (in category 'events-processing') ----- filterEvent: aKeyboardEvent for: anObject "Provide keyboard shortcuts." + - "Delegate keyboard shortcuts to my docking bars." self submorphsDo: [:ea | ea isDockingBar ifTrue: [ ea filterEvent: aKeyboardEvent for: anObject. "No support for converting events here!!" aKeyboardEvent wasIgnored ifTrue: [^ aKeyboardEvent "early out"]]]. aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifTrue: [ aKeyboardEvent keyCharacter caseOf: { [$R] -> [Utilities browseRecentSubmissions]. [$L] -> [self findAFileList: aKeyboardEvent]. [$O] -> [self findAMonticelloBrowser]. [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. "[$Z] -> [ChangeList browseRecentLog]." [$]] -> [Smalltalk snapshot: true andQuit: false]. } otherwise: [^ aKeyboardEvent "no hit"]. ^ aKeyboardEvent ignore "hit!!"]. + aKeyboardEvent controlKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter caseOf: { + [$+] -> [Preferences increaseFontSize]. + [$-] -> [Preferences decreaseFontSize]. + [$=] -> [Preferences restoreDefaultFonts]. + } otherwise: [^ aKeyboardEvent "no hit"]. + ^ aKeyboardEvent ignore "hit!!"]. - ^ aKeyboardEvent "no hit"!

7 13

[sqeak-dev] Latest updates, dark themes don't look so good
by Chris Cunningham 07 Feb '17

07 Feb '17

I don't know where this happened, but in a pre-etoys-updated 6.0Alpha image (16548), things like inspectors are readable: [image: Inline image 1] while in a post-etoys updated 6.0Alpha image (16903), these inspectors are nearly useless: [image: Inline image 2] It may be that I had tweaked the colors in the older image, or loaded a different code where someone else fixed it. I'll look for where the change came from, but if someone knows what to fix, I'd appreciate that. -cbc

3 9

Squeak Oversight Board Election 2017
by Ron Teitelbaum 03 Feb '17

03 Feb '17

Hi All, It's that time again. Time to raise your voices and elect your leaders! Can you believe it's been a year already? It's a time for you to stand up, help your community and volunteer to serve! Squeak wants you! Every year we elect the SOB (Squeak Oversight Board) consisting of seven members from our community. The current board members are: 1. Bert Freudenberg 2. Tim Rowledge 3. Craig Latta 4. David T. Lewis 5. Chris Muller 6. Levente Uzonyi 7. Marcel Taeumel For more info on the board please see: https://squeakboard.wordpress.com/our-mission/ Everything about the election, including schedule and more, can be tracked here: http://wiki.squeak.org/squeak/6512 Now until Monday 6th of February 3PM (20.00 UTC): Nominations of SOB members and campaigning! Candidates should nominate themselves and start their campaign on the squeak-dev mailing list. Or if you nominate someone else, make sure that person really wants to run. :) I will not put anyone on the candidate list until that person makes it known on squeak-dev that he/she intends to run. During this period, the candidates should ideally present themselves on squeak-dev, unless they have already done so, and the community can ask questions. I encourage you to reach out to potential candidates, people that are active in the community and represent your views, and ask them to run. Some people will not run without encouragement. Also I know that some people wait to the last minute to run for the board to see if others will run but please consider getting this year off to a faster start and just jump right in! Schedule: Now until Monday 6th of February 3PM (20.00 UTC): Nominations of SOB members and campaigning! Monday 6th of February 2016 3PM (20.00 UTC): Candidate list is finalized. Monday 6th of February 2016 4PM (21.00 UTC): Online election starts. Tuesday 14th of February 2016 6PM (23.00 UTC): Online election ends. Results will be announced immediately when the election ends. The voting period is one week long and ballots are sent out via email. And how do you end up on the voter list? See below. :) IMPORTANT: New voters will NOT be added once the election is started. You MUST try to get on the voter list before the 1st of February 2014 or you will NOT be able to vote. If your Email has changed please make sure it is changed on the list of voters before the election starts. -------------------------- If you were invited to vote last year you are already on the voter list, no worries! If you are a new Squeaker and wish to vote do ONE of the following: * Get a "known" Squeaker to vouch for you. If a known Squeaker sends an email to voters (at) squeak.org giving me name and email for you, then I will add you. * Send an email to voters at squeak.org yourself (and CC to squeak-dev if you like) with information/arguments showing me that you are indeed serious about voting and that you are indeed a Squeaker. When the voting period starts all voters will receive an email with instructions and a link to the voting website. If there are any further questions, just reply *in this thread* and I will closely track it - or send email to voters (at) squeak.org which points to me. ...so let's get on with it! All the best, Ron Teitelbaum

12 25

Re: [squeak-dev] The Inbox: Multilingual-jr.218.mcz
by Jakob Reschke 31 Jan '17

31 Jan '17

2017-01-31 17:40 GMT+01:00 H. Hirzel <hannes.hirzel(a)gmail.com>: > On 1/27/17, Jakob Reschke <jakob.reschke(a)student.hpi.de> wrote: >> Well, the alternative to exploiting polymorphy like in the patch would >> be to have a nearly identical bunch of "TextConverter" classes that >> can read from binary streams and answer characters (like the Zinc UTF8 >> "Encoder" that also happens to have decoding methods). But most of the >> code would be duplicated with the existing TextConverters, so I think >> it is the worse solution. > > To have duplicate classes or even hierarchies for some time is > necessary if you want to do changes which cannot be done > incrementally. Sure, but in the restricted case of this patch, I think it is not necessary because the behavior should not change in the traditional case where basicNext does indeed return characters if the stream is in text mode. Nothing should be broken. I acknowledge that this patch alone is not all that useful for the Multilingual package itself, but it is useful for reusing the UTF8TextConverter to read from other binary streams (especially if such a stream cannot be switched to a text mode at all). > > See for example the class CrLfFileStream and the subclass > HtmlFileStream which are both in the package > '51-Deprecated-Files-Kernel'. > > Class comment of CrLfFileStream states > 'This class is now obsolete, use MultiByteFileStream instead.' > > This can be carried further ... > > An option is as well to consider porting the Zinc UTF8 class(es). Have not tried it, but probably one can just load and start to use it right away if it fits. The actual UTF8 decoding and encoding implementation is probably very similar, the important difference is only in the interface (including expected types). But I do not want to have to copy a class from Pharo to get text conversion from a binary-only stream going in Squeak... For a library, the additional dependency should be avoided as well. > > >> >> IMHO, a fundamental thing such as a text encoding interpreter that is >> shipped with a standard library should not be restricted by "it was >> only designed to be used with consumer xyz". > Yes. > >> The TextConverter >> hierarchy is neither marked as internal/private in Multilingual by a >> category, nor by any comments, nor do the class names suggest coupling >> to the MultiByte*Streams. > > The TextConverter hierarchy is in the 'Multilingual' category. Yes, it is, but from a documentation point of view, the TextConverters are no more private to the Multilingual package than the MultiByte*Streams are. Of course, TextConverters and MultiByte*Streams must not cease to be compatible with one another. > > >> If I were to commit this thing from scratch, I would even drop the >> support for returning the bytes as they are if the source stream >> #isBinary, because it has nothing to do with text conversion. > >> Instead, >> do not use a TextConverter, if you do not want the bytes converted. > > I do not understand: why would I want to use a TextConverter if I am > reading a binary stream. Exactly my point! :-) Currently, both MultiByteStream implementations always do self converter nextFromStream: self in #next, even if the stream is in binary mode. That's why the text converter currently has to check if the stream is in binary mode, and if it is, skip the text conversion and pass through the bytes uninterpreted. I would expect that the text converter were not used at all when the stream is binary. For a different answer to the question "Why would I want to use a TextConverter if I am reading a binary stream", go back to my previous paragraphs: You need one if the data in the stream is actually text and you know the encoding format, but the stream can only return bytes. Best regards, Jakob > >> But, as Levente already wrote, we can not do this without a larger >> refactoring and compatibility issues. > > > --Hannes > >> Best regards, >> Jakob >> >> 2017-01-23 19:24 GMT+01:00 H. Hirzel <hannes.hirzel(a)gmail.com>: >>> Interesting in this context the UTF8 decoding implementation of Pharo >>> 5 ZnUTF8Encoder (an alternative to UTF8TextConverter it seems) >>> >>> ZnUTF8Encoder>> >>> nextFromStream: stream >>> | code byte next | >>> (byte := stream next) < 128 >>> ifTrue: [ ^ Character codePoint: byte ]. >>> (byte bitAnd: 2r11100000) == 2r11000000 >>> ifTrue: [ >>> code := byte bitAnd: 2r00011111. >>> ((next := stream next ifNil: [ self >>> errorIncomplete ]) bitAnd: >>> 2r11000000) == 2r10000000 >>> ifTrue: [ code := (code bitShift: 6) + >>> (next bitAnd: 2r00111111) ] >>> ifFalse: [ ^ self >>> errorIllegalContinuationByte ]. >>> code < 128 ifTrue: [ self errorOverlong ]. >>> ^ Character codePoint: code ]. >>> (byte bitAnd: 2r11110000) == 2r11100000 >>> ifTrue: [ >>> code := byte bitAnd: 2r00001111. >>> 2 timesRepeat: [ >>> ((next := stream next ifNil: [ self >>> errorIncomplete ]) bitAnd: >>> 2r11000000) == 2r10000000 >>> ifTrue: [ code := (code bitShift: >>> 6) + (next bitAnd: 2r00111111) ] >>> ifFalse: [ ^ self >>> errorIllegalContinuationByte ] ]. >>> code < 2048 ifTrue: [ self errorOverlong ]. >>> code = 65279 "Unicode Byte Order Mark" ifTrue: [ >>> stream atEnd ifTrue: [ self >>> errorIncomplete ]. >>> ^ self nextFromStream: stream ]. >>> ^ Character codePoint: code ]. >>> (byte bitAnd: 2r11111000) == 2r11110000 >>> ifTrue: [ >>> code := byte bitAnd: 2r00000111. >>> 3 timesRepeat: [ >>> ((next := stream next ifNil: [ self >>> errorIncomplete ]) bitAnd: >>> 2r11000000) == 2r10000000 >>> ifTrue: [ code := (code bitShift: >>> 6) + (next bitAnd: 2r00111111) ] >>> ifFalse: [ ^ self >>> errorIllegalContinuationByte ] ]. >>> code < 65535 ifTrue: [ self errorOverlong ]. >>> ^ Character codePoint: code ]. >>> self errorIllegalLeadingByte >>> >>> On 1/23/17, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: >>>> The Pharo version seems to be the Squeak version optimized for >>>> VisualWorks (ifNil: -> isNil ifTrue:). >>>> >>>> Levente >>>> >>>> On Mon, 23 Jan 2017, H. Hirzel wrote: >>>> >>>>> Below as a comparison the version in Pharo 5.0. >>>>> >>>>> Noteworthy to say is that one can not speak about characters in an >>>>> UTF8 encoded stream which is read byte by byte until one has examined >>>>> the bytes. >>>>> >>>>> So if I read the first thing it is actually a byte. Then I can examine >>>>> if it is a one-byte character and then return the character. Then I go >>>>> for the next byte. If it indicates that we have a two byte encoded >>>>> UTF8 character then I can return the character. >>>>> >>>>> So I should have >>>>> >>>>> byte1 := aStream basicNext. >>>>> >>>>> ... check if we have a one byte character, if yes return the character >>>>> >>>>> byte2 := aStream basicNext. >>>>> >>>>> ... check if we have a two byte character, if yes return the character >>>>> >>>>> byte3 := aStream basicNext. >>>>> >>>>> ... check if we have a three byte character, if yes return the character >>>>> >>>>> >>>>> byte4 := aStream basicNext. >>>>> >>>>> ... check if we have a four byte character, if yes return the character >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> nextFromStream: aStream >>>>> | character1 value1 character2 value2 unicode character3 value3 >>>>> character4 value4 | >>>>> aStream isBinary >>>>> ifTrue: [ ^ aStream basicNext ]. >>>>> character1 := aStream basicNext. >>>>> character1 isNil >>>>> ifTrue: [ ^ nil ]. >>>>> value1 := character1 asciiValue. >>>>> value1 <= 127 >>>>> ifTrue: [ >>>>> "1-byte character" >>>>> ^ character1 ]. "at least 2-byte character" >>>>> character2 := aStream basicNext. >>>>> character2 isNil >>>>> ifTrue: [ ^ self errorMalformedInput ]. >>>>> value2 := character2 asciiValue. >>>>> (value1 bitAnd: 16rE0) = 192 >>>>> ifTrue: [ ^ Unicode value: ((value1 bitAnd: 31) bitShift: >>>>> 6) + >>>>> (value2 bitAnd: 63) ]. "at least 3-byte character" >>>>> character3 := aStream basicNext. >>>>> character3 isNil >>>>> ifTrue: [ ^ self errorMalformedInput ]. >>>>> value3 := character3 asciiValue. >>>>> (value1 bitAnd: 16rF0) = 224 >>>>> ifTrue: [ unicode := ((value1 bitAnd: 15) bitShift: 12) + >>>>> ((value2 >>>>> bitAnd: 63) bitShift: 6) + (value3 bitAnd: 63) ]. >>>>> (value1 bitAnd: 16rF8) = 240 >>>>> ifTrue: [ >>>>> "4-byte character" >>>>> character4 := aStream basicNext. >>>>> character4 isNil >>>>> ifTrue: [ ^ self errorMalformedInput ]. >>>>> value4 := character4 asciiValue. >>>>> unicode := ((value1 bitAnd: 16r7) bitShift: 18) + >>>>> ((value2 bitAnd: >>>>> 63) bitShift: 12) >>>>> + ((value3 bitAnd: 63) bitShift: 6) + >>>>> (value4 bitAnd: 63) ]. >>>>> unicode isNil >>>>> ifTrue: [ ^ self errorMalformedInput ]. >>>>> unicode > 16r10FFFD >>>>> ifTrue: [ ^ self errorMalformedInput ]. >>>>> unicode = 16rFEFF >>>>> ifTrue: [ ^ self nextFromStream: aStream ]. >>>>> ^ Unicode value: unicode >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> On 1/22/17, Tobias Pape <Das.Linux(a)gmx.de> wrote: >>>>>> >>>>>> On 22.01.2017, at 16:10, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: >>>>>> >>>>>>> On Fri, 20 Jan 2017, Tobias Pape wrote: >>>>>>> >>>>>>>> >>>>>>>> On 19.01.2017, at 23:30, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: >>>>>>>> >>>>>>>>> On Thu, 19 Jan 2017, Tobias Pape wrote: >>>>>>>>>> Thanks Jacob. >>>>>>>>>> Any objections here I put this into trunk? >>>>>>>>> Yep. TextConverters are intended to work with MultiByte*Streams >>>>>>>>> only. >>>>>>>> >>>>>>>> Didn't know that. >>>>>>>> >>>>>>>>> Therefore #basicNext is expected to return a Character, provided the >>>>>>>>> stream is not binary. This is why the #isBinary check is the first >>>>>>>>> thing >>>>>>>>> the method does. >>>>>>>> >>>>>>>> I see. however, using asInteger sounds more reasonable _even though_ >>>>>>>> it >>>>>>>> is a character. Said bluntly, the responsibility of the TextConverter >>>>>>>> is >>>>>>>> to make Characters from that bloody numbers in that stream. >>>>>>>> I was confused to see that asciiValue returns something >127 in the >>>>>>>> first >>>>>>>> place. >>>>>>> >>>>>>> #asInteger does the same thing as #asciiValue. While #asciiValue >>>>>>> doesn't >>>>>>> do what you would expect it to do, it has the advantage to clearly >>>>>>> mark >>>>>>> the class of the receiver (in this case). >>>>>>> >>>>>> >>>>>> Yes, and that's exactly why we should use #asInteger. To _not_ limit >>>>>> the >>>>>> receiver. >>>>>> Because the receiver isn't actually a Character, but some number, >>>>>> encoded >>>>>> in >>>>>> a Character, whose meaning is to be determined by >>>>>> this very method. >>>>>> >>>>>> Also, how do we know that _basic_Next will always return a Character? >>>>>> (Yes, I know there's a binary check, but doesn't that only say >>>>>> something >>>>>> about #next, not #basicNext?) >>>>>> >>>>>> >>>>>>>> >>>>>>>>> If there are plans to make TextConverters work with more general >>>>>>>>> streams, then I persume these changes won't be enough. >>>>>>>> >>>>>>>> Clearly. >>>>>>>> But isn't this a step in the right direction? >>>>>>> >>>>>>> Yes and no. There are at least two ways to go: >>>>>>> >>>>>>> 1. Enhance the current stream library, even at the cost of breaking >>>>>>> things. >>>>>>> A patch here and there won't work. There are fundamental changes >>>>>>> required, >>>>>>> like stackable streams, to make it desirable to use it over other >>>>>>> libraries. >>>>>>> >>>>>>> 2. Integrate an existing stream library with better features (e.g. >>>>>>> Xtreams) >>>>>>> If we were to do this, we could gradually migrate existing code to the >>>>>>> new >>>>>>> library, and finally make the current stream library unloadable. >>>>>> >>>>>> I like the idea of Xtreams, but I also like going baby steps. >>>>>> >>>>>> The changes here help at least one person, won't hurt others and seem >>>>>> future >>>>>> proof. >>>>>> So? >>>>>> >>>>>> Best regards >>>>>> -Tobias >>>>>> >>>>>> >>>>>> >>>>>>> Levente >>>>>>> >>>>>>>> >>>>>>>>> Levente >>>>>>>>>> Looks good from here. >>>>>>>>>> Best regards >>>>>>>>>> -Tobias >>>>>>>>>> On 19.01.2017, at 17:14, commits(a)source.squeak.org wrote: >>>>>>>>>>> A new version of Multilingual was added to project The Inbox: >>>>>>>>>>> http://source.squeak.org/inbox/Multilingual-jr.218.mcz >>>>>>>>>>> ==================== Summary ==================== >>>>>>>>>>> Name: Multilingual-jr.218 >>>>>>>>>>> Author: jr >>>>>>>>>>> Time: 19 January 2017, 5:14:23.763655 pm >>>>>>>>>>> UUID: 36416c42-a4b4-554f-8203-aba25eee794f >>>>>>>>>>> Ancestors: Multilingual-tfel.217 >>>>>>>>>>> support 'iso-8859-1' and do not let UTF8TextConverter expect that >>>>>>>>>>> its >>>>>>>>>>> input stream returns Characters from basicNext >>>>>>>>>>> A stream implementation might always return bytes from basicNext >>>>>>>>>>> and >>>>>>>>>>> expect the conversion to Character to be done solely by the >>>>>>>>>>> TextConverter, so use asInteger instead of asciiValue to support >>>>>>>>>>> both >>>>>>>>>>> cases. Convert back with asCharacter. >>>>>>>>>>> =============== Diff against Multilingual-tfel.217 =============== >>>>>>>>>>> Item was changed: >>>>>>>>>>> ----- Method: Latin1TextConverter class>>encodingNames (in >>>>>>>>>>> category >>>>>>>>>>> 'utilities') ----- >>>>>>>>>>> encodingNames + ^ #('latin-1' 'latin1' 'iso-8859-1') copy. >>>>>>>>>>> - ^ #('latin-1' 'latin1') copy. >>>>>>>>>>> ! >>>>>>>>>>> Item was changed: >>>>>>>>>>> ----- Method: UTF8TextConverter>>nextFromStream: (in category >>>>>>>>>>> 'conversion') ----- >>>>>>>>>>> nextFromStream: aStream >>>>>>>>>>> >>>>>>>>>>> | char1 value1 char2 value2 unicode char3 value3 char4 >>>>>>>>>>> value4 | >>>>>>>>>>> aStream isBinary ifTrue: [^ aStream basicNext]. >>>>>>>>>>> char1 := aStream basicNext. >>>>>>>>>>> char1 ifNil:[^ nil]. >>>>>>>>>>> + value1 := char1 asInteger. >>>>>>>>>>> - value1 := char1 asciiValue. >>>>>>>>>>> value1 <= 127 ifTrue: [ >>>>>>>>>>> "1-byte char" >>>>>>>>>>> + ^ char1 asCharacter >>>>>>>>>>> - ^ char1 >>>>>>>>>>> ]. >>>>>>>>>>> >>>>>>>>>>> "at least 2-byte char" >>>>>>>>>>> char2 := aStream basicNext. >>>>>>>>>>> + char2 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>>>> asCharacter)]. >>>>>>>>>>> + value2 := char2 asInteger. >>>>>>>>>>> - char2 ifNil:[^self errorMalformedInput: (String with: >>>>>>>>>>> char1)]. >>>>>>>>>>> - value2 := char2 asciiValue. >>>>>>>>>>> >>>>>>>>>>> (value1 bitAnd: 16rE0) = 192 ifTrue: [ >>>>>>>>>>> ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) >>>>>>>>>>> + (value2 >>>>>>>>>>> bitAnd: >>>>>>>>>>> 63). >>>>>>>>>>> ]. >>>>>>>>>>> >>>>>>>>>>> "at least 3-byte char" >>>>>>>>>>> char3 := aStream basicNext. >>>>>>>>>>> + char3 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>>>> asCharacter with: char2 asCharacter)]. >>>>>>>>>>> + value3 := char3 asInteger. >>>>>>>>>>> - char3 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>>>> with: >>>>>>>>>>> char2)]. >>>>>>>>>>> - value3 := char3 asciiValue. >>>>>>>>>>> (value1 bitAnd: 16rF0) = 224 ifTrue: [ >>>>>>>>>>> unicode := ((value1 bitAnd: 15) bitShift: 12) + >>>>>>>>>>> ((value2 bitAnd: >>>>>>>>>>> 63) >>>>>>>>>>> bitShift: 6) >>>>>>>>>>> + (value3 bitAnd: 63). >>>>>>>>>>> ]. >>>>>>>>>>> >>>>>>>>>>> (value1 bitAnd: 16rF8) = 240 ifTrue: [ >>>>>>>>>>> "4-byte char" >>>>>>>>>>> char4 := aStream basicNext. >>>>>>>>>>> + char4 ifNil:[^self errorMalformedInput: (String >>>>>>>>>>> with: char1 >>>>>>>>>>> asCharacter with: char2 asCharacter with: char3 asCharacter)]. >>>>>>>>>>> + value4 := char4 asInteger. >>>>>>>>>>> - char4 ifNil:[^self errorMalformedInput: (String >>>>>>>>>>> with: char1 >>>>>>>>>>> with: >>>>>>>>>>> char2 with: char3)]. >>>>>>>>>>> - value4 := char4 asciiValue. >>>>>>>>>>> unicode := ((value1 bitAnd: 16r7) bitShift: 18) + >>>>>>>>>>> ((value2 bitAnd: 63) >>>>>>>>>>> bitShift: 12) + >>>>>>>>>>> ((value3 bitAnd: 63) >>>>>>>>>>> bitShift: 6) + >>>>>>>>>>> (value4 bitAnd: 63). >>>>>>>>>>> ]. >>>>>>>>>>> + unicode ifNil:[^self errorMalformedInput: (String with: >>>>>>>>>>> char1 >>>>>>>>>>> asCharacter with: char2 asCharacter with: char3 asCharacter)]. >>>>>>>>>>> - unicode ifNil:[^self errorMalformedInput: (String with: >>>>>>>>>>> char1 >>>>>>>>>>> with: >>>>>>>>>>> char2 with: char3)]. >>>>>>>>>>> unicode > 16r10FFFD ifTrue: [ >>>>>>>>>>> + ^self errorMalformedInput: (String with: char1 >>>>>>>>>>> asCharacter with: >>>>>>>>>>> char2 asCharacter with: char3 asCharacter). >>>>>>>>>>> - ^self errorMalformedInput: (String with: char1 >>>>>>>>>>> with: char2 with: >>>>>>>>>>> char3). >>>>>>>>>>> ]. >>>>>>>>>>> >>>>>>>>>>> unicode = 16rFEFF ifTrue: [^ self nextFromStream: aStream]. >>>>>>>>>>> ^ Unicode value: unicode. >>>>>>>>>>> ! >>>>>> >>>>>> >>>>>> >>>> >>>> >>> >> >> >

1 0

The Trunk: Graphics-bf.368.mcz
by commits＠source.squeak.org 31 Jan '17

31 Jan '17

Bert Freudenberg uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-bf.368.mcz ==================== Summary ==================== Name: Graphics-bf.368 Author: bf Time: 31 January 2017, 8:55:04.767278 am UUID: 404d8e9d-2ce0-4469-a8f2-f09db034fd1a Ancestors: Graphics-pre.367 Fix setting Display to MSB. =============== Diff against Graphics-pre.367 =============== Item was changed: ----- Method: DisplayScreen>>newDepth: (in category 'other') ----- newDepth: pixelSize " Display newDepth: 8. Display newDepth: 1. " | area need | (self supportsDisplayDepth: pixelSize) ifFalse:[^self inform:'Display depth ', pixelSize printString, ' is not supported on this system']. + pixelSize = self nativeDepth ifTrue: [^ self "no change"]. - pixelSize = self depth ifTrue: [^ self "no change"]. pixelSize abs < self depth ifFalse: ["Make sure there is enough space" area := self boundingBox area. "pixels" need := (area * (pixelSize abs - self depth) // 8) "new bytes needed" + Smalltalk lowSpaceThreshold. (Smalltalk garbageCollectMost <= need and: [Smalltalk garbageCollect <= need]) ifTrue: [self error: 'Insufficient free space']]. Display setExtent: Display extent depth: pixelSize. Display beDisplay. Project current ifNotNil: [:p | p displayDepthChanged; displaySizeChanged].!

1 0

Re: [squeak-dev] The Inbox: Multilingual-jr.218.mcz
by Jakob Reschke 31 Jan '17

31 Jan '17

Well, the alternative to exploiting polymorphy like in the patch would be to have a nearly identical bunch of "TextConverter" classes that can read from binary streams and answer characters (like the Zinc UTF8 "Encoder" that also happens to have decoding methods). But most of the code would be duplicated with the existing TextConverters, so I think it is the worse solution. IMHO, a fundamental thing such as a text encoding interpreter that is shipped with a standard library should not be restricted by "it was only designed to be used with consumer xyz". The TextConverter hierarchy is neither marked as internal/private in Multilingual by a category, nor by any comments, nor do the class names suggest coupling to the MultiByte*Streams. If I were to commit this thing from scratch, I would even drop the support for returning the bytes as they are if the source stream #isBinary, because it has nothing to do with text conversion. Instead, do not use a TextConverter, if you do not want the bytes converted. But, as Levente already wrote, we can not do this without a larger refactoring and compatibility issues. Best regards, Jakob 2017-01-23 19:24 GMT+01:00 H. Hirzel <hannes.hirzel(a)gmail.com>: > Interesting in this context the UTF8 decoding implementation of Pharo > 5 ZnUTF8Encoder (an alternative to UTF8TextConverter it seems) > > ZnUTF8Encoder>> > nextFromStream: stream > | code byte next | > (byte := stream next) < 128 > ifTrue: [ ^ Character codePoint: byte ]. > (byte bitAnd: 2r11100000) == 2r11000000 > ifTrue: [ > code := byte bitAnd: 2r00011111. > ((next := stream next ifNil: [ self errorIncomplete ]) bitAnd: > 2r11000000) == 2r10000000 > ifTrue: [ code := (code bitShift: 6) + (next bitAnd: 2r00111111) ] > ifFalse: [ ^ self errorIllegalContinuationByte ]. > code < 128 ifTrue: [ self errorOverlong ]. > ^ Character codePoint: code ]. > (byte bitAnd: 2r11110000) == 2r11100000 > ifTrue: [ > code := byte bitAnd: 2r00001111. > 2 timesRepeat: [ > ((next := stream next ifNil: [ self errorIncomplete ]) bitAnd: > 2r11000000) == 2r10000000 > ifTrue: [ code := (code bitShift: 6) + (next bitAnd: 2r00111111) ] > ifFalse: [ ^ self errorIllegalContinuationByte ] ]. > code < 2048 ifTrue: [ self errorOverlong ]. > code = 65279 "Unicode Byte Order Mark" ifTrue: [ > stream atEnd ifTrue: [ self errorIncomplete ]. > ^ self nextFromStream: stream ]. > ^ Character codePoint: code ]. > (byte bitAnd: 2r11111000) == 2r11110000 > ifTrue: [ > code := byte bitAnd: 2r00000111. > 3 timesRepeat: [ > ((next := stream next ifNil: [ self errorIncomplete ]) bitAnd: > 2r11000000) == 2r10000000 > ifTrue: [ code := (code bitShift: 6) + (next bitAnd: 2r00111111) ] > ifFalse: [ ^ self errorIllegalContinuationByte ] ]. > code < 65535 ifTrue: [ self errorOverlong ]. > ^ Character codePoint: code ]. > self errorIllegalLeadingByte > > On 1/23/17, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: >> The Pharo version seems to be the Squeak version optimized for >> VisualWorks (ifNil: -> isNil ifTrue:). >> >> Levente >> >> On Mon, 23 Jan 2017, H. Hirzel wrote: >> >>> Below as a comparison the version in Pharo 5.0. >>> >>> Noteworthy to say is that one can not speak about characters in an >>> UTF8 encoded stream which is read byte by byte until one has examined >>> the bytes. >>> >>> So if I read the first thing it is actually a byte. Then I can examine >>> if it is a one-byte character and then return the character. Then I go >>> for the next byte. If it indicates that we have a two byte encoded >>> UTF8 character then I can return the character. >>> >>> So I should have >>> >>> byte1 := aStream basicNext. >>> >>> ... check if we have a one byte character, if yes return the character >>> >>> byte2 := aStream basicNext. >>> >>> ... check if we have a two byte character, if yes return the character >>> >>> byte3 := aStream basicNext. >>> >>> ... check if we have a three byte character, if yes return the character >>> >>> >>> byte4 := aStream basicNext. >>> >>> ... check if we have a four byte character, if yes return the character >>> >>> >>> >>> >>> >>> nextFromStream: aStream >>> | character1 value1 character2 value2 unicode character3 value3 >>> character4 value4 | >>> aStream isBinary >>> ifTrue: [ ^ aStream basicNext ]. >>> character1 := aStream basicNext. >>> character1 isNil >>> ifTrue: [ ^ nil ]. >>> value1 := character1 asciiValue. >>> value1 <= 127 >>> ifTrue: [ >>> "1-byte character" >>> ^ character1 ]. "at least 2-byte character" >>> character2 := aStream basicNext. >>> character2 isNil >>> ifTrue: [ ^ self errorMalformedInput ]. >>> value2 := character2 asciiValue. >>> (value1 bitAnd: 16rE0) = 192 >>> ifTrue: [ ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) + >>> (value2 bitAnd: 63) ]. "at least 3-byte character" >>> character3 := aStream basicNext. >>> character3 isNil >>> ifTrue: [ ^ self errorMalformedInput ]. >>> value3 := character3 asciiValue. >>> (value1 bitAnd: 16rF0) = 224 >>> ifTrue: [ unicode := ((value1 bitAnd: 15) bitShift: 12) + ((value2 >>> bitAnd: 63) bitShift: 6) + (value3 bitAnd: 63) ]. >>> (value1 bitAnd: 16rF8) = 240 >>> ifTrue: [ >>> "4-byte character" >>> character4 := aStream basicNext. >>> character4 isNil >>> ifTrue: [ ^ self errorMalformedInput ]. >>> value4 := character4 asciiValue. >>> unicode := ((value1 bitAnd: 16r7) bitShift: 18) + ((value2 bitAnd: >>> 63) bitShift: 12) >>> + ((value3 bitAnd: 63) bitShift: 6) + (value4 bitAnd: 63) ]. >>> unicode isNil >>> ifTrue: [ ^ self errorMalformedInput ]. >>> unicode > 16r10FFFD >>> ifTrue: [ ^ self errorMalformedInput ]. >>> unicode = 16rFEFF >>> ifTrue: [ ^ self nextFromStream: aStream ]. >>> ^ Unicode value: unicode >>> >>> >>> >>> >>> >>> On 1/22/17, Tobias Pape <Das.Linux(a)gmx.de> wrote: >>>> >>>> On 22.01.2017, at 16:10, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: >>>> >>>>> On Fri, 20 Jan 2017, Tobias Pape wrote: >>>>> >>>>>> >>>>>> On 19.01.2017, at 23:30, Levente Uzonyi <leves(a)caesar.elte.hu> wrote: >>>>>> >>>>>>> On Thu, 19 Jan 2017, Tobias Pape wrote: >>>>>>>> Thanks Jacob. >>>>>>>> Any objections here I put this into trunk? >>>>>>> Yep. TextConverters are intended to work with MultiByte*Streams only. >>>>>> >>>>>> Didn't know that. >>>>>> >>>>>>> Therefore #basicNext is expected to return a Character, provided the >>>>>>> stream is not binary. This is why the #isBinary check is the first >>>>>>> thing >>>>>>> the method does. >>>>>> >>>>>> I see. however, using asInteger sounds more reasonable _even though_ it >>>>>> is a character. Said bluntly, the responsibility of the TextConverter >>>>>> is >>>>>> to make Characters from that bloody numbers in that stream. >>>>>> I was confused to see that asciiValue returns something >127 in the >>>>>> first >>>>>> place. >>>>> >>>>> #asInteger does the same thing as #asciiValue. While #asciiValue doesn't >>>>> do what you would expect it to do, it has the advantage to clearly mark >>>>> the class of the receiver (in this case). >>>>> >>>> >>>> Yes, and that's exactly why we should use #asInteger. To _not_ limit the >>>> receiver. >>>> Because the receiver isn't actually a Character, but some number, encoded >>>> in >>>> a Character, whose meaning is to be determined by >>>> this very method. >>>> >>>> Also, how do we know that _basic_Next will always return a Character? >>>> (Yes, I know there's a binary check, but doesn't that only say something >>>> about #next, not #basicNext?) >>>> >>>> >>>>>> >>>>>>> If there are plans to make TextConverters work with more general >>>>>>> streams, then I persume these changes won't be enough. >>>>>> >>>>>> Clearly. >>>>>> But isn't this a step in the right direction? >>>>> >>>>> Yes and no. There are at least two ways to go: >>>>> >>>>> 1. Enhance the current stream library, even at the cost of breaking >>>>> things. >>>>> A patch here and there won't work. There are fundamental changes >>>>> required, >>>>> like stackable streams, to make it desirable to use it over other >>>>> libraries. >>>>> >>>>> 2. Integrate an existing stream library with better features (e.g. >>>>> Xtreams) >>>>> If we were to do this, we could gradually migrate existing code to the >>>>> new >>>>> library, and finally make the current stream library unloadable. >>>> >>>> I like the idea of Xtreams, but I also like going baby steps. >>>> >>>> The changes here help at least one person, won't hurt others and seem >>>> future >>>> proof. >>>> So? >>>> >>>> Best regards >>>> -Tobias >>>> >>>> >>>> >>>>> Levente >>>>> >>>>>> >>>>>>> Levente >>>>>>>> Looks good from here. >>>>>>>> Best regards >>>>>>>> -Tobias >>>>>>>> On 19.01.2017, at 17:14, commits(a)source.squeak.org wrote: >>>>>>>>> A new version of Multilingual was added to project The Inbox: >>>>>>>>> http://source.squeak.org/inbox/Multilingual-jr.218.mcz >>>>>>>>> ==================== Summary ==================== >>>>>>>>> Name: Multilingual-jr.218 >>>>>>>>> Author: jr >>>>>>>>> Time: 19 January 2017, 5:14:23.763655 pm >>>>>>>>> UUID: 36416c42-a4b4-554f-8203-aba25eee794f >>>>>>>>> Ancestors: Multilingual-tfel.217 >>>>>>>>> support 'iso-8859-1' and do not let UTF8TextConverter expect that >>>>>>>>> its >>>>>>>>> input stream returns Characters from basicNext >>>>>>>>> A stream implementation might always return bytes from basicNext and >>>>>>>>> expect the conversion to Character to be done solely by the >>>>>>>>> TextConverter, so use asInteger instead of asciiValue to support >>>>>>>>> both >>>>>>>>> cases. Convert back with asCharacter. >>>>>>>>> =============== Diff against Multilingual-tfel.217 =============== >>>>>>>>> Item was changed: >>>>>>>>> ----- Method: Latin1TextConverter class>>encodingNames (in category >>>>>>>>> 'utilities') ----- >>>>>>>>> encodingNames + ^ #('latin-1' 'latin1' 'iso-8859-1') copy. >>>>>>>>> - ^ #('latin-1' 'latin1') copy. >>>>>>>>> ! >>>>>>>>> Item was changed: >>>>>>>>> ----- Method: UTF8TextConverter>>nextFromStream: (in category >>>>>>>>> 'conversion') ----- >>>>>>>>> nextFromStream: aStream >>>>>>>>> >>>>>>>>> | char1 value1 char2 value2 unicode char3 value3 char4 value4 | >>>>>>>>> aStream isBinary ifTrue: [^ aStream basicNext]. >>>>>>>>> char1 := aStream basicNext. >>>>>>>>> char1 ifNil:[^ nil]. >>>>>>>>> + value1 := char1 asInteger. >>>>>>>>> - value1 := char1 asciiValue. >>>>>>>>> value1 <= 127 ifTrue: [ >>>>>>>>> "1-byte char" >>>>>>>>> + ^ char1 asCharacter >>>>>>>>> - ^ char1 >>>>>>>>> ]. >>>>>>>>> >>>>>>>>> "at least 2-byte char" >>>>>>>>> char2 := aStream basicNext. >>>>>>>>> + char2 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>> asCharacter)]. >>>>>>>>> + value2 := char2 asInteger. >>>>>>>>> - char2 ifNil:[^self errorMalformedInput: (String with: char1)]. >>>>>>>>> - value2 := char2 asciiValue. >>>>>>>>> >>>>>>>>> (value1 bitAnd: 16rE0) = 192 ifTrue: [ >>>>>>>>> ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) + (value2 >>>>>>>>> bitAnd: >>>>>>>>> 63). >>>>>>>>> ]. >>>>>>>>> >>>>>>>>> "at least 3-byte char" >>>>>>>>> char3 := aStream basicNext. >>>>>>>>> + char3 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>> asCharacter with: char2 asCharacter)]. >>>>>>>>> + value3 := char3 asInteger. >>>>>>>>> - char3 ifNil:[^self errorMalformedInput: (String with: char1 with: >>>>>>>>> char2)]. >>>>>>>>> - value3 := char3 asciiValue. >>>>>>>>> (value1 bitAnd: 16rF0) = 224 ifTrue: [ >>>>>>>>> unicode := ((value1 bitAnd: 15) bitShift: 12) + ((value2 bitAnd: >>>>>>>>> 63) >>>>>>>>> bitShift: 6) >>>>>>>>> + (value3 bitAnd: 63). >>>>>>>>> ]. >>>>>>>>> >>>>>>>>> (value1 bitAnd: 16rF8) = 240 ifTrue: [ >>>>>>>>> "4-byte char" >>>>>>>>> char4 := aStream basicNext. >>>>>>>>> + char4 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>> asCharacter with: char2 asCharacter with: char3 asCharacter)]. >>>>>>>>> + value4 := char4 asInteger. >>>>>>>>> - char4 ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>> with: >>>>>>>>> char2 with: char3)]. >>>>>>>>> - value4 := char4 asciiValue. >>>>>>>>> unicode := ((value1 bitAnd: 16r7) bitShift: 18) + >>>>>>>>> ((value2 bitAnd: 63) bitShift: 12) + >>>>>>>>> ((value3 bitAnd: 63) bitShift: 6) + >>>>>>>>> (value4 bitAnd: 63). >>>>>>>>> ]. >>>>>>>>> + unicode ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>> asCharacter with: char2 asCharacter with: char3 asCharacter)]. >>>>>>>>> - unicode ifNil:[^self errorMalformedInput: (String with: char1 >>>>>>>>> with: >>>>>>>>> char2 with: char3)]. >>>>>>>>> unicode > 16r10FFFD ifTrue: [ >>>>>>>>> + ^self errorMalformedInput: (String with: char1 asCharacter with: >>>>>>>>> char2 asCharacter with: char3 asCharacter). >>>>>>>>> - ^self errorMalformedInput: (String with: char1 with: char2 with: >>>>>>>>> char3). >>>>>>>>> ]. >>>>>>>>> >>>>>>>>> unicode = 16rFEFF ifTrue: [^ self nextFromStream: aStream]. >>>>>>>>> ^ Unicode value: unicode. >>>>>>>>> ! >>>> >>>> >>>> >> >> >

2 1

Setter: aMorph name: 'theName' Getter: aMorph externalName
by H. Hirzel 30 Jan '17

30 Jan '17

Hello On 1/19/17, Jecel Assumpcao Jr. <jecel(a)merlintec.com> wrote: ... > > One of my roles in the Squeak community has been to remember the past. Recently I was wondering about the names of Morphs. Setting a name is done with aMorph name: 'theName' To get it back I need to do aMorph externalName Maybe you know the historical reason for it? -- Hannes Morphs have basic attributes Setters: - #position: - #extent: - #color: - #name: For the first three attributes getters are labeled the same [1] For the 'name' attribut it is different. To get the name I have set I need to use #externalName. m := (RectangleMorph new name: 'myRect') openInWorld. m name 'a RectangleMorph<myRect>(115748)' m externalName 'myRect' --------------------------------------------------------------------- [1] Slides in markdown format Morphs have a position ------------------------------------ Morph new position: 100@100; openInWorld; inspect. In the Inspector self position gives 100@100 Morphs have an extent ------------------------------------- m := Morph new. m extent: 320@240. m openInHand. m inspect In the Inspector self extent gives 320@240. Morphs have a color ---------------------------------- m := Morph new. m color: Color red. m openInHand. m inspect In the Inspector self color gives Color red

2 1

Exercism programming exercises for Squeak
by horrido 30 Jan '17

30 Jan '17

I created a Smalltalk track at Exercism: https://github.com/exercism/xsmalltalk <https://github.com/exercism/xsmalltalk> It would be nice if the Smalltalk community contributed some exercises to help budding Smalltalkers. Thanks. -- View this message in context: http://forum.world.st/Exercism-programming-exercises-for-Squeak-tp4932216.h… Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0