activate :: GLUTContext a -> Transform a -> Display.Displayer a -> IO ()
activate c t d = do
    activateInput c
    activateIdle c t
    activateDisplay c d
activate :: GLUTContext a -> Transform a -> Display.Displayer a -> IO ()
activate c t d = do
    activateInput c
    activateIdle c t
    activateDisplay c d
activate c t d = do
    activateInput c
    activateIdle c t
    activateDisplay c d