module Graphics.UI.WX.Frame
(
Frame, frame, frameFixed, frameTool, frameEx
, MDIParentFrame, MDIChildFrame
, mdiParentFrame, mdiChildFrame
, mdiParentFrameEx, mdiChildFrameEx
, activeChild, activateNext, activatePrevious, arrangeIcons
, cascade, tile
, initialFrame, initialResizeable, initialMaximizeable, initialMinimizeable, initialCloseable
) where
import Graphics.UI.WXCore
import Graphics.UI.WX.Types
import Graphics.UI.WX.Attributes
import Graphics.UI.WX.Layout
import Graphics.UI.WX.Classes
import Graphics.UI.WX.Window
import Graphics.UI.WX.Events
defaultStyle
= frameDefaultStyle
frame :: [Prop (Frame ())] -> IO (Frame ())
frame props
= frameEx defaultStyle props objectNull
frameFixed :: [Prop (Frame ())] -> IO (Frame ())
frameFixed props
= frameEx (defaultStyle .-. wxMAXIMIZE_BOX .-. wxRESIZE_BORDER) props objectNull
frameTool :: [Prop (Frame ())] -> Window a -> IO (Frame ())
frameTool props parent
= frameEx (defaultStyle .-. wxFRAME_TOOL_WINDOW .-. wxFRAME_FLOAT_ON_PARENT) props parent
frameEx :: Style -> [Prop (Frame ())] -> Window a -> IO (Frame ())
frameEx style props parent
= feed2 props style $
initialFrame $ \id rect txt -> \props style ->
do f <- frameCreate parent id txt rect style
let initProps = (if (containsProperty visible props)
then [] else [visible := True]) ++
(if (containsProperty bgcolor props)
then [] else [bgcolor := colorSystem Color3DFace])
set f initProps
set f props
return f
initialFrame :: (Id -> Rect -> String -> [Prop (Window w)] -> Style -> a) -> [Prop (Window w)] -> Style -> a
initialFrame cont
= initialContainer $ \id rect ->
initialText $ \txt ->
initialResizeable $
initialMinimizeable $
initialMaximizeable $
initialCloseable $
initialClipChildren $
initialFullRepaintOnResize $
cont id rect txt
instance Pictured (Frame a) where
picture
= writeAttr "picture" frameSetIconFromFile
instance Form (Frame a) where
layout
= writeAttr "layout" windowSetLayout
instance Closeable (Frame a) where
close f
= unitIO (windowClose f True )
instance Framed (Frame a) where
resizeable
= windowResizeable
maximizeable
= windowMaximizeable
minimizeable
= windowMinimizeable
closeable
= windowCloseable
instance Framed (Dialog a) where
resizeable
= windowResizeable
maximizeable
= windowMaximizeable
minimizeable
= windowMinimizeable
closeable
= windowCloseable
mdiParentFrame :: [Prop (MDIParentFrame ())] -> IO (MDIParentFrame ())
mdiParentFrame props
= mdiParentFrameEx objectNull defaultStyle props
mdiParentFrameEx :: Window a -> Style -> [Prop (MDIParentFrame ())] -> IO (MDIParentFrame ())
mdiParentFrameEx parent stl props
= feed2 props stl $
initialFrame $ \id rect txt -> \props stl ->
do f <- mdiParentFrameCreate parent id txt rect stl
let initProps = (if (containsProperty visible props)
then [] else [visible := True]) ++
(if (containsProperty bgcolor props)
then [] else [bgcolor := colorSystem Color3DFace])
set f initProps
set f props
return f
mdiChildFrame :: MDIParentFrame a -> [Prop (MDIChildFrame ())] -> IO (MDIChildFrame ())
mdiChildFrame parent props
= mdiChildFrameEx parent defaultStyle props
mdiChildFrameEx :: MDIParentFrame a -> Style -> [Prop (MDIChildFrame ())] -> IO (MDIChildFrame ())
mdiChildFrameEx parent stl props
= feed2 props stl $
initialFrame $ \id rect txt -> \props stl ->
do f <- mdiChildFrameCreate parent id txt rect stl
let initProps = (if (containsProperty visible props)
then [] else [visible := True]) ++
(if (containsProperty bgcolor props)
then [] else [bgcolor := colorSystem Color3DFace])
set f initProps
set f props
return f
activeChild :: ReadAttr (MDIParentFrame a) (MDIChildFrame ())
activeChild = readAttr "activeChild" mdiParentFrameGetActiveChild
activateNext :: MDIParentFrame a -> IO ()
activateNext = mdiParentFrameActivateNext
activatePrevious :: MDIParentFrame a -> IO ()
activatePrevious = mdiParentFrameActivatePrevious
arrangeIcons :: MDIParentFrame a -> IO ()
arrangeIcons = mdiParentFrameArrangeIcons
cascade :: MDIParentFrame a -> IO ()
cascade = mdiParentFrameCascade
tile :: MDIParentFrame a -> IO ()
tile = mdiParentFrameTile
windowResizeable :: CreateAttr (Window a) Bool
windowResizeable
= reflectiveAttr "resizeable" getFlag setFlag
where
getFlag w
= do s <- get w style
return (bitsSet wxRESIZE_BORDER s)
setFlag w resize
= set w [style :~ \stl -> if resize
then stl .+. wxRESIZE_BORDER .+. wxMAXIMIZE_BOX
else stl .-. wxRESIZE_BORDER .-. wxMAXIMIZE_BOX]
initialResizeable :: ([Prop (Window w)] -> Style -> a) -> [Prop (Window w)] -> Style -> a
initialResizeable
= withStyleProperty windowResizeable (wxRESIZE_BORDER .+. wxMAXIMIZE_BOX)
windowMaximizeable :: CreateAttr (Window a) Bool
windowMaximizeable
= reflectiveAttr "maximizeable" getFlag setFlag
where
getFlag w
= do s <- get w style
return (bitsSet wxMAXIMIZE_BOX s)
setFlag w max
= set w [style :~ \stl -> if max then stl .+. wxMAXIMIZE_BOX else stl .-. wxMAXIMIZE_BOX]
initialMaximizeable :: ([Prop (Window w)] -> Style -> a) -> [Prop (Window w)] -> Style -> a
initialMaximizeable
= withStyleProperty windowMaximizeable wxMAXIMIZE_BOX
windowMinimizeable :: CreateAttr (Window a) Bool
windowMinimizeable
= reflectiveAttr "minimizeable" getFlag setFlag
where
getFlag w
= do s <- get w style
return (bitsSet wxMINIMIZE_BOX s)
setFlag w min
= set w [style :~ \stl -> if min then stl .+. wxMINIMIZE_BOX else stl .-. wxMINIMIZE_BOX]
initialMinimizeable :: ([Prop (Window w)] -> Style -> a) -> [Prop (Window w)] -> Style -> a
initialMinimizeable
= withStyleProperty windowMinimizeable wxMINIMIZE_BOX
windowCloseable :: CreateAttr (Window a) Bool
windowCloseable
= reflectiveAttr "closeable" getFlag setFlag
where
getFlag w
= do s <- get w style
return (bitsSet wxCLOSE_BOX s)
setFlag w min
= set w [style :~ \stl -> if min then stl .+. wxCLOSE_BOX else stl .-. wxCLOSE_BOX]
initialCloseable :: ([Prop (Window w)] -> Style -> a) -> [Prop (Window w)] -> Style -> a
initialCloseable
= withStyleProperty windowCloseable wxCLOSE_BOX