]> Git — Sourcephile - tmp/julm/arpeggigon.git/blob - RMCA/GUI/Buttons.hs
Tile adding supported.
[tmp/julm/arpeggigon.git] / RMCA / GUI / Buttons.hs
1 -- Contains button name definition
2 module RMCA.GUI.Buttons where
3
4 import Graphics.UI.Gtk
5 import System.Glib
6
7 gtkMediaPlay :: DefaultGlibString
8 gtkMediaPlay = stringToGlib "gtk-media-play"
9
10 gtkMediaStop :: DefaultGlibString
11 gtkMediaStop = stringToGlib "gtk-media-stop"
12
13 gtkMediaPause :: DefaultGlibString
14 gtkMediaPause = stringToGlib "gtk-media-pause"
15
16 gtkMediaRecord :: DefaultGlibString
17 gtkMediaRecord = stringToGlib "gtk-media-record"