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