[squeak-dev] The Inbox: Monticello-edc.456.mcz
Hannes Hirzel
hannes.hirzel at gmail.com
Wed Apr 13 19:21:15 UTC 2011
I think the second and the third change is fine. But I do not see the method
request:
initialAnswer:
centerAt:
inWorld:
onCancelReturn:
acceptOnCR:
answerExtent:
in MorphicUIManager
--Hannes
On Tue, 12 Apr 2011 11:42:06.272 0000, commits at source.squeak.org
<commits at source.squeak.org> wrote:
> Edgar J. De Cleene uploaded a new version of Monticello to project The
> Inbox:
> http://source.squeak.org/inbox/Monticello-edc.456.mcz
>
> ==================== Summary ====================
>
> Name: Monticello-edc.456
> Author: edc
> Time: 12 April 2011, 8:43:35.257 am
> UUID: a9b0cc20-0fed-4a2d-92a6-ed1df442421b
> Ancestors: Monticello-nice.455
>
> Some cleanup for avoid UI dependencies with LegacyMorphic
>
> =============== Diff against Monticello-nice.455 ===============
>
> Item was changed:
> ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category
> 'configuring') -----
> fillInTheBlankConfigure: aTemplateString
> | chunk repo |
>
> aTemplateString ifNil: [ ^ false ].
> + chunk := UIManager default
> - chunk := FillInTheBlankMorph
> request: self fillInTheBlankRequest
> initialAnswer: aTemplateString
> centerAt: Sensor cursorPoint
> inWorld: World
> onCancelReturn: nil
> acceptOnCR: false
> answerExtent: 400 at 120.
>
> chunk
> ifNotNil: [
> repo := self readFrom: chunk readStream.
> repo creationTemplate: chunk.
> ].
>
> ^ repo!
>
> Item was changed:
> ----- Method: MCSmtpRepository class>>morphicConfigure (in category 'as
> yet unclassified') -----
> morphicConfigure
> | address |
> + address := UIManager default request: 'Email address:'.
> - address := FillInTheBlankMorph request: 'Email address:'.
> ^ address isEmpty ifFalse: [self new emailAddress: address]!
>
> Item was changed:
> ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions')
> -----
> addWorkingCopy
> |name|
> + name := UIManager default request: 'Name of package:'.
> - name := FillInTheBlankMorph request: 'Name of package:'.
> name isEmptyOrNil ifFalse:
> [PackageInfo registerPackageName: name.
> workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name).
> workingCopyWrapper := nil.
> self repositorySelection: 0].
> self workingCopyListChanged; changed: #workingCopySelection; changed:
> #repositoryList.
> self changedButtons.!
>
>
>
More information about the Squeak-dev
mailing list
|