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, 361 insertions, 0 deletions

diff --git a/src/modules/objects/class_popupmenu.cpp b/src/modules/objects/class_popupmenu.cpp
new file mode 100644
index 00000000..a3db5339
--- /dev/null
+++ b/src/modules/objects/class_popupmenu.cpp
@@ -0,0 +1,361 @@
+//mdm :
+//   File : class_popupmenu.cpp
+//   Creation date : Mon Feb 01 21:30:48 CEST 2005
+//	 by Tonino Imbesi(Grifisx) and Alessandro Carbone(Noldor)
+//   Lucia Papini (^ashura^)  English Translation.
+//   This file is part of the KVirc irc client distribution
+//   Copyright (C) 1999-2000 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 "class_popupmenu.h"
+#include "kvi_error.h"
+
+#include "kvi_debug.h"
+
+#include "kvi_locale.h"
+#include "kvi_iconmanager.h"
+
+
+/*
+	@doc:	popupmenu
+	@keyterms:
+		popupmenu object class,
+	@title:
+		popupmenu class
+	@type:
+		class
+	@short:
+		Provides a popup menu.
+	@inherits:
+		[class]object[/class]
+		[class]widget[/class]
+	@description:
+		This widget can be used to display a popup menu.Technically, a popup menu consists of a list of menu items.[br]
+		You add items with insertItem(). An item is either a string. In addition, items can have an optional icon drawn on the very left side.[br]
+	@functions:
+		!fn: $insertItem(<text:string>,[icon_id:string])
+		Inserts menu items into a popup menu with optional icon and return the popup identifier.
+		!fn: $insertWidget(<widget:object>)[br]
+		Inserts widget items int a popup menu and return the popup identifier.[br]
+		The widget is treats as a separator; this means that the item is not selectable and you can, for example, simply insert a label if you need a popup menu with a title.
+		!fn: $insertHandle(<text_label:string>,<popupmenu:object>,[icon])
+		Inserts a submenu with optional icon into the popup menu.
+		!fn: $exec([<widget:objects>,<x:uinteger>,<y:integer>])
+		If called without paramaters show the popup menu at the current pointer position.[br]
+		With the optional parameters show the popup menu at the coordinate x,y widget parameter relative.
+		!fn: $removeItem(<popup_id:Uinteger>)
+		Removes the menu item that has the identifier id.
+		!fn: $removeItemAt(<index:uinteger>)
+		Removes the menu item at position index.
+		!fn: $insertSeparator(<index:uinteger>)
+		Inserts a separator at position index.[br]
+		If the index is negative the separator becomes the last menu item.
+		!fn: $activatedEvent(<popup_id:uinteger>)
+		This function is called when a menu item and return the the item id.[br]
+		The default implementation emits the [classfnc]$activated[/classfnc]() signal.
+		!fn: $highligthtedEvent(<popup_id:uinteger>)
+		This function is called when a menu item is highlighted and return the item id.[br]
+		The default implementation emits the [classfnc]$highlighted[/classfnc]() signal.
+	@signals:
+		!sg: $activated()
+		This signal is emitted by the default implementation of [classfnc]$activatedEvent[/classfnc]().
+		!sg: $highlighted()
+		This signal is emitted by the default implementation of [classfnc]$highlightedEvent[/classfnc]().
+		[br]
+		|-EXAMPLE POPUP MENU-|[br]
+		|--Start:
+		# First of all we create an array wich will be used to create random colors.[br]
+		%Hex[]=$array(0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)[br]
+		[br]
+		class (ws,widget)[br]
+		{[br]
+		#In the constructor we create everything that belong to the single widget.[br]
+			constructor[br]
+			{[br]
+				#Geometry of the widget and setting-up of popupmenu [br]
+				$$->$setGeometry(%X,%Y,100,100)[br]
+			    $$->%lay=$new(layout,$$)[br]
+				#Here we generate a cicle to create our labels inside the widget.[br]
+				%i=0[br]
+				while (%i<10)[br]
+				{[br]
+					$$->%label=$new(label,$$)[br]
+					$$->%label->$settext("Another class by N\&G")[br]
+					#We set our foreground's coulor using the hex arrey in random way.[br]
+					%color=%Hex[$rand(14)]%Hex[$rand(14)]%Hex[$rand(14)]%Hex[$rand(14)]%Hex[$rand(14)]%Hex[$rand(14)][br]
+					$$->%label->$setforegroundcolor(%color)[br]
+					$$->%label->$setautoresize(1)[br]
+					#We add the label to the widget's popupmenu.[br]
+					$$->%lay->$addwidget($$->%label,%i,0)[br]
+					%i++;[br]
+				}[br]
+				#We make the popupmenu relative to this widget: this is merely demonstrative.[br]
+				#because it creates 25 identical popups.[br]
+				$$->%Popupmenu=$new(popupmenu,$$)[br]
+				#we create the label widget wich will be used as popup's title[br]
+				$$->%Popuptitle=$new(label)[br]
+				$$->%Popuptitle->$settext(<B><U>"Windows Options"</B></U>)[br]
+				$$->%Popuptitle->$setAlignment(Center)[br]
+				#and we add it.[br]
+				%A=$$->%Popuptitle[br]
+				$$->%Popupmenu->$insertwidget(%A)[br]
+				#Here we keep the various IDs in the arrays[br]
+				%Tile[%I]=$$->%Popupmenu->$insertItem("Tile",118)[br]
+				%Cascade[%I]=$$->%Popupmenu->$insertItem("Cascade",115)[br]
+				$$->%Popupmenu->$insertSeparator(3)[br]
+				%Closeactw[%I]=$$->%Popupmenu->$insertItem("Close Active Window",08)[br]
+				%Closeallw[%I]=$$->%Popupmenu->$insertItem("Close All Window",58)[br]
+				$$->$show()[br]
+				privateimpl($$->%Popupmenu,activatedEvent)[br]
+				{[br]
+					%id=$0[br]
+					%i = 0[br]
+					#with this cicle we control wich of the items has been called  comparing the id given back by the event with our arrays created before;[br]
+					while (%i<20)[br]
+					{[br]
+						if (%id == %Tile[%i]) return %Workspace->$tile()[br]
+						if (%id == %Cascade[%i]) return %Workspace->$cascade()[br]
+						if (%id == %Closeactw[%i]) return %Workspace->$closeactivewindow()[br]
+						if (%id == %Closeallw[%i]) return %Workspace->$closeallwindows()[br]
+						%i ++[br]
+					}[br]
+				}[br]
+			}[br]
+		   #we activate the popup pushing the right mouse button on the widget[br]
+		  mousepressevent[br]
+			{[br]
+			   if ($0 == 1) $$->%Popupmenu->$exec()[br]
+			}[br]
+		}[br]
+		%Workspace=$new(workspace)[br]
+		%Workspace->$resize(640,480)[br]
+		%I=0[br]
+		%Cicle=1[br]
+		while (%I<20)[br]
+		{[br]
+			%X=$rand(500)[br]
+			%Y=$rand(480)[br]
+			%Widget=$new(ws,%Workspace)[br]
+			%I++[br]
+		}[br]
+		#Let's show!
+		%Workspace->$show[br]
+		|--End.[br][br]
+*/
+
+KVSO_BEGIN_REGISTERCLASS(KviKvsObject_popupmenu,"popupmenu","widget")
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"insertItem", functioninsertItem)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"insertWidget", functioninsertWidget)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"insertHandle", functioninsertHandle)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"exec", functionexec)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"insertSeparator", functioninsertSeparator)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"removeItem", functionremoveItem)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"removeItemAt", functionremoveItemAt)
+
+	// events
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"highlightedEvent", functionhighlightedEvent)
+	KVSO_REGISTER_HANDLER(KviKvsObject_popupmenu,"activatedEvent", functionactivatedEvent)
+
+KVSO_END_REGISTERCLASS(KviKvsObject_popupmenu)
+
+KVSO_BEGIN_CONSTRUCTOR(KviKvsObject_popupmenu,KviKvsObject_widget)
+
+KVSO_END_CONSTRUCTOR(KviKvsObject_popupmenu)
+
+
+KVSO_BEGIN_DESTRUCTOR(KviKvsObject_popupmenu)
+
+KVSO_END_CONSTRUCTOR(KviKvsObject_popupmenu)
+
+bool KviKvsObject_popupmenu::init(KviKvsRunTimeContext * pContext,KviKvsVariantList *pParams)
+{
+	setObject(new KviTalPopupMenu(parentScriptWidget(), name()), true);
+	connect(widget(),SIGNAL(activated(int)),this,SLOT(slotactivated(int)));
+	connect(widget(),SIGNAL(highlighted(int)),this,SLOT(slothighlighted(int)));
+	return true;
+}
+
+bool KviKvsObject_popupmenu::functioninsertItem(KviKvsObjectFunctionCall *c)
+{
+	QString szItem,szIcon;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("text",KVS_PT_STRING,0,szItem)
+		KVSO_PARAMETER("icon_id",KVS_PT_STRING,KVS_PF_OPTIONAL,szIcon)
+	KVSO_PARAMETERS_END(c)
+	if(!widget())return true;
+	QPixmap *pix = 0;
+	int id=0;
+    if(!szIcon.isEmpty())
+	{
+		pix = g_pIconManager->getImage(szIcon);
+        if (pix) id=((KviTalPopupMenu *)widget())->insertItem(*pix,szItem);
+		else c->warning(__tr2qs("pix '%Q' doesn't exists"),&szIcon);
+
+	}
+	else
+		id=((KviTalPopupMenu *)widget())->insertItem(szItem);
+	c->returnValue()->setInteger(id);
+	return true;
+}
+bool KviKvsObject_popupmenu::functioninsertWidget(KviKvsObjectFunctionCall *c)
+{
+	KviKvsObject *pObject;
+	kvs_hobject_t hObject;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("widget",KVS_PT_HOBJECT,0,hObject)
+	KVSO_PARAMETERS_END(c)
+	pObject=KviKvsKernel::instance()->objectController()->lookupObject(hObject);
+	if (!pObject)
+	{
+		c->warning(__tr2qs("Widget parameter is not an object"));
+		return true;
+	}
+	if (!pObject->object())
+	{
+		c->warning(__tr2qs("Widget parameter is not a valid object"));
+		return true;
+	}
+	if(!pObject->object()->isWidgetType())
+    {
+		c->warning(__tr2qs("Can't add a non-widget object"));
+        return TRUE;
+    }
+	if (widget()) ((KviTalPopupMenu *)widget())->insertItem(((KviTalPopupMenu  *)(pObject->object())));
+	return true;
+}
+bool KviKvsObject_popupmenu::functioninsertHandle(KviKvsObjectFunctionCall *c)
+{
+	KviKvsObject *ob;
+	QString szLabel,szIcon;
+	kvs_hobject_t hObject;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("text_label",KVS_PT_STRING,0,szLabel)
+		KVSO_PARAMETER("widget",KVS_PT_HOBJECT,0,hObject)
+		KVSO_PARAMETER("icon_id",KVS_PT_STRING,KVS_PF_OPTIONAL,szIcon)
+	KVSO_PARAMETERS_END(c)
+	ob=KviKvsKernel::instance()->objectController()->lookupObject(hObject);
+	if(!ob->object()->inherits("KviKvsObject_popupmenu"))
+    {
+		c->warning(__tr2qs("Can't add a non - popupmenu  object"));
+        return TRUE;
+    }
+	if(!widget())return true;
+	QPixmap *pix = 0;
+	int id=0;
+    if(!szIcon.isEmpty())
+	{
+		pix = g_pIconManager->getImage(szIcon);
+        if (pix) id=((KviTalPopupMenu *)widget())->insertItem(*pix,szLabel,((KviTalPopupMenu  *)(ob->object())));
+		else c->warning(__tr2qs("pix '%Q' doesn't exists"),&szIcon);
+
+	}
+	else
+		id=((KviTalPopupMenu *)widget())->insertItem(szLabel,((KviTalPopupMenu  *)(ob->object())));
+	c->returnValue()->setInteger(id);
+	return true;
+}
+bool KviKvsObject_popupmenu::functionexec(KviKvsObjectFunctionCall *c)
+{
+	if(!c->params()->count())
+	{
+	 ((KviTalPopupMenu *)widget())->exec(QCursor::pos());
+	 return true;
+	}
+
+	KviKvsObject *pObject;
+	kvs_uint_t iX,iY;
+	QString szLabel,szIcon;
+	kvs_hobject_t hObject;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("widget",KVS_PT_HOBJECT,0,hObject)
+		KVSO_PARAMETER("x",KVS_PT_UNSIGNEDINTEGER,0,iX)
+		KVSO_PARAMETER("y",KVS_PT_UNSIGNEDINTEGER,0,iY)
+	KVSO_PARAMETERS_END(c)
+	pObject=KviKvsKernel::instance()->objectController()->lookupObject(hObject);
+	if (!pObject)
+	{
+		c->warning(__tr2qs("Widget parameter is not an object"));
+		return true;
+	}
+	if (!pObject->object())
+	{
+		c->warning(__tr2qs("Widget parameter is not a valid object"));
+		return true;
+	}
+	if(!pObject->object()->isWidgetType())
+	{
+		c->warning(__tr2qs("Doesn't a widget object"));
+		return true;
+	}
+
+	((KviTalPopupMenu *)widget())->exec(((QWidget *)(pObject->object()))->mapToGlobal(QPoint(iX,iY)) );
+
+	return true;
+}
+bool KviKvsObject_popupmenu::functionremoveItem(KviKvsObjectFunctionCall *c)
+{
+	kvs_uint_t uItem;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("item_id",KVS_PT_UNSIGNEDINTEGER,0,uItem)
+	KVSO_PARAMETERS_END(c)
+	if(widget()) ((KviTalPopupMenu *)widget())->removeItem(uItem);
+	return true;
+}
+bool KviKvsObject_popupmenu::functionremoveItemAt(KviKvsObjectFunctionCall *c)
+{
+	kvs_uint_t uIndex;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("index",KVS_PT_UNSIGNEDINTEGER,0,uIndex)
+	KVSO_PARAMETERS_END(c)
+	if(widget())((KviTalPopupMenu *)widget())->removeItemAt(uIndex);
+	return true;
+}
+
+bool KviKvsObject_popupmenu::functioninsertSeparator(KviKvsObjectFunctionCall *c)
+{
+	kvs_uint_t uIndex;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("index",KVS_PT_UNSIGNEDINTEGER,0,uIndex)
+	KVSO_PARAMETERS_END(c)
+	if(widget())((KviTalPopupMenu *)widget())->insertSeparator(uIndex);
+	return true;
+}
+
+void KviKvsObject_popupmenu::slothighlighted(int i)
+{
+	KviKvsVariantList params(new KviKvsVariant((kvs_int_t)i));
+	callFunction(this,"highlightedEvent",&params);
+}
+bool KviKvsObject_popupmenu::functionhighlightedEvent(KviKvsObjectFunctionCall *c)
+{
+	emitSignal("highlighted",c,c->params());
+	return true;
+}
+void KviKvsObject_popupmenu::slotactivated(int i)
+{
+	KviKvsVariantList params(new KviKvsVariant((kvs_int_t)i));
+	callFunction(this,"activatedEvent",&params);
+}
+bool KviKvsObject_popupmenu::functionactivatedEvent(KviKvsObjectFunctionCall *c)
+{
+	emitSignal("activated",c,c->params());
+	return true;
+}
+
+
+#include "m_class_popupmenu.moc"