Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

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

27 Nov '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.176.mcz ==================== Summary ==================== Name: System-dtl.176 Author: dtl Time: 27 November 2009, 2:21:25 am UUID: e95ee3fd-391e-449c-90f5-1eb95e2ace2a Ancestors: System-nice.175 Remove remaining direct Morphic dependencies from class side of Project =============== Diff against System-nice.175 =============== Item was changed: ----- Method: Project class>>canWeLoadAProjectNow (in category 'utilities') ----- canWeLoadAProjectNow + ^ Smalltalk verifyMorphicAvailability - Smalltalk verifyMorphicAvailability ifFalse: [^ false]. - - "starting to see about eliminating the below" - "Smalltalk isMorphic ifFalse: [ - self inform: 'Later, allow jumping from MVC to Morphic Projects.'. - ^false - ]." - - ^true ! Item was changed: ----- Method: Project>>decideAboutCreatingBlank: (in category 'file in/out') ----- decideAboutCreatingBlank: otherProjectName | resp | "20 Oct - just do it" true "version isNil" ifFalse: [ "if saved, then maybe don't create" resp := (UIManager default chooseFrom: #('Yes, make it up' 'No, skip it') title: ('I cannot locate the project\', otherProjectName, '\Would you like me to create a new project\with that name?' ) withCRs). resp = 1 ifFalse: [^ nil] ]. + ^Project current openBlankProjectNamed: otherProjectName! - ^Project openBlankProjectNamed: otherProjectName! Item was changed: ----- Method: Project class>>enterIfThereOrFind: (in category 'squeaklet on server') ----- enterIfThereOrFind: aProjectName + ^ self current enterIfThereOrFind: aProjectName + ! - | newProject | - newProject := Project named: aProjectName. - newProject ifNotNil: [^newProject enter]. - - ComplexProgressIndicator new - targetMorph: nil; - historyCategory: 'project loading'; - withProgressDo: [ - [ - newProject := CurrentProject fromMyServerLoad: aProjectName - ] - on: ProjectViewOpenNotification - do: [ :ex | ex resume: false] - "we probably don't want a project view morph in this case" - ]. - - newProject ifNotNil: [^newProject enter]. - Beeper beep.! Item was added: + ----- Method: Project>>openBlankProjectNamed: (in category 'squeaklet on server') ----- + openBlankProjectNamed: projName + + "Project current openBlankProjectNamed: 'My new project'" + + self subclassResponsibility + ! Item was changed: ----- Method: Project class>>fromUrl: (in category 'squeaklet on server') ----- fromUrl: urlString "Load the project, and make a thumbnail to it in the current project. Replace the old one if necessary. To test it, make sure you don't have AAEmptyTest.001.pr in your Squeaklets directory. Then do: Project fromUrl: 'http://209.143.91.36/super/SuperSwikiProj/AAEmptyTest.001.pr'. The project should open and you should enter it. Return to the previous project and delete the project. Then do: Project fromUrl: 'AAEmptyTest.001.pr'. The project should open again - this time faster - and you should enter it. " | absoluteUrl projectFilename projName proj serverDir pair | Project canWeLoadAProjectNow ifFalse: [^ self]. absoluteUrl := Url absoluteFromFileNameOrUrlString: urlString. projectFilename := absoluteUrl fileName. projName := (Project parseProjectFileName: projectFilename unescapePercents) first. (proj := Project named: projName) ifNotNil: [ "it appeared" ^ProjectEntryNotification signal: proj]. serverDir := ServerDirectory serverForURL: absoluteUrl directoryUrl asString. serverDir ifNotNil: [ pair := self mostRecent: projectFilename onServer: serverDir. "Pair first is name exactly as it is on the server" + pair first ifNil: [^self current openBlankProjectNamed: projName]. - pair first ifNil: [^self openBlankProjectNamed: projName]. projectFilename := pair first]. ProjectLoading installRemoteNamed: projectFilename from: absoluteUrl asString unescapePercents named: projName in: CurrentProject! Item was added: + ----- Method: Project>>enterIfThereOrFind: (in category 'squeaklet on server') ----- + enterIfThereOrFind: aProjectName + + self subclassResponsibility + ! Item was removed: - ----- Method: Project class>>openBlankProjectNamed: (in category 'squeaklet on server') ----- - openBlankProjectNamed: projName - - | proj projViewer | - - proj := MorphicProject openViewOn: nil. - proj changeSet name: projName. - proj world addMorph: ( - TextMorph new - beAllFont: ((TextStyle default fontOfSize: 26) emphasized: 1); - color: Color red; - contents: 'Welcome to a new project - ',projName - ). - proj setParent: self current. - projViewer := (CurrentProject findProjectView: projName) ifNil: [^proj]. - (projViewer owner isSystemWindow) ifTrue: [ - projViewer owner model: proj]. - ^ projViewer project: proj!

