From bcb704366cb5e333a626c18c308c7e0448a8e69f Mon Sep 17 00:00:00 2001
From: toma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 25 Nov 2009 17:56:58 +0000
Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
 BUG:215923

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdenetwork@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 ksirc/puke/small.pl | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100644 ksirc/puke/small.pl

(limited to 'ksirc/puke/small.pl')

diff --git a/ksirc/puke/small.pl b/ksirc/puke/small.pl
new file mode 100644
index 00000000..7e7b251d
--- /dev/null
+++ b/ksirc/puke/small.pl
@@ -0,0 +1,65 @@
+&docommand("/load pbase.pm");
+&docommand("/load pwidget.pm");
+&docommand("/load pframe.pm");
+&docommand("/load pboxlayout.pm");
+&docommand("/load plined.pm");
+&docommand("/load pbutton.pm");
+&docommand("/load ppushbt.pm");
+&docommand("/load pprogress.pm");
+&docommand("/load ptablevw.pm");
+&docommand("/load plistbox.pm");
+&docommand("/load plabel.pm");
+
+$pw = new PWidget;
+$pw->resize(250,500);
+
+$pf = new PFrame($pw);
+$pf->setFrameStyle($PFrame::Panel|$PFrame::Sunken, 1);
+$pf->move(50,50);
+$pf->resize(150,400);
+$pf->setMinimumSize(50,50);
+
+$pf2 = new PFrame($pw);
+$pf2->setFrameStyle($PFrame::Panel|$PFrame::Raised, 1);
+$pf2->setMinimumSize(50,50);
+
+
+$pl = new PListBox($pw);
+$pl->move(50,50);
+$pl->resize(300, 50);
+$pl->setMinimumSize(50,50);
+
+$label = new PLabel($pw);
+$label->setText("Label");
+$label->setMinimumSize(50,50);
+
+$pb = new PBoxLayout($pw, $PBoxLayout::TopToBottom, 5);
+$pb2 = new PBoxLayout($PBoxLayout::LeftToRight, 5);
+$pb3 = new PBoxLayout($PBoxLayout::TopToBottom, 5);
+$pb->addLayout($pb2);
+$pb->addLayout($pb3);
+$pb->addWidget($pf, 1, $PBoxLayout::AlignCenter);
+$pb2->addWidget($pf2, 10, $PBoxLayout::AlignCenter);
+$pb2->addWidget($pl, 10, $PBoxLayout::AlignCenter);
+$pb2->addWidget($label, 10, $PBoxLayout::AlignCenter);
+
+$pb4 = new PBoxLayout($PBoxLayout::RightToLeft, 1);
+$pb3->addLayout($pb4);
+
+$pb4->addWidget($pf2, 0, $PBoxLayout::AlignCenter);
+
+$pbutton = new PPushButton($pw);
+$pbutton->setText("Hello");
+#$pbutton->setPixmap("/opt/kde/share/icons/ksirc.gif");
+$pbutton->setMaximumSize(50,50);
+$pbutton->setMinimumSize(50,50);
+$pb->addWidget($pbutton, 10, $PBoxLayout::AlignCenter);
+
+$pline = new PLineEdit($pw);
+$pline->setMinimumSize(50, 30);
+$pline->resize(200, 20);
+$pline->setMaximumSize(1000, 30);
+$pline->setText("Hello!");
+$pb->addWidget($pline, 0);
+
+$pw->show;
\ No newline at end of file
-- 
cgit v1.2.1