Squeak-dev March 2011

squeak-dev@lists.squeakfoundation.org

84 participants
416 discussions

Re: [squeak-dev] The Inbox: Morphic-cao.522.mcz
by Levente Uzonyi 05 Mar '11

05 Mar '11

On Mon, 28 Feb 2011, commits(a)source.squeak.org wrote: > A new version of Morphic was added to project The Inbox: > http://source.squeak.org/inbox/Morphic-cao.522.mcz > > ==================== Summary ==================== > > Name: Morphic-cao.522 > Author: cao > Time: 28 February 2011, 6:22:34.55 pm > UUID: 4be5ac71-d5df-4e96-b59c-5065ad7932f9 > Ancestors: Morphic-mtf.521 > > StringMorph>>contents: shouldn't mutate fonts in the > test attributes. Can you provide a simple test case that shows the effect of this change for someone who's not familiar with the code (like me)? Levente > > =============== Diff against Morphic-mtf.521 =============== > > Item was changed: > ----- Method: StringMorph>>contents: (in category 'accessing') ----- > contents: newContents > | scanner | > contents := newContents isText > ifTrue: [scanner := StringMorphAttributeScanner new initializeFromStringMorph: self. > (newContents attributesAt: 1 forStyle: self font textStyle) > do: [:attr | attr emphasizeScanner: scanner]. > emphasis := scanner emphasis. > + font := scanner font. > - font := scanner font emphasis: emphasis. > color := scanner textColor. > newContents string] > ifFalse: [contents = newContents > ifTrue: [^ self]. > "no substantive change" > newContents]. > self fitContents! > > >

1 0

Daily Commit Log
by commits＠source.squeak.org 05 Mar '11

05 Mar '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-March/004329.html Name: Compiler-nice.194 Ancestors: Compiler-ul.193 Fix cascading of special messages. During inlining of some special messages, the MessageNode selector and/or arguments might be destructively replaced. (for example #ifFalseifTrue: ifNil:ifNotNil: etc...) If we later decide to un-optimize, it is necessary to restore the originalSelector and originalArguments. (for example when these messages are cascaded) Also fix a bug occuring when decompiling these cascaded specials. Thanks to Juan for testing/enhancing this useless but beautiful stuff. TODO: automate some tests. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-March/004330.html Name: ToolBuilder-Kernel-dtl.41 Ancestors: ToolBuilder-Kernel-cmm.40 A Project has a UIManager, and a UIManager has a ToolBuilder, so add #toolBuilder ivar to UIManager and initialize accordingly. This facilitates setting up the appropriate UIManager and ToolBuilder to allow SMxMorphicProject to host a SimpleMorphic world. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-March/004331.html Name: ToolBuilder-MVC-dtl.23 Ancestors: ToolBuilder-MVC-laza.22 Initialize new MVCUIManager with an MVCToolBuilder ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-March/004332.html Name: ToolBuilder-Morphic-dtl.71 Ancestors: ToolBuilder-Morphic-mtf.70 Initialize new MorphicUIManager with a MorphicToolBuilder =============================================

1 0

The Inbox: Morphic-dtl.523.mcz
by commits＠source.squeak.org 05 Mar '11