1 0

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

27 Nov '09

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.252.mcz ==================== Summary ==================== Name: Morphic-dtl.252 Author: dtl Time: 27 November 2009, 2:05:42 am UUID: a913b73c-7edd-41fb-a948-3d82c49748c1 Ancestors: Morphic-kb.251 Add instance methods originally from class side of Project =============== Diff against Morphic-kb.251 =============== Item was added: + ----- Method: MorphicProject>>enterIfThereOrFind: (in category 'squeaklet on server') ----- + enterIfThereOrFind: aProjectName + + | newProject | + newProject := Project named: aProjectName. + newProject ifNotNil: [^newProject enter]. + + ComplexProgressIndicator new + targetMorph: nil; + historyCategory: 'project loading'; + withProgressDo: [ + [ + newProject := self fromMyServerLoad: aProjectName + ] + on: ProjectViewOpenNotification + do: [ :ex | ex resume: false] + "we probably don't want a project view morph in this case" + ]. + + newProject ifNotNil: [^newProject enter]. + Beeper beep.! Item was added: + ----- Method: MorphicProject>>openBlankProjectNamed: (in category 'squeaklet on server') ----- + openBlankProjectNamed: projName + + | proj projViewer | + + proj := MorphicProject openViewOn: nil. + proj changeSet name: projName. + proj world addMorph: ( + TextMorph new + beAllFont: ((TextStyle default fontOfSize: 26) emphasized: 1); + color: Color red; + contents: 'Welcome to a new project - ',projName + ). + proj setParent: self. + projViewer := (self findProjectView: projName) ifNil: [^proj]. + (projViewer owner isSystemWindow) ifTrue: [ + projViewer owner model: proj]. + ^ projViewer project: proj!

1 0

