Squeak-dev December 2009

squeak-dev@lists.squeakfoundation.org

97 participants
553 discussions

The Trunk: System-dtl.185.mcz
by commits＠source.squeak.org 01 Dec '09

01 Dec '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.185.mcz ==================== Summary ==================== Name: System-dtl.185 Author: dtl Time: 30 November 2009, 11:33:29 am UUID: a7bc8a25-1b42-4de8-b16d-df3161022216 Ancestors: System-dtl.184 Better progress display handling and rudimentary MVC implementations for Project>>loadFromServer: Project>>storeOnServerWithProgressInfo: Project>>storeOnServerWithProgressInfoOn: =============== Diff against System-dtl.184 =============== Item was changed: ----- Method: Project>>loadFromServer: (in category 'file in/out') ----- loadFromServer: newerAutomatically "If a newer version of me is on the server, load it." + | pair resp server | + self assureIntegerVersion. + self isCurrentProject ifTrue: ["exit, then do the command" + ^ self armsLengthCommand: #loadFromServer withDescription: 'Loading' translated + ]. + server := self tryToFindAServerWithMe ifNil: [^ nil]. + pair := self class mostRecent: self name onServer: server. + pair first ifNil: [^ self inform: ('can''t find file on server for {1}' translated format: {self name})]. + self currentVersionNumber > pair second ifTrue: [ + ^ self inform: ('That server has an older version of the project.' translated)]. + version = (Project parseProjectFileName: pair first) second ifTrue: [ + resp := (UIManager default chooseFrom: + (Array with: 'Reload anyway' translated + with: 'Cancel' translated withCRs) + title: 'The only changes are the ones you made here.' translated). + resp ~= 1 ifTrue: [^ nil] + ] ifFalse: [ + newerAutomatically ifFalse: [ + resp := (UIManager default + chooseFrom: #('Load it' 'Cancel') + title: 'A newer version exists on the server.'). + resp ~= 1 ifTrue: [^ nil] + ]. + ]. + + "let's avoid renaming the loaded change set since it will be replacing ours" + self projectParameters at: #loadingNewerVersion put: true. + + CurrentProject + do: [ProjectLoading + installRemoteNamed: pair first + from: server + named: self name + in: parentProject] + withProgressInfoOn: nil + label: 'project loading' + ! - self subclassResponsibility! Item was changed: ----- Method: Project>>storeOnServerWithProgressInfoOn: (in category 'file in/out') ----- storeOnServerWithProgressInfoOn: aMorphOrNil "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." + CurrentProject + do: [self storeOnServerInnards] + withProgressInfoOn: aMorphOrNil + label: 'project storing' + - self subclassResponsibility ! Item was changed: ----- Method: Project>>storeOnServerWithProgressInfo (in category 'file in/out') ----- storeOnServerWithProgressInfo "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." + CurrentProject + do: [self storeOnServerInnards] + withProgressInfoOn: nil + label: 'project storing' - self subclassResponsibility ! Item was added: + ----- Method: Project>>do:withProgressInfoOn:label: (in category 'utilities') ----- + do: aBlock withProgressInfoOn: aMorphOrNil label: aString + "Evaluate aBlock with a labeled progress bar" + + self subclassResponsibility + + !

1 0

The Trunk: Morphic-dtl.259.mcz
by commits＠source.squeak.org 01 Dec '09

01 Dec '09

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.259.mcz ==================== Summary ==================== Name: Morphic-dtl.259 Author: dtl Time: 30 November 2009, 11:30:24 am UUID: 48904b07-454e-4225-8681-5583dc4c124f Ancestors: Morphic-dtl.258 Better progress display handling and rudimentary MVC implementations for Project>>loadFromServer: Project>>storeOnServerWithProgressInfo: Project>>storeOnServerWithProgressInfoOn: =============== Diff against Morphic-dtl.258 =============== Item was added: + ----- Method: MorphicProject>>do:withProgressInfoOn:label: (in category 'utilities') ----- + do: aBlock withProgressInfoOn: aMorphOrNil label: aString + "Evaluate aBlock with a labeled progress bar" + + ComplexProgressIndicator new + targetMorph: aMorphOrNil; + historyCategory: aString; + withProgressDo: aBlock + ! Item was removed: - ----- Method: MorphicProject>>storeOnServerWithProgressInfoOn: (in category 'file in/out') ----- - storeOnServerWithProgressInfoOn: aMorphOrNil - - "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." - - ComplexProgressIndicator new - targetMorph: aMorphOrNil; - historyCategory: 'project storing'; - withProgressDo: [self storeOnServerInnards] - ! Item was removed: - ----- Method: MorphicProject>>storeOnServerWithProgressInfo (in category 'file in/out') ----- - storeOnServerWithProgressInfo - - "Save to disk as an Export Segment. Then put that file on the server I came from, as a new version. Version is literal piece of file name. Mime encoded and http encoded." - - ComplexProgressIndicator new - targetMorph: nil; - historyCategory: 'project storing'; - withProgressDo: [self storeOnServerInnards] - !

1 0

The Trunk: ST80-dtl.73.mcz
by commits＠source.squeak.org 01 Dec '09

01 Dec '09

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.73.mcz ==================== Summary ==================== Name: ST80-dtl.73 Author: dtl Time: 30 November 2009, 11:28:51 am UUID: 3fba2d46-02e6-43ff-b0d0-d5c1398604a6 Ancestors: ST80-dtl.72 Better progress display handling and rudimentary MVC implementations for Project>>loadFromServer: Project>>storeOnServerWithProgressInfo: Project>>storeOnServerWithProgressInfoOn: =============== Diff against ST80-dtl.72 =============== Item was added: + ----- Method: MVCProject>>do:withProgressInfoOn:label: (in category 'utilities') ----- + do: aBlock withProgressInfoOn: aMorphOrNil label: aString + "Evaluate aBlock with a labeled progress bar. Use a simple progress + bar set to 50% progress. In Morphic, progress is displayed with a + ComplexProgressIndicator." + + aString + displayProgressAt: Sensor cursorPoint + from: 0 to: 2 + during: [:bar | bar value: 1. + aBlock value] + + !

1 0

Jump to page: