value ocaml_pause (value v)
{
pauseSong(systemSong);
return v;
}
void MainWindow::createActions()
//POST: Actions are initialized and connected to the appropriate slots for handling
{
//This is very repetitive. Format for creating an action:
/*
actionPointer = new QAction("n&ame", parent); //Initiliaze action of name
// "name" with alt-shortcut indicated
// by character following '&'
actionPointer->setShorcut(tr("keyboard shortcut")); //Sets the action's shortcut
// ex. "Ctrl+Alt+K"
connect(actionPointer, SIGNAL(triggered), //When the action is triggered (via menu
someWidgetPointer, SLOT(someSlot())); // click et al.), handle this via a slot
*/ //method of someWidget
//If the action just switches some property on or off (true or false), one can use
// actionPointer->setCheckable() to indicate this. To check if the property is on or off
// use actionPointer->isChecked()
// File menu actions
openAct = new QAction("&Open", this);
openAct->setShortcut(tr("Ctrl+O"));
connect(openAct, SIGNAL(triggered()), this, SLOT(open()));
enqueueAct = new QAction("&Add to Playlist", this);
enqueueAct->setShortcut(tr("Ctrl+A"));
connect(enqueueAct, SIGNAL(triggered()), this, SLOT(addToPlaylist()));
quitAct = new QAction("&Quit", this);
quitAct->setShortcut(tr("Ctrl+Q"));
connect(quitAct, SIGNAL(triggered()), this, SLOT(quit()));
// Controls toolbar actions
pauseAct = new QAction(style()->standardIcon(QStyle::SP_MediaPause), tr("P&ause"), this);
connect(pauseAct, SIGNAL(triggered()), myPlayer, SLOT(pause()));
connect(pauseAct, SIGNAL(triggered()), glWindow, SLOT(pauseSong()));
playAct = new QAction(style()->standardIcon(QStyle::SP_MediaPlay), "P&lay", this);
connect(playAct, SIGNAL(triggered()), this, SLOT(resumeTest()));
prevAct = new QAction(style()->standardIcon(QStyle::SP_MediaSkipBackward), "&Prev", this);
connect(prevAct, SIGNAL(triggered()), this, SLOT(gotoPrevSong()));
nextAct = new QAction(style()->standardIcon(QStyle::SP_MediaSkipForward), "&Next", this);
connect(nextAct, SIGNAL(triggered()), this, SLOT(gotoNextSong()));
stopAct = new QAction(style()->standardIcon(QStyle::SP_MediaStop), "&Stop", this);
connect(stopAct, SIGNAL(triggered()), myPlayer, SLOT(stop()));
connect(stopAct, SIGNAL(triggered()), glWindow, SLOT(stopSong()));
// Visualization menu actions
redAct = new QAction("Increase &Red", this);
redAct->setShortcut(tr("Ctrl+R"));
connect(redAct, SIGNAL(triggered()), glWindow, SLOT(IncreaseRed()));
greenAct = new QAction("Increase &Green", this);
greenAct->setShortcut(tr("Ctrl+G"));
connect(greenAct, SIGNAL(triggered()), glWindow, SLOT(IncreaseGreen()));
blueAct = new QAction("Increase &Blue", this);
blueAct->setShortcut(tr("Ctrl+B"));
connect(blueAct, SIGNAL(triggered()), glWindow, SLOT(IncreaseBlue()));
prevVisAct = new QAction("&Previous Visualization", this);
prevVisAct->setShortcut(tr("Ctrl+Z"));
connect(prevVisAct, SIGNAL(triggered()), glWindow, SLOT(LastVisualization()));
nextVisAct = new QAction("&Next Visualization", this);
nextVisAct->setShortcut(tr("Ctrl+X"));
connect(nextVisAct, SIGNAL(triggered()), glWindow, SLOT(NextVisualization()));
fullScreenAct = new QAction("&Fullscreen", this);
fullScreenAct->setShortcut(tr("Ctrl+F"));
fullScreenAct->setCheckable(true);
connect(fullScreenAct, SIGNAL(triggered()), this, SLOT(fullScreen()));
//Playlist actions
repeatOneAct = new QAction("Repeat &One", this);
repeatOneAct->setShortcut(tr("Ctrl+T"));
repeatOneAct->setCheckable(true);
repeatAllAct = new QAction("Repeat &All", this);
repeatAllAct->setShortcut(tr("Ctrl+Alt+T"));
repeatAllAct->setCheckable(true);
// About action
aboutAct = new QAction("&About", this);
connect(aboutAct, SIGNAL(triggered()), this, SLOT(about()));
}