The Trunk: Compiler-nice.98.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.98.mcz ==================== Summary ==================== Name: Compiler-nice.98 Author: nice Time: 27 November 2009, 12:54:16 pm UUID: 4853aa4f-5bcb-e242-a130-f41f2c4d09ae Ancestors: Compiler-cwp.97 Add support for literal ByteArray #[1 2 3] =============== Diff against Compiler-cwp.97 =============== Item was added: + ----- Method: Scanner>>scanLitByte (in category 'expression types') ----- + scanLitByte + | stream | + stream := (ByteArray new: 16) writeStream. + [ tokenType = #rightBracket or: [ tokenType = #doIt ] ] whileFalse: [ + tokenType = #word + ifTrue: [ self scanLitWord ]. + (token isInteger and: [ token between: 0 and: 255 ]) + ifFalse: [ ^ self offEnd: '8-bit integer or right bracket expected' ]. + stream nextPut: token. + self scanToken ]. + token := stream contents! Item was changed: + ----- Method: Scanner class>>initialize (in category 'initialization') ----- - ----- Method: Scanner class>>initialize (in category 'class initialization') ----- initialize | newTable | + newTable := Array new: 256 withAll: #xBinary. "default" - newTable _ Array new: 256 withAll: #xBinary. "default" newTable atAll: #(9 10 12 13 32 ) put: #xDelimiter. "tab lf ff cr space" newTable atAll: ($0 asciiValue to: $9 asciiValue) put: #xDigit. 1 to: 255 do: [:index | (Character value: index) isLetter ifTrue: [newTable at: index put: #xLetter]]. newTable at: 30 put: #doIt. newTable at: $" asciiValue put: #xDoubleQuote. newTable at: $# asciiValue put: #xLitQuote. newTable at: $$ asciiValue put: #xDollar. newTable at: $' asciiValue put: #xSingleQuote. newTable at: $: asciiValue put: #xColon. newTable at: $( asciiValue put: #leftParenthesis. newTable at: $) asciiValue put: #rightParenthesis. newTable at: $. asciiValue put: #period. newTable at: $; asciiValue put: #semicolon. newTable at: $[ asciiValue put: #leftBracket. newTable at: $] asciiValue put: #rightBracket. newTable at: ${ asciiValue put: #leftBrace. newTable at: $} asciiValue put: #rightBrace. newTable at: $^ asciiValue put: #upArrow. newTable at: $_ asciiValue put: #leftArrow. newTable at: $| asciiValue put: #verticalBar. + TypeTable := newTable "bon voyage!!" - TypeTable _ newTable "bon voyage!!" "Scanner initialize"! Item was changed: ----- Method: Scanner>>xLitQuote (in category 'multi-character scans') ----- xLitQuote "Symbols and vectors: #(1 (4 5) 2 3) #ifTrue:ifFalse: #'abc'." - | start | start := mark. self step. "litQuote" self scanToken. tokenType = #leftParenthesis + ifTrue: [self scanToken; scanLitVec. + mark := start + 1. - ifTrue: - [self scanToken; scanLitVec. - mark := start+1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched parenthesis']] + ifFalse: [tokenType = #leftBracket + ifTrue: [self scanToken; scanLitByte. + mark := start + 1. + tokenType == #doIt + ifTrue: [self offEnd: 'Unmatched bracket']] + ifFalse: [(#(#word #keyword #colon ) includes: tokenType) + ifTrue: [self scanLitWord] + ifFalse: [tokenType == #literal + ifTrue: [token isSymbol + ifTrue: ["##word" + token := token + "May want to move toward ANSI + here "]] + ifFalse: [tokenType == #string + ifTrue: [token := token asSymbol]]]]]. - ifFalse: - [(#(word keyword colon ) includes: tokenType) - ifTrue: - [self scanLitWord] - ifFalse: - [(tokenType==#literal) - ifTrue: - [(token isSymbol) - ifTrue: "##word" - [token := token "May want to move toward ANSI here"]] - ifFalse: - [tokenType==#string ifTrue: [token := token asSymbol]]]]. mark := start. tokenType := #literal + "#(Pen) - " #(Pen) #Pen #'Pen' ##Pen ###Pen + "! - "!

1 0

The Trunk: Collections-nice.213.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.213.mcz ==================== Summary ==================== Name: Collections-nice.213 Author: nice Time: 27 November 2009, 12:49:56 pm UUID: 5154a9ec-be60-2648-9d01-66aa3679e15c Ancestors: Collections-ar.212 Support for literal ByteArray #[1 2 3] =============== Diff against Collections-ar.212 =============== Item was added: + ----- Method: ByteArray>>isLiteral (in category 'testing') ----- + isLiteral + "so that #(1 #[1 2 3] 5) prints itself" + ^ true! Item was added: + ----- Method: ByteArray>>printOn: (in category 'printing') ----- + printOn: aStream + + aStream nextPutAll: '#['. + self + do: [ :each | each printOn: aStream ] + separatedBy: [ aStream nextPut: $ ]. + aStream nextPut: $]! Item was added: + ----- Method: ByteArray>>storeOn: (in category 'printing') ----- + storeOn: aStream + aStream nextPutAll: '#['. + self + do: [ :each | each storeOn: aStream ] + separatedBy: [ aStream nextPut: $ ]. + aStream nextPut: $]!

1 0

