Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

[ANN] More About Sound - More About Sound 3.6 with Sound and Speech in Trunk
by Edgar J. De Cleene 26 Nov '09

26 Nov '09

See SqueakMap http://map1.squeakfoundation.org/sm/packagesbyname I add low quality pict for you have a glimpse. Say if all works. John: Cocoa 64 bits VM could sung :=) Edgar

1 0

The Trunk: System-nice.175.mcz
by commits＠source.squeak.org 26 Nov '09

26 Nov '09

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.175.mcz ==================== Summary ==================== Name: System-nice.175 Author: nice Time: 26 November 2009, 10:29:30 am UUID: 72b1df33-d928-4f41-a2ee-bd77fe9e81f2 Ancestors: System-dtl.174 Correct Behavior>>#allUnsentMessages =============== Diff against System-dtl.174 =============== Item was changed: ----- Method: Behavior>>allUnsentMessages (in category '*system-support') ----- allUnsentMessages "Answer an array of all the messages defined by the receiver that are not sent anywhere in the system." + ^ SystemNavigation default allUnsentMessagesIn: self selectors! - ^ self environment allUnSentMessagesIn: self selectors!

1 0

Embracing Projects
by Chris Cunnington 26 Nov '09

26 Nov '09

This is pretty exciting. I've always felt Projects were some kind of powerful thing lurking. I'm happy to see attention paid to it and details discussed about it. In the heart of Projects, ImageSegments are used. I understand this has been used quite well as a database tool for Seaside. I've not been taken with any Seaside database solution I've seen. I'm curious to learn more about these topics.

1 0

The Trunk: Morphic-ar.250.mcz
by commits＠source.squeak.org 26 Nov '09

26 Nov '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.250.mcz ==================== Summary ==================== Name: Morphic-ar.250 Author: ar Time: 25 November 2009, 8:15:29 am UUID: c9d89827-d0a7-9c46-987d-97665d814fc3 Ancestors: Morphic-dtl.249, Morphic-ar.249 Merging Morphic-dtl.249 and Morphic-ar.249. =============== Diff against Morphic-dtl.249 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>newProject: (in category 'menu actions') ----- newProject: projectClass + "Create a new project of the given type" + | newProject | + "Allow the project to return nil from #new to indicate that it was canceled." + newProject := projectClass new ifNil:[^self]. + ProjectViewMorph openOn: newProject. + newProject enter.! - - ProjectViewMorph openOn: projectClass new!

1 0

The Trunk: Morphic-ar.249.mcz
by commits＠source.squeak.org 26 Nov '09

26 Nov '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.249.mcz ==================== Summary ==================== Name: Morphic-ar.249 Author: ar Time: 25 November 2009, 7:50:55 am UUID: 3dd4fb8b-67b3-694b-96cc-524e4e4e3e4f Ancestors: Morphic-dtl.248 Allow project classes to return nil if they can't be created successfully. In addition, once a new project was created, enter it automatically. =============== Diff against Morphic-dtl.248 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>newProject: (in category 'menu actions') ----- newProject: projectClass + "Create a new project of the given type" + | newProject | + "Allow the project to return nil from #new to indicate that it was canceled." + newProject := projectClass new ifNil:[^self]. + ProjectViewMorph openOn: newProject. + newProject enter.! - - ProjectViewMorph openOn: projectClass new!

1 0

Daily Commit Log
by commits＠source.squeak.org 26 Nov '09

