Remove unused basic/workben

3 files changed, 0 insertions, 699 deletions

diff --git a/basic/workben/basmgr.src b/basic/workben/basmgr.src
deleted file mode 100644
index f89c719c2399..000000000000
--- a/basic/workben/basmgr.src
+++ /dev/null
@@ -1,31 +0,0 @@
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org 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 Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org.  If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-#pragma CHARSET_IBMPC
-
-String 300 {
-    Text = "Dummy";
-};
diff --git a/basic/workben/makefile.mk b/basic/workben/makefile.mk
deleted file mode 100644
index def38732bf5b..000000000000
--- a/basic/workben/makefile.mk
+++ /dev/null
@@ -1,78 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-# 
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org 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 Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org.  If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-PRJ=..
-
-PRJNAME=basic
-TARGET=miniapp
-TARGETTYPE=GUI
-
-# --- Settings ---------------------------------------------------
-
-.INCLUDE :  settings.mk
-
-# --- SBASIC IDE --------------------------------------------------------
-
-APP1TARGET=$(PRJNAME)app
-APP1STDLIBS= \
-            $(SALLIB) \
-            $(TOOLSLIB) \
-            $(UNOTOOLSLIB) \
-            $(SVTOOLLIB) \
-            $(SVLLIB) \
-            $(VCLLIB) \
-            $(COMPHELPERLIB) \
-            $(UCBHELPERLIB) \
-            $(CPPUHELPERLIB) \
-            $(CPPULIB) \
-            $(SOTLIB) \
-
-.IF "$(GUI)"!="OS2"
-APP1LIBS= \
-            $(LB)$/basic.lib 
-.ENDIF
-APP1LIBS+= \
-            $(LB)$/app.lib \
-            $(LB)$/sample.lib
-.IF "$(GUI)"=="UNX" || "$(GUI)"=="OS2"
-APP1STDLIBS+=	\
-            $(BASICLIB)
-.ENDIF
-
-
-APP1DEPN=	$(L)$/itools.lib $(SVLIBDEPEND) $(LB)$/basic.lib $(LB)$/app.lib $(LB)$/sample.lib
-
-APP1OBJS = $(OBJ)$/ttbasic.obj 
-
-.IF "$(GUI)" != "UNX"
-APP1OBJS+=	\
-            $(OBJ)$/app.obj \
-            $(SLO)$/sbintern.obj
-.ENDIF
-
-.INCLUDE :  target.mk
-
diff --git a/basic/workben/mgrtest.cxx b/basic/workben/mgrtest.cxx
deleted file mode 100644
index 8059cf4de3a9..000000000000
--- a/basic/workben/mgrtest.cxx
+++ /dev/null
@@ -1,590 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org 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 Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org.  If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_basic.hxx"
-#include <vcl/svapp.hxx>
-#include <vcl/wrkwin.hxx>
-#include <vcl/toolbox.hxx>
-#include <vcl/msgbox.hxx>
-#include <vcl/sound.hxx>
-#include <basic/basmgr.hxx>
-#include <basic/sbx.hxx>
-#include <basic/sbmod.hxx>
-#include <basic/basrdll.hxx>
-
-// Defines for ToolBox-Id's
-#define TB_NEW              1
-#define TB_OPENSTORAGE      2
-#define TB_SAVESTORAGE      3
-#define TB_ORG              4
-#define TB_CREATELIB1       10
-#define TB_CREATELIB2       11
-#define TB_CREATELIB3       12
-#define TB_LOADLIB1         20
-#define TB_LOADLIB2         21
-#define TB_LOADLIB3         22
-#define TB_STORELIBX        30
-#define TB_UNLOADX          31
-#define TB_LOADX            32
-#define TB_EXECX            33
-#define TB_REMOVEX          34
-#define TB_REMOVEDELX       35
-
-#define TB_LIB0             40
-#define TB_LIB1             41
-#define TB_LIB2             42
-#define TB_LIB3             43
-
-const char* pLib1Str = "Lib1";
-const char* pLib2Str = "Lib2";
-const char* pLib3Str = "Lib3";
-
-// Test-Application
-class TestApp : public Application
-{
-public:
-    virtual void Main( void );
-    virtual void Main( int, char*[] );
-};
-
-// Test-Window with a ToolBox to choose a test from
-// and the typically used virtual methods
-class TestWindow : public WorkWindow
-{
-private:
-    ToolBox         aToolBox;
-    BasicManager*   pBasMgr;
-
-    void            CheckError();
-    USHORT          nLibX;
-    DECL_LINK( BasicErrorHdl, StarBASIC * );
-
-
-public:
-                    TestWindow();
-                    ~TestWindow();
-
-    virtual void    Paint( const Rectangle& );
-    virtual void    Resize();
-    virtual void    KeyInput( const KeyEvent& rKeyEvt );
-    virtual void    MouseMove( const MouseEvent& rMEvt );
-    virtual void    MouseButtonDown( const MouseEvent& rMEvt );
-    virtual void    MouseButtonUp( const MouseEvent& rMEvt );
-
-    DECL_LINK( TBSelect, ToolBox * );
-    void            UpdateToolBox();
-    void            ShowInfo();
-};
-
-TestWindow::~TestWindow()
-{
-}
-
-TestWindow::TestWindow() :
-    WorkWindow( NULL, WB_APP | WB_STDWORK | WB_3DLOOK | WB_CLIPCHILDREN ) ,
-    aToolBox( this, WinBits( WB_BORDER | WB_3DLOOK | WB_SCROLL | WB_LINESPACING ) )
-{
-    nLibX = 0;
-
-    aToolBox.SetButtonType( BUTTON_TEXT );
-    aToolBox.SetLineCount( 2 );
-    aToolBox.SetPosPixel( Point( 0, 0 ) );
-    aToolBox.SetSelectHdl( LINK( this, TestWindow, TBSelect ) );
-
-    Font aFont;
-    aFont.SetName( "Helv" );
-    aFont.SetSize( Size( 0, 6 ) );
-    aFont.SetPitch( PITCH_VARIABLE );
-    aFont.SetFamily( FAMILY_SWISS );
-    aFont.SetTransparent( TRUE );
-    aFont.SetAlign( ALIGN_TOP );
-    aToolBox.SetFont( aFont );
-    SetFont( aFont );
-
-    aToolBox.InsertItem( TB_NEW, "New" );
-    aToolBox.SetHelpText( TB_NEW, "New BasicManager" );
-    aToolBox.InsertItem( TB_OPENSTORAGE, "Load" );
-    aToolBox.SetHelpText( TB_OPENSTORAGE, "Load Storage D:\\MYSTORE.SVS" );
-    aToolBox.InsertItem( TB_SAVESTORAGE, "Save" );
-    aToolBox.SetHelpText( TB_SAVESTORAGE, "Save Storage D:\\MYSTORE.SVS" );
-
-    aToolBox.InsertSeparator();
-
-    aToolBox.InsertItem( TB_ORG, "Verwalten" );
-    aToolBox.SetHelpText( TB_ORG, "Libaries verwalten" );
-
-    aToolBox.InsertSeparator();
-
-    aToolBox.InsertItem( TB_LIB0, "0" );
-    aToolBox.SetHelpText( TB_LIB0, "Aktuelle Lib: STANDARD" );
-    aToolBox.InsertItem( TB_LIB1, "1" );
-    aToolBox.SetHelpText( TB_LIB1, "Aktuelle Lib: 1" );
-    aToolBox.InsertItem( TB_LIB2, "2" );
-    aToolBox.SetHelpText( TB_LIB2, "Aktuelle Lib: 2" );
-    aToolBox.InsertItem( TB_LIB3, "3" );
-    aToolBox.SetHelpText( TB_LIB3, "Aktuelle Lib: 3" );
-
-    aToolBox.InsertBreak();
-    aToolBox.InsertItem( TB_CREATELIB1, "CreateLib1" );
-    aToolBox.SetHelpText( TB_CREATELIB1, "Create Libary LIB1" );
-    aToolBox.InsertItem( TB_CREATELIB2, "CreateLib2" );
-    aToolBox.SetHelpText( TB_CREATELIB2, "Create Libary LIB2" );
-    aToolBox.InsertItem( TB_CREATELIB3, "CreateLib3" );
-    aToolBox.SetHelpText( TB_CREATELIB3, "Create Libary LIB3" );
-
-    aToolBox.InsertSeparator();
-    aToolBox.InsertItem( TB_LOADLIB1, "LoadLib1" );
-    aToolBox.SetHelpText( TB_LOADLIB1, "Load Libary LIB1" );
-    aToolBox.InsertItem( TB_LOADLIB2, "LoadLib2" );
-    aToolBox.SetHelpText( TB_LOADLIB2, "Load Libary LIB2" );
-    aToolBox.InsertItem( TB_LOADLIB3, "LoadLib3" );
-    aToolBox.SetHelpText( TB_LOADLIB3, "Load Libary LIB3" );
-
-    aToolBox.InsertSeparator();
-    aToolBox.InsertItem( TB_STORELIBX, "StoreLibX" );
-    aToolBox.SetHelpText( TB_STORELIBX, "Store Libary LIBX" );
-    aToolBox.InsertItem( TB_UNLOADX, "UnloadX" );
-    aToolBox.SetHelpText( TB_UNLOADX, "Unload Libary LIBX" );
-    aToolBox.InsertItem( TB_LOADX, "LoadX" );
-    aToolBox.SetHelpText( TB_LOADX, "Load Libary LIBX" );
-    aToolBox.InsertItem( TB_EXECX, "ExecX" );
-    aToolBox.SetHelpText( TB_EXECX, "Execute 'Libary' LIBX" );
-    aToolBox.InsertItem( TB_REMOVEX, "RemoveX" );
-    aToolBox.SetHelpText( TB_REMOVEX, "Remove Libary LIBX" );
-    aToolBox.InsertItem( TB_REMOVEDELX, "RemDelX" );
-    aToolBox.SetHelpText( TB_REMOVEDELX, "Remove and delete Libary LIBX" );
-
-    pBasMgr = 0;
-
-    Show();
-    UpdateToolBox();
-    aToolBox.Show();
-}
-void TestWindow::ShowInfo()
-{
-    Invalidate();
-    Update();
-    long nH = GetTextSize( "X" ).Height();
-    if ( pBasMgr )
-    {
-        Point aPos( 10, aToolBox.GetSizePixel().Height()+5 );
-        for ( USHORT nLib = 0; nLib < pBasMgr->GetLibCount(); nLib++ )
-        {
-            String aOutStr( nLib );
-            aOutStr +=": ";
-            StarBASIC* pL = pBasMgr->GetLib( nLib );
-            aOutStr += '[';
-            aOutStr += pBasMgr->GetLibName( nLib );
-            aOutStr += "]<";
-            if ( pL )
-                aOutStr += pL->GetName();
-            else
-                aOutStr += "NoLoaded";
-            aOutStr += ">, Storage='";
-            aOutStr += pBasMgr->GetLibStorageName( nLib );
-            aOutStr += "', bLoaded=";
-            aOutStr += (USHORT)pBasMgr->IsLibLoaded( nLib );
-            DrawText( aPos, aOutStr );
-            aPos.Y() += nH;
-        }
-    }
-}
-
-void TestWindow::UpdateToolBox()
-{
-    // View of some buttons as checked or disabled if
-    // wished by tests
-    aToolBox.EnableItem( TB_ORG, (BOOL)(ULONG)pBasMgr );
-
-    aToolBox.EnableItem( TB_CREATELIB1, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_CREATELIB2, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_CREATELIB3, (BOOL)(ULONG)pBasMgr );
-
-    aToolBox.EnableItem( TB_LOADLIB1, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_LOADLIB2, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_LOADLIB3, (BOOL)(ULONG)pBasMgr );
-
-    aToolBox.EnableItem( TB_STORELIBX, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_EXECX, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_UNLOADX, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_LOADX, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_REMOVEX, (BOOL)(ULONG)pBasMgr );
-    aToolBox.EnableItem( TB_REMOVEDELX, (BOOL)(ULONG)pBasMgr );
-
-    aToolBox.CheckItem( TB_LIB0, nLibX == 0 );
-    aToolBox.CheckItem( TB_LIB1, nLibX == 1 );
-    aToolBox.CheckItem( TB_LIB2, nLibX == 2 );
-    aToolBox.CheckItem( TB_LIB3, nLibX == 3 );
-}
-
-IMPL_LINK( TestWindow, TBSelect, ToolBox *, p )
-{
-    USHORT nId = aToolBox.GetCurItemId();
-    BOOL bChecked = aToolBox.IsItemChecked( nId );
-    switch ( nId )
-    {
-        case TB_NEW:
-        {
-            delete pBasMgr;
-            pBasMgr = new BasicManager( new StarBASIC );
-            pBasMgr->SetStorageName( "d:\\mystore.svs" );
-        }
-        break;
-        case TB_OPENSTORAGE:
-        {
-            delete pBasMgr;
-            SvStorageRef xStorage = new SvStorage( "d:\\mystore.svs", STREAM_READ | STREAM_SHARE_DENYWRITE );
-            DBG_ASSERT( xStorage.Is(), "Kein Storage!" );
-            pBasMgr = new BasicManager( *xStorage );
-        }
-        break;
-        case TB_SAVESTORAGE:
-        {
-            if ( pBasMgr)
-            {
-                SvStorageRef xStorage = new SvStorage( "d:\\mystore.svs" );
-                DBG_ASSERT( xStorage.Is(), "Kein Storage!" );
-                pBasMgr->Store( *xStorage );
-            }
-        }
-        break;
-        case TB_ORG:
-        {
-            if ( pBasMgr)
-            {
-                InfoBox( 0, "Organisieren..." ).Execute();
-            }
-        }
-        break;
-        case TB_CREATELIB1:
-        {
-            if ( pBasMgr )
-            {
-                USHORT nLib = pBasMgr->GetLibId( pBasMgr->CreateLib( pLib1Str ) );
-                if ( nLib != LIB_NOTFOUND )
-                {
-                    pBasMgr->SetLibStorageName( nLib, "d:\\mystore.svs" );
-                    StarBASIC* pLib = pBasMgr->GetLib( pLib1Str );
-                    DBG_ASSERT( pLib, "Lib?!" );
-                    String aSource( "Sub SubInLib1Mod1\nprint\"XXX\"\nEnd Sub");
-                    SbModule* pM = pLib->MakeModule( "ModLib1", aSource  );
-                    DBG_ASSERT( pM, "Modul?" );
-                    pLib->Compile( pM );
-                }
-                else
-                    InfoBox( 0, "CreateLibary fehlgeschlagen..." ).Execute();
-            }
-        }
-        break;
-        case TB_CREATELIB2:
-        {
-            if ( pBasMgr )
-            {
-                USHORT nLib = pBasMgr->GetLibId( pBasMgr->CreateLib( pLib2Str ) );
-                if ( nLib != LIB_NOTFOUND )
-                {
-                    pBasMgr->SetLibStorageName( nLib, "d:\\mystore.svs" );
-                    StarBASIC* pLib = pBasMgr->GetLib( pLib2Str );
-                    DBG_ASSERT( pLib, "Lib?!" );
-                    SbModule* pM = pLib->MakeModule( "ModuleLib2", "Sub SubInLib2\n print \"Tralala\" \nEnd Sub\n" );
-                    pLib->Compile( pM );
-                }
-                else
-                    InfoBox( 0, "CreateLibary fehlgeschlagen..." ).Execute();
-            }
-        }
-        break;
-        case TB_CREATELIB3:
-        {
-            if ( pBasMgr )
-            {
-                // is located in another storage !!!
-                USHORT nLib = pBasMgr->GetLibId( pBasMgr->CreateLib( pLib3Str ) );
-                if ( nLib != LIB_NOTFOUND )
-                {
-                    pBasMgr->SetLibStorageName( nLib, "d:\\mystore2.svs" );
-                    StarBASIC* pLib = pBasMgr->GetLib( pLib3Str );
-                    DBG_ASSERT( pLib, "Lib?!" );
-                    SbModule* pM = pLib->MakeModule( "ModuleLib2", "Sub XYZInLib3\n print \"?!\" \nEnd Sub\n" );
-                    pLib->Compile( pM );
-                }
-                else
-                    InfoBox( 0, "CreateLibary fehlgeschlagen..." ).Execute();
-            }
-        }
-        break;
-        case TB_LOADLIB1:
-        {
-            if ( pBasMgr )
-            {
-                SvStorageRef xStorage = new SvStorage( "d:\\mystore.svs" );
-                if ( !pBasMgr->AddLib( *xStorage, pLib1Str, FALSE ) )
-                    Sound::Beep();
-            }
-        }
-        break;
-        case TB_LOADLIB2:
-        {
-            if ( pBasMgr )
-            {
-                SvStorageRef xStorage = new SvStorage( "d:\\mystore.svs" );
-                if ( !pBasMgr->AddLib( *xStorage, pLib2Str, FALSE ) )
-                    Sound::Beep();
-            }
-        }
-        break;
-        case TB_LOADLIB3:
-        {
-            if ( pBasMgr )
-            {
-                // is located in another storage !!!
-                SvStorageRef xStorage = new SvStorage( "d:\\mystore2.svs" );
-                if ( !pBasMgr->AddLib( *xStorage, pLib3Str, FALSE ) )
-                    Sound::Beep();
-            }
-        }
-        break;
-        case TB_STORELIBX:
-        {
-            if ( pBasMgr )
-                pBasMgr->StoreLib( nLibX );
-        }
-        break;
-        case TB_UNLOADX:
-        {
-            if ( pBasMgr )
-                pBasMgr->UnloadLib( nLibX );
-        }
-        break;
-        case TB_LOADX:
-        {
-            if ( pBasMgr )
-                pBasMgr->LoadLib( nLibX );
-        }
-        break;
-        case TB_REMOVEX:
-        {
-            if ( pBasMgr )
-                pBasMgr->RemoveLib( nLibX, FALSE );
-        }
-        break;
-        case TB_REMOVEDELX:
-        {
-            if ( pBasMgr )
-                pBasMgr->RemoveLib( nLibX, TRUE );
-        }
-        break;
-        case TB_EXECX:
-        {
-            if ( pBasMgr )
-            {
-                StarBASIC* pBasic = pBasMgr->GetLib( nLibX );
-                if ( pBasic && pBasic->GetModules()->Count() )
-                {
-                    pBasic->SetErrorHdl( LINK( this, TestWindow, BasicErrorHdl ) );
-
-                    SbModule* pMod = (SbModule*)pBasic->GetModules()->Get( 0 );
-                    if ( pMod && pMod->GetMethods()->Count() )
-                        pMod->GetMethods()->Get(0)->GetInteger();
-                }
-            }
-        }
-        break;
-
-        case TB_LIB0:   nLibX = 0;
-        break;
-        case TB_LIB1:   nLibX = 1;
-        break;
-        case TB_LIB2:   nLibX = 2;
-        break;
-        case TB_LIB3:   nLibX = 3;
-        break;
-    }
-
-    UpdateToolBox();
-    CheckError();
-    ShowInfo();
-    return 0;
-}
-
-void TestWindow::CheckError()
-{
-     if ( pBasMgr )
-     {
-        BasicError* pError = pBasMgr->GetFirstError();
-        while ( pError )
-        {
-            String aErrorStr;
-            String aReasonStr;
-            switch ( pError->GetErrorId() )
-            {
-                case BASERR_ID_STDLIBOPEN:
-                    aErrorStr = "Standard-Lib konnte nicht geoffnet werden.";
-                break;
-                case BASERR_ID_STDLIBSAVE:
-                    aErrorStr = "Standard-Lib konnte nicht gespeichert werden.";
-                break;
-                case BASERR_ID_LIBLOAD:
-                    aErrorStr = "Lib konnte nicht geoffnet werden.";
-                break;
-                case BASERR_ID_LIBCREATE:
-                    aErrorStr = "Lib konnte nicht erzeugt werden.";
-                break;
-                case BASERR_ID_LIBSAVE:
-                    aErrorStr = "Lib konnte nicht gespeichert werden.";
-                break;
-                case BASERR_ID_MGROPEN:
-                    aErrorStr = "Manager konnte nicht geladen werden.";
-                break;
-                case BASERR_ID_MGRSAVE:
-                    aErrorStr = "Manager konnte nicht gespeichert werden.";
-                break;
-                case BASERR_ID_UNLOADLIB:
-                    aErrorStr = "Libary konnte nicht entladen werden.";
-                break;
-                case BASERR_ID_REMOVELIB:
-                    aErrorStr = "Libary konnte nicht entfernt werden.";
-                break;
-                default:
-                    aErrorStr = "Unbekannter Fehler!";
-            }
-
-            switch ( pError->GetReason() )
-            {
-                case BASERR_REASON_OPENSTORAGE:
-                    aReasonStr = "Der Storage konnte nicht geoeffnet werden";
-                break;
-                case BASERR_REASON_OPENLIBSTORAGE:
-                    aReasonStr = "Der Lib-Storage konnte nicht geoeffnet werden";
-                break;
-                case BASERR_REASON_OPENMGRSTREAM:
-                    aReasonStr = "Der Manager-Stream konnte nicht geoeffnet werden";
-                break;
-                case BASERR_REASON_OPENLIBSTREAM:
-                    aReasonStr = "Der Basic-Stream konnte nicht geoeffnet werden";
-                break;
-                case BASERR_REASON_STDLIB:
-                    aReasonStr = "STANDARD-Lib";
-                break;
-                case BASERR_REASON_BASICLOADERROR:
-                    aReasonStr = "Fehler beim Laden des Basics";
-                default:
-                    aReasonStr = " - ";
-            }
-
-            String aErr( aErrorStr );
-            aErr += "\nGrund: ";
-            aErr += aReasonStr;
-            InfoBox( 0, aErr ).Execute();
-
-            pError = pBasMgr->GetNextError();
-        }
-        pBasMgr->ClearErrors();
-     }
-}
-
-void TestWindow::Paint( const Rectangle& rRec )
-{
-}
-
-void TestWindow::Resize()
-{
-    Size aTBSz = aToolBox.CalcWindowSizePixel();
-    aToolBox.SetSizePixel( Size( GetOutputSizePixel().Width(), aTBSz.Height()) );
-    Invalidate();
-    ShowInfo();
-}
-
-void TestWindow::KeyInput( const KeyEvent& rKEvt )
-{
-    char nCharCode = rKEvt.GetCharCode();
-    USHORT nCode = rKEvt.GetKeyCode().GetCode();
-
-    // Only at Alt-Return
-    if ( ( nCode == KEY_RETURN ) && rKEvt.GetKeyCode().IsMod2() )
-        ;
-    else
-        WorkWindow::KeyInput( rKEvt );
-
-    UpdateToolBox();
-}
-
-void TestWindow::MouseMove( const MouseEvent& rMEvt )
-{
-}
-
-void TestWindow::MouseButtonDown( const MouseEvent& rMEvt )
-{
-    ShowInfo();
-}
-
-void TestWindow::MouseButtonUp( const MouseEvent& rMEvt )
-{
-    UpdateToolBox();
-}
-
-IMPL_LINK( TestWindow, BasicErrorHdl, StarBASIC *, pBasic )
-{
-    String aErrorText( pBasic->GetErrorText() );
-
-    String aErrorTextPrefix;
-    if( pBasic->IsCompilerError() )
-    {
-        aErrorTextPrefix = "Compilererror: ";
-    }
-    else
-    {
-        aErrorTextPrefix = "Runtimeerror: ";
-        aErrorTextPrefix += pBasic->GetErrorCode();
-        aErrorTextPrefix += " ";
-    }
-
-    InfoBox( 0, String( aErrorTextPrefix + aErrorText ) ).Execute();
-    return 0;
-}
-
-void TestApp::Main( void )
-{
-    Main( 0, NULL );
-}
-
-void TestApp::Main( int, char*[] )
-{
-    BasicDLL aBasiDLL;
-    SvFactory::Init();
-    EnableSVLook();
-    TestWindow aWindow;
-    Execute();
-    SvFactory::DeInit();
-}
-
-
-TestApp aTestApp;
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */