fudgets-0.18.3: hsrc/fudgets/QuitButtonF.hs

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 =
    quitF >==<
    marginHVAlignF 0 aRight aBottom
    (buttonF' (setKeys [([metaKey], "q")]) "Quit")