diff options
Diffstat (limited to '3.4.0/src/modules/objects/libkviobjects.cpp')
| -rw-r--r-- | 3.4.0/src/modules/objects/libkviobjects.cpp | 1066 |
1 files changed, 0 insertions, 1066 deletions
diff --git a/3.4.0/src/modules/objects/libkviobjects.cpp b/3.4.0/src/modules/objects/libkviobjects.cpp deleted file mode 100644 index d4806d91a..000000000 --- a/3.4.0/src/modules/objects/libkviobjects.cpp +++ /dev/null @@ -1,1066 +0,0 @@ -//============================================================================= -// -// 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. ,59 Temple Place - Suite 330, Boston, MA 02111-1307, 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 -) |