diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st index 8d2d78b..f3d6860 100644 --- a/src/MiniDocs/LeDatabase.extension.st +++ b/src/MiniDocs/LeDatabase.extension.st @@ -61,6 +61,39 @@ LeDatabase >> docTreeForLink: aString [ ^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument ] +{ #category : #'*MiniDocs' } +LeDatabase >> errorCardFor: errorMessage [ + + | keepButton overwriteButton backupButton errorMessageUI | + keepButton := BrButton new + aptitude: BrGlamorousButtonWithIconAndLabelAptitude; + beTinySize; + label: 'Keep existing page'; + icon: BrGlamorousVectorIcons cancel; + action: [ :aButton | ]; + margin: (BlInsets left: 10). + overwriteButton := BrButton new + aptitude: BrGlamorousButtonWithIconAndLabelAptitude; + beTinySize; + label: 'Overwrite page'; + icon: BrGlamorousVectorIcons edit; + action: [ :aButton | ]; + margin: (BlInsets left: 10). + backupButton := BrButton new + aptitude: BrGlamorousButtonWithIconAndLabelAptitude; + beTinySize; + label: 'BackUp page'; + icon: BrGlamorousVectorIcons changes; + action: [ :aButton | ]; + margin: (BlInsets left: 10). + + errorMessageUI := BrEditor new + aptitude: BrGlamorousRegularEditorAptitude new "+ aModeLook;"; + text: errorMessage; + vFitContent. + ^ { errorMessageUI. keepButton. overwriteButton. backupButton } +] + { #category : #'*MiniDocs' } LeDatabase >> errors [