DebuggerPerlDBGP::DebuggerPerlDBGP(LanguageSettings* langs) : AbstractDebugger(langs), m_name("perldbgp"), m_isRunning(false), m_isJITActive(false), m_listenPort(-1), m_currentExecutionPoint(0), m_globalExecutionPoint(0), m_pdbgSettings(0), m_net(0) { m_pdbgSettings = new PerlDBGPSettings(Protoeditor::self()->settings()->configFile(), name(), label(), langSettings()); langSettings()->registerDebuggerSettings(name(), m_pdbgSettings); m_currentExecutionPoint = new DebuggerExecutionPoint(); m_globalExecutionPoint = new DebuggerExecutionPoint(); connect(Protoeditor::self()->settings(), SIGNAL(sigSettingsChanged()), this, SLOT(slotSettingsChanged())); m_net = new PerlDBGPNet(this); connect(m_net, SIGNAL(sigStarted()), this, SLOT(slotStarted())); connect(m_net, SIGNAL(sigClosed()), this, SLOT(slotStopped())); connect(m_net, SIGNAL(sigError(const QString&)), this, SIGNAL(sigInternalError(const QString&))); connect(m_net, SIGNAL(sigStepDone()), this, SLOT(slotStepDone())); connect(m_net, SIGNAL(sigNewConnection()), this, SLOT(slotNewConnection())); //connect(m_net, SIGNAL(sigBreakpoint()), this, SLOT(slotBreakpoint())); }
SimpleUI::SimpleUI() : KMainWindow(0, "NoatunSimpleUI"), UserInterface() { setAcceptDrops( true ); setCaption( i18n("Noatun") ); setIcon( SmallIcon( "noatun" ) ); setupCentralWidget(); setupActions(); contextMenu = video->popupMenu( this ); setupGUI( StatusBar|Create, "simpleui.rc" ); connect( napp->player(), SIGNAL(playing()), SLOT(slotPlaying()) ); connect( napp->player(), SIGNAL(stopped()), SLOT(slotStopped()) ); connect( napp->player(), SIGNAL(paused()), SLOT(slotPaused()) ); connect( napp->player(), SIGNAL(timeout()), SLOT(slotTimeout()) ); connect( napp->player(), SIGNAL(newSong()), SLOT(slotChanged()) ); connect( napp->player(), SIGNAL(volumeChanged(int)), SLOT(slotVolumeChanged(int)) ); connect( napp, SIGNAL(hideYourself()), SLOT(hide()) ); connect( napp, SIGNAL(showYourself()), SLOT(show()) ); napp->player()->handleButtons(); resize( minimumSize() ); // Show UI and calculate video widget frame show(); extra_width = (width() - video->width()); extra_height = (height() - video->height()); // Load configuration KConfig &config = *KGlobal::config(); config.setGroup( "Simple" ); QString str = config.readEntry( "View", "NormalSize" ); if (str == "HalfSize") video->setHalfSize(); else if (str == "NormalSize") video->setNormalSize(); else if (str == "DoubleSize") video->setDoubleSize(); else applyMainWindowSettings( &config, "Simple" ); // PlayObject could be running, update video widget slotChanged(); video->give(); }