|
|
|
/*
|
|
|
|
* kxsldbg.cpp
|
|
|
|
*
|
|
|
|
* Copyright (C) 2001 <kurt@granroth.org>
|
|
|
|
*/
|
|
|
|
#include "kxsldbg.h"
|
|
|
|
|
|
|
|
#include <kkeydialog.h>
|
|
|
|
#include <kconfig.h>
|
|
|
|
#include <klocale.h>
|
|
|
|
|
|
|
|
#include <kedittoolbar.h>
|
|
|
|
|
|
|
|
#include <kaction.h>
|
|
|
|
#include <kstdaction.h>
|
|
|
|
|
|
|
|
#include <klibloader.h>
|
|
|
|
#include <kmessagebox.h>
|
|
|
|
#include <kstatusbar.h>
|
|
|
|
|
|
|
|
KXsldbg::KXsldbg()
|
|
|
|
: DCOPObject("KXsldbg"), KParts::MainWindow( 0L, "kxsldbg" )
|
|
|
|
{
|
|
|
|
// set the shell's ui resource file
|
|
|
|
setXMLFile("kxsldbg_shell.rc");
|
|
|
|
|
|
|
|
// then, setup our actions
|
|
|
|
setupActions();
|
|
|
|
|
|
|
|
// and a status bar
|
|
|
|
statusBar()->show();
|
|
|
|
statusBar()->tqsetSizePolicy(TQSizePolicy(TQSizePolicy::Preferred, TQSizePolicy::Preferred));
|
|
|
|
|
|
|
|
// this routine will find and load our Part. it finds the Part by
|
|
|
|
// name which is a bad idea usually.. but it's alright in this
|
|
|
|
// case since our Part is made for this Shell
|
|
|
|
KLibFactory *factory = KLibLoader::self()->factory("libkxsldbgpart");
|
|
|
|
if (factory)
|
|
|
|
{
|
|
|
|
// now that the Part is loaded, we cast it to a Part to get
|
|
|
|
// our hands on it
|
|
|
|
m_part = static_cast<KParts::ReadOnlyPart *>(factory->create(TQT_TQOBJECT(this),
|
|
|
|
"kxsldbg_part", "KParts::ReadOnlyPart" ));
|
|
|
|
|
|
|
|
if (m_part)
|
|
|
|
{
|
|
|
|
// tell the KParts::MainWindow that this is indeed the main widget
|
|
|
|
setCentralWidget(m_part->widget());
|
|
|
|
|
|
|
|
// and integrate the part's GUI with the shell's
|
|
|
|
createGUI(m_part);
|
|
|
|
|
|
|
|
// connect up signals
|
|
|
|
kapp->dcopClient()->attach();
|
|
|
|
connectDCOPSignal(0, 0, "debuggerPositionChanged(TQString,int)", "newDebuggerPosition(TQString,int)", false );
|
|
|
|
connectDCOPSignal(0, 0, "editorPositionChanged(TQString,int,int)", "newCursorPosition(TQString,int,int)", false );
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
// if we couldn't find our Part, we exit since the Shell by
|
|
|
|
// itself can't do anything useful
|
|
|
|
KMessageBox::error(this, i18n("Could not find our part."));
|
|
|
|
kapp->quit();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
KXsldbg::~KXsldbg()
|
|
|
|
{
|
|
|
|
if (m_part)
|
|
|
|
m_part->closeURL();
|
|
|
|
|
|
|
|
delete m_part;
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::quit()
|
|
|
|
{
|
|
|
|
closeURL();
|
|
|
|
close();
|
|
|
|
}
|
|
|
|
|
|
|
|
bool KXsldbg::closeURL()
|
|
|
|
{
|
|
|
|
if (m_part)
|
|
|
|
m_part->closeURL();
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::setupActions()
|
|
|
|
{
|
|
|
|
KAction *act = KStdAction::quit(TQT_TQOBJECT(kapp), TQT_SLOT(quit()), actionCollection());
|
|
|
|
connect(act, TQT_SIGNAL(activated()), this, TQT_SLOT(quit()));
|
|
|
|
|
|
|
|
m_toolbarAction = KStdAction::showToolbar(TQT_TQOBJECT(this), TQT_SLOT(optionsShowToolbar()), actionCollection());
|
|
|
|
m_statusbarAction = KStdAction::showStatusbar(TQT_TQOBJECT(this), TQT_SLOT(optionsShowStatusbar()), actionCollection());
|
|
|
|
|
|
|
|
KStdAction::keyBindings(TQT_TQOBJECT(this), TQT_SLOT(optionsConfigureKeys()), actionCollection());
|
|
|
|
KStdAction::configureToolbars(TQT_TQOBJECT(this), TQT_SLOT(optionsConfigureToolbars()), actionCollection());
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::saveProperties(KConfig* /*config*/)
|
|
|
|
{
|
|
|
|
// the 'config' object points to the session managed
|
|
|
|
// config file. anything you write here will be available
|
|
|
|
// later when this app is restored
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::readProperties(KConfig* /*config*/)
|
|
|
|
{
|
|
|
|
// the 'config' object points to the session managed
|
|
|
|
// config file. this function is automatically called whenever
|
|
|
|
// the app is being restored. read in here whatever you wrote
|
|
|
|
// in 'saveProperties'
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void KXsldbg::optionsShowToolbar()
|
|
|
|
{
|
|
|
|
// this is all very cut and paste code for showing/hiding the
|
|
|
|
// toolbar
|
|
|
|
if (m_toolbarAction->isChecked())
|
|
|
|
toolBar()->show();
|
|
|
|
else
|
|
|
|
toolBar()->hide();
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::optionsShowStatusbar()
|
|
|
|
{
|
|
|
|
// this is all very cut and paste code for showing/hiding the
|
|
|
|
// statusbar
|
|
|
|
if (m_statusbarAction->isChecked())
|
|
|
|
statusBar()->show();
|
|
|
|
else
|
|
|
|
statusBar()->hide();
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::optionsConfigureKeys()
|
|
|
|
{
|
|
|
|
KKeyDialog::configure(actionCollection(), "kxsldbg_shell.rc");
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::optionsConfigureToolbars()
|
|
|
|
{
|
|
|
|
saveMainWindowSettings(KGlobal::config(), "MainWindow");
|
|
|
|
|
|
|
|
// use the standard toolbar editor
|
|
|
|
KEditToolbar dlg(factory());
|
|
|
|
connect(&dlg, TQT_SIGNAL(newToolbarConfig()),
|
|
|
|
this, TQT_SLOT(applyNewToolbarConfig()));
|
|
|
|
dlg.exec();
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::applyNewToolbarConfig()
|
|
|
|
{
|
|
|
|
applyMainWindowSettings(KGlobal::config(), "MainWindow");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void KXsldbg::newCursorPosition(const TQString &file, int lineNumber, int columnNumber)
|
|
|
|
{
|
|
|
|
statusBar()->clear();
|
|
|
|
statusBar()->message( i18n("File: %1 Line: %2 Col: %3").tqarg(file).tqarg(lineNumber).tqarg(columnNumber));
|
|
|
|
}
|
|
|
|
|
|
|
|
void KXsldbg::newDebuggerPosition(const TQString &file, int lineNumber)
|
|
|
|
{
|
|
|
|
// maybe do something extra here later
|
|
|
|
newCursorPosition(file, lineNumber);
|
|
|
|
}
|
|
|
|
|
|
|
|
#include "kxsldbg.moc"
|