Squeak-dev August 2009

squeak-dev@lists.squeakfoundation.org

114 participants
300 discussions

The Trunk: EToys-dtl.33.mcz
by commits＠source.squeak.org 29 Aug '09

29 Aug '09

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.33.mcz ==================== Summary ==================== Name: EToys-dtl.33 Author: dtl Time: 29 August 2009, 3:13:02 am UUID: ee8177c9-07c7-4148-bc75-76cd2f1b26f7 Ancestors: EToys-ar.32 Use #identityHash rather than #asOop in #printOn: methods =============== Diff against EToys-ar.32 =============== Item was changed: ----- Method: Player>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + aStream nextPutAll: (' (', self identityHash printString, ')'). - aStream nextPutAll: (' (', self asOop printString, ')'). self costume ifNil: [aStream nextPutAll: ' (with nil costume)'. ^ self]. aStream nextPutAll: ' named ', self externalName! Item was changed: ----- Method: Presenter>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + aStream nextPutAll: ' (', self identityHash printString, ')'! - aStream nextPutAll: ' (', self asOop printString, ')'! Item was changed: RectangleMorph subclass: #TileMorph instanceVariableNames: 'type slotName literal operatorOrExpression actualObject downArrow upArrow suffixArrow typeColor lastArrowTick nArrowTicks operatorReadoutString possessive retractArrow vocabulary vocabularySymbol' + classVariableNames: 'DownPicture RetractPicture SuffixArrowAllowance SuffixPicture UpArrowAllowance UpPicture UpdatingOperators' - classVariableNames: 'SuffixPicture UpdatingOperators RetractPicture UpArrowAllowance DownPicture SuffixArrowAllowance UpPicture' poolDictionaries: '' category: 'EToys-Scripting Tiles'! !TileMorph commentStamp: '<historical>' prior: 0! A tile with up, down and suffix arrows. To install new Forms for the arrows, just nil out UpPicture, DownPicture, or SuffixPicture. Create actors with the picture you want and write it out with these file names: 'tile inc arrow.morph' 'tile dec arrow.morph' 'tile suffix arrow.morph'. Make sure that file is in the same directory as the image. Open an EToy.! Item was changed: UpdatingThreePhaseButtonMorph subclass: #EtoyUpdatingThreePhaseButtonMorph instanceVariableNames: '' + classVariableNames: 'CheckedForm MouseDownForm UncheckedForm' - classVariableNames: 'CheckedForm UncheckedForm MouseDownForm' poolDictionaries: '' category: 'EToys-Widgets'! !EtoyUpdatingThreePhaseButtonMorph commentStamp: '<historical>' prior: 0! A slight variation wherein the actionSelector and getSelector both take argument(s).! Item was changed: AlignmentMorph subclass: #SyntaxMorph instanceVariableNames: 'parseNode markerMorph' + classVariableNames: 'AllSpecs ContrastFactor DownRightArrow SelfTile SizeScaleFactor' - classVariableNames: 'ContrastFactor SizeScaleFactor AllSpecs DownRightArrow SelfTile' poolDictionaries: '' category: 'EToys-Tile Scriptors'! !SyntaxMorph commentStamp: '<historical>' prior: 0! A single class of morph that holds any piece of Smalltalk syntax, and allows it to be a tile. Tiles can be dragged in or out of a method. In the message list pane of a Browser, choose 'tile scriptor'. Bring up a second one to steal parts from. If you use a Protocol Browser, and choose tiles, there will be two buttons that bring up menus with many tiles on them. Clicking multiple times selects enclosing phrases of code. Dragging lets you take away a copy. Any tile may be replaced by dropping on it. Shift-click to edit the text of any tile. Change variable and message names, but do not change the part-of-speech (objects to selector). Each SyntaxMorph holds a ParseNode. After editing, the parseNode is only good as a part-of-speech indicator. Only the Class of a parseNode is important. It's state is not kept up to date with the tile edits (but maybe it should be). (For MessageNodes, whether the receiver slot is nil is significant.) The correspondence between SyntaxMorphs and parseNodes in the real parse tree is not one-to-one. Several extra levels of SyntaxMorph were added as aligners to make the horizontal and vertical layout right. These sometimes have nil for the parseNode. When accept the method, we pass over the tree of SyntaxMorphs, gathering their printStrings and inserting punctuation. See (SyntaxMorph>>printOn:indent:). We send the result to the compiler. (We do not use the parse tree we already have.) To turn on type checking: Preferences enable: #eToyFriendly or for testing: World project projectParameters at: #fullCheck put: true. Colors of tiles: Each tile has a current color (inst car color) and a deselectedColor (a property). The deselectedColor may be governed by the part of speech, or not. (translateColor: is only used when a tile is created, to set deselectedColor.) From deselectedColor (set by #setDeselectedColor), the color changes to: lightBrown when selected (not the submorphs) in #select translucent when held in the hand (allMorphs) in #lookTranslucent green when a drop target (allMorphs) (change the owners back) #dropColor, #trackDropZones deselectedColor is moderated by the darkness setting, #scaleColorByUserPref:. (as it is put into color in #color:) Code to produce an individual tile is: (SyntaxMorph new) attachTileForCode: '''abc''' nodeType: LiteralNode. see offerTilesMenuFor:in: for many other phrases that produce useful tiles. AssignmentNode: If three submorphs, is a statement, and is a noun. If one submorph, is just the left arrow. When dropped on a variable, it creates a new assignment statement. !