26 Nov '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-November/001871.h… Name: Morphic-dtl.248 Ancestors: Morphic-dtl.247 Eliminate class CurrentProjectRefactoring. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001872.h… Name: KernelTests-ul.111 Ancestors: KernelTests-ul.110 - updated tests for Kerner-ul.305 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001873.h… Name: Kernel-ul.305 Ancestors: Kernel-nice.304 - added Integer >> #sqrtFloor, which returns the floor of the square root of the receiver. - renamed Integer >> #isPrime to #isProbablyPrime. - added Integer >> #isPrime which is implemented as a deterministic primality test - both #isPrime and #isProbablyPrime return false for receivers <= 1 instead of raising an error ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001874.h… Name: Collections-ul.209 Ancestors: Collections-nice.208 - fix: String >> #withInternetLineEndings raised an MNU: WriteStream doesNotUnderstand: #lf ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001875.h… Name: CollectionsTests-ul.118 Ancestors: CollectionsTests-dtl.117 - added a test for String >> #withInternetLineEndings ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001876.h… Name: Collections-ar.212 Ancestors: Collections-ul.209, Collections-ul.211 Merging Collections-ul.210, Collections-ul.211: - HashedCollections have prime capacity (if they are not oversized) - HashedCollections' growth rate is not 2, but 1.5 (2 for small sizes which decreases to 1.5 as the size increases) (based on Andrés Valloud's changes made for pharo) Load Kernel-ul.305 before this. - replaced 32359813 with 32435981 in HashedCollection >> #goodPrimes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001877.h… Name: CollectionsTests-ar.120 Ancestors: CollectionsTests-ul.118, CollectionsTests-ul.119 Merging CollectionsTests-ul.119: - new test for HashedCollection sizing ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001878.h… Name: ST80-dtl.71 Ancestors: ST80-dtl.70 Move project navigation and menu methods from class side of Project to instance methods. Replace #isMorphic logic with dispatch to appropriate project instances for MVC and Morphic conditions. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001879.h… Name: Morphic-dtl.249 Ancestors: Morphic-dtl.248 Move project navigation and menu methods from class side of Project to instance methods. Replace #isMorphic logic with dispatch to appropriate project instances for MVC and Morphic conditions. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001880.h… Name: System-dtl.174 Ancestors: System-ar.173 Move project navigation and menu methods from class side of Project to instance methods. Replace #isMorphic logic with dispatch to appropriate project instances for MVC and Morphic conditions. =============================================

1 0

[ANN] 3.6 GamesForTrunk in SqueakMap
by Edgar J. De Cleene 25 Nov '09

25 Nov '09

See http://map1.squeakfoundation.org/recentnew It¹s a .pr saved from up to date trunk image and loaded. Contains all games as in 3.6, no agregates and also I put MorphicGames-edc.1.mcz into MCHttpRepository location: 'http://www.squeaksource.com/Ladrillos/' user: 'squeak' password: 'squeak' As we having random cable modem failures and blackouts here, not sure if all was completed as should be. Waiting feedback Edgar

2 2

Squeak screencasts
by K. K. Subramaniam 25 Nov '09

25 Nov '09

Hi, A request to those doing commits to the trunk. Is it possible to do a screen grab of the whole process and publish it in http://www.squeak.org/Documentation/? I find short video clips (like those done by Stephane Ducasse) much more effective than paper descriptions. Subbu

13 25

The Trunk: System-dtl.174.mcz
by commits＠source.squeak.org 25 Nov '09

25 Nov '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.174.mcz ==================== Summary ==================== Name: System-dtl.174 Author: dtl Time: 25 November 2009, 2:19:34 am UUID: 187d4597-8be9-4eca-b2ce-d82bb3130def Ancestors: System-ar.173 Move project navigation and menu methods from class side of Project to instance methods. Replace #isMorphic logic with dispatch to appropriate project instances for MVC and Morphic conditions. =============== Diff against System-ar.173 =============== Item was changed: ----- Method: Project class>>jumpToProject (in category 'utilities') ----- jumpToProject "Project jumpToProject" "Present a list of potential projects and enter the one selected." + self current jumpToProject! - self current class jumpToProject! Item was added: + ----- Method: Project>>addItem:toMenu:selection:project: (in category 'utilities') ----- + addItem: item toMenu: menu selection: action project: aProject + "Request aProject to add a menu item to represent it in the menu" + + ^ aProject addItem: item toMenu: menu selection: action requestor: self! Item was added: + ----- Method: Project>>buildJumpToMenu: (in category 'utilities') ----- + buildJumpToMenu: menu + "Make the supplied menu offer a list of potential projects, consisting of: + * The previous-project chain + * The next project, if any + * The parent project, if any + * All projects, alphabetically or hierarchically" + + | prev listed i next toAdd | + listed := OrderedCollection with: self. + i := 0. + + "The previous Project chain" + prev := self previousProject. + [(prev ~~ nil and: [(listed includes: prev) not])] whileTrue: + [i := i + 1. + listed add: prev. + self addItem: prev name , ' (', ('back {1}' translated format:{i} ), ')' + toMenu: menu + selection: ('%back' , i printString) + project: prev. + prev := prev previousProject]. + i > 0 ifTrue: [menu addLine]. + + + "Then the next Project" + (((next := self nextProject) ~~ nil) and: [(listed includes: next) not]) ifTrue: + [self addItem: (next name, ' (', ('forward {1}' translated format:{1}), ')') + toMenu: menu + selection: next name + project: next]. + next ~~ nil ifTrue: [menu addLine]. + + "Then the parent" + self isTopProject ifFalse: + [self addItem: self parent name , ' (', 'parent' translated, ')' + toMenu: menu + selection: #parent + project: self parent. + menu addLine]. + + "Finally all the projects, in hierarchical or alphabetical order:" + (Preferences alphabeticalProjectMenu + ifTrue: + [Project allNamesAndProjects] + ifFalse: + [Project hierarchyOfNamesAndProjects]) do: + + [:aPair | + toAdd := aPair last isCurrentProject + ifTrue: + [aPair first, ' (', 'current' translated, ')'] + ifFalse: + [aPair first]. + self addItem: toAdd + toMenu: menu + selection: aPair first + project: aPair last]. + ^ menu! Item was added: + ----- Method: Project>>jumpToProject (in category 'utilities') ----- + jumpToProject + "Present a list of potential projects and enter the one selected." + + "Project current jumpToProject" + + self subclassResponsibility! Item was added: + ----- Method: Project>>addItem:toMenu:selection:color:thumbnail: (in category 'utilities') ----- + addItem: item toMenu: menu selection: action color: aColor thumbnail: aForm + "Add menu item representing the sender to a menu" + + self subclassResponsibility! Item was added: + ----- Method: Project>>jumpToSelection: (in category 'utilities') ----- + jumpToSelection: selection + "Enter the project corresponding to this menu selection." + + "Project jumpToProject" + | nBack prev pr | + selection ifNil: [^ self]. + (selection beginsWith: '%back') ifTrue: + [nBack := (selection copyFrom: 6 to: selection size) asNumber. + prev := CurrentProject previousProject. + 1 to: nBack-1 do: + [:i | prev ifNotNil: [prev := prev previousProject]]. + prev ifNotNil: [prev enter: true revert: false saveForRevert: false]]. + selection = #parent ifTrue: + [CurrentProject parent enter: false revert: false saveForRevert: false. + ^ self]. + (pr := Project namedWithDepth: selection) ifNil: [^ self]. + pr enter: false revert: false saveForRevert: false! Item was changed: ----- Method: Project class>>jumpToSelection: (in category 'utilities') ----- jumpToSelection: selection "Enter the project corresponding to this menu selection." + + self flag: #toRemove. "Project current jumpToProject" + ^ self current jumpToSelection: selection + ! - - "Project jumpToProject" - | nBack prev pr | - selection ifNil: [^ self]. - (selection beginsWith: '%back') ifTrue: - [nBack := (selection copyFrom: 6 to: selection size) asNumber. - prev := CurrentProject previousProject. - 1 to: nBack-1 do: - [:i | prev ifNotNil: [prev := prev previousProject]]. - prev ifNotNil: [prev enter: true revert: false saveForRevert: false]]. - selection = #parent ifTrue: - [CurrentProject parent enter: false revert: false saveForRevert: false. - ^ self]. - (pr := Project namedWithDepth: selection) ifNil: [^ self]. - pr enter: false revert: false saveForRevert: false! Item was added: + ----- Method: Project>>addItem:toMenu:selection:requestor: (in category 'utilities') ----- + addItem: item toMenu: menu selection: action requestor: requestingProject + "Add a menu item representing this project to a menu being created by requestingProject" + + self subclassResponsibility! Item was removed: - ----- Method: Project class>>addItem:toMenu:selection:project: (in category 'utilities') ----- - addItem: item toMenu: menu selection: action project: aProject - | color | - color := aProject isMorphic - ifTrue: [aProject world isInMemory - ifTrue: [Color black] - ifFalse: [Color brown]] - ifFalse: [aProject world isInMemory - ifTrue: [Color veryVeryDarkGray] - ifFalse: [Color blue]]. - (menu isKindOf: MenuMorph) - ifTrue: [| thumbnail | - menu - add: item - selector: #jumpToSelection: - argument: action. - menu lastItem color: color. - thumbnail := aProject thumbnail. - thumbnail isNil - ifFalse: [menu lastItem - icon: (thumbnail scaledIntoFormOfSize: (Preferences tinyDisplay ifTrue: [16] ifFalse: [28]))]] - ifFalse: [menu add: item action: action]! Item was removed: - ----- Method: Project class>>buildJumpToMenu: (in category 'utilities') ----- - buildJumpToMenu: menu - "Make the supplied menu offer a list of potential projects, consisting of: - * The previous-project chain - * The next project, if any - * The parent project, if any - * All projects, alphabetically or hierarchically" - - | prev listed i next toAdd | - listed := OrderedCollection with: CurrentProject. - i := 0. - - "The previous Project chain" - prev := CurrentProject previousProject. - [(prev ~~ nil and: [(listed includes: prev) not])] whileTrue: - [i := i + 1. - listed add: prev. - self addItem: prev name , ' (', ('back {1}' translated format:{i} ), ')' - toMenu: menu - selection: ('%back' , i printString) - project: prev. - prev := prev previousProject]. - i > 0 ifTrue: [menu addLine]. - - - "Then the next Project" - (((next := CurrentProject nextProject) ~~ nil) and: [(listed includes: next) not]) ifTrue: - [self addItem: (next name, ' (', ('forward {1}' translated format:{1}), ')') - toMenu: menu - selection: next name - project: next]. - next ~~ nil ifTrue: [menu addLine]. - - "Then the parent" - CurrentProject isTopProject ifFalse: - [self addItem: CurrentProject parent name , ' (', 'parent' translated, ')' - toMenu: menu - selection: #parent - project: CurrentProject parent. - menu addLine]. - - "Finally all the projects, in hierarchical or alphabetical order:" - (Preferences alphabeticalProjectMenu - ifTrue: - [Project allNamesAndProjects] - ifFalse: - [Project hierarchyOfNamesAndProjects]) do: - - [:aPair | - toAdd := aPair last isCurrentProject - ifTrue: - [aPair first, ' (', 'current' translated, ')'] - ifFalse: - [aPair first]. - self addItem: toAdd - toMenu: menu - selection: aPair first - project: aPair last]. - ^ menu! Item was removed: - ----- Method: Project class>>addItem:toMenu:selection: (in category 'utilities') ----- - addItem: item toMenu: menu selection: action - (menu isKindOf: MenuMorph) - ifTrue: [menu add: item selector: #jumpToSelection: argument: action] - ifFalse: [menu add: item action: action]!

1 0

The Trunk: Morphic-dtl.249.mcz
by commits＠source.squeak.org 25 Nov '09

25 Nov '09

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.249.mcz ==================== Summary ==================== Name: Morphic-dtl.249 Author: dtl Time: 25 November 2009, 2:15:17 am UUID: d5242725-fcc1-4a74-bf71-c9719a6097b7 Ancestors: Morphic-dtl.248 Move project navigation and menu methods from class side of Project to instance methods. Replace #isMorphic logic with dispatch to appropriate project instances for MVC and Morphic conditions. =============== Diff against Morphic-dtl.248 =============== Item was changed: ----- Method: TheWorldMainDockingBarOld>>jumpToProject (in category 'menu actions') ----- jumpToProject + Project current jumpToProject! - Project jumpToProject! Item was added: + ----- Method: MorphicProject>>jumpToProject (in category 'utilities') ----- + jumpToProject + "Present a list of potential projects and enter the one selected." + + "Project current jumpToProject" + + | menu | + menu:=MenuMorph new. + menu defaultTarget: self. + menu := self buildJumpToMenu: menu. + menu popUpInWorld! Item was added: + ----- Method: MorphicProject>>addItem:toMenu:selection:requestor: (in category 'utilities') ----- + addItem: item toMenu: menu selection: action requestor: requestingProject + "Add a menu item representing this project to a menu being created by requestingProject" + + | color | + "Color to be used for this menu item" + color := self world isInMemory + ifTrue: [Color black] + ifFalse: [Color brown]. + "Menu item of type appropriate for current project" + requestingProject + addItem: item + toMenu: menu + selection: action + color: color + thumbnail: thumbnail! Item was changed: ----- Method: PasteUpMorph>>jumpToProject (in category 'world state') ----- jumpToProject + Project current jumpToProject. - Project jumpToProject. ! Item was changed: ----- Method: TheWorldMainDockingBar>>updateJumpToProjectSubMenu: (in category 'submenu - projects') ----- updateJumpToProjectSubMenu: subMenu subMenu defaultTarget: Project. + Project current buildJumpToMenu: subMenu! - Project buildJumpToMenu: subMenu! Item was added: + ----- Method: MorphicProject>>addItem:toMenu:selection:color:thumbnail: (in category 'utilities') ----- + addItem: item toMenu: menu selection: action color: aColor thumbnail: aForm + "Add menu item representing the sender to a menu" + + menu + add: item + selector: #jumpToSelection: + argument: action. + menu lastItem color: aColor. + aForm isNil + ifFalse: [menu lastItem + icon: (aForm + scaledIntoFormOfSize: (Preferences tinyDisplay + ifTrue: [16] + ifFalse: [28]))]! Item was removed: - ----- Method: MorphicProject class>>jumpToProject (in category 'utilities') ----- - jumpToProject - "Project jumpToProject" - "Present a list of potential projects and enter the one selected." - | menu | - menu:=MenuMorph new. - menu defaultTarget: self. - menu := self buildJumpToMenu: menu. - menu popUpInWorld!

1 0

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

Jump to page: