Allow only one horizontal form being open

This commit is contained in:
Eike Kettner 2020-08-05 23:11:21 +02:00
parent 082f468155
commit dfbbcdf73c

View File

@ -705,6 +705,13 @@ update key flags next msg model =
newOpen = newOpen =
not model.mailOpen not model.mailOpen
filesOpen =
if newOpen == True then
False
else
model.addFilesOpen
sendResult = sendResult =
if newOpen then if newOpen then
model.mailSendResult model.mailSendResult
@ -715,6 +722,7 @@ update key flags next msg model =
noSub noSub
( { model ( { model
| mailOpen = newOpen | mailOpen = newOpen
, addFilesOpen = filesOpen
, mailSendResult = sendResult , mailSendResult = sendResult
} }
, Cmd.none , Cmd.none
@ -858,7 +866,15 @@ update key flags next msg model =
AddFilesToggle -> AddFilesToggle ->
noSub noSub
( { model | addFilesOpen = not model.addFilesOpen } ( { model
| addFilesOpen = not model.addFilesOpen
, mailOpen =
if model.addFilesOpen == False then
False
else
model.mailOpen
}
, Cmd.none , Cmd.none
) )