Attempting dropdown capabilities.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-03-23 20:59:41 -05:00
parent 59f4822e25
commit e90cf3058a

View File

@ -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
]