January 2010 - Pharo-dev - lists.pharo.org

[Pharo-project] Toyota like process for 1.1
by StÃ©phane Ducasse Jan. 16, 2010

Jan. 16, 2010

Hi guys may be I'm wrong but I have the impression that fixing tests as soon as they are broken in the Unstable branch could be better. Now doing that may stall our energy. So what do you think? May be an alternate process is to make progress and to do green test session from time to time. Stef

6 8

[Pharo-project] Styles for Morphic
by Igor Stasenko Jan. 16, 2010

Jan. 16, 2010

Hello guys, thinking, how to easily define styles, based on simple selection rules, i sketched the class, MorphStyle. The principle how it works is simple: - you creating a style, add adding actions to it - you then applying style to morph or group of morphs. Example: | style | style := MorphStyle new submorphs model: #Browser; color: Color red. style applyTo: World. Let me describe in detail, what it does, when you applying it: style applyTo: World. Style initializing its current selection to be a collection with single element - { World }. Next thing, which it does is applying any actions , which we specified during building the style, namely: 'submorphs' - replacing the current selection by gathering all submorphs of it, i.e. selection before: #( World ) selection after: #( World's submorphs ) 'model: #Browser' - filter the current selection and leave only those entries, which respond to #model and model class name is #Browser selection before: #( world's submorphs ) selection after: { Browser SystemWindow#1. Browser SystemWindow#2. Browser SystemWindow#3.Browser SystemWindow#4. } 'color: Color red'. - since there's no such method in MorphStyle, it is trapped by DNU handler and converted to a #sendMessage: action. A #sendMessage: action sends a specified message to current selection, i.e.: { Browser SystemWindow#1. .... Browser SystemWindow#N. } do: [:morph | message sendTo: morph ]. So, as result, if you doIt : | style | style := MorphStyle new submorphs model: #Browser; color: Color red. style applyTo: World. all browser windows color will be changed to red color. Some words about potential uses of this stuff. - theming, (through defining own style sheets). In contrast to existing implementation, we're free to define anything, which morph understands , not just colors, border or fillstyle, but also, layout, fonts, position etc etc. - defining styles in various ways: following snippet sets the 'browse' button color to red for all browser windows and illustrating how one style could reuse another one. | browseButton buttonStyle browsers | buttonStyle := MorphStyle new color: Color blue. browseButton := MorphStyle new allSubmorphs; has: #label equalTo: 'browse'. browsers := MorphStyle new model: #Browser. browseButton style: buttonStyle. "browseButton reusing buttonStyle" browsers style: browseButton. "browser style reusing browseButton style" browsers applyTo: World submorphs. It can be easily integrated with Morphic when using some global theme, all we need is: - add Morph>>applyThemeStyles ^ World currentTheme applyStylesTo: self - send #applyStyles to morph, when its added to World. Also, we could integrate it with toolbuilder which will allow us to define morph layouts, fonts, colors & initial properties more flexibly than currently are . Non-morphic builders could just ignore the #setStyles: message. Comments, suggestions , as always welcome. -- Best regards, Igor Stasenko AKA sig.

2 2

[Pharo-project] Pharo 1.1 failing tests testIsUnsentMessagesInCategory
by Nicolas Cellier Jan. 16, 2010

Jan. 16, 2010

testIsUnsentMessagesInCategory testIsUnsentMessagesInClass testIsUnsentMessagesInPackage all fail because selectors does not answer a Set anymore. Just add #asSet in the assertion and all will be OK Nicolas

1 0

[Pharo-project] Object>>#actionMap -> (Object>>#actionMap "a CompiledMethod(1891)")
by StÃ©phane Ducasse Jan. 16, 2010

Jan. 16, 2010

