Fixing dropdown capabilities. Next: embedding file browsing in dropdown.
This commit is contained in:
parent
e90cf3058a
commit
557f1893e3
@ -231,21 +231,13 @@ LePage >> storage [
|
||||
LePage >> uiDefineFolderFor: anAction [
|
||||
<lePageAction>
|
||||
| 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
|
||||
]
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user