31 lines
888 B
Smalltalk
31 lines
888 B
Smalltalk
Extension { #name : #LePageHeaderBuilder }
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePageHeaderBuilder >> addExportPageButton [
|
|
<leHeaderAction>
|
|
| newButton |
|
|
|
|
newButton := BrButton new
|
|
aptitude: BrGlamorousButtonWithIconAptitude;
|
|
label: 'Export Page';
|
|
icon: BrGlamorousVectorIcons down;
|
|
action: [ :aButton |
|
|
aButton phlow spawnObject: self page asMarkdeepFile ].
|
|
self toolbarElement addItem: newButton.
|
|
]
|
|
|
|
{ #category : #'*MiniDocs' }
|
|
LePageHeaderBuilder >> addRefreshWebViewButton [
|
|
<leHeaderAction>
|
|
| newButton |
|
|
|
|
newButton := BrButton new
|
|
aptitude: BrGlamorousButtonWithIconAptitude;
|
|
label: 'Refresh web view';
|
|
icon: BrGlamorousVectorIcons refresh;
|
|
action: [ :aButton |
|
|
self page asMarkdeep exportAsFileOn: (self page storage / self page markdeepFileName).
|
|
aButton phlow spawnObject: self page localHostAddress ].
|
|
self toolbarElement addItem: newButton.
|
|
]
|