The Trunk: Morphic-mt.2222.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2222.mcz

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

Name: Morphic-mt.2222
Author: mt
Time: 27 July 2026, 3:49:37.663457 pm
UUID: 94d08ccb-01bd-1141-a6cd-34ab9b1210f1
Ancestors: Morphic-mt.2221

For Squeak 6.1, allow a compact project view without the need of a surrounding system window. Make some UI texts more user-friendly.

=============== Diff against Morphic-mt.2221 ===============

Item was changed:
  ----- Method: ProjectViewMorph>>dismissViaHalo (in category 'initialization') -----
  dismissViaHalo
  	| choice |
  	project ifNil:[^self delete]. "no current project"
  	choice := Project uiManager
  				chooseOptionFrom: 
+ 					{'Yes, close view and delete project' translated.
+ 					'Yes, but close this view only' translated.
+ 					'No, don''t do anything' translated}
+ 				title: ('Do you really want discard this project and all its contents?\\	{1}\\(You can still access a project later without its view though the ''Projects'' menu.)' translated withCRs asText format: {project name asText allBold}).
+ 	choice = 1 ifTrue:[^self expungeProjectSilently].
- 					{'yes - delete the window and the project' translated.
- 					'no - delete the window only' translated}
- 				title: ('Do you really want to delete {1}
- and all its content?' translated format: {project name printString}).
- 	choice = 1 ifTrue:[^self expungeProject].
  	choice = 2 ifTrue:[^self delete].!

Item was changed:
  ----- Method: ProjectViewMorph>>expungeProject (in category 'events') -----
  expungeProject
  
+ 	(Project uiManager confirm:  'Do you really want discard this project and all its contents?' title: project name)
- 	(self confirm: ('Do you really want to delete {1}
- and all its content?' translated format: {project name}))
  		ifFalse: [^ self].
+ 	self expungeProjectSilently.!
- 	owner isSystemWindow
- 		ifTrue: [owner model: nil;
- 				 delete].
- 	
- 	project delete.
- 	self delete.!

Item was added:
+ ----- Method: ProjectViewMorph>>expungeProjectSilently (in category 'events') -----
+ expungeProjectSilently
+ 
+ 	owner isSystemWindow ifTrue: [owner model: nil; delete].
+ 	project delete.
+ 	self delete.!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]