Christoph Thiede uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ct.778.mcz

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

Name: Monticello-ct.778
Author: ct
Time: 5 May 2022, 7:08:45.836219 pm
UUID: 40be4867-d51d-8346-8151-f8c4fd09ffde
Ancestors: Monticello-mt.777

Complements Tools-ct.1150 (merges toolCodePane.3.cs, improved MVC compatibility for view accesses from model).

=============== Diff against Monticello-mt.777 ===============

Item was changed:
  ----- Method: MCSaveVersionDialog>>accept (in category 'actions') -----
  accept
  	| logMessage logMessageWidget |
  	self updateItems.
+ 	logMessage := (logMessageWidget := self anyTextPaneWithSelector: #logMessage) text asString.
- 	logMessage := (logMessageWidget := self findTextMorph: #logMessage) text asString.
  	(logMessage isEmpty or: [logMessage beginsWith: 'empty log message'])
  		ifTrue:
+ 			[(Project uiManager confirm: 'The log message is empty. Are you sure you want to commit anyway?' translated) ifFalse: [^ self]]
- 			[(UIManager confirm: 'the log message is empty; are you sure you want to commit') ifFalse: [^ self]]
  		ifFalse: [logMessageWidget accept].
  	self answer: {
+ 		(self anyTextPaneWithSelector: #versionName) text asString.
- 		(self findTextMorph: #versionName) text asString.
  		logMessage.
  		ignore }!

Item was changed:
  ----- Method: MCSaveVersionDialog>>okToClose (in category 'actions') -----
  okToClose
+ 	^ (self anyTextPaneWithSelector: #logMessage)
- 	^ (self findTextMorph: #logMessage)
  		ifNil: [true]
  		ifNotNil:
  			[:widget | widget canDiscardEdits or: [self confirm: 'Version notes are not saved.
  Is it OK to discard those notes?' translated]]!

Item was removed:
- ----- Method: MCTool>>findTextMorph: (in category 'morphic ui') -----
- findTextMorph: aSymbol
- 	^ morph submorphs detect: [:ea | (ea respondsTo: #getTextSelector) and: [ea getTextSelector = aSymbol]] ifNone: []!