From 3fffd37e8f5017d7700f29b88a0888ae874851bc Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Wed, 12 Mar 2025 20:07:19 -0500
Subject: [PATCH] Creating a confirmation button in importer UI.
---
src/MiniDocs/LeMiniDocsImport.class.st | 34 +++++++++++++++-----------
1 file changed, 20 insertions(+), 14 deletions(-)
diff --git a/src/MiniDocs/LeMiniDocsImport.class.st b/src/MiniDocs/LeMiniDocsImport.class.st
index b06e551..87c5077 100644
--- a/src/MiniDocs/LeMiniDocsImport.class.st
+++ b/src/MiniDocs/LeMiniDocsImport.class.st
@@ -31,20 +31,28 @@ LeMiniDocsImport >> createDropdownExpandedHandleButton [
{ #category : #accessing }
LeMiniDocsImport >> createURLeditable [
- | base editable |
+ | base editable button |
base := BlElement new
- background: (Color white);
- size: 200 @ 30;
- margin: (BlInsets all: 10);
- yourself.
+ background: Color white;
+ size: 300 @55;
+ margin: (BlInsets all: 10);
+ yourself.
editable := BrEditableLabel new
- aptitude: BrGlamorousEditableLabelAptitude new glamorousRegularFontAndSize;
- text: 'Document link';
- switchToEditor.
- editable when: BrEditorAcceptWish do: [ :aWish |
- self importDocumentFrom: aWish text asString.
- ].
+ aptitude: BrGlamorousEditableLabelAptitude new glamorousRegularFontAndSize;
+ text: 'Document link';
+ fitContent;
+ switchToEditor.
+ editable
+ when: BrEditorAcceptWish
+ do: [ :aWish | self importDocumentFrom: aWish text asString ].
+ button := BrButton new
+ label: 'ok';
+ aptitude: BrGlamorousButtonWithLabelAptitude;
+ fitContent;
+ relocate: 0 @ 30.
+ button action: [ :aButton | editable acceptEdition ].
base addChild: editable.
+ base addChild: button.
^ base
]
@@ -71,11 +79,9 @@ LeMiniDocsImport >> initialize [
icon: BrGlamorousVectorIcons downwards;
label: 'Add MiniDocs';
aptitude: BrGlamorousButtonWithIconAndLabelAptitude.
- self addAptitude: (BrGlamorousWithDropdownAptitude
+ self addAptitude: (BrGlamorousWithExplicitDropdownAptitude
handle: [ self createDropdownExpandedHandleButton ]
content: [ self createURLeditable ]).
-
- self aptitude - BrGlamorousButtonExteriorAptitude.
]
{ #category : #accessing }