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

diff --git a/src/modules/objects/class_slider.cpp b/src/modules/objects/class_slider.cpp
new file mode 100644
index 00000000..603e4c9a
--- /dev/null
+++ b/src/modules/objects/class_slider.cpp
@@ -0,0 +1,287 @@
+//mdm :
+//   File : class_Slider.cpp
+//   Creation date : Mon Gen 27 21:30:48 CEST 2005
+//	 by Tonino Imbesi(Grifisx) and Alessandro Carbone(Noldor)
+//
+//   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_slider.h"
+#include "kvi_error.h"
+
+#include "kvi_debug.h"
+
+#include "kvi_locale.h"
+#include "kvi_iconmanager.h"
+
+
+/*
+@doc:	slider
+	@keyterms:
+		slider object class
+	@title:
+		slider class
+	@type:
+		class
+	@short:
+		The slider widget provides a vertical or horizontal slider.
+	@inherits:
+		[class]object[/class]
+		[class]widget[/class]
+	@description:
+		The slider is the classic widget for controlling a bounded value.[br]
+		It lets the user move a slider along a horizontal or vertical groove [br]
+		and translates the slider's position into an integer value within the legal range.[/classfnc]()
+	@functions:
+		!fn: $setOrientation(<orientation:string>)
+		Sets the slider's orientation.[br]
+		Orientation value can be "Horizontal" or "Vertical".
+		!fn: $setTracking(<bTracking:boolean>)
+		Sets whether slider tracking is enabled to enable.[br]
+		Value can be 1 or 0.
+		!fn: $setMaxValue(<value:integer>)
+		Sets maximum value for slider's range.
+		!fn: $setMinValue(<minv_value:integer>)
+		Sets minimum value for slider's range.
+		!fn: $setLineStep(<line_step:integer>)
+		Sets the  line step to <line_step>.
+		!fn: $setPageStep(<page_step:integer>)
+		Sets the  page step to <page_step>.
+		!fn: $setTickmarks(<tick_marks:string>)
+		Sets the tickmark settings for this slider.[br]
+		Values are:[br]
+		NoMarks - do not draw any tickmarks.[br]
+		Both - draw tickmarks on both sides of the groove.[br]
+		Above - draw tickmarks above the (horizontal) slider[br]
+		Below - draw tickmarks below the (horizontal) slider[br]
+		Left - draw tickmarks to the left of the (vertical) slider[br]
+		Right - draw tickmarks to the right of the (vertical) slider
+		!fn: $setTickInterval(<value>)
+		Sets the interval between tickmarks.
+		!fn: <integer> $value()
+		Returns slider value.
+		!fn: <integer> $minValue()
+		Returns slider minValue.
+		!fn: <integer> $maxValue()
+		Returns slider maxValue.
+		!fn: <integer> $lineStep()
+		Returns slider lineStep value.
+		!fn: <integer>$pageStep()
+		Returns slider pageStep value.
+		!fn: $valueChangedEvent(<new slider value:integer>)
+		This function is called by the framework when the slider value is changed and return the new slider value as its argument.[br]
+		The default implementation emits the [classfnc]$valueChanged[/classfnc]() signal,
+		so it is easy to handle the values from many sliders without reimplementing
+		the [classfnc]$valueChangedEvent[/classfnc]() for every one.[br]
+		Note: If you reimplement this function to catch the slider value, you will have to emit the signal by yourself (if you still need it, obviously).
+		@signals:
+		!sg: $valueChanged()
+		This signal is emitted by the default implementation of [classfnc]valueChangedEvent[/classfnc]().[br]
+		If you reimplement that function you will have to emit the signal manually (if you still need it).
+
+*/
+
+
+
+KVSO_BEGIN_REGISTERCLASS(KviKvsObject_slider,"slider","widget")
+
+
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setTracking", functionsetTracking);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setValue", functionsetValue);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setMinValue", functionsetMinValue);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setMaxValue", functionsetMaxValue);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setLineStep", functionsetLineStep);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setPageStep", functionsetPageStep);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setTickInterval", functionsetTickInterval);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"value",functionvalue);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"minValue", functionminValue);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"maxValue", functionmaxValue);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"lineStep", functionlineStep);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"pageStep", functionpageStep);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setTickmarks", functionsetTickmarks);
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"setOrientation", functionsetOrientation);
+
+
+	KVSO_REGISTER_HANDLER(KviKvsObject_slider,"valueChangedEvent", functionvalueChangedEvent);
+KVSO_END_REGISTERCLASS(KviKvsObject_slider)
+
+KVSO_BEGIN_CONSTRUCTOR(KviKvsObject_slider,KviKvsObject_widget)
+
+KVSO_END_CONSTRUCTOR(KviKvsObject_slider)
+
+
+KVSO_BEGIN_DESTRUCTOR(KviKvsObject_slider)
+
+KVSO_END_CONSTRUCTOR(KviKvsObject_slider)
+
+bool KviKvsObject_slider::init(KviKvsRunTimeContext * pContext,KviKvsVariantList *pParams)
+{
+	setObject(new QSlider(parentScriptWidget(), name()), true);
+	connect(widget(),SIGNAL(valueChanged(int)),this,SLOT(valueChanged(int)));
+	return true;
+}
+
+bool KviKvsObject_slider::functionsetTracking(KviKvsObjectFunctionCall *c)
+{
+	bool bEnabled;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("bEnabled",KVS_PT_BOOL,0,bEnabled)
+	KVSO_PARAMETERS_END(c)
+	if(widget())
+		((QSlider *)widget())->setTracking(bEnabled);
+	return true;
+}
+
+
+bool KviKvsObject_slider::functionsetValue(KviKvsObjectFunctionCall *c)
+{
+	kvs_int_t iValue;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("value",KVS_PT_INT,0,iValue)
+	KVSO_PARAMETERS_END(c)
+    if (widget()) ((QSlider *)widget())->setValue(iValue);
+	return true;
+}
+bool KviKvsObject_slider::functionsetMinValue(KviKvsObjectFunctionCall *c)
+{
+	kvs_int_t iMinvalue;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("minimum_value",KVS_PT_INT,0,iMinvalue)
+	KVSO_PARAMETERS_END(c)
+    if (widget()) ((QSlider *)widget())->setMinValue(iMinvalue);
+	return true;
+}
+bool KviKvsObject_slider::functionsetMaxValue(KviKvsObjectFunctionCall *c)
+{
+	kvs_int_t iMaxvalue;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("max_value",KVS_PT_INT,0,iMaxvalue)
+	KVSO_PARAMETERS_END(c)
+    if (widget()) ((QSlider *)widget())->setMaxValue(iMaxvalue);
+	return true;
+}
+
+bool KviKvsObject_slider::functionsetLineStep(KviKvsObjectFunctionCall *c)
+{
+	kvs_int_t iLinestep;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("line_step",KVS_PT_INT,0,iLinestep)
+	KVSO_PARAMETERS_END(c)
+    if (widget()) ((QSlider *)widget())->setLineStep(iLinestep);
+	return true;
+}
+bool KviKvsObject_slider::functionsetPageStep(KviKvsObjectFunctionCall *c)
+{
+	kvs_int_t iPagestep;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("page_step",KVS_PT_INT,0,iPagestep)
+	KVSO_PARAMETERS_END(c)
+    if (widget()) ((QSlider *)widget())->setPageStep(iPagestep);
+	return true;
+}
+
+bool KviKvsObject_slider::functionsetTickInterval(KviKvsObjectFunctionCall *c)
+{
+	kvs_int_t iInterval;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("tick_interval",KVS_PT_INT,0,iInterval)
+	KVSO_PARAMETERS_END(c)
+    if (widget()) ((QSlider *)widget())->setTickInterval(iInterval);
+	return true;
+}
+
+bool KviKvsObject_slider::functionvalue(KviKvsObjectFunctionCall *c)
+{
+	if (widget()) c->returnValue()->setInteger(((QSlider *)widget())->value());
+	return true;
+}
+
+bool KviKvsObject_slider::functionminValue(KviKvsObjectFunctionCall *c)
+{
+	if (widget()) c->returnValue()->setInteger(((QSlider *)widget())->minValue());
+	return true;
+}
+bool KviKvsObject_slider::functionmaxValue(KviKvsObjectFunctionCall *c)
+{
+	if (widget()) c->returnValue()->setInteger(((QSlider *)widget())->maxValue());
+	return true;
+}
+bool KviKvsObject_slider::functionlineStep(KviKvsObjectFunctionCall *c)
+{
+	if (widget()) c->returnValue()->setInteger(((QSlider *)widget())->lineStep());
+	return true;
+}
+
+bool KviKvsObject_slider::functionpageStep(KviKvsObjectFunctionCall *c)
+{
+	if (widget()) c->returnValue()->setInteger(((QSlider *)widget())->pageStep());
+	return true;
+}
+
+
+bool KviKvsObject_slider::functionsetTickmarks(KviKvsObjectFunctionCall *c)
+{
+
+	QString szTick;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("tick_marks",KVS_PT_STRING,0,szTick)
+	KVSO_PARAMETERS_END(c)
+	if(!widget())return true;
+	if(KviQString::equalCI(szTick,"NoMarks"))
+		((QSlider *)widget())->setTickmarks(QSlider::NoMarks);
+	else if(KviQString::equalCI(szTick,"Both"))
+		((QSlider *)widget())->setTickmarks(QSlider::Both);
+	else if(KviQString::equalCI(szTick,"Above"))
+		((QSlider *)widget())->setTickmarks(QSlider::Above);
+	else if(KviQString::equalCI(szTick,"Below"))
+		((QSlider *)widget())->setTickmarks(QSlider::Below);
+	else if(KviQString::equalCI(szTick,"Left"))
+		((QSlider *)widget())->setTickmarks(QSlider::Left);
+	else if(KviQString::equalCI(szTick,"Right"))
+			((QSlider *)widget())->setTickmarks(QSlider::Right);
+	else c->warning( __tr2qs("Unknown tickmark '%Q'"),&szTick);
+	return true;
+}
+bool KviKvsObject_slider::functionsetOrientation(KviKvsObjectFunctionCall *c)
+{
+
+	QString szOrientation;
+	KVSO_PARAMETERS_BEGIN(c)
+		KVSO_PARAMETER("orientation",KVS_PT_STRING,0,szOrientation)
+	KVSO_PARAMETERS_END(c)
+	if(!widget())return true;
+	if(KviQString::equalCI(szOrientation,"Horizontal"))
+		((QSlider *)widget())->setOrientation(Qt::Horizontal);
+	else if(KviQString::equalCI(szOrientation,"Vertical"))
+		((QSlider *)widget())->setOrientation(Qt::Vertical);
+	else c->warning( __tr2qs("Unknown orientation '%Q'"),&szOrientation);
+	return true;
+}
+bool KviKvsObject_slider::functionvalueChangedEvent(KviKvsObjectFunctionCall *c)
+{
+	emitSignal("valueChanged",c,c->params());
+	return true;
+}
+
+void KviKvsObject_slider::valueChanged(int value)
+{
+	KviKvsVariantList params(new KviKvsVariant((kvs_int_t)value));
+	callFunction(this,"valueChangedEvent",&params);
+}
+
+
+#include "m_class_slider.moc"