Move attachment tabs into a menu

If multiple attachments are present, the tab menu doesn't show all. So
if there is more than one attachment they can be selected from a menu.
This commit is contained in:
Eike Kettner
2020-09-26 01:11:56 +02:00
parent ca05b3c195
commit e831d7bdd7
5 changed files with 179 additions and 7 deletions

View File

@ -47,6 +47,7 @@ import Util.Tag
type alias Model =
{ item : ItemDetail
, visibleAttach : Int
, attachMenuOpen : Bool
, menuOpen : Bool
, tagModel : Comp.Dropdown.Model Tag
, directionModel : Comp.Dropdown.Model Direction
@ -115,6 +116,7 @@ emptyModel : Model
emptyModel =
{ item = Api.Model.ItemDetail.empty
, visibleAttach = 0
, attachMenuOpen = False
, menuOpen = False
, tagModel =
Util.Tag.makeDropdownModel
@ -269,6 +271,7 @@ type Msg
| SaveNameResp (Result Http.Error BasicResult)
| UpdateThrottle
| KeyInputMsg Comp.KeyInput.Msg
| ToggleAttachMenu
type SaveNameState