From 20df072984ea845af5e160d513388352728694ea Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Fri, 7 Oct 2022 15:48:54 -0500
Subject: [PATCH] Creating an error pane for database importer markdeep page.

---
 src/MiniDocs/LeDatabase.extension.st | 50 ++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st
index 5fd5a76..3687f4d 100644
--- a/src/MiniDocs/LeDatabase.extension.st
+++ b/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 [