diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st index b49764b..223ef94 100644 --- a/src/MiniDocs/LePage.extension.st +++ b/src/MiniDocs/LePage.extension.st @@ -232,14 +232,20 @@ LePage >> uiDefineFolderFor: anAction [ | 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 ]