diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st index a543999..34577a3 100644 --- a/src/MiniDocs/LeDatabase.extension.st +++ b/src/MiniDocs/LeDatabase.extension.st @@ -64,24 +64,27 @@ LeDatabase >> docTreeForLink: aString [ { #category : #'*MiniDocs' } LeDatabase >> errorCardFor: error [ - | keepButton overwriteButton backupButton errorMessageUI | + | keepButton overwriteButton backupButton errorMessageUI localPage | + localPage := self pageWithID: (error at: 'key'). keepButton := BrButton new aptitude: BrGlamorousButtonWithIconAndLabelAptitude; - beTinySize; label: 'Keep existing local page'; icon: BrGlamorousVectorIcons cancel; - action: [ :aButton | ]; - margin: (BlInsets left: 10). + margin: (BlInsets left: 10); + action: [ :aButton | + aButton phlow spawnObject: localPage + ]. overwriteButton := BrButton new aptitude: BrGlamorousButtonWithIconAndLabelAptitude; - beTinySize; label: 'Overwrite with remote page'; icon: BrGlamorousVectorIcons edit; - action: [ :aButton | ]; + action: [ :aButton | + self removePage: localPage. + aButton phlow spawnObject: (self addPageFromMarkdeepUrl: (error at: 'remote')) + ]; margin: (BlInsets left: 10). backupButton := BrButton new aptitude: BrGlamorousButtonWithIconAndLabelAptitude; - beTinySize; label: 'Backup local page'; icon: BrGlamorousVectorIcons changes; action: [ :aButton | ]; @@ -106,17 +109,16 @@ LeDatabase >> gtViewErrorDetailsOn: aView [ ^ aView explicit title: 'Errors' translated; priority: 5; - stencil: [ - | container | - container := BlElement new - layout: BlFlowLayout new; - constraintsDo: [ :c | - c vertical fitContent. - c horizontal matchParent ]; - padding: (BlInsets all: 10). - container - addChildren: (self errorCardFor: self errors first) - "container addChild: self asCardElement "]. + stencil: [ | container | + container := BlElement new + layout: BlFlowLayout new; + constraintsDo: [ :c | + c vertical fitContent. + c horizontal matchParent ]; + padding: (BlInsets all: 10). + container + addChildren: (self errorCardFor: self errors first) + ]. ] { #category : #'*MiniDocs' }