Fixing dropdown capabilities. Next: embedding file browsing in dropdown.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-03-31 08:23:32 -05:00
parent e90cf3058a
commit 557f1893e3
1 changed files with 4 additions and 12 deletions

View File

@ -231,21 +231,13 @@ LePage >> storage [
LePage >> uiDefineFolderFor: anAction [
<lePageAction>
| folderButton |
folderButton := anAction button
folderButton := anAction dropdown
icon: BrGlamorousIcons savetodisk;
tooltip: 'Export folder'";
aptitude: BrGlamorousButtonWithIconAptitude.
folderButton addAptitude:
(BrGlamorousWithDropdownAptitude
handle: [
BrButton new
aptitude: BrGlamorousButtonRectangularAptitude + BrGlamorousButtonIconAptitude;
icon: BrGlamorousIcons menu ]
content: [
BlElement new
tooltip: 'Export folder'"";
content: [:aButton | BlElement new
background: (Color gray alpha: 0.2);
size: 100 @ 100;
margin: (BlInsets all: 10) ])".
margin: (BlInsets all: 10) ].
^ folderButton
]