From e90cf3058ac44d06e34f5bb6857f1e1e901f4c05 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 23 Mar 2023 20:59:41 -0500
Subject: [PATCH] Attempting dropdown capabilities.

---
 src/MiniDocs/LePage.extension.st | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st
index b49764b..223ef94 100644
--- a/src/MiniDocs/LePage.extension.st
+++ b/src/MiniDocs/LePage.extension.st
@@ -232,14 +232,20 @@ LePage >> uiDefineFolderFor: anAction [
 	<lePageAction>
 	| folderButton |
 	folderButton := anAction button
-		tooltip: 'Define folder';
 		icon: BrGlamorousIcons savetodisk;
-		"aptitude: BrGlamorousButtonWithIconAptitude;"
-		action: [ ].
-	"folderButton addAptitude: (BrGlamorousWithDropdownAptitude
-		handle: [ self  ]
-		content: [self ]).
-	folderButton aptitude - BrGlamorousButtonExteriorAptitude."
+		tooltip: 'Export folder'"; 
+		aptitude: BrGlamorousButtonWithIconAptitude.
+	folderButton addAptitude: 
+			(BrGlamorousWithDropdownAptitude
+				handle: [
+					BrButton new
+						aptitude: BrGlamorousButtonRectangularAptitude + BrGlamorousButtonIconAptitude;
+						icon: BrGlamorousIcons menu ]
+				content: [
+					BlElement new
+						background: (Color gray alpha: 0.2);
+						size: 100 @ 100;
+						margin: (BlInsets all: 10) ])".
 	^ folderButton	
 ]