diff --git a/src/MiniDocs/LePage.extension.st b/src/MiniDocs/LePage.extension.st index 223ef94..52a5b85 100644 --- a/src/MiniDocs/LePage.extension.st +++ b/src/MiniDocs/LePage.extension.st @@ -231,21 +231,13 @@ LePage >> storage [ LePage >> uiDefineFolderFor: anAction [ | folderButton | - folderButton := anAction button + folderButton := anAction dropdown icon: BrGlamorousIcons savetodisk; - tooltip: 'Export folder'"; - aptitude: BrGlamorousButtonWithIconAptitude. - folderButton addAptitude: - (BrGlamorousWithDropdownAptitude - handle: [ - BrButton new - aptitude: BrGlamorousButtonRectangularAptitude + BrGlamorousButtonIconAptitude; - icon: BrGlamorousIcons menu ] - content: [ - BlElement new + tooltip: 'Export folder'""; + content: [:aButton | BlElement new background: (Color gray alpha: 0.2); size: 100 @ 100; - margin: (BlInsets all: 10) ])". + margin: (BlInsets all: 10) ]. ^ folderButton ]