1 0

The Trunk: Kernel-dtl.232.mcz
by commits＠source.squeak.org 29 Aug '09

29 Aug '09

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.232.mcz ==================== Summary ==================== Name: Kernel-dtl.232 Author: dtl Time: 29 August 2009, 3:10:31 am UUID: d3863eef-2d76-454e-97d2-7070ea1ac7d1 Ancestors: Kernel-ar.231 Update #oopString comment =============== Diff against Kernel-ar.231 =============== Item was changed: ----- Method: Object>>oopString (in category 'system primitives') ----- oopString + "Answer a string that represents the oop of the receiver. + This method is for compatibility only, see comment for #asOop." - "Answer a string that represents the oop of the receiver" ^ self asOop printString!

1 0

Monticello Configurations files on MC Browser
by Giuseppe Luigi Punzi Ruiz 29 Aug '09

29 Aug '09

If trunk has Monticello Configurations, Why I can't see it from MC Browser? Cheers. Giuseppe Luigi Punzi Ruiz Blog: http://www.lordzealon.com Twitter & Skype & GoogleTalk accounts: glpunzi

2 4

Re: Linux input testers needed
by Michal Perutka 28 Aug '09

28 Aug '09

Hi, 2009/8/27 Andreas Raab <andreas.raab(a)gmx.de> > Michal Perutka wrote: > >> many thanks. I have tried your code (sorry for the delay - I spent two >> weeks with my family but without my laptop ;) and it works for me (hurray! >> :-) with these modifications: >> > > Very good. > > /Character value: .../ (or /keyValue asCharacter/ in your version of the >> next method) doesn't work for characters with unicodes > 255 (e.g. "latin >> small letter s with caron" $š has unicode 353). >> > > Actually, that was no mistake. I meant to use Character value: xxx since I > want us to get away from the leading char stuff in Unicode. What happens > when you use Character value: instead of Unicode value:? Does it blow up? > Does it display incorrectly? Anything else? $? for every code > 255. For example Character value: 353 shows $?, Character leadingChar: 14 code: 353 shows $š > > > UnicodeInputInterpreter>>nextCharFrom: sensor firstEvt: evtBuf >> "Compose Unicode character sequences" >> | peekEvent keyValue composed | >> "Only try this if the first event is composable and is a character >> event" >> ((Unicode isComposable: (keyValue := evtBuf *sixth*)) >> and:[evtBuf fourth = EventKeyChar]) ifTrue:[ ... ]. >> "XXXX: Fixme. We should put the skipped event back if we haven't >> consumed it." >> >> ^ *Unicode* value: keyValue >> >> Why evtBuf sixth ? Some keys on a Czech keyboard give me possibility to >> type Czech characters with diacritical marks directly. Correct codes >> (unicodes, e.g. 353 for $š) I've found in evtBuf at the sixth position, not >> at the third. And the sixth position seems to be Ok for all characters. >> > > Yes, that's correct. Mistake on my part. Element three is the old MacRoman > value; number six is the UTF32 code point. > > And the last thing: When I run Squeak with an option - encoding UTF-8, I >> think the UnicodeInputInterpreter should be installed. Otherwise I have to >> do it manually (World primaryHand keyboardInterpreter: >> UnicodeInputInterpreter new) >> > > Right. I really dislike it that the Unix VM still doesn't use Unicode by > default (as the Windows and Mac VMs do). Perhaps I can convince Ian to > change the default. Today I tested UnicodeInputInterpreter on Win XP and it works as well as on Linux. Cheers Michal