05 Mar '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-dtl.523.mcz ==================== Summary ==================== Name: Morphic-dtl.523 Author: dtl Time: 4 March 2011, 1:52:07.786 pm UUID: 82d08df8-652b-45c9-b846-d8ae1d3df66c Ancestors: Morphic-dtl.522 Support for SimpleMorphic coexisting with Morphic in a Squeak image. MorphicProject initializes editor classes on project entry, allowing menus and actions to be reinitialized if another type of Morphic project has modified them. If SimpleMorphic is present in the image, provide it as an menu option for new projects. =============== Diff against Morphic-dtl.522 =============== Item was changed: ----- Method: MorphicProject>>finalEnterActions (in category 'enter') ----- finalEnterActions "Perform the final actions necessary as the receiver project is entered" | navigator armsLengthCmd navType thingsToUnhibernate | + self initializeMenus. self projectParameters at: #projectsToBeDeleted ifPresent: [ :projectsToBeDeleted | self removeParameter: #projectsToBeDeleted. projectsToBeDeleted do: [ :each | Project deletingProject: each. each removeChangeSetIfPossible]]. Locale switchAndInstallFontToID: self localeID. thingsToUnhibernate := world valueOfProperty: #thingsToUnhibernate ifAbsent: [#()]. thingsToUnhibernate do: [:each | each unhibernate]. world removeProperty: #thingsToUnhibernate. navType := ProjectNavigationMorph preferredNavigator. armsLengthCmd := self parameterAt: #armsLengthCmd ifAbsent: [nil]. navigator := world findA: navType. (Preferences classicNavigatorEnabled and: [Preferences showProjectNavigator and: [navigator isNil]]) ifTrue: [(navigator := navType new) bottomLeft: world bottomLeft; openInWorld: world]. navigator notNil & armsLengthCmd notNil ifTrue: [navigator color: Color lightBlue]. armsLengthCmd notNil ifTrue: [Preferences showFlapsWhenPublishing ifFalse: [self flapsSuppressed: true. navigator ifNotNil: [navigator visible: false]]. armsLengthCmd openInWorld: world]. world reformulateUpdatingMenus. world presenter positionStandardPlayer. self assureMainDockingBarPresenceMatchesPreference. WorldState addDeferredUIMessage: [self startResourceLoading].! Item was added: + ----- Method: MorphicProject>>initializeMenus (in category 'enter') ----- + initializeMenus + "Menu setting for these classes may have have been modified by another + Morphic project, e.g. SimpleMorphic. Ensure that they are restored to the + expected menus." + + TextEditor initialize. + SmalltalkEditor initialize! Item was changed: ----- Method: TheWorldMenu>>openMenu (in category 'construction') ----- openMenu "Build the open window menu for the world." | menu | menu := self menu: 'open...'. menu defaultTarget: ToolSet default. menu addList: ToolSet menuItems. menu defaultTarget: self. self fillIn: menu from: { nil. {'file...' . { self . #openFileDirectly} . 'Lets you open a window on a single file'}. {'transcript (t)' . {self . #openTranscript}. 'A window used to report messages sent to Transcript' }. "{'inner world' . { WorldWindow . #test1} }." nil. }. self fillIn: menu from: self class registeredOpenCommands. menu addLine. self mvcProjectsAllowed ifTrue: [self fillIn: menu from: { {'mvc project' . {self. #openMVCProject} . 'Creates a new project of the classic "mvc" style'} }]. + self fillIn: menu from: { - ^ self fillIn: menu from: { {'morphic project' . {self. #openMorphicProject} . 'Creates a new morphic project'}. + }. + Smalltalk at: #SMxMorphicProject ifPresent: [:p | + self fillIn: menu from: { + { 'simple morphic project' . { self . #openSMxMorphicProject } . 'Creates a new simple morphic project' }. + } + ]. + ^menu + ! - }.! Item was changed: ----- Method: TheWorldMenu>>projectMenu (in category 'construction') ----- projectMenu "Build the project menu for the world." | menu | self flag: #bob0302. menu := self menu: 'projects...'. self fillIn: menu from: { { 'save on server (also makes a local copy)' . { #myProject . #storeOnServer } }. { 'save to a different server' . { #myProject . #saveAs } }. { 'save project on local file only' . { #myWorld . #saveOnFile } }. { 'see if server version is more recent...' . { #myProject . #loadFromServer } }. { 'load project from file...' . { self . #loadProject } }. nil. }. self mvcProjectsAllowed ifTrue: [ self fillIn: menu from: { { 'create new mvc project'. { self . #openMVCProject } }. } ]. self fillIn: menu from: { { 'create new morphic project' . { self . #openMorphicProject } }. + }. + Smalltalk at: #SMxMorphicProject ifPresent: [:p | + self fillIn: menu from: { + { 'create new simple morphic project' . { self . #openSMxMorphicProject } }. + } + ]. + self fillIn: menu from: { nil. { 'go to previous project' . { Project . #returnToPreviousProject } }. { 'go to next project' . { Project . #advanceToNextProject } }. { 'jump to project...' . { #myWorld . #jumpToProject } }. }. Preferences simpleMenus ifFalse: [ self fillIn: menu from: { nil. { 'save for future revert' . { #myProject . #saveForRevert } }. { 'revert to saved copy' . { #myProject . #revert } }. }. ]. ^ menu!

