acceltest.hs

import Graphics.UI.Gtk

connectAction actg accg id accelerator command =
    do  action <- actionNew id "Go!" Nothing Nothing
        actionGroupAddActionWithAccel actg action (Just accelerator)
        actionSetAccelGroup action accg
        actionConnectAccelerator action

        on action actionActivated command
        
        return action
main =
    do  initGUI
        window <- windowNew

        ag <- actionGroupNew "AGR"
        ui <- uiManagerNew
        acg <- uiManagerGetAccelGroup ui
        uiManagerInsertActionGroup ui ag 0
        windowAddAccelGroup window acg
        connectAction ag acg "CLSE" "<Control>w" (putStrLn "Ctrl-W")
        connectAction ag acg "TBAD" "<Control>t" (putStrLn "Ctrl-T")

        onDestroy window mainQuit

        widgetShowAll window

        mainGUI