[squeak-dev] The Inbox: Monticello-edc.456.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Apr 12 11:42:11 UTC 2011
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
|