Added KDE3 version of kvirc

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kvirc@1095341 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 1066 insertions, 0 deletions

diff --git a/src/modules/objects/libkviobjects.cpp b/src/modules/objects/libkviobjects.cpp
new file mode 100644
index 00000000..73eacace
--- /dev/null
+++ b/src/modules/objects/libkviobjects.cpp
@@ -0,0 +1,1066 @@
+//=============================================================================
+//
+//   File : libkviobjects.cpp
+//   Creation date : Wed Sep 09 2000 20:59:01 by Szymon Stefanek
+//
+//   This file is part of the KVirc irc client distribution
+//   Copyright (C) 2000-2006 Szymon Stefanek (pragma at kvirc dot net)
+//
+//   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 opinion) any later version.
+//
+//   This program is distributed in the HOPE that it will be USEFUL,
+//   but WITHOUT ANY WARRANTY; without even the implied warranty of
+//   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+//   See the GNU General Public License for more details.
+//
+//   You should have received a copy of the GNU General Public License
+//   along with this program. If not, write to the Free Software Foundation,
+//   Inc. ,51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+//
+//=============================================================================
+
+#include "kvi_tal_listview.h"
+#include <qimage.h>
+#include "kvi_iconmanager.h"
+#include "kvi_window.h"
+#include "kvi_out.h"
+#include "kvi_mirccntrl.h"
+
+#include "kvi_app.h"
+
+#include "kvi_module.h"
+
+#include "kvi_locale.h"
+#include "kvi_error.h"
+#include "kvi_cmdformatter.h"
+#include "kvi_out.h"
+#include "kvi_app.h"
+#include "kvi_fileutils.h"
+#ifndef COMPILE_USE_QT4
+	#include <qwidgetlist.h>
+	#include <qobjectlist.h>
+#endif
+
+#include <qdir.h>
+
+#include "class_button.h"
+#include "class_checkbox.h"
+#include "class_urllabel.h"
+#include "class_lineedit.h"
+#include "class_multilineedit.h"
+#include "class_combobox.h"
+#include "class_widget.h"
+#include "class_list.h"
+#include "class_file.h"
+#include "class_socket.h"
+#include "class_layout.h"
+#include "class_menubar.h"
+#include "class_window.h"
+#include "class_listbox.h"
+#include "class_progressbar.h"
+#include "class_slider.h"
+#include "class_spinbox.h"
+#include "class_lcd.h"
+#include "class_radiobutton.h"
+#include "class_process.h"
+#include "class_groupbox.h"
+#include "class_buttongroup.h"
+#include "class_tabwidget.h"
+#include "class_workspace.h"
+#include "class_popupmenu.h"
+#include "class_listview.h"
+#include "class_listviewitem.h"
+#include "class_toolbar.h"
+#include "class_mainwindow.h"
+#include "class_toolbutton.h"
+#include "class_wizard.h"
+#include "class_tbrowser.h"
+#include "class_painter.h"
+#include "class_pixmap.h"
+#include "class_wrapper.h"
+#include "class_dialog.h"
+#include "class_xmlreader.h"
+#include "class_dockwindow.h"
+#include "class_vbox.h"
+#include "class_hbox.h"
+static void dumpChildObjects(KviWindow *pWnd, QObject *parent, const char *spacing, bool bWidgetsOnly, KviKvsArray *n, int &idx);
+
+static bool objects_module_cleanup(KviModule *m)
+{
+	KviKvsObject_process::unregisterSelf();
+	KviKvsObject_socket::unregisterSelf();
+	KviKvsObject_xmlreader::unregisterSelf();
+	KviKvsObject_wrapper::unregisterSelf();
+	KviKvsObject_file::unregisterSelf();
+	KviKvsObject_progressbar::unregisterSelf();
+	KviKvsObject_dockwindow::unregisterSelf();
+	KviKvsObject_wizard::unregisterSelf();
+	KviKvsObject_window::unregisterSelf();
+	KviKvsObject_urlabel::unregisterSelf();
+	KviKvsObject_toolbutton::unregisterSelf();
+	KviKvsObject_toolbar::unregisterSelf();
+	KviKvsObject_tabwidget::unregisterSelf();
+	KviKvsObject_spinbox::unregisterSelf();
+	KviKvsObject_slider::unregisterSelf();
+	KviKvsObject_radiobutton::unregisterSelf();
+	KviKvsObject_popupmenu::unregisterSelf();
+	KviKvsObject_pixmap::unregisterSelf();
+	KviKvsObject_painter::unregisterSelf();
+	KviKvsObject_mainwindow::unregisterSelf();
+	KviKvsObject_listviewitem::unregisterSelf();
+	KviKvsObject_listview::unregisterSelf();
+	KviKvsObject_listbox::unregisterSelf();
+	KviKvsObject_combobox::unregisterSelf();
+	KviKvsObject_workspace::unregisterSelf();
+	KviKvsObject_menubar::unregisterSelf();
+	KviKvsObject_lineedit::unregisterSelf();
+	KviKvsObject_lcd::unregisterSelf();
+	KviKvsObject_layout::unregisterSelf();
+	KviKvsObject_hbox::unregisterSelf();
+	KviKvsObject_vbox::unregisterSelf();
+	KviKvsObject_label::unregisterSelf();
+	KviKvsObject_buttongroup::unregisterSelf();
+	KviKvsObject_groupbox::unregisterSelf();	
+	KviKvsObject_dialog::unregisterSelf();
+	KviKvsObject_checkbox::unregisterSelf();
+	KviKvsObject_textbrowser::unregisterSelf();
+	KviKvsObject_mledit::unregisterSelf();
+	KviKvsObject_button::unregisterSelf();
+	KviKvsObject_widget::unregisterSelf();
+	KviKvsObject_list::unregisterSelf();
+
+	return true;
+}
+
+
+static bool objects_kvs_cmd_killClass(KviKvsModuleCommandCall * c)
+{ 
+	/*
+		@doc: objects.killclass
+		@title:
+			objects.killclass
+		@type:
+			command
+		@short:
+			Removes a class definition
+		@syntax:
+			objects.killclass [-q] <classname:string>
+		@switches:
+			!sw: -q | --quiet
+			Suppresses any warning message
+		@description:
+			Removes the definition of the class <class_name>.[br]
+			All the instances of the class are killed (thus children objects are killed too).[br]
+			All the derived class definitions are removed as well.[br]
+			Builtin class definitions cannot be removed and this commands
+			kills only all the instances of that class (derived class definitions
+			and instances in this case are NOT killed).[br]
+		@seealso:
+			[cmd]class[/cmd], [cmd]objects.clear[/cmd], [fnc]$classDefined[/fnc](),
+			[doc:objects]Objects documentation[/doc]
+	*/
+
+
+	QString szClass;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSM_PARAMETER("class",KVS_PT_NONEMPTYSTRING,0,szClass)
+	KVSM_PARAMETERS_END(c)
+	KviKvsObjectClass * pClass=KviKvsKernel::instance()->objectController()->lookupClass(szClass);
+	if(pClass)
+	{
+		if(pClass->isBuiltin())
+		{
+			KviKvsKernel::instance()->objectController()->killAllObjectsWithClass(pClass);
+		} else {
+			KviKvsKernel::instance()->objectController()->deleteClass(pClass); //Yahoo!!
+		}
+	}
+	else if(!c->hasSwitch('q',"quiet"))c->warning(__tr2qs("Class '%Q' is not definited"),&szClass);
+	return true;
+}
+
+
+static bool objects_kvs_cmd_clearObjects(KviKvsModuleCommandCall * c)
+{ 
+	/*
+		@doc: objects.clear
+		@title:
+			objects.clear
+		@type:
+			command
+		@short:
+			Removes all the user class definitions
+		@syntax:
+			objects.clear [-i]
+		@description:
+			Removes the definition of all the user classes and kill all the object
+			instances (also instances of the builtin classes).[br]
+			If the -i switch is used, only the object instances are cleared
+			but the class definitions are left unchanged.[br]
+			This command should be used only for debugging & testing purposes
+			and in particular should be NEVER used from inside an object
+			function handler (leads to SIGSEGV :).[br]
+		@seealso:
+			[cmd]class[/cmd], [cmd]objects.killclass[/cmd],
+			[doc:objects]Objects documentation[/doc]
+	*/
+
+	KviKvsKernel::instance()->objectController()->clearInstances();
+	if(!c->switches()->find('i',"ii")) KviKvsKernel::instance()->objectController()->clearUserClasses();
+	return true;
+}
+
+
+static bool objects_kvs_cmd_connect(KviKvsModuleCommandCall * c)
+{ 
+
+	/*
+		@doc: objects.connect
+		@title:
+			objects.connect
+		@type:
+			command
+		@short:
+			Connects a signal to a slot
+		@syntax:
+			objects.connect <source_object:hobject> <signal_name:string> <target_object:hobject> <slot_name:string>
+		@description:
+			Connects the <source_object>'s signal <signal_name> to the
+			<target_object>'s slot <slot_name>.
+			When one of the two objects is destroyed, the signal/slot
+			connection is automatically removed.[br]
+			WARNING: This command name collides with the [doc:rfc2812]RFC2812[/doc]
+			CONNECT IRC Op command: this IRC command is available to operators only
+			and is rather rarely used: you can use it by the means of [doc:raw]raw[/doc].
+		@seealso:
+			[cmd]class[/cmd], [cmd]object.disconnect[/cmd], [doc:objects]objects documentation[/doc]
+	*/
+
+	
+	KviKvsObject *obSrc;
+	KviKvsObject *obTrg;
+	QString szSignal,szSlot;
+	kvs_hobject_t hSrc,hTrg;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("object source",KVS_PT_HOBJECT,0,hSrc)
+		KVSM_PARAMETER("signal name",KVS_PT_NONEMPTYSTRING,0,szSignal)
+		KVSO_PARAMETER("object target",KVS_PT_HOBJECT,0,hTrg)
+		KVSM_PARAMETER("slot",KVS_PT_NONEMPTYSTRING,0,szSlot)
+	KVSM_PARAMETERS_END(c)
+	obTrg=KviKvsKernel::instance()->objectController()->lookupObject(hTrg);
+	obSrc=KviKvsKernel::instance()->objectController()->lookupObject(hSrc);
+	if(!obTrg)
+	{
+		c->warning(__tr2qs("Inexisting target object for objects.connect"));
+		return true;
+	}
+	if(!obSrc)
+	{
+		c->warning(__tr2qs("Inexisting source object for objects.connect"));
+		return true;
+	}
+	obSrc->connectSignal(szSignal,obTrg,szSlot);
+	return true;
+}
+
+
+static bool objects_kvs_fnc_exists(KviKvsModuleFunctionCall * c)
+{ 
+	/*
+		@doc: objects.exists
+		@title:
+			objects.exists
+		@type:
+			command
+		@short:
+			Check if an object exists.
+		@syntax:
+			<boolean> $object.exists(<obejct id:hobject>)
+		@description:
+			Check if an objects exists and return a boolean value.
+		@seealso:
+			[doc:objects]objects documentation[/doc]
+	*/
+
+
+	kvs_hobject_t hObj;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("object",KVS_PT_HOBJECT,0,hObj)
+	KVSM_PARAMETERS_END(c)
+	KviKvsObject *ob=KviKvsKernel::instance()->objectController()->lookupObject(hObj);
+	c->returnValue()->setBoolean(ob ? true : false);
+	return true;
+}
+
+static bool objects_kvs_fnc_instances(KviKvsModuleFunctionCall * c)
+{ 
+	/*
+		@doc: objects.instances
+		@title:
+			objects.instances
+		@type:
+			command
+		@short:
+			List object instances
+		@syntax:
+			<array> $object.instances(<class name:string>[,<flags:string>])
+		@description:
+			Returns an array with the instance handles of
+			of objects of the specified class. <flags> is a
+			string containing modifiers for the function behaviour.[br]
+			If <flags> contains the letter "s" then
+			only unsubclassed instances of the specified
+			class are returned. This means that if B is
+			a subclass of A then when asked for instances
+			of A without the flag "s" this function will return
+			both instances of A and B, and with the flag "s"
+			this function will return only instances of A (and not B).
+			If the class name does not define a valid class
+			then an empty array is returned and a warning is
+			printed unless the "q" flag is used.
+		@examples:
+			[example]
+			foreach(%x,$objects.instances(object))
+			{
+				echo "OBJECT WITH CLASS" %x->$className() "AND NAME \""%x->$name()"\""
+			}
+			[/example]
+		@seealso:
+			[doc:objects]objects documentation[/doc]
+	*/
+	
+	QString szClassName;
+	QString szFlags;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("class name",KVS_PT_NONEMPTYSTRING,0,szClassName)
+		KVSO_PARAMETER("flags",KVS_PT_STRING,KVS_PF_OPTIONAL,szFlags)
+	KVSM_PARAMETERS_END(c)
+
+	KviKvsArray * pArry = new KviKvsArray();
+	c->returnValue()->setArray(pArry);
+
+	KviKvsObjectClass * pClass = KviKvsKernel::instance()->objectController()->lookupClass(szClassName);
+	if(!pClass)
+	{
+		if(!szFlags.contains(QChar('q')))
+			c->warning(__tr2qs("The class '%Q' does not exist"),&szClassName);
+		return true;
+	}
+	KviPointerHashTable<void *,KviKvsObject> * od = KviKvsKernel::instance()->objectController()->objectDict();
+
+	KviPointerHashTableIterator<void *,KviKvsObject> it(*od);
+	kvs_uint_t uIdx = 0;
+	if(szFlags.contains(QChar('s')))
+	{
+		while(KviKvsObject * ob = it.current())
+		{
+			if(ob->getExactClass() == pClass)
+			{
+				pArry->set(uIdx,new KviKvsVariant(ob->handle()));
+				uIdx++;
+			}
+			++it;
+		}
+	} else {
+		while(KviKvsObject * ob = it.current())
+		{
+			if(ob->inheritsClass(pClass))
+			{
+				pArry->set(uIdx,new KviKvsVariant(ob->handle()));
+				uIdx++;
+			}
+			++it;
+		}
+	}
+	return true;
+}
+/*
+		@doc: objects.variables
+		@title:
+			objects.variables
+		@type:
+			command
+		@short:
+			List object's variables.
+		@syntax:
+			<hash> objects.variables(<hobject>)
+		@description:
+			Returns an hash with the object's variables(useful only for debugging).			
+		@seealso:
+			[doc:objects]objects documentation[/doc]
+	*/
+static bool objects_kvs_fnc_variables(KviKvsModuleFunctionCall * c)
+{
+	kvs_hobject_t hObj;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("object",KVS_PT_HOBJECT,0,hObj)
+	KVSM_PARAMETERS_END(c)
+	KviKvsObject *ob=KviKvsKernel::instance()->objectController()->lookupObject(hObj);
+	if (!ob)
+	{
+		c->warning(__tr2qs("Object does not exists"));
+		return true;
+	}
+	KviPointerHashTableIterator<QString,KviKvsVariant> it(* ob->dataContainer()->dict());
+	KviKvsHash* pHash = new KviKvsHash();
+	c->returnValue()->setHash(pHash);
+	while(KviKvsVariant * t = it.current())
+	{
+		pHash->set(it.currentKey(),new KviKvsVariant(*t));
+		++it;
+	}
+	return true;
+
+	
+
+}
+/*
+		@doc: objects.classAllHandlers
+		@title:
+			objects.classAllHandlers
+		@type:
+			function
+		@short:
+			List all the functions .
+		@syntax:
+			<hash> objects.classAllHandlers(<class name:string>)
+		@description:
+			Returns an hash with the class's functions(useful only for debugging).			
+		@seealso:
+			[doc:objects]objects documentation[/doc]
+	*/
+static bool objects_kvs_fnc_classAllHandlers(KviKvsModuleFunctionCall * c)
+{
+	QString szClassName;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("class name",KVS_PT_NONEMPTYSTRING,0,szClassName)
+	KVSM_PARAMETERS_END(c)
+	KviKvsObjectClass * pClass = KviKvsKernel::instance()->objectController()->lookupClass(szClassName);
+	if(!pClass)
+	{
+		c->warning(__tr2qs("The class '%Q' does not exist"),&szClassName);
+		return true;
+	}
+
+	KviPointerHashTableIterator<QString,KviKvsObjectFunctionHandler>  it(* pClass->getHandlers());
+	KviKvsHash* pHash = new KviKvsHash();
+	c->returnValue()->setHash(pHash);
+	while(KviKvsObjectFunctionHandler * t = it.current())
+	{
+		QString szCode;
+		KviKvsObjectFunctionHandler *handler=pClass->lookupFunctionHandler(it.currentKey());
+		pClass->getFunctionCode(szCode,*handler);
+		pHash->set(it.currentKey(),new KviKvsVariant(szCode));
+		++it;
+	}
+
+	return true;
+}
+static bool objects_kvs_fnc_classes(KviKvsModuleFunctionCall * c)
+{ 
+	
+	/*
+		@doc: objects.classes
+		@title:
+			objects.classes
+		@type:
+			command
+		@short:
+			List user defined classes
+		@syntax:
+			<array> $object.classes()
+		@description:
+			Returns an array with the user defined classes.			
+		@seealso:
+			[doc:objects]objects documentation[/doc]
+	*/
+	
+	KviKvsArray * pArry = new KviKvsArray();
+	c->returnValue()->setArray(pArry);
+	int uIdx=0;
+	KviPointerHashTableIterator<QString,KviKvsObjectClass> it(*KviKvsKernel::instance()->objectController()->classDict());
+	KviPointerHashTable<QString,bool> *classdict=new KviPointerHashTable<QString,bool>;
+	classdict->setAutoDelete(false);
+	bool bFake=true;
+	while(KviKvsObjectClass * pClass=it.current())
+	{
+		if (!pClass->isBuiltin())classdict->insert(it.currentKey(),&bFake);
+		++it;
+	}
+	QString szPath;
+	g_pApp->getLocalKvircDirectory(szPath,KviApp::Classes);
+	QDir d(szPath);
+	QStringList sl;
+	sl = d.entryList(QDir::Files);
+	for(QStringList::Iterator it2 = sl.begin();it2 != sl.end();++it2)
+	{
+		QString szName=*it2;
+		szName.replace("--","::");		
+		if (szName!=".." && szName!=".") classdict->insert(szName.left(szName.length()-4),&bFake);	
+	}
+	KviKvsArray* pArray = new KviKvsArray();
+	c->returnValue()->setArray(pArray);
+	int idx=0;
+	KviPointerHashTableIterator<QString,bool>  strIt(*classdict);
+	while(strIt.current())
+	{
+		pArray->set(idx,new KviKvsVariant(strIt.currentKey()));
+		idx++;
+		++strIt;
+	}
+	delete classdict;
+	return true;
+
+}
+
+static bool objects_kvs_cmd_disconnect(KviKvsModuleCommandCall * c)
+{
+	/*
+		@doc: objects.disconnect
+		@title:
+			objects.disconnect
+		@type:
+			command
+		@short:
+			Disconnects a signal from a slot
+		@syntax:
+			disconnect <source_object:hobject> <signal_name:string> <target_object:hobject> <slot_name:string>
+		@description:
+			Disconnects the <source_object>'s signal <signal_name> from the
+			<target_object>'s slot <slot_name>.
+			When one of the two objects is destroyed, the signal/slot
+			connection is automatically removed.
+		@seealso:
+			[cmd]class[/cmd], [cmd]objects.connect[/cmd], [doc:objects]objects documentation[/doc]
+	*/
+
+	
+
+
+	KviKvsObject *obSrc;
+	KviKvsObject *obTrg;
+	QString szSignal,szSlot;
+	kvs_hobject_t hSrc,hTrg;
+	KVSM_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("object source",KVS_PT_HOBJECT,0,hSrc)
+		KVSM_PARAMETER("signal name",KVS_PT_NONEMPTYSTRING,0,szSignal)
+		KVSO_PARAMETER("object target",KVS_PT_HOBJECT,0,hTrg)
+		KVSM_PARAMETER("slot",KVS_PT_NONEMPTYSTRING,0,szSlot)
+	KVSM_PARAMETERS_END(c)
+	obTrg=KviKvsKernel::instance()->objectController()->lookupObject(hTrg);
+	obSrc=KviKvsKernel::instance()->objectController()->lookupObject(hSrc);
+	if(!obTrg)
+	{
+		c->warning(__tr2qs("Inexisting target object for objects.disconnect"));
+		return true;
+	}
+	if(!obSrc)
+	{
+		c->warning(__tr2qs("Inexisting source object for objects.disconnect"));
+		return true;
+	}
+	obSrc->disconnectSignal(szSignal,obTrg,szSlot);
+	return true;
+}
+
+
+
+static bool objects_kvs_cmd_bitBlt(KviKvsModuleCommandCall * c)
+{
+	/*
+		@doc: objects.bitblt
+		@type:
+			command
+		@title:
+			objects.bitblt
+		@keyterms:
+			widget pixmap painter
+		@short:
+			Copies a block of pixels from a source to a destination.
+		@syntax:
+			objects.bitblt <source> <x> <y> <destination>
+		@description:
+			Copies a block of pixels from <source> to <destination> at the coordinates <x>,<y> .[br]
+			Source and destination must be a widget or pixmap.[br]
+		
+	*/
+
+	KviKvsObject *obSrc;
+	KviKvsObject *obDst;
+	kvs_int_t iXdst,iYdst,iXsrc,iYsrc,uW,uH;
+	kvs_hobject_t hDst,hSrc;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("destination",KVS_PT_HOBJECT,0,hDst)
+		KVSO_PARAMETER("x offset dest",KVS_PT_INT,0,iXdst)
+		KVSO_PARAMETER("y offset dest",KVS_PT_INT,0,iYdst)
+		KVSO_PARAMETER("source",KVS_PT_HOBJECT,0,hSrc)
+		KVSO_PARAMETER("x offset source",KVS_PT_INT,0,iXsrc)
+		KVSO_PARAMETER("y offset source",KVS_PT_INT,0,iYsrc)
+		KVSO_PARAMETER("width",KVS_PT_UNSIGNEDINTEGER,0,uW)
+		KVSO_PARAMETER("height",KVS_PT_UNSIGNEDINTEGER,0,uH)
+	KVSO_PARAMETERS_END(c)
+	obSrc=KviKvsKernel::instance()->objectController()->lookupObject(hSrc);
+	if (!obSrc)
+	{
+			c->warning(__tr2qs("Source is not an object"));
+		return true;
+	}
+	obDst=KviKvsKernel::instance()->objectController()->lookupObject(hDst);
+	if (!obDst)
+	{
+			c->warning(__tr2qs("Destination is not an object"));
+		return true;
+	}
+
+	QImage  * imgSource=0;
+	QPaintDevice  * pdSource = 0;
+	
+	if(obSrc->inherits("KviKvsObject_pixmap")) pdSource =((KviKvsObject_pixmap *)obSrc)->getPixmap();
+	else if (obSrc->inherits("KviKvsObject_widget")) pdSource=((KviKvsObject_widget *)obSrc)->widget();
+	if (!pdSource)
+	{
+		c->warning(__tr2qs("Widget, Image or Pixmap required "));
+		return true;
+	}
+	QPaintDevice  * pdDest = 0;
+	if(obDst->inherits("KviKvsObject_pixmap")){
+		pdDest= ((KviKvsObject_pixmap *)obDst)->getPixmap();
+	}
+	else if (obDst->inherits("KviKvsObject_widget")) pdDest=((KviKvsObject_widget *)obDst)->widget();
+	if (!pdDest)
+	{
+		c->warning(__tr2qs("Widget or Pixmap required"));
+		return true;
+	}
+	if(obDst->inherits("KviKvsObject_pixmap")){
+		((KviKvsObject_pixmap *)obDst)->pixmapChanged();
+	}
+#ifdef COMPILE_USE_QT4
+	/*QPainter p(pdDest);
+	QRect rectdest(iXdst,iYdst,uW,uH);
+	QRect rectsrc(iXsrc,iYsrc,uW,uH);
+
+	p.drawPixmap(rectdest,pdSource,rectsrc);
+*/
+	#else
+	bitBlt(pdDest,iXdst,iYdst,pdSource,iXsrc,iYsrc,uW,uH);
+#endif
+	return true;
+}
+	/*
+		@doc: objects.blend
+		@type:
+			command
+		@title:
+			objects.blend
+		@keyterms:
+			widget pixmap image
+		@short:
+			Blends two images  to a destination.
+		@syntax:
+			objects.blend <background: image hobject> <x_offset_bkg:unsigned integer> <y_offset_bkg:unsigned integer> 
+			<foreground: image hobject> <x_offset_fgr:unsigned integer> <y_offset_fgr:unsigned integer> 
+			<destination: image, pixmap. widget hobject> <x_offset_dest:unsigned integer> <y_offset_dest:unsigned integer> <width:unsigned integer> <height:unsigned integer> <blend_factor>
+		@description:
+			Blends two images <background> and <foreground> and copy the result to <destination> at the coordinates <x_offset>,<y_offset> with a <blend_factor> value .[br]
+			Destination must be a widget or pixmap.[br]
+		
+	*/
+
+static bool objects_kvs_cmd_blend(KviKvsModuleCommandCall * c)
+{
+	
+	KviKvsObject *obFor;
+	KviKvsObject *obBck;
+	KviKvsObject *obDest;
+
+	kvs_int_t iBkX,iBkY;
+	kvs_int_t iFoX,iFoY;
+	kvs_int_t iDesX,iDesY,uW,uH;
+	kvs_real_t dBlend;
+
+	kvs_hobject_t hBk,hFo,hDest;
+
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("destination",KVS_PT_HOBJECT,0,hDest)
+		KVSO_PARAMETER("x_offset_dest",KVS_PT_INT,0,iDesX)
+		KVSO_PARAMETER("y_offset_dest",KVS_PT_INT,0,iDesY)
+
+		KVSO_PARAMETER("image_background",KVS_PT_HOBJECT,0,hBk)
+		KVSO_PARAMETER("x_offset_background",KVS_PT_UNSIGNEDINTEGER,0,iBkX)
+		KVSO_PARAMETER("y_offset_background",KVS_PT_UNSIGNEDINTEGER,0,iBkY)
+		KVSO_PARAMETER("image_foreground",KVS_PT_HOBJECT,0,hFo)
+		KVSO_PARAMETER("x_offset_foreground",KVS_PT_UNSIGNEDINTEGER,0,iFoX)
+		KVSO_PARAMETER("y_offset_foreground",KVS_PT_UNSIGNEDINTEGER,0,iFoY)
+		KVSO_PARAMETER("width",KVS_PT_UNSIGNEDINTEGER,0,uW)
+		KVSO_PARAMETER("height",KVS_PT_UNSIGNEDINTEGER,0,uH)
+
+		KVSO_PARAMETER("blend_value",KVS_PT_REAL,0,dBlend)
+
+	
+
+	KVSO_PARAMETERS_END(c)
+
+	obFor=KviKvsKernel::instance()->objectController()->lookupObject(hFo);
+	
+
+	obBck=KviKvsKernel::instance()->objectController()->lookupObject(hBk);
+	obDest=KviKvsKernel::instance()->objectController()->lookupObject(hDest);
+	if (!obFor || !obBck || !obDest)
+	{
+		c->warning(__tr2qs("One o more of background, foreground or destination aren't objects"));
+		return true;
+	}
+
+	if (!obBck->inherits("KviKvsObject_pixmap") || !obFor->inherits("KviKvsObject_pixmap"))
+	{
+		c->warning(__tr2qs("Pixmap objects required"));
+		return true;
+	}
+
+	QPaintDevice  * pdDest = 0;
+	if(obDest->inherits("KviKvsObject_pixmap")) pdDest = ((KviKvsObject_pixmap *)obDest)->getPixmap();
+	else if (obDest->inherits("KviKvsObject_widget")) pdDest=((KviKvsObject_widget *)obDest)->widget();
+	
+	if (!pdDest)
+	{
+		c->warning(__tr2qs("Widget or Pixmap required "));
+		return true;
+	}
+
+	if(obDest->inherits("KviKvsObject_pixmap")) ((KviKvsObject_pixmap *)obDest)->pixmapChanged();
+
+
+	QImage  *img_back=((KviKvsObject_pixmap *)obBck)->getImage();
+	QImage *img_fore=((KviKvsObject_pixmap *)obFor)->getImage();
+
+	// check size
+	if ((iBkX+uW>img_back->width())||(iBkY+uH>img_back->height()))
+	{
+		c->warning(__tr2qs("Values for background are out of image size "));
+		return true;
+	}
+	if ((iFoX+uW>img_fore->width())||(iFoY+uH>img_fore->height()))
+	{
+		c->warning(__tr2qs("Values for foreground are out of image size "));
+		return true;
+	}
+	QImage buffer;
+	buffer.create(uW,uH,32);
+	buffer.setAlphaBuffer(true);
+	for(int y = 0;y < buffer.height();y++)
+	{
+		QRgb * dst = (QRgb *)buffer.scanLine(y);
+		QRgb * end = dst + buffer.width();
+		QRgb * bkg = (QRgb *)img_back->scanLine(y+iBkY);
+		bkg += iBkX;
+		QRgb * fgn = (QRgb *)img_fore->scanLine(y+iFoY);
+		fgn += iFoX;
+		double dRemaining = 1.0 - dBlend;
+		int a=0;
+		while(dst < end)
+		{
+			
+	
+			*dst = qRgba(
+				(int)((qRed(*bkg) * dRemaining) + (qRed(*fgn) * dBlend)),
+				(int)((qGreen(*bkg) * dRemaining) + (qGreen(*fgn) * dBlend)),
+				(int)((qBlue(*bkg) * dRemaining) + (qBlue(*fgn) * dBlend)),
+				(int)((qAlpha(*bkg) * dRemaining) + (qAlpha(*fgn) * dBlend))
+				);
+
+			dst++;
+			bkg++;
+			fgn++;
+		}
+		
+
+	}
+#ifdef COMPILE_USE_QT4
+	QPainter p(pdDest);
+	QRect rect(iDesX,iDesY,buffer.width(),buffer.height());
+	p.drawImage(rect,buffer);
+#else
+	bitBlt(pdDest,iDesX,iDesY,&buffer,0,0,buffer.width(),buffer.height());
+#endif
+	return true;
+
+}
+
+// ASSASSINI! LA DOVETE INDENTARE PER BENE :D
+
+
+static bool objects_kvs_fnc_listObjects(KviKvsModuleFunctionCall * cmd)
+{ 
+/*
+        @doc: objects.dump
+        @type:
+            function
+        @title:
+			$objects.dump
+        @keyterms:
+                dump objects 
+        @short:
+                Dump the kvirc widgets.
+        @syntax:
+                $objects.dump(<flag b>)
+        @description:
+                This function returns the tree of the widgets of the kvirc, if the flag <b> is planned to 1,[br]
+                will return it on the currente window, if it' is planned to 0 instead it will return it as a string.[br] 
+                ES:
+                %A[]=$str.split("\|",$objects.dump(0))
+                %i=0
+                while (%i != %A[]#)
+                {
+                        echo %A[%i]
+                        %i++
+                }        
+*/
+
+
+	bool bFlag;
+	KVSO_PARAMETERS_BEGIN(cmd)
+		KVSO_PARAMETER("flag on video",KVS_PT_BOOL,0,bFlag)
+	KVSO_PARAMETERS_END(cmd)
+	if (bFlag) cmd->window()->output(80, "Objects dump:");
+	#ifdef COMPILE_USE_QT4
+	QWidgetList list = g_pApp->topLevelWidgets();
+	
+	KviStr spacing = ">";
+	QString  szTemp;
+	KviKvsArray * n = new KviKvsArray();
+	int idx=0;
+	for(int i=0;i<list.count();i++)
+	{
+		if( list.at(i)->isWidgetType())
+		{
+			if (bFlag)
+			{
+				cmd->window()->output(80, "Ptr %u: top level object: %c%s%c, class %s, %s, rect = %d, %d, %d, %d",
+				list.at(i),
+				KVI_TEXT_BOLD, list.at(i)->name(), KVI_TEXT_BOLD,
+				list.at(i)->className(),
+				list.at(i)->isVisible() ? "visible" : "hidden",
+				list.at(i)->x(), list.at(i)->y(), list.at(i)->width(), list.at(i)->height());
+			}
+			QString  szClass=list.at(i)->className();
+			QString szObj=list.at(i)->name();
+			QString szTemp;
+			szTemp = szClass + "::" + szObj;
+			KviKvsVariant v;
+			v.setString(szTemp);
+			n->set(idx,new KviKvsVariant(v));
+			debug ("string %s",szTemp.latin1());
+			debug ("class %s",szClass.latin1());
+			debug ("Obj %s",szObj.latin1());
+	
+			idx++;
+	
+			dumpChildObjects(cmd->window(), list.at(i), spacing.ptr(), bFlag,n,idx);
+		}
+	//++it;
+	}
+
+#else
+	QWidgetList *l = g_pApp->topLevelWidgets();
+	l->setAutoDelete(false);
+	QWidgetListIt it(*l);
+	KviStr spacing = ">";
+	QString  szTemp;
+	KviKvsArray * n = new KviKvsArray();
+	int idx=0;
+	while( it.current() )
+	{
+		if( it.current()->isWidgetType())
+		{
+			if (bFlag)
+			{
+				cmd->window()->output(80, "Ptr %u: top level object: %c%s%c, class %s, %s, rect = %d, %d, %d, %d",
+				it.current(),
+				KVI_TEXT_BOLD, it.current()->name(), KVI_TEXT_BOLD,
+				it.current()->className(),
+				it.current()->isVisible() ? "visible" : "hidden",
+				it.current()->x(), it.current()->y(), it.current()->width(), it.current()->height());
+			}
+			QString  szClass=it.current()->className();
+			QString szObj=it.current()->name();
+			QString szTemp;
+			szTemp = szClass + "::" + szObj;
+			KviKvsVariant v;
+			v.setString(szTemp);
+			n->set(idx,new KviKvsVariant(v));
+			debug ("string %s",szTemp.latin1());
+			debug ("class %s",szClass.latin1());
+			debug ("Obj %s",szObj.latin1());
+	
+			idx++;
+	
+			dumpChildObjects(cmd->window(), it.current(), spacing.ptr(), bFlag,n,idx);
+		
+	
+		}
+	++it;
+	}
+
+#endif
+	cmd->returnValue()->setArray(n);
+	return true;
+}
+
+static void dumpChildObjects(KviWindow *pWnd, QObject *parent, const char *spacing, bool bFlag, KviKvsArray *n, int &idx)
+{
+#ifdef COMPILE_USE_QT4
+	const QObjectList list = parent->children();
+	if( !list.count() ) return;
+	QString sp(spacing);
+	sp.append(">");
+	for(int i=0;i<list.count();i++)
+	{
+		if( list.at(i)->isWidgetType() )
+		{
+			if (bFlag)
+			{
+				pWnd->output(80, "%sPtr %u: object: %c%s%c, class %s",
+					spacing, list.at(i), KVI_TEXT_BOLD,
+					list.at(i)->name(), KVI_TEXT_BOLD, list.at(i)->className()
+				);
+			}
+			QString szClass=list.at(i)->className();
+			QString szObj=list.at(i)->name();
+			QString szTemp;
+			szTemp=spacing+szClass+"::"+szObj;
+			KviKvsVariant v;
+			v.setString(szTemp);
+			n->set(idx,new KviKvsVariant(v));
+			debug ("string %s",szTemp.latin1());
+			idx++;
+			dumpChildObjects(pWnd, list.at(i), sp, bFlag, n, idx );
+		}
+	}
+
+#else
+	const QObjectList *l = parent->children();
+	if( !l ) return;
+	if( l->isEmpty() ) return;
+	QObjectListIt it(*l);
+	QString sp(spacing);
+	sp.append(">");
+	while( it.current() )
+	{
+                if( it.current()->isWidgetType() )
+		{
+			if (bFlag)
+			{
+				pWnd->output(80, "%sPtr %u: object: %c%s%c, class %s",
+					spacing, it.current(), KVI_TEXT_BOLD,
+					it.current()->name(), KVI_TEXT_BOLD, it.current()->className()
+				);
+			}
+			QString szClass=it.current()->className();
+			QString szObj=it.current()->name();
+			QString szTemp;
+			szTemp=spacing+szClass+"::"+szObj;
+			KviKvsVariant v;
+			v.setString(szTemp);
+			n->set(idx,new KviKvsVariant(v));
+			debug ("string %s",szTemp.latin1());
+			idx++;
+			dumpChildObjects(pWnd, it.current(), sp, bFlag, n, idx );
+                }
+		++it;
+	}
+#endif
+}
+
+static bool objects_module_can_unload(KviModule *m)
+{
+	// Actually this object remains locked in memory
+	// FIXME: unlock when no more instances & derived classes!
+	return false;
+}
+static bool objects_module_init(KviModule * m)
+{
+	// functions
+	KVSM_REGISTER_FUNCTION(m,"exists",objects_kvs_fnc_exists);
+	KVSM_REGISTER_FUNCTION(m,"instances",objects_kvs_fnc_instances);
+	KVSM_REGISTER_FUNCTION(m,"classes",objects_kvs_fnc_classes);
+	KVSM_REGISTER_FUNCTION(m,"dump",objects_kvs_fnc_listObjects);
+	KVSM_REGISTER_FUNCTION(m,"variables",objects_kvs_fnc_variables);
+	KVSM_REGISTER_FUNCTION(m,"classAllHandlers",objects_kvs_fnc_classAllHandlers);
+	
+	// commands
+	KVSM_REGISTER_SIMPLE_COMMAND(m,"connect",objects_kvs_cmd_connect);
+	KVSM_REGISTER_SIMPLE_COMMAND(m,"disconnect",objects_kvs_cmd_disconnect);
+	KVSM_REGISTER_SIMPLE_COMMAND(m,"killClass",objects_kvs_cmd_killClass);
+	KVSM_REGISTER_SIMPLE_COMMAND(m,"bitblt",objects_kvs_cmd_bitBlt);
+	KVSM_REGISTER_SIMPLE_COMMAND(m,"blend",objects_kvs_cmd_blend);
+	KVSM_REGISTER_SIMPLE_COMMAND(m,"clearObjects",objects_kvs_cmd_clearObjects);
+
+	KviKvsObject_list::registerSelf();
+
+	KviKvsObject_widget::registerSelf();
+	KviKvsObject_button::registerSelf();
+	KviKvsObject_mledit::registerSelf();
+
+	KviKvsObject_textbrowser::registerSelf();
+	KviKvsObject_checkbox::registerSelf();
+	KviKvsObject_dialog::registerSelf();
+	KviKvsObject_groupbox::registerSelf();
+	KviKvsObject_buttongroup::registerSelf();
+	KviKvsObject_label::registerSelf();
+	KviKvsObject_vbox::registerSelf();
+	KviKvsObject_hbox::registerSelf();
+	KviKvsObject_layout::registerSelf();
+	KviKvsObject_lcd::registerSelf();
+	KviKvsObject_lineedit::registerSelf();
+	KviKvsObject_menubar::registerSelf();
+	KviKvsObject_workspace::registerSelf();
+	
+
+
+	KviKvsObject_combobox::registerSelf();
+	KviKvsObject_listbox::registerSelf();
+	KviKvsObject_listview::registerSelf();
+	KviKvsObject_listviewitem::registerSelf();
+	KviKvsObject_mainwindow::registerSelf();
+	KviKvsObject_painter::registerSelf();
+	KviKvsObject_pixmap::registerSelf();
+	KviKvsObject_popupmenu::registerSelf();
+	KviKvsObject_radiobutton::registerSelf();
+	KviKvsObject_slider::registerSelf();
+	KviKvsObject_spinbox::registerSelf();
+	KviKvsObject_tabwidget::registerSelf();
+	KviKvsObject_toolbar::registerSelf();
+	KviKvsObject_toolbutton::registerSelf();
+	KviKvsObject_urlabel::registerSelf();
+	KviKvsObject_window::registerSelf();
+	KviKvsObject_wizard::registerSelf();
+	KviKvsObject_dockwindow::registerSelf();
+	KviKvsObject_progressbar::registerSelf();
+	KviKvsObject_file::registerSelf();
+	KviKvsObject_wrapper::registerSelf();
+	KviKvsObject_xmlreader::registerSelf();
+	KviKvsObject_socket::registerSelf();
+	KviKvsObject_process::registerSelf();
+
+	
+	return true;
+}
+
+KVIRC_MODULE(
+	"Objects",
+	"2.0.0",
+	"Copyright (C) 2000-2006:\n" \
+		"  Szymon Stefanek (pragma at kvirc dot net)\n" \
+		"  Krzysztof Godlewski (kristoff at poczta dot wprost dot pl)\n" \
+		"  Tonino Imbesi (grifisx at barmes dot org)\n" \
+		"  Alessandro Carbone (noldor at barmes dot org)",
+	"Object classes for KVIrc scripting language\n",
+	objects_module_init,
+	objects_module_can_unload,
+	0,
+	objects_module_cleanup
+)