module Display(openDisplay) where
import Command
import Event
--import Font(FontStruct)
--import Fudget
--import Geometry(Line, Point, Rect, Size(..))
--import LayoutRequest(LayoutRequest)
import Xrequest
--import Xtypes

-- DECONSTR :: (a<->b) -> b -> (Maybe a) 
openDisplay :: DisplayName -> Cont (F b c) Display
openDisplay DisplayName
name =
    XRequest -> (XResponse -> Maybe Display) -> Cont (F b c) Display
forall a b c. XRequest -> (XResponse -> Maybe a) -> Cont (F b c) a
xrequestF (DisplayName -> XRequest
OpenDisplay DisplayName
name)
              (let e :: XResponse -> Maybe Display
e (DisplayOpened Display
a) = Display -> Maybe Display
forall a. a -> Maybe a
Just Display
a
                   e XResponse
_ = Maybe Display
forall a. Maybe a
Nothing
               in  XResponse -> Maybe Display
e)