Skip to content
Permalink
Browse files

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.
  • Loading branch information
jecisc committed Sep 24, 2019
1 parent 404c76e commit 07e79f6f04fc29a9045e026627147223677db601
Showing with 10 additions and 2 deletions.
  1. +10 −2 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"

0 comments on commit 07e79f6

Please sign in to comment.
You can’t perform that action at this time.