It often happens to me or other people I know to edit the title of a …

…window to copy it.

In this PR I propose to directly add a command to copy the title of a window via the little arrow at the top right of the window.

src/Morphic-Widgets-Windows/SystemWindow.class.st

@@ -438,8 +438,10 @@ SystemWindow class >> windowMenuOn: aBuilder [
 		action: [ aBuilder model showAbout ];
 		iconName: #smallHelpIcon;
 		withSeparatorAfter.
-	(aBuilder item: #'Change title...')
-		action: [ aBuilder model relabel ];
+	(aBuilder item: #'Change title')
+		action: [ aBuilder model relabel ].
+	(aBuilder item: #'Copy title')
+		action: [ aBuilder model copyTitle ];
 		withSeparatorAfter.
 	(aBuilder item: #'Send to back')
 		action: [ aBuilder model sendToBack ].
@@ -788,6 +790,12 @@ SystemWindow >> colorForInsets [
 	^self paneColor colorForInsets
 ]
 
+{ #category : #label }
+SystemWindow >> copyTitle [
+	Clipboard clipboardText: self label.
+	self inform: 'Window title copied.'
+]
+
 { #category : #initialization }
 SystemWindow >> createBox [
 	"create a button with default to be used in the label area"