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
1 changed files with 13 additions and 7 deletions

View File

@ -232,14 +232,20 @@ LePage >> uiDefineFolderFor: anAction [
<lePageAction> <lePageAction>
| folderButton | | folderButton |
folderButton := anAction button folderButton := anAction button
tooltip: 'Define folder';
icon: BrGlamorousIcons savetodisk; icon: BrGlamorousIcons savetodisk;
"aptitude: BrGlamorousButtonWithIconAptitude;" tooltip: 'Export folder'";
action: [ ]. aptitude: BrGlamorousButtonWithIconAptitude.
"folderButton addAptitude: (BrGlamorousWithDropdownAptitude folderButton addAptitude:
handle: [ self ] (BrGlamorousWithDropdownAptitude
content: [self ]). handle: [
folderButton aptitude - BrGlamorousButtonExteriorAptitude." 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 ^ folderButton
] ]