module QuitButtonF where
import Spacer(marginHVAlignF)
import Alignment
import DButtonF
import FDefaults
import CompOps((>==<))
--import Defaults(buttonFont)
--import Event(Event(..))
--import Fudget
--import PushButtonF
import QuitF
--import AuxTypes(Modifiers(..))
import Defaults(metaKey)
import Graphic( )

quitButtonF :: F Click b
quitButtonF =
    F Click b
forall ans ho. F ans ho
quitF F Click b -> F Click Click -> F Click b
forall a1 b a2. F a1 b -> F a2 a1 -> F a2 b
>==<
    Distance
-> Alignment -> Alignment -> F Click Click -> F Click Click
forall a b. Distance -> Alignment -> Alignment -> F a b -> F a b
marginHVAlignF Distance
0 Alignment
aRight Alignment
aBottom
    (Customiser (ButtonF [Char]) -> [Char] -> F Click Click
forall lbl.
Graphic lbl =>
Customiser (ButtonF lbl) -> lbl -> F Click Click
buttonF' ([(ModState, [Char])] -> Customiser (ButtonF [Char])
forall xxx. HasKeys xxx => [(ModState, [Char])] -> Customiser xxx
setKeys [([Modifiers
metaKey], [Char]
"q")]) [Char]
"Quit")