The Trunk: Morphic-kb.251.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kb.251.mcz ==================== Summary ==================== Name: Morphic-kb.251 Author: kb Time: 26 November 2009, 8:51:06 am UUID: 3fc72dbc-e7d0-4d41-b656-61d545a9c192 Ancestors: Morphic-ar.250 fix: TheMainWorldDockingBar picks shows new project subclasses automatically in its New Project menu. =============== Diff against Morphic-ar.250 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>updateNewProjectSubMenu: (in category 'submenu - projects') ----- + updateNewProjectSubMenu: menu + + Project allSubclasses do: [ :each | + menu addItem: [ :item | + item + contents: ('New ', each name) translated; + help: ('Start a new ', each name) translated; + target: self; + selector: #newProject:; + arguments: { each } ] ]! Item was changed: ----- Method: TheWorldMainDockingBar>>newProjectMenuItemOn: (in category 'submenu - projects') ----- newProjectMenuItemOn: menu menu addItem: [ :item | item contents: 'New Project' translated; help: 'Start a new MorphicProject' translated; icon: MenuIcons smallProjectIcon; target: self; selector: #newProject:; arguments: { MorphicProject }; + subMenuUpdater: self + selector: #updateNewProjectSubMenu: ]! - addSubMenu: [ :subMenu | - self newProjectMenuItemsOn: subMenu ] ]! Item was removed: - ----- Method: TheWorldMainDockingBar>>newProjectMenuItemsOn: (in category 'submenu - projects') ----- - newProjectMenuItemsOn: menu - - Project allSubclasses do: [ :each | - menu addItem: [ :item | - item - contents: ('New ', each name) translated; - help: ('Start a new ', each name) translated; - target: self; - selector: #newProject:; - arguments: { each } ] ]!

1 0

Performance of VM for concurrent users
by Giuseppe Luigi Punzi 27 Nov '09

27 Nov '09

Hi all again, I want to start a project, and I have a "little" doubt. The project, is a web game. This web game, will be a game like Ogame. This game, will do a lot of requests to the server through Ajax and or Comet, and I would like to know, about how many concurrents connections can a squeak image hold. Imagine each user have a little map, a local chat of the place it is, a global chat, a canvas drawing an interface, and so on. All of this, has to be updated each 500ms Is this possible?

4 3

Menu bar (was: The Trunk: Morphic-kb.240.mcz)
by Bert Freudenberg 27 Nov '09

27 Nov '09

On 20.11.2009, at 04:43, commits(a)source.squeak.org wrote: > > Name: Morphic-kb.240 > Author: kb > Time: 20 November 2009, 1:40:40 am > UUID: 3f82a1c6-ee8f-bf4b-98cc-a2ef45557219 > Ancestors: Morphic-kb.239 > > - Refactoring of TheWorldMainDockingBar > - Added some helper methods to MenuItemMorph, MenuMorph, DockingBarMorph > - Added a menu to the docking bar listing windows not collapsed Very neat! I like the menu bar :) However, I'm wary of storing blocks in the menu items. The canonical style is to store a receiver and a message, which leads to far less complications down the road. That's why in the menu item we have target, selector, and arguments instance variables, instead of a block. Also, I'd rather move the updating behavior into the submenu itself. It doesn't really make sense to reserve an inst var in every menu item, plus a top-level menu might need updating too, not just a sub menu. In fact, looking at it, I'm not the first with this idea :) There is an UpdatingMenuMorph for exactly that purpose. - Bert -

4 5

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

27 Nov '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-November/001881.h… Name: Morphic-ar.249 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. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001882.h… Name: Morphic-ar.250 Ancestors: Morphic-dtl.249, Morphic-ar.249 Merging Morphic-dtl.249 and Morphic-ar.249. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001883.h… Name: System-nice.175 Ancestors: System-dtl.174 Correct Behavior>>#allUnsentMessages =============================================

1 0

Smalltalks 2009 at Buenos Aires - Updated Morphic 3 documentation
by Juan Vuletich 26 Nov '09

26 Nov '09

Hi Folks, Last week we had Smalltalks 2009 at Buenos Aires ( http://www.fast.org.ar/ ). What started 2 years ago as the meeting place for smalltalkers in Argentina became also a great opportunity to be able to meet, listen, and talk with such great people as Dan Ingalls, Stephane Ducasse and Alex Warth, among many others. To all of them, and to the people at FAST (Argentine Smalltalk Foundation), a big Thank You! We all had a terrific time! I didn't want to miss the chance of telling everybody about my projects, so I gave a talk on Cuis and Morphic 3. This made me come back to Morphic 3 after several months of not really working on it. It made me review all the experiments I did, and the evolution of the ideas that drive it. It also allowed me to do plans for the future. The result was an updated and coherent description of the project, that you can read here: www.jvuletich.org All comments are welcome. Cheers, Juan Vuletich

1 0

This one is under review...
by Edgar J. De Cleene 26 Nov '09

26 Nov '09

EnvelopeEditor can be saved as normal .pr save mechanism, so I put a button for press and have it. The .mid is not longer available, I put the selected in my interim server. We should choose one, I send the same Alan send to list eras ago. And put somewhere in squeak servers. Edgar

1 0

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

Jump to page: