Frank Shearar uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-fbs.538.mcz==================== Summary ====================
Name: Monticello-fbs.538
Author: fbs
Time: 22 April 2013, 9:47:38.876 am
UUID: bcdc22c7-0316-4b4d-9242-dd967a146950
Ancestors: Monticello-fbs.537
Don't use FITBM directly. We have a UIManager for that.
=============== Diff against Monticello-fbs.537 ===============
Item was changed:
----- Method: MCRepository class>>fillInTheBlankConfigure: (in category 'configuring') -----
fillInTheBlankConfigure: aTemplateString
| chunk repo |
aTemplateString ifNil: [ ^ false ].
+ chunk := UIManager default
+ multiLineRequest: self fillInTheBlankRequest
+ centerAt: Sensor cursorPoint
+ initialAnswer: aTemplateString
+ answerHeight: 120.
- chunk := FillInTheBlankMorph
- request: self fillInTheBlankRequest
- initialAnswer: aTemplateString
- centerAt: Sensor cursorPoint
- inWorld: World
- onCancelReturn: nil
- acceptOnCR: false
- answerExtent: 400@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.!
Item was changed:
----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') -----
renamePackage
| newName |
workingCopy ifNil:
[ UIManager inform: 'Please select a package to be renamed.'.
^ self ].
workingCopy modified ifTrue:
[ UIManager inform: 'Only unmodified packages should be renamed.'.
^ self ].
+ newName := UIManager default
- newName := FillInTheBlankMorph
request: 'New name of package:'
initialAnswer: workingCopy packageName.
newName isEmptyOrNil ifFalse:
[ | newWorkingCopy |
newWorkingCopy := workingCopy renameToBe: newName.
workingCopy package snapshot definitions
ifEmpty:
[ "It worked."
workingCopy unregister.
workingCopy := newWorkingCopy.
self repositorySelection: 0.
self
workingCopyListChanged ;
changed: #workingCopySelection ;
changed: #repositoryList.
self changedButtons ]
ifNotEmpty:
[ "It didn't work, browse the remaining definitions."
self browseWorkingCopy ] ]!
Locked
