module LayoutHints(module LayoutHints,LayoutHint(..)) where
import Fudget
import LayoutRequest
import FRequest
--import Geometry(Point, Size(..),Rect)
import NullF(putMessageFu)
--import Command

serHint :: LayoutHint
serHint  = LayoutHint
"ser" :: LayoutHint
parHint :: LayoutHint
parHint  = LayoutHint
"par" :: LayoutHint
listHint :: LayoutHint
listHint = LayoutHint
"list" :: LayoutHint
loopHint :: LayoutHint
loopHint = LayoutHint
"loop" :: LayoutHint

layoutHintF :: LayoutHint -> F a b -> F a b
layoutHintF :: LayoutHint -> F a b -> F a b
layoutHintF LayoutHint
hint = Message FRequest b -> F a b -> F a b
forall ho hi. Message FRequest ho -> F hi ho -> F hi ho
putMessageFu (FRequest -> Message FRequest b
forall a b. a -> Message a b
Low (LayoutMessage -> FRequest
LCmd (LayoutHint -> LayoutMessage
LayoutHint LayoutHint
hint)))