From 149136ba9d5eb81d5bee032654a0836ab95c2807 Mon Sep 17 00:00:00 2001 From: marco Date: Sat, 5 Jan 2008 19:31:13 +0000 Subject: [PATCH] * demoes moved for winunits-base git-svn-id: trunk@9640 - --- .gitattributes | 10 +++++----- .../examples => winunits-base/tests}/OOHelper.pp | 0 .../examples => winunits-base/tests}/OOTest.pp | 8 ++++---- .../examples => winunits-base/tests}/testcom1.pp | 0 .../examples => winunits-base/tests}/testcom2.pp | 0 .../examples => winunits-base/tests}/testver.pp | 0 6 files changed, 9 insertions(+), 9 deletions(-) rename packages/{base/winunits/examples => winunits-base/tests}/OOHelper.pp (100%) rename packages/{base/winunits/examples => winunits-base/tests}/OOTest.pp (99%) rename packages/{base/winunits/examples => winunits-base/tests}/testcom1.pp (100%) rename packages/{base/winunits/examples => winunits-base/tests}/testcom2.pp (100%) rename packages/{base/winunits/examples => winunits-base/tests}/testver.pp (100%) diff --git a/.gitattributes b/.gitattributes index cf97d6448e..ec65f74616 100644 --- a/.gitattributes +++ b/.gitattributes @@ -1445,11 +1445,6 @@ packages/base/sqlite/testapiv3x.pp -text packages/base/winunits/Makefile svneol=native#text/plain packages/base/winunits/Makefile.fpc svneol=native#text/plain packages/base/winunits/buildjwa.pp svneol=native#text/plain -packages/base/winunits/examples/OOHelper.pp svneol=native#text/plain -packages/base/winunits/examples/OOTest.pp -text svneol=unset#text/plain -packages/base/winunits/examples/testcom1.pp svneol=native#text/plain -packages/base/winunits/examples/testcom2.pp svneol=native#text/plain -packages/base/winunits/examples/testver.pp svneol=native#text/plain packages/base/winunits/fpmake.inc svneol=native#text/plain packages/base/winunits/fpmake.pp svneol=native#text/plain packages/extra/Makefile svneol=native#text/plain @@ -4323,6 +4318,11 @@ packages/winunits-base/src/shellapi.pp svneol=native#text/plain packages/winunits-base/src/shfolder.pp svneol=native#text/plain packages/winunits-base/src/shlobj.pp svneol=native#text/plain packages/winunits-base/src/winver.pp svneol=native#text/plain +packages/winunits-base/tests/OOHelper.pp svneol=native#text/plain +packages/winunits-base/tests/OOTest.pp svneol=native#text/plain +packages/winunits-base/tests/testcom1.pp svneol=native#text/plain +packages/winunits-base/tests/testcom2.pp svneol=native#text/plain +packages/winunits-base/tests/testver.pp svneol=native#text/plain packages/winunits-jedi/Makefile svneol=native#text/plain packages/winunits-jedi/Makefile.fpc svneol=native#text/plain packages/winunits-jedi/fpmake.inc svneol=native#text/plain diff --git a/packages/base/winunits/examples/OOHelper.pp b/packages/winunits-base/tests/OOHelper.pp similarity index 100% rename from packages/base/winunits/examples/OOHelper.pp rename to packages/winunits-base/tests/OOHelper.pp diff --git a/packages/base/winunits/examples/OOTest.pp b/packages/winunits-base/tests/OOTest.pp similarity index 99% rename from packages/base/winunits/examples/OOTest.pp rename to packages/winunits-base/tests/OOTest.pp index 8221b8b2c9..777fa6cd6a 100644 --- a/packages/base/winunits/examples/OOTest.pp +++ b/packages/winunits-base/tests/OOTest.pp @@ -63,21 +63,21 @@ begin writeln('done.') else error; -{ +{ try writeln('Inserting Table ...'); Sample.InsertTable(Edit2.Text, Edit1.Text); writeln('Ready'); - except + except Error; end; } write('Disconnection from StarOffice ... '); Sample.Disconnect(); - writeln('done.'); + writeln('done.'); writeln('Finished'); end. - + { end; diff --git a/packages/base/winunits/examples/testcom1.pp b/packages/winunits-base/tests/testcom1.pp similarity index 100% rename from packages/base/winunits/examples/testcom1.pp rename to packages/winunits-base/tests/testcom1.pp diff --git a/packages/base/winunits/examples/testcom2.pp b/packages/winunits-base/tests/testcom2.pp similarity index 100% rename from packages/base/winunits/examples/testcom2.pp rename to packages/winunits-base/tests/testcom2.pp diff --git a/packages/base/winunits/examples/testver.pp b/packages/winunits-base/tests/testver.pp similarity index 100% rename from packages/base/winunits/examples/testver.pp rename to packages/winunits-base/tests/testver.pp