module TryLayout(tryLayoutK) where

import FRequest
--import Message
import Cont
import LayoutRequest
--import Command
--import Fudget
--import Xtypes
--import Event

tryLayoutK :: LayoutRequest -> Cont (K b c) Size
tryLayoutK LayoutRequest
lreq =
  forall a b c. FRequest -> (FResponse -> Maybe a) -> Cont (K b c) a
cmdContK (LayoutRequest -> FRequest
layoutRequestCmd LayoutRequest
lreq) forall a b. (a -> b) -> a -> b
$ \FResponse
r ->
  case FResponse
r of
    LEvt (LayoutSize Size
s) -> forall a. a -> Maybe a
Just Size
s
    FResponse
_ -> forall a. Maybe a
Nothing