2 3

leadingChar proposal
by Andreas Raab 28 Aug '09

28 Aug '09

Folks - I think it's time to do something about the leadingChar in Characters that has been on the TODO list for a while. I have been looking over this stuff for some time now, fixing things here and there and laying some of the ground work for the things to come. Here is the good news: Squeak doesn't need the leadingChar any longer. If you are running an updated trunk image you can run entirely without the leadingChar being used, and I've done this for about a week now with no ill side effects (disclaimer: I haven't been using very much of m17n support stuff so there may still be breakage but it means it won't explode in your face straightaway). If you would like to try yourself, all you need to do is to hack Character>>setValue: to say, e.g., value := newValue bitClear: 16r3FC00000. and you're good (and won't ever see a leadingChar). However, the removal of the leading char could be used to do a couple of other things that I would like to discuss and solicit feedback in particular from the folks who care about the leadingChar. The main insight is that although we *can* run without the leadingChar, it doesn't mean we *have* to. As it stands, the leading char is used for two purposes: Character set selection (EncodedCharSet) and (parts of) language support. There is a significant amount of confusion between the two with Latin1/Latin2Environment subclasses of LanguageEnvironment (although these are character encodings not languagse). What I would propose to do here is to define that "leadingChar = 0" which currently means "Latin1 encoding, language neutral" is being redefined to "Unicode encoding, language neutral". What this does is that "Character value: 353" and "Unicode value: 353" become the same, if the environment is considered language neutral which by default it would be. All but the environment which care about the connotations of the language tag should be able to work with this definition without any change whatsovever. The only thing that changes is that the default LanguageEnvironment is Unicode based, using leadingChar=0, most of the subclasses go away (being replaced by the default LanguageEnvironment) and those that we care about, or need a transition plan (i.e., the CJK languages) we keep using the language tag for the time being. That means that *if* you set your language environment to be one of the CJK languages you get a language tag in your strings, but by default the language neutral environment will produce "plain Unicode". Which should make the server/seaside/aida people a lot more happy when dealing with this stuff. For the CJK languages (or other languages requiring support that has been so far expressed via the languag tag) we can use this opportunity and phase the use of the language tag out in favor of using text attributes (which would have to be written first). The main advantage of the proposal is that the people who would like to use plain Unicode get to use it, and the people who care about the language tag and its consequences can still use that as well. How does that sound? Cheers, - Andreas

5 13

Re: Linux input testers needed
by Michal Perutka 28 Aug '09

28 Aug '09

2009/8/27 Andreas Raab <andreas.raab(a)gmx.de> > Michal Perutka wrote: > >> UnicodeInputInterpreter>>nextCharFrom: sensor firstEvt: evtBuf >> "Compose Unicode character sequences" >> | peekEvent keyValue composed | >> "Only try this if the first event is composable and is a character >> event" >> ((Unicode isComposable: (keyValue := evtBuf *sixth*)) >> and:[evtBuf fourth = EventKeyChar]) ifTrue:[ ... ]. >> "XXXX: Fixme. We should put the skipped event back if we haven't >> consumed it." >> >> ^ *Unicode* value: keyValue >> >> Why evtBuf sixth ? Some keys on a Czech keyboard give me possibility to >> type Czech characters with diacritical marks directly. Correct codes >> (unicodes, e.g. 353 for $š) I've found in evtBuf at the sixth position, not >> at the third. And the sixth position seems to be Ok for all characters. >> > > Yes, that's correct. Mistake on my part. Element three is the old MacRoman > value; number six is the UTF32 code point. Using evtBuf sixth throughout the method brought me problems with ctrl-c, ctrl-s, etc. and even scrolling by a mouse wheel stopped working. This modification seems to fix them: UnicodeInputInterpreter>>nextCharFrom: sensor firstEvt: evtBuf "Compose Unicode character sequences" "Only try this if the first event is composable and is a character event" | peekEvent keyValue composed | keyValue := evtBuf sixth > 127 ifTrue: [evtBuf sixth] ifFalse: [evtBuf third]. ((Unicode isComposable: keyValue) and: [evtBuf fourth = EventKeyChar]) ifTrue: [ ... Cheers Michal

1 0

The Trunk: CollectionsTests-ar.91.mcz
by commits＠source.squeak.org 28 Aug '09

28 Aug '09

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ar.91.mcz ==================== Summary ==================== Name: CollectionsTests-ar.91 Author: ar Time: 27 August 2009, 8:45:06 am UUID: 43f0d9ce-524e-934a-832a-3b6a00ee57e2 Ancestors: CollectionsTests-rkrk.90 Tests for String>>asDecomposedUnicode and String>>asPrecomposedUnicode. =============== Diff against CollectionsTests-rkrk.90 =============== Item was added: + ----- Method: StringTest>>testAsPrecomposedUnicode (in category 'tests - converting') ----- + testAsPrecomposedUnicode + "Test the behavior of #asPrecomposedUnicode" + | composed decomposed | + + "Tests single character" + composed := String with: (Character value: 353). + decomposed := String with: (Character value: 115) with: (Character value: 780). + self assert: decomposed asPrecomposedUnicode = composed. + + "Test character at end of text" + composed := 'Hello', (String with: (Character value: 353)). + decomposed := 'Hello', (String with: (Character value: 115) with: (Character value: 780)). + self assert: decomposed asPrecomposedUnicode = composed. + + "Test character in the midst of text" + composed := 'Hello', (String with: (Character value: 353)), 'World'. + decomposed := 'Hello', (String with: (Character value: 115) with: (Character value: 780)), 'World'. + self assert: decomposed asPrecomposedUnicode = composed. + + "Test character in the end of text" + composed := (String with: (Character value: 353)), 'World'. + decomposed := (String with: (Character value: 115) with: (Character value: 780)), 'World'. + self assert: decomposed asPrecomposedUnicode = composed. + + "Test string full of characters" + "Test character in the end of text" + composed := (String with: (Character value: 353)). + decomposed := (String with: (Character value: 115) with: (Character value: 780)). + self assert: (decomposed, decomposed, decomposed) asPrecomposedUnicode = (composed, composed, composed). + ! Item was added: + ----- Method: StringTest>>testAsDecomposedUnicode (in category 'tests - converting') ----- + testAsDecomposedUnicode + "Test the behavior of #asDecomposedUnicode" + | composed decomposed | + + "Tests single character" + composed := String with: (Character value: 353). + decomposed := String with: (Character value: 115) with: (Character value: 780). + self assert: composed asDecomposedUnicode = decomposed. + + "Test character at end of text" + composed := 'Hello', (String with: (Character value: 353)). + decomposed := 'Hello', (String with: (Character value: 115) with: (Character value: 780)). + self assert: composed asDecomposedUnicode = decomposed. + + "Test character in the midst of text" + composed := 'Hello', (String with: (Character value: 353)), 'World'. + decomposed := 'Hello', (String with: (Character value: 115) with: (Character value: 780)), 'World'. + self assert: composed asDecomposedUnicode = decomposed. + + "Test character in the end of text" + composed := (String with: (Character value: 353)), 'World'. + decomposed := (String with: (Character value: 115) with: (Character value: 780)), 'World'. + self assert: composed asDecomposedUnicode = decomposed. + + "Test string full of characters" + "Test character in the end of text" + composed := (String with: (Character value: 353)). + decomposed := (String with: (Character value: 115) with: (Character value: 780)). + self assert: (composed, composed, composed) asDecomposedUnicode = (decomposed, decomposed, decomposed). + !

1 0

The Trunk: Collections-ar.121.mcz
by commits＠source.squeak.org 28 Aug '09

28 Aug '09

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.121.mcz ==================== Summary ==================== Name: Collections-ar.121 Author: ar Time: 27 August 2009, 8:43:09 am UUID: b5271f0f-8838-9449-bddb-986e082835e7 Ancestors: Collections-ar.120 Adds String>>asPrecomposedUnicode and String>>asDecomposedUnicode for quick conversions between precomposed and decomposed Unicode string representations. =============== Diff against Collections-ar.120 =============== Item was added: + ----- Method: String>>asPrecomposedUnicode (in category 'converting') ----- + asPrecomposedUnicode + "Convert the receiver into a precomposed Unicode representation. + Optimized for the common case that no composition needs to take place." + | lastIndex nextIndex composed out | + lastIndex := 1. + nextIndex := 0. + [(nextIndex := nextIndex+1) < self size] whileTrue:[ + composed := Unicode compose: (self at: nextIndex) with: (self at: nextIndex+1). + composed ifNotNil:[ + lastIndex = 1 ifTrue:[out := WriteStream on: (String new: self size)]. + out nextPutAll: (self copyFrom: lastIndex to: nextIndex-1). + out nextPut: composed. + nextIndex := nextIndex+1. + lastIndex := nextIndex+1. + ]. + ]. + ^out ifNil:[self] ifNotNil:[ + out nextPutAll: (self copyFrom: lastIndex to: self size). + out contents]! Item was added: + ----- Method: String>>asDecomposedUnicode (in category 'converting') ----- + asDecomposedUnicode + "Convert the receiver into a decomposed Unicode representation. + Optimized for the common case that no decomposition needs to take place." + | lastIndex nextIndex out decomposed | + lastIndex := 1. + nextIndex := 0. + [(nextIndex := nextIndex+1) <= self size] whileTrue:[ + decomposed := Unicode decompose: (self at: nextIndex). + decomposed ifNotNil:[ + lastIndex = 1 ifTrue:[out := WriteStream on: (String new: self size)]. + out nextPutAll: (self copyFrom: lastIndex to: nextIndex-1). + out nextPutAll: decomposed. + lastIndex := nextIndex+1. + ]. + ]. + ^out ifNil:[self] ifNotNil:[ + out nextPutAll: (self copyFrom: lastIndex to: self size). + out contents]!

1 0

The Trunk: Collections-ar.120.mcz
by commits＠source.squeak.org 28 Aug '09

28 Aug '09

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.120.mcz ==================== Summary ==================== Name: Collections-ar.120 Author: ar Time: 27 August 2009, 8:07:54 am UUID: f7e07320-f92c-9449-ad4a-98813876258b Ancestors: Collections-dtl.119 PositionableStream>>upToAnyOf: is just like #upTo: but allows for a collection of elements to be matched against. Very useful when there is a potential set of matches ahead, for example when dealing with a mixture of cr and lfs in files, such as in: [stream atEnd] whileFalse:[ (stream upToAnyOf: String crlf) ifNotEmpty:[:line| "etc"]. ]. =============== Diff against Collections-dtl.119 =============== Item was added: + ----- Method: PositionableStream>>upToAnyOf: (in category 'accessing') ----- + upToAnyOf: aCollection + "Answer a subcollection from the current access position to the + occurrence (if any, but not inclusive) of any object in the collection. If + no matching object is found, answer the entire rest of the receiver." + | newStream element | + newStream := WriteStream on: (collection species new: 100). + [self atEnd or: [aCollection includes: (element := self next)]] + whileFalse: [newStream nextPut: element]. + ^newStream contents!

1 0

Loading morphic-ar.162 fails
by Markus Lampert 28 Aug '09

28 Aug '09

Updating the image from trunk currently fails in MCMethodDefinition>>initializeWithClassName:classIsMeta:selector:category:imteStamp:source: with UndefinedObject>>asSymbol not understood. The method in question is StandardFileMenu>>advance:containingDirectoriesFrom: The method is defined and categorized in 'private'. When I do a 'implementors off ...' I get a followup error in TextMorphEditor>>setSearch: (UndefinedObject does not understand #asText). The result of 'model autoSelectString' is nil. I came to that through the method finder which actually lists 2 implementations, one in StandardFileMenu and one in StandardFileMenu class, but I can't find the one in the class, hence the implementors... Running Debian/Linux amd64 with squeak-vm 3.10-6. Does anybody know what I'm doing wrong? Or should be doing but aren't? I'm new to this so I hope I got all the information. Thanks, Markus

5 13

← Newer
1
2
3
4
5
6
7
8
9
...
30
Older →

Jump to page: