/***************************************************************************
kompare_shell . cpp - description
- - - - - - - - - - - - - - - - - - -
begin : Sun Mar 4 2001
copyright : ( C ) 2001 - 2004 Otto Bruggeman
( C ) 2001 - 2003 John Firebaugh
email : otto . bruggeman @ home . nl
jfirebaugh @ kde . org
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/***************************************************************************
* *
* * This program is free software ; you can redistribute it and / or modify
* * it under the terms of the GNU General Public License as published by
* * the Free Software Foundation ; either version 2 of the License , or
* * ( at your option ) any later version .
* *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
# include <tdetexteditor/document.h>
# include <tdetexteditor/editinterface.h>
# include <tdetexteditor/view.h>
# include <kdebug.h>
# include <kedittoolbar.h>
# include <kencodingfiledialog.h>
# include <kiconloader.h>
# include <kkeydialog.h>
# include <klibloader.h>
# include <tdelocale.h>
# include <tdemessagebox.h>
# include <tdeparts/componentfactory.h>
# include <ksqueezedtextlabel.h>
# include <kstatusbar.h>
# include <kstdaction.h>
# include <ktrader.h>
# include <kuserprofile.h>
# include "kompare_part.h"
# include "komparenavtreepart.h"
# include "kompareurldialog.h"
# include "kompare_shell.h"
# define ID_N_OF_N_DIFFERENCES 1
# define ID_N_OF_N_FILES 2
# define ID_GENERAL 3
KompareShell : : KompareShell ( )
: KParts : : DockMainWindow ( 0L , " KompareShell " ) ,
m_textViewPart ( 0 ) ,
m_textViewWidget ( 0 )
{
if ( ! initialGeometrySet ( ) )
resize ( 800 , 480 ) ;
// set the shell's ui resource file
setXMLFile ( " kompareui.rc " ) ;
// then, setup our actions
setupActions ( ) ;
setupStatusBar ( ) ;
TDETrader : : OfferList offers = TDETrader : : self ( ) - > query ( " text/x-diff " ,
" Kompare/ViewPart " , TQString ( ) , TQString ( ) ) ;
# ifdef NDEBUG
for ( int i = 0 ; i < offers . count ( ) ; i + + )
{
kdDebug ( 8102 ) < < " One kservicetype checked... " < < endl ;
KService : : Ptr ptr2 = * ( offers . at ( i ) ) ;
TQStringList list = ptr2 - > serviceTypes ( ) ;
for ( TQStringList : : Iterator it2 = list . begin ( ) ; it2 ! = list . end ( ) ; + + it2 )
kdDebug ( 8102 ) < < * it2 < < endl ;
}
# endif
if ( offers . count ( ) = = 0 )
{
KMessageBox : : error ( this , i18n ( " Could not find our KompareViewPart. " ) ) ;
exit ( 1 ) ;
}
KService : : Ptr ptr = offers . first ( ) ;
KLibFactory * mainViewFactory = KLibLoader : : self ( ) - > factory ( ptr - > library ( ) . ascii ( ) ) ;
if ( mainViewFactory )
{
m_mainViewDock = createDockWidget ( " View " , kapp - > icon ( ) ) ;
// now that the Part is loaded, we cast it to a KomparePart to get
// our hands on it
m_viewPart = static_cast < KomparePart * > ( mainViewFactory - > create ( TQT_TQOBJECT ( m_mainViewDock ) ,
" kompare_part " , " KParts::ReadWritePart " ) ) ;
if ( m_viewPart )
{
m_mainViewDock - > setWidget ( m_viewPart - > widget ( ) ) ;
setView ( m_mainViewDock ) ;
setMainDockWidget ( m_mainViewDock ) ;
// and integrate the part's GUI with the shell's
createGUI ( m_viewPart ) ;
}
}
else
{
// if we couldn't load our Part, we exit since the Shell by
// itself can't do anything useful
KMessageBox : : error ( this , i18n ( " Could not load our KompareViewPart. " ) ) ;
exit ( 2 ) ;
}
offers . clear ( ) ;
offers = TDETrader : : self ( ) - > query ( " text/x-diff " , " KParts/ReadOnlyPart " , " 'Kompare/NavigationPart' in ServiceTypes " , TQString ( ) ) ;
if ( offers . count ( ) = = 0 )
{
KMessageBox : : error ( this , i18n ( " Could not find our KompareNavigationPart. " ) ) ;
exit ( 3 ) ;
}
ptr = offers . first ( ) ;
KLibFactory * navTreeFactory = KLibLoader : : self ( ) - > factory ( ptr - > library ( ) . ascii ( ) ) ;
if ( navTreeFactory )
{
m_navTreeDock = createDockWidget ( " Navigation " , kapp - > icon ( ) ) ;
m_navTreePart = static_cast < KompareNavTreePart * > ( navTreeFactory - > create ( TQT_TQOBJECT ( m_navTreeDock ) ,
" komparenavtreepart " , " KParts::ReadOnlyPart " ) ) ;
if ( m_navTreePart )
{
m_navTreeDock - > setWidget ( m_navTreePart - > widget ( ) ) ;
m_navTreeDock - > manualDock ( m_mainViewDock , KDockWidget : : DockTop , 20 ) ;
}
}
else
{
// if we couldn't load our Part, we exit since the Shell by
// itself can't do anything useful
KMessageBox : : error ( this , i18n ( " Could not load our KompareNavigationPart. " ) ) ;
exit ( 4 ) ;
}
// Hook up the inter part communication
connect ( m_viewPart , TQT_SIGNAL ( modelsChanged ( const Diff2 : : DiffModelList * ) ) ,
m_navTreePart , TQT_SLOT ( slotModelsChanged ( const Diff2 : : DiffModelList * ) ) ) ;
connect ( m_viewPart , TQT_SIGNAL ( kompareInfo ( Kompare : : Info * ) ) ,
m_navTreePart , TQT_SLOT ( slotKompareInfo ( Kompare : : Info * ) ) ) ;
connect ( m_navTreePart , TQT_SIGNAL ( selectionChanged ( const Diff2 : : DiffModel * , const Diff2 : : Difference * ) ) ,
m_viewPart , TQT_SIGNAL ( selectionChanged ( const Diff2 : : DiffModel * , const Diff2 : : Difference * ) ) ) ;
connect ( m_viewPart , TQT_SIGNAL ( setSelection ( const Diff2 : : DiffModel * , const Diff2 : : Difference * ) ) ,
m_navTreePart , TQT_SLOT ( slotSetSelection ( const Diff2 : : DiffModel * , const Diff2 : : Difference * ) ) ) ;
connect ( m_navTreePart , TQT_SIGNAL ( selectionChanged ( const Diff2 : : Difference * ) ) ,
m_viewPart , TQT_SIGNAL ( selectionChanged ( const Diff2 : : Difference * ) ) ) ;
connect ( m_viewPart , TQT_SIGNAL ( setSelection ( const Diff2 : : Difference * ) ) ,
m_navTreePart , TQT_SLOT ( slotSetSelection ( const Diff2 : : Difference * ) ) ) ;
// This is the interpart interface, it is signal and slot based so no "real" nterface here
// All you have to do is connect the parts from your application.
// These just point to the method with the same name in the KompareModelList or get called
// from the method with the same name in KompareModelList.
// There is currently no applying possible from the navtreepart to the viewpart
connect ( m_viewPart , TQT_SIGNAL ( applyDifference ( bool ) ) ,
m_navTreePart , TQT_SLOT ( slotApplyDifference ( bool ) ) ) ;
connect ( m_viewPart , TQT_SIGNAL ( applyAllDifferences ( bool ) ) ,
m_navTreePart , TQT_SLOT ( slotApplyAllDifferences ( bool ) ) ) ;
connect ( m_viewPart , TQT_SIGNAL ( applyDifference ( const Diff2 : : Difference * , bool ) ) ,
m_navTreePart , TQT_SLOT ( slotApplyDifference ( const Diff2 : : Difference * , bool ) ) ) ;
// Hook up the KomparePart -> KompareShell communication
connect ( m_viewPart , TQT_SIGNAL ( setStatusBarModelInfo ( int , int , int , int , int ) ) ,
TQT_TQOBJECT ( this ) , TQT_SLOT ( slotUpdateStatusBar ( int , int , int , int , int ) ) ) ;
connect ( m_viewPart , TQT_SIGNAL ( setStatusBarText ( const TQString & ) ) ,
TQT_TQOBJECT ( this ) , TQT_SLOT ( slotSetStatusBarText ( const TQString & ) ) ) ;
// Read basic main-view settings, and set to autosave
setAutoSaveSettings ( " General Options " ) ;
}
KompareShell : : ~ KompareShell ( )
{
kapp - > deref ( ) ;
}
bool KompareShell : : queryClose ( )
{
return m_viewPart - > queryClose ( ) ;
}
void KompareShell : : openDiff ( const KURL & url )
{
kdDebug ( 8102 ) < < " Url = " < < url . prettyURL ( ) < < endl ;
m_diffURL = url ;
m_viewPart - > openDiff ( url ) ;
}
void KompareShell : : openStdin ( )
{
kdDebug ( 8102 ) < < " Using stdin to read the diff " < < endl ;
TQFile file ;
file . open ( IO_ReadOnly , stdin ) ;
TQTextStream stream ( & file ) ;
TQString diff = stream . read ( ) ;
file . close ( ) ;
m_viewPart - > openDiff ( diff ) ;
}
void KompareShell : : compare ( const KURL & source , const KURL & destination )
{
m_sourceURL = source ;
m_destinationURL = destination ;
m_viewPart - > compare ( source , destination ) ;
}
void KompareShell : : blend ( const KURL & url1 , const KURL & diff )
{
m_sourceURL = url1 ;
m_destinationURL = diff ;
m_viewPart - > openDirAndDiff ( url1 , diff ) ;
}
void KompareShell : : setupActions ( )
{
TDEAction * open = KStdAction : : open ( TQT_TQOBJECT ( this ) , TQT_SLOT ( slotFileOpen ( ) ) , actionCollection ( ) ) ;
open - > setText ( i18n ( " &Open Diff... " ) ) ;
Bring filenew, fileopen, fileprint, filequickprint, filesave, filesaveas, fileclose, editclear, editcopy, editcut, editdelete, editpaste, folder_new, and gohome icons into XDG compliance
10 years ago
new TDEAction ( i18n ( " &Compare Files... " ) , " document-open " , TQt : : CTRL + TQt : : Key_C ,
TQT_TQOBJECT ( this ) , TQT_SLOT ( slotFileCompareFiles ( ) ) ,
actionCollection ( ) , " file_compare_files " ) ;
new TDEAction ( i18n ( " &Blend URL with Diff... " ) , " fileblend " , TQt : : CTRL + TQt : : Key_B ,
TQT_TQOBJECT ( this ) , TQT_SLOT ( slotFileBlendURLAndDiff ( ) ) ,
actionCollection ( ) , " file_blend_url " ) ;
KStdAction : : quit ( TQT_TQOBJECT ( this ) , TQT_SLOT ( slotFileClose ( ) ) , actionCollection ( ) ) ;
# if TDE_VERSION >= TDE_MAKE_VERSION(3,1,90)
createStandardStatusBarAction ( ) ;
# endif
setStandardToolBarMenuEnabled ( true ) ;
m_showTextView = new TDEToggleAction ( i18n ( " Show T&ext View " ) , 0 , TQT_TQOBJECT ( this ) , TQT_SLOT ( slotShowTextView ( ) ) ,
actionCollection ( ) , " options_show_text_view " ) ;
m_showTextView - > setCheckedState ( i18n ( " Hide T&ext View " ) ) ;
KStdAction : : keyBindings ( TQT_TQOBJECT ( this ) , TQT_SLOT ( optionsConfigureKeys ( ) ) , actionCollection ( ) ) ;
KStdAction : : configureToolbars ( TQT_TQOBJECT ( this ) , TQT_SLOT ( optionsConfigureToolbars ( ) ) , actionCollection ( ) ) ;
}
void KompareShell : : setupStatusBar ( )
{
// Made these entries permanent so they will appear on the right side
statusBar ( ) - > insertItem ( i18n ( " 0 of 0 differences " ) , ID_N_OF_N_DIFFERENCES , 0 , true ) ;
statusBar ( ) - > insertItem ( i18n ( " 0 of 0 files " ) , ID_N_OF_N_FILES , 0 , true ) ;
m_generalLabel = new KSqueezedTextLabel ( " " , 0 , " general_statusbar_label " ) ;
statusBar ( ) - > addWidget ( m_generalLabel , 1 , false ) ;
m_generalLabel - > setAlignment ( TQt : : AlignLeft ) ;
}
void KompareShell : : slotUpdateStatusBar ( int modelIndex , int differenceIndex , int modelCount , int differenceCount , int appliedCount )
{
kdDebug ( 8102 ) < < " KompareShell::updateStatusBar() " < < endl ;
TQString fileStr ;
TQString diffStr ;
if ( modelIndex > = 0 )
fileStr = i18n ( " %1 of %n file " , " %1 of %n files " , modelCount ) . arg ( modelIndex + 1 ) ;
else
fileStr = i18n ( " %n file " , " %n files " , modelCount ) ;
if ( differenceIndex > = 0 )
diffStr = i18n ( " %1 of %n difference, %2 applied " , " %1 of %n differences, %2 applied " , differenceCount )
. arg ( differenceIndex + 1 ) . arg ( appliedCount ) ;
else
diffStr = i18n ( " %n difference " , " %n differences " , differenceCount ) ;
statusBar ( ) - > changeItem ( fileStr , ID_N_OF_N_FILES ) ;
statusBar ( ) - > changeItem ( diffStr , ID_N_OF_N_DIFFERENCES ) ;
}
void KompareShell : : slotSetStatusBarText ( const TQString & text )
{
m_generalLabel - > setText ( text ) ;
}
void KompareShell : : setCaption ( const TQString & caption )
{
// kdDebug() << kdBacktrace();
KParts : : DockMainWindow : : setCaption ( caption , m_viewPart - > isModified ( ) ) ;
}
void KompareShell : : saveProperties ( TDEConfig * config )
{
// The 'config' object points to the session managed
// config file. Anything you write here will be available
// later when this app is restored
if ( m_mode = = Kompare : : ComparingFiles )
{
config - > writeEntry ( " Mode " , " ComparingFiles " ) ;
config - > writePathEntry ( " SourceUrl " , m_sourceURL . url ( ) ) ;
config - > writePathEntry ( " DestinationUrl " , m_destinationURL . url ( ) ) ;
}
else if ( m_mode = = Kompare : : ShowingDiff )
{
config - > writeEntry ( " Mode " , " ShowingDiff " ) ;
config - > writePathEntry ( " DiffUrl " , m_diffURL . url ( ) ) ;
}
m_viewPart - > saveProperties ( config ) ;
}
void KompareShell : : readProperties ( TDEConfig * 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'
TQString mode = config - > readEntry ( " Mode " , " ComparingFiles " ) ;
if ( mode = = " ComparingFiles " )
{
m_mode = Kompare : : ComparingFiles ;
m_sourceURL = config - > readPathEntry ( " SourceUrl " , " " ) ;
m_destinationURL = config - > readPathEntry ( " DestinationFile " , " " ) ;
m_viewPart - > readProperties ( config ) ;
m_viewPart - > compareFiles ( m_sourceURL , m_destinationURL ) ;
}
else if ( mode = = " ShowingDiff " )
{
m_mode = Kompare : : ShowingDiff ;
m_diffURL = config - > readPathEntry ( " DiffUrl " , " " ) ;
m_viewPart - > readProperties ( config ) ;
m_viewPart - > openURL ( m_diffURL ) ;
}
else
{ // just in case something weird has happened, dont restore the diff then
// Bruggie: or when some idiot like me changes the possible values for mode
// IOW, a nice candidate for a tdeconf_update thingy :)
m_viewPart - > readProperties ( config ) ;
}
}
void KompareShell : : slotFileOpen ( )
{
// FIXME: use different filedialog which gets encoding
KURL url = KFileDialog : : getOpenURL ( TQString ( ) , " text/x-diff " , this ) ;
if ( ! url . isEmpty ( ) ) {
KompareShell * shell = new KompareShell ( ) ;
kapp - > ref ( ) ;
shell - > show ( ) ;
shell - > openDiff ( url ) ;
}
}
void KompareShell : : slotFileBlendURLAndDiff ( )
{
KompareURLDialog * dialog = new KompareURLDialog ( this ) ;
dialog - > setCaption ( i18n ( " Blend File/Folder with diff Output " ) ) ;
dialog - > setFirstGroupBoxTitle ( i18n ( " File/Folder " ) ) ;
dialog - > setSecondGroupBoxTitle ( i18n ( " Diff Output " ) ) ;
KGuiItem blendGuiItem ( i18n ( " Blend " ) , TQString ( ) , i18n ( " Blend this file or folder with the diff output " ) , i18n ( " If you have entered a file or folder name and a file that contains diff output in the fields in this dialog then this button will be enabled and pressing it will open kompare's main view where the output of the entered file or files from the folder are mixed with the diff output so you can then apply the difference(s) to a file or to the files. " ) ) ;
dialog - > setButtonOK ( blendGuiItem ) ;
dialog - > setGroup ( " Recent Blend Files " ) ;
dialog - > setFirstURLRequesterMode ( KFile : : File | KFile : : Directory | KFile : : ExistingOnly ) ;
// diff output can not be a directory
dialog - > setSecondURLRequesterMode ( KFile : : File | KFile : : ExistingOnly ) ;
if ( dialog - > exec ( ) = = TQDialog : : Accepted )
{
m_sourceURL = dialog - > getFirstURL ( ) ;
m_destinationURL = dialog - > getSecondURL ( ) ;
KompareShell * shell = new KompareShell ( ) ;
kapp - > ref ( ) ;
shell - > show ( ) ;
shell - > m_viewPart - > setEncoding ( dialog - > encoding ( ) ) ;
shell - > blend ( m_sourceURL , m_destinationURL ) ;
}
delete dialog ;
}
void KompareShell : : slotFileCompareFiles ( )
{
KompareURLDialog * dialog = new KompareURLDialog ( this ) ;
dialog - > setCaption ( i18n ( " Compare Files or Folders " ) ) ;
dialog - > setFirstGroupBoxTitle ( i18n ( " Source " ) ) ;
dialog - > setSecondGroupBoxTitle ( i18n ( " Destination " ) ) ;
KGuiItem compareGuiItem ( i18n ( " Compare " ) , " button_ok " , i18n ( " Compare these files or folders " ) , i18n ( " If you have entered 2 filenames or 2 folders in the fields in this dialog then this button will be enabled and pressing it will start a comparison of the entered files or folders. " ) ) ;
dialog - > setButtonOK ( compareGuiItem ) ;
dialog - > setGroup ( " Recent Compare Files " ) ;
dialog - > setFirstURLRequesterMode ( KFile : : File | KFile : : Directory | KFile : : ExistingOnly ) ;
dialog - > setSecondURLRequesterMode ( KFile : : File | KFile : : Directory | KFile : : ExistingOnly ) ;
if ( dialog - > exec ( ) = = TQDialog : : Accepted )
{
m_sourceURL = dialog - > getFirstURL ( ) ;
m_destinationURL = dialog - > getSecondURL ( ) ;
KompareShell * shell = new KompareShell ( ) ;
kapp - > ref ( ) ;
shell - > show ( ) ;
kdDebug ( ) < < " Damn it, i should be called !!! Oh and encoding is: " < < dialog - > encoding ( ) < < endl ;
shell - > m_viewPart - > setEncoding ( dialog - > encoding ( ) ) ;
shell - > compare ( m_sourceURL , m_destinationURL ) ;
}
delete dialog ;
}
void KompareShell : : slotFileClose ( )
{
if ( m_viewPart - > queryClose ( ) )
{
delete this ;
}
}
void KompareShell : : slotShowTextView ( )
{
if ( ! m_textViewWidget )
{
int errCode ;
// FIXME: proper error checking
m_textViewWidget = createDockWidget ( i18n ( " Text View " ) , SmallIcon ( " text " ) ) ;
m_textViewPart = KParts : : ComponentFactory : : createPartInstanceFromQuery < KTextEditor : : Document > (
TQString : : fromLatin1 ( " KTextEditor/Document " ) ,
TQString ( ) , TQT_TQWIDGET ( this ) , 0 , TQT_TQOBJECT ( this ) , 0 , TQStringList ( ) , & errCode ) ;
if ( m_textViewPart )
{
m_textView = m_textViewPart - > createView ( this , 0 ) ;
m_textViewWidget - > setWidget ( static_cast < TQWidget * > ( m_textView ) ) ;
m_textEditIface = editInterface ( m_textViewPart ) ;
connect ( m_viewPart , TQT_SIGNAL ( diffString ( const TQString & ) ) ,
TQT_TQOBJECT ( this ) , TQT_SLOT ( slotSetDiffString ( const TQString & ) ) ) ;
}
}
m_textViewWidget - > manualDock ( m_mainViewDock , KDockWidget : : DockCenter ) ;
}
void KompareShell : : slotSetDiffString ( const TQString & diffString )
{
if ( m_textEditIface )
m_textEditIface - > setText ( diffString ) ;
}
void KompareShell : : optionsConfigureKeys ( )
{
KKeyDialog dlg ( true , this ) ;
dlg . insert ( actionCollection ( ) ) ;
if ( m_viewPart )
dlg . insert ( m_viewPart - > actionCollection ( ) ) ;
dlg . configure ( ) ;
}
void KompareShell : : optionsConfigureToolbars ( )
{
saveMainWindowSettings ( TDEGlobal : : config ( ) , autoSaveGroup ( ) ) ;
// use the standard toolbar editor
KEditToolbar dlg ( factory ( ) ) ;
connect ( & dlg , TQT_SIGNAL ( newToolbarConfig ( ) ) , this , TQT_SLOT ( newToolbarConfig ( ) ) ) ;
dlg . exec ( ) ;
}
void KompareShell : : newToolbarConfig ( )
{
applyMainWindowSettings ( TDEGlobal : : config ( ) , autoSaveGroup ( ) ) ;
}
# include "kompare_shell.moc"