]> Git — Sourcephile - tmp/julm/arpeggigon.git/blob - src/RMCA/GUI/StockId.hs
Add button to clear single layer
[tmp/julm/arpeggigon.git] / src / RMCA / GUI / StockId.hs
1 module RMCA.GUI.StockId where
2
3 import System.Glib
4
5 gtkMediaPlay :: DefaultGlibString
6 gtkMediaPlay = stringToGlib "gtk-media-play"
7
8 gtkMediaStop :: DefaultGlibString
9 gtkMediaStop = stringToGlib "gtk-media-stop"
10
11 gtkMediaPause :: DefaultGlibString
12 gtkMediaPause = stringToGlib "gtk-media-pause"
13
14 gtkMediaRecord :: DefaultGlibString
15 gtkMediaRecord = stringToGlib "gtk-media-record"
16
17 gtkMediaSave :: DefaultGlibString
18 gtkMediaSave = stringToGlib "gtk-save"
19
20 gtkMediaOpen :: DefaultGlibString
21 gtkMediaOpen = stringToGlib "gtk-open"
22
23 gtkMediaAdd :: DefaultGlibString
24 gtkMediaAdd = stringToGlib "gtk-add"
25
26 gtkMediaRemove :: DefaultGlibString
27 gtkMediaRemove = stringToGlib "gtk-remove"
28
29 gtkMediaRmAll :: DefaultGlibString
30 gtkMediaRmAll = stringToGlib "gtk-clear"
31
32 gtkMediaRestart :: DefaultGlibString
33 gtkMediaRestart = stringToGlib "gtk-refresh"