The Inbox: MonticelloConfigurations-dtl.166.mcz

A new version of MonticelloConfigurations was added to project The Inbox:
http://source.squeak.org/inbox/MonticelloConfigurations-dtl.166.mcz

==================== Summary ====================

Name: MonticelloConfigurations-dtl.166
Author: dtl
Time: 17 April 2020, 10:19:48.245301 pm
UUID: 796ad747-3ca0-4613-a5d7-25fcfd294976
Ancestors: MonticelloConfigurations-dtl.165

Provide a proper editor dialog for the MCM version comment entry as part of the MCConfigurationBrowser store operation.

=============== Diff against MonticelloConfigurations-dtl.165 ===============

Item was changed:
  MCTool subclass: #MCConfigurationBrowser
+ instanceVariableNames: 'configuration dependencyIndex repositoryIndex activeEditWindow'
- instanceVariableNames: 'configuration dependencyIndex repositoryIndex'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'MonticelloConfigurations'!
 
  !MCConfigurationBrowser commentStamp: 'dtl 5/10/2010 21:48' prior: 0!
  A MCConfigurationBrowser displays an MCConfiguration, and edits the configuration to add or remove package dependencies and repository specifications. It allows a configuration to be stored in a repository or posted to an update stream.!

Item was added:
+ ----- Method: MCConfigurationBrowser>>activeEditWindow: (in category 'morphic ui') -----
+ activeEditWindow: editWindow
+ "Set temporarily during the process of editing a version comment."
+ activeEditWindow ifNotNil: [:window | window delete].
+ activeEditWindow := editWindow.
+ !

Item was added:
+ ----- Method: MCConfigurationBrowser>>completeStoreAction (in category 'actions') -----
+ completeStoreAction
+ "The store method will arrange for this to be called after the user has entered
+ a comment for the configuration version being stored."
+ self activeEditWindow: nil. "Close the editor window"
+ self pickRepository
+ ifNotNil: [:repo |
+ configuration authorInitials: Utilities authorInitials.
+ configuration timeStamp: (DateAndTime fromSeconds: DateAndTime now asSeconds) printString.
+ configuration id: UUID new asString.
+ repo storeVersion: configuration.
+ self inform: 'Saved ', configuration name]!

Item was removed:
- ----- Method: MCConfigurationBrowser>>enterVersionComment (in category 'morphic ui') -----
- enterVersionComment
- ^ UIManager default
- request: 'Comment for this configuration update'
- initialAnswer: (self configuration comment ifNil: ['']).
- !

Item was added:
+ ----- Method: MCConfigurationBrowser>>enterVersionCommentAndCompleteWith: (in category 'morphic ui') -----
+ enterVersionCommentAndCompleteWith: aConfigBrowser
+ | editWindow |
+ editWindow := UIManager default
+ edit: configuration comment
+ label: 'Enter or edit a comment for this configuration update'
+ accept: [:aText |
+ configuration comment: aText asString.
+ Project current
+ addDeferredUIMessage: [aConfigBrowser completeStoreAction]].
+ aConfigBrowser activeEditWindow: editWindow.
+ !

Item was changed:
  ----- Method: MCConfigurationBrowser>>store (in category 'actions') -----
  store
+ self activeEditWindow: nil. "Close previous if still open"
  (self checkRepositories and: [self checkDependencies]) ifFalse: [^self].
  self pickName ifNotNil: [:name |
  configuration name: name.
+ self enterVersionCommentAndCompleteWith: self].!
- configuration comment: self enterVersionComment.
- self pickRepository ifNotNil: [:repo |
- configuration authorInitials: Utilities authorInitials.
- configuration timeStamp: ((DateAndTime fromSeconds: (DateAndTime now asSeconds)) printString).
- configuration id: UUID new asString.
- repo storeVersion: self configuration]].!