I was wondering if this is of any interest to have the () and the compiled method with number because it breaks self evaluation for nothing. (Object>>#actionMap "a CompiledMethod(1891)") Stef

2 1

[Pharo-project] [update 1.1] #11163
by StÃ©phane Ducasse Jan. 16, 2010

Jan. 16, 2010

11163 ----- - Issue 1834: File fixes from trunk prior readbuffer - Fixing Base64MimeConverterTest - Issue 1829: testIndenting: remove? rely on the current font Stef

1 0

[Pharo-project] About mime encoding
by StÃ©phane Ducasse Jan. 16, 2010

Jan. 16, 2010

Hi in the squeak trunk jcg in collections-jcg.124 did mimeEncode: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." | me | >> aStream position: 0. me := self new dataStream: aStream. me mimeStream: (ReadWriteStream on: (String new: aStream size + 20 * 4 // 3)). me mimeEncode. me mimeStream position: 0. ^ me mimeStream I would like to know if one of you agree on that. Thanks Stef

3 7

[Pharo-project] Issue 1829: testIndenting: remove/fix? since rely on the current font
by StÃ©phane Ducasse Jan. 16, 2010

Jan. 16, 2010

Help me taking decision :) Stef http://code.google.com/p/pharo/issues/detail?id=1829 testSetUp "just reminding us all what the paragraph looks like to begin with. assuming Accuny12 font " | cb | cb := para characterBlockForIndex: 1. "p" self assert: cb top = 0. self assert: cb left = 0. self assert: cb right = 7. cb := para characterBlockForIndex: 2. "the tab" self assert: cb top = 0. self assert: cb left = 7. self assert: cb right = 24. cb := para characterBlockForIndex: 3. "w" self assert: cb top = 0. self assert: cb left = 24. self assert: cb right = 34. cb := para characterBlockForIndex: 7. " " "between word and word" self assert: cb top = 0. self assert: cb left = 52. self assert: cb right = 57. cb := para characterBlockForIndex: 11. "d" "last char" self assert: cb top = 0. self assert: cb left = 79. self assert: cb right = 85.

2 2

Jan. 16, 2010

11162 ----- - Issue 1827: 11161 Test greener - Issue 1823: MC does not need to browse all ancestor just to show changes (from squeak) - Issue 1822: MimeConverter (from Squeak) - Issue 1830: Small Project cleanup - Issue 1818: clean changeset isolation protocol - Issue 1833: remove uninstall changeset since it is quite sure that most of the time it will break. - Issue 1831: remove carefully invokePhase1 and invokePhase2 I have the feeling that we are going fast and making real progress. More to come. Thanks for your feedback and submissions. Stef

1 0

[Pharo-project] [ANN] WorkingSet
by Romain Robbes Jan. 16, 2010

Jan. 16, 2010

Dear list, I've been working on a small tool to help people navigate their code in Pharo. WorkingSet tracks the entities you've changed recently, and lets you access them quickly. Load WorkingSet with: Gofer new squeaksource: 'WorkingSet'; package: 'WorkingSet'; load. Once loaded, press CMD-1 to activate or dismiss it. A User interface pops up, with the following key mappings: -H to get this help message. -1-9 to select a recently changed class or method (depending on which list is highlighted). -TAB to select methods, or the text field. -Left/Right arrow keys to select classes, methods, or text field. -Up/Down arrow keys to select an item in the list of classes or methods. -ENTER in the text field to navigate to the entity you typed. -ENTER or SPACE in a class or method list to select the selected item. -U to browse the users of an entity (methods: senders, classes: references). -S to browse the siblings of an entity (methods: implementors, classes: hierarchy). -K to close all windows opened by WorkingSet. -L & R to shift the WorkingSet window left or right. (in case you use several screens). -ESC or CMD-1 to dismiss WorkingSet. The text field allows you to enter classes and methods which are not present in your working set. You can enter multiple classes/methods at once by separating them with spaces. Enjoy! Romain -- Romain Robbes http://www.inf.unisi.ch/phd/robbes

9 29

Jan. 16, 2010

Please help http://code.google.com/p/pharo/issues/detail?id=1828 say that you are working on it on the site. testAnnotationPane | oldPref | oldPref := MCCodeTool showAnnotationPane. CodeHolder showAnnotationPane: false. morph := model buildWindow. self assert: (self morphsOfClass: TextMorph) size = 1. CodeHolder showAnnotationPane: true. morph := model buildWindow. self assert: (self morphsOfClass: TextMorph) size = 2. CodeHolder showAnnotationPane: oldPref

1 0