Offray/MiniDocs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Attempting dropdown capabilities.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/MiniDocs/LePage.extension.st
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
]