Creating an error pane for database importer markdeep page.

src/MiniDocs/LeDatabase.extension.st

@@ -60,6 +60,56 @@ LeDatabase >> docTreeForLink: aString [
 	^ (XMLHTMLParser on: aString asUrl retrieveContents) parseDocument
 ]
 
+{ #category : #'*MiniDocs' }
+LeDatabase >> gtViewErrorDetailsOn: aView [
+	<gtView>
+	| keepButton overwriteButton backupButton errorMessage |
+	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).
+		
+	errorMessage := BrEditor new
+		aptitude: BrGlamorousRegularEditorAptitude new "+ aModeLook;";
+		text: String loremIpsum;
+		vFitContent.
+	
+	^ 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 
+				addChild: errorMessage;
+				addChild: keepButton;
+				addChild: overwriteButton;
+				addChild: backupButton
+			"container addChild: self asCardElement "].
+]
+
 { #category : #'*MiniDocs' }
 LeDatabase >> importErrorMessage: page [