1 0

The Trunk: ToolBuilder-Morphic-dtl.71.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

David T. Lewis uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-dtl.71.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-dtl.71 Author: dtl Time: 4 March 2011, 5:20:31.788 pm UUID: f748d19b-d312-48ff-9c3f-af77692e0ec0 Ancestors: ToolBuilder-Morphic-mtf.70 Initialize new MorphicUIManager with a MorphicToolBuilder =============== Diff against ToolBuilder-Morphic-mtf.70 =============== Item was added: + ----- Method: MorphicUIManager>>initialize (in category 'initialize-release') ----- + initialize + toolBuilder := MorphicToolBuilder new!

1 0

The Trunk: ToolBuilder-MVC-dtl.23.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

David T. Lewis uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-dtl.23.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-dtl.23 Author: dtl Time: 4 March 2011, 5:20:03.368 pm UUID: 35891eb4-b79a-43df-8bf7-95f778683857 Ancestors: ToolBuilder-MVC-laza.22 Initialize new MVCUIManager with an MVCToolBuilder =============== Diff against ToolBuilder-MVC-laza.22 =============== Item was added: + ----- Method: MVCUIManager>>initialize (in category 'initialize-release') ----- + initialize + toolBuilder := MVCToolBuilder new!

1 0

The Trunk: ToolBuilder-Kernel-dtl.41.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-dtl.41.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-dtl.41 Author: dtl Time: 4 March 2011, 5:19:11.522 pm UUID: e63cb488-9f69-4799-b501-4a112f592b3a Ancestors: ToolBuilder-Kernel-cmm.40 A Project has a UIManager, and a UIManager has a ToolBuilder, so add #toolBuilder ivar to UIManager and initialize accordingly. This facilitates setting up the appropriate UIManager and ToolBuilder to allow SMxMorphicProject to host a SimpleMorphic world. =============== Diff against ToolBuilder-Kernel-cmm.40 =============== Item was changed: ----- Method: ToolBuilder class>>default (in category 'accessing') ----- default "Answer the default tool builder" + ^Default ifNil: [Default := self findDefault]! - | builderClass | - ^Default ifNil:[ - "Note: The way the following is phrased ensures that you can always make 'more specific' builders merely by subclassing a tool builder and implementing a more specific way of reacting to #isActiveBuilder. For example, a BobsUIToolBuilder can subclass MorphicToolBuilder and (if enabled, say Preferences useBobsUITools) will be considered before the parent (generic MorphicToolBuilder)." - builderClass := self allSubclasses - detect:[:any| any isActiveBuilder and:[ - any subclasses noneSatisfy:[:sub| sub isActiveBuilder]]] ifNone:[nil]. - builderClass ifNotNil:[builderClass new]]! Item was added: + ----- Method: ToolBuilder class>>findDefault (in category 'accessing') ----- + findDefault + "Answer a default tool builder" + | builderClass | + "Note: The way the following is phrased ensures that you can always make 'more specific' builders merely by subclassing a tool builder and implementing a more specific way of reacting to #isActiveBuilder. For example, a BobsUIToolBuilder can subclass MorphicToolBuilder and (if enabled, say Preferences useBobsUITools) will be considered before the parent (generic MorphicToolBuilder)." + builderClass := self allSubclasses + detect:[:any| any isActiveBuilder and:[ + any subclasses noneSatisfy:[:sub| sub isActiveBuilder]]] ifNone:[nil]. + builderClass ifNotNil: [^builderClass new]. + ^self error: 'ToolBuilder not found'! Item was changed: Object subclass: #UIManager + instanceVariableNames: 'toolBuilder' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !UIManager commentStamp: 'dtl 5/2/2010 16:06' prior: 0! UIManager is a dispatcher for various user interface requests, such as menu and dialog interactions. An instance of UIManager is associated with each Project to implement the appropriate functions for Morphic, MVC or other user interfaces.! Item was added: + ----- Method: UIManager>>toolBuilder (in category 'accessing') ----- + toolBuilder + ^toolBuilder ifNil: [toolBuilder := ToolBuilder default]!

1 0

Re: [squeak-dev] The Trunk: Compiler-nice.194.mcz
by Juan Vuletich 04 Mar '11

04 Mar '11

commits(a)source.squeak.org wrote: > Nicolas Cellier uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-nice.194.mcz > > ==================== Summary ==================== > > Name: Compiler-nice.194 > Author: nice > Time: 4 March 2011, 4:51:51.372 am > UUID: de6fad00-fa6c-4622-9c03-046113d7e4fe > Ancestors: Compiler-ul.193 > > Fix cascading of special messages. > > During inlining of some special messages, the MessageNode selector and/or arguments might be destructively replaced. > (for example #ifFalseifTrue: ifNil:ifNotNil: etc...) > > If we later decide to un-optimize, it is necessary to restore the originalSelector and originalArguments. > (for example when these messages are cascaded) > > Also fix a bug occuring when decompiling these cascaded specials. > > Thanks to Juan for testing/enhancing this useless but beautiful stuff. > Not sure if useless. It helps make the language more consistent and has educational value. Indeed it is beautiful stuff! Thanks Nicolas. Cheers, Juan Vuletich

1 0

The Trunk: Compiler-nice.194.mcz
by commits＠source.squeak.org 04 Mar '11

04 Mar '11

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.194.mcz ==================== Summary ==================== Name: Compiler-nice.194 Author: nice Time: 4 March 2011, 4:51:51.372 am UUID: de6fad00-fa6c-4622-9c03-046113d7e4fe Ancestors: Compiler-ul.193 Fix cascading of special messages. During inlining of some special messages, the MessageNode selector and/or arguments might be destructively replaced. (for example #ifFalseifTrue: ifNil:ifNotNil: etc...) If we later decide to un-optimize, it is necessary to restore the originalSelector and originalArguments. (for example when these messages are cascaded) Also fix a bug occuring when decompiling these cascaded specials. Thanks to Juan for testing/enhancing this useless but beautiful stuff. TODO: automate some tests. =============== Diff against Compiler-ul.193 =============== Item was changed: ----- Method: DecompilerConstructor>>decodeIfNilWithReceiver:selector:arguments: (in category 'constructor') ----- decodeIfNilWithReceiver: receiver selector: selector arguments: arguments + receiver ifNil: [ ^nil ]. "For instance, when cascading" - selector == #ifTrue:ifFalse: ifFalse: [^ nil]. (receiver isMessage: #== receiver: nil arguments: [:argNode | argNode == NodeNil]) ifFalse: [^ nil]. ^ (MessageNode new receiver: receiver selector: (SelectorNode new key: #ifTrue:ifFalse: code: #macro) arguments: arguments precedence: 3) noteSpecialSelector: #ifNil:ifNotNil:! Item was changed: ParseNode subclass: #MessageNode + instanceVariableNames: 'receiver selector precedence special arguments sizes equalNode caseErrorNode originalSelector originalArguments' - instanceVariableNames: 'receiver selector precedence special arguments sizes equalNode caseErrorNode' classVariableNames: 'MacroEmitters MacroPrinters MacroSelectors MacroSizers MacroTransformers StdTypers ThenFlag' poolDictionaries: '' category: 'Compiler-ParseNodes'! !MessageNode commentStamp: '<historical>' prior: 0! I represent a receiver and its message. Precedence codes: 1 unary 2 binary 3 keyword 4 other If special>0, I compile special code in-line instead of sending messages with literal methods as remotely copied contexts.! Item was changed: ----- Method: MessageNode>>ensureCanCascade: (in category 'testing') ----- ensureCanCascade: encoder special > 0 ifTrue: [special := 0. + selector := encoder encodeSelector: originalSelector. + arguments := originalArguments. + arguments do: - selector := encoder encodeSelector: selector key. - arguments do: [:each| each isBlockNode ifTrue: [each deoptimize]]]! Item was changed: ----- Method: MessageNode>>receiver:arguments:precedence: (in category 'private') ----- receiver: rcvr arguments: args precedence: p receiver := rcvr. arguments := args. + originalArguments := arguments copy. sizes := Array new: arguments size. precedence := p! Item was changed: ----- Method: MessageNode>>receiver:selector:arguments:precedence: (in category 'initialize-release') ----- receiver: rcvr selector: selNode arguments: args precedence: p "Decompile." self receiver: rcvr arguments: args precedence: p. + originalSelector := selNode key. selNode code == #macro ifTrue: [self noteSpecialSelector: selNode key] ifFalse: [special := 0]. selector := selNode. "self pvtCheckForPvtSelector: encoder" "We could test code being decompiled, but the compiler should've checked already. And where to send the complaint?"! Item was changed: ----- Method: MessageNode>>receiver:selector:arguments:precedence:from: (in category 'initialize-release') ----- receiver: rcvr selector: aSelector arguments: args precedence: p from: encoder "Compile." self receiver: rcvr arguments: args precedence: p. + originalSelector := aSelector. self noteSpecialSelector: aSelector. (self transform: encoder) ifTrue: [selector isNil ifTrue: [selector := SelectorNode new key: (MacroSelectors at: special) code: #macro]] ifFalse: [selector := encoder encodeSelector: aSelector. rcvr == NodeSuper ifTrue: [encoder noteSuper]]. self pvtCheckForPvtSelector: encoder!

1 0

GemSource downtime tonight 9pm PST to 11pm PST
by Dale Henrichs 04 Mar '11

04 Mar '11

The server for http://seaside.gemstone.com/ss is being moved to the VMWare corporate data center tonight and the old site will be shut down at 9pm. We expect it to take a couple of hours for the new DNS to propagate so the new site will be available at 11pm. Aaron will be monitoring the gemstone beta list at: http://seaside.gemstone.com/mailman/listinfo/beta Feel free to post any questions or problems to that list and Aaron will respond. Folks using Metacello, shouldn't notice a problem because an alternate Metacello repository is maintained at: http://www.squeaksource.com/metacello.html and the Metacello loader should automatically switch to the repository if GemSource isn't available. Dale

1 0

Re: [squeak-dev] The Inbox: ToolsTests-fbs.7.mcz
by Frank Shearar 04 Mar '11

04 Mar '11

On 2011/03/03 23:20, commits(a)source.squeak.org wrote: > A new version of ToolsTests was added to project The Inbox: > http://source.squeak.org/inbox/ToolsTests-fbs.7.mcz > > ==================== Summary ==================== > > Name: ToolsTests-fbs.7 > Author: fbs > Time: 3 March 2011, 11:16:07.095 pm > UUID: 093622b6-d1fd-4d44-9ee0-0f017d21ee80 > Ancestors: ToolsTests-tbn.5 > > Woefully inadequate test suite for Tools-fbs.300's extensive refactoring. > > =============== Diff against ToolsTests-tbn.5 =============== In particular, because I don't access the right mouse menu on my Windows machine for some reason or other, I haven't tested add/removeSystemCategory. For the same reason, I haven't been able to categorise the methods correctly. I will at some stage, when I can right-click/alt-click once more, clean up my mess! frank

1 0

Jump to page: