15 lines
407 B
Smalltalk
15 lines
407 B
Smalltalk
Extension { #name : #LePageHeaderBuilder }
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePageHeaderBuilder >> addExportPageButton [
|
|
<leHeaderAction>
|
|
| newButton |
|
|
|
|
newButton := BrButton new
|
|
aptitude: BrGlamorousButtonWithIconAptitude;
|
|
label: 'Export Page';
|
|
icon: BrGlamorousVectorIcons down;
|
|
action: [ :aButton | Clipboard clipboardText: self page asMarkdeepFile ].
|
|
self toolbarElement addItem: newButton.
|
|
]
|