[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kdenonbeta/kopete/plugins/perlscript
From:       Jason Keirstead <jason () keirstead ! org>
Date:       2003-01-31 22:45:53
[Download RAW message or body]

CVS commit by brunes: 

Some bug fixes


  M +9 -1      perlscriptplugin.cpp   1.3
  M +1 -0      perlscriptplugin.h   1.2
  M +1 -1      perlscriptprefs.cpp   1.3


--- kdenonbeta/kopete/plugins/perlscript/perlscriptplugin.cpp  #1.2:1.3
@@ -64,4 +64,5 @@ PerlPlugin::PerlPlugin( QObject *parent,
         connect( m_prefs, SIGNAL(scriptAdded( const QString &, const QString &, \
const QString & )), this, SLOT( slotAddScript( const QString &, const QString &, \
                const QString & ) ));
         connect( m_prefs, SIGNAL(scriptRemoved( const QString &)), this, \
SLOT(slotRemoveScript( const QString & )) ); +        connect( m_prefs, \
SIGNAL(saved()), this, SLOT(slotClearScripts()) );  
         m_prefs->reopen();
@@ -124,7 +125,14 @@ void PerlPlugin::slotRemoveScript( const
 }
 
-void PerlPlugin::slotScriptModified( const QString &scriptPath )
+void PerlPlugin::slotClearScripts()
 {
+        m_allScripts.clear();
+        m_incomingScripts.clear();
+        m_outgoingScripts.clear();
+        m_actionScripts.clear();
+}
         
+void PerlPlugin::slotScriptModified( const QString &scriptPath )
+{
         PerlScript *script = m_allScripts[ scriptPath ];
         QString scriptName = script->name;

--- kdenonbeta/kopete/plugins/perlscript/perlscriptplugin.h  #1.1:1.2
@@ -80,4 +80,5 @@ class PerlPlugin : public KopetePlugin
                 void slotAddScript( const QString &scriptPath, const QString \
&scriptName, const QString &desc );  void slotRemoveScript( const QString &scriptPath \
); +                void slotClearScripts();
                 void slotScriptModified( const QString &scriptPath );
                 void slotContextScript( const QString &scriptPath );

--- kdenonbeta/kopete/plugins/perlscript/perlscriptprefs.cpp  #1.2:1.3
@@ -119,5 +119,5 @@ void PerlScriptPreferences::save()
 {
         preferencesDialog->editDocument->save();
-        emit( scriptModified( preferencesDialog->scriptView->currentItem()->text(2) \
) ); +        emit( saved() );
         
         scriptsLoaded = 0;


[prev in list] [next in list] [prev in thread] [next in thread]