/************************************************************************* * * $RCSfile: testapp.cxx,v $ * * $Revision: 1.3 $ * * last change: $Author: gh $ $Date: 2002-11-20 13:56:49 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses * * - GNU Lesser General Public License Version 2.1 * - Sun Industry Standards Source License Version 1.1 * * Sun Microsystems Inc., October, 2002 * * GNU Lesser General Public License Version 2.1 * ============================================= * Copyright 2002 by Sun Microsystems, Inc. * 901 San Antonio Road, Palo Alto, CA 94303, USA * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License version 2.1, as published by the Free Software Foundation. * * This library 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 for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, * MA 02111-1307 USA * * * Sun Industry Standards Source License Version 1.1 * ================================================= * The contents of this file are subject to the Sun Industry Standards * Source License Version 1.1 (the "License"); You may not use this file * except in compliance with the License. You may obtain a copy of the * License at http://www.openoffice.org/license.html. * * Software provided under this License is provided on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. * See the License for the specific provisions governing your rights and * obligations concerning the Software. * * The Initial Developer of the Original Code is: Sun Microsystems, Inc. * * Copyright: 2002 by Sun Microsystems, Inc. * * All Rights Reserved. * * Contributor(s): _______________________________________ * * ************************************************************************/ #ifndef _SVT_FILEDLG_HXX //autogen #include #endif #include #ifndef _MSGBOX_HXX //autogen #include #endif #ifndef _DEBUG_HXX //autogen #include #endif #ifndef SVTOOLS_TESTTOOL_HXX //autogen #include #endif #ifndef _SVTOOLS_TTPROPS_HXX // handmade #include #endif #ifndef _RTL_USTRING_HXX_ #include #endif #ifndef _RTL_USTRBUF_HXX_ #include #endif #ifndef _OSL_PROCESS_H_ #include #endif #include #include #ifndef _COMPHELPER_REGPATHHELPER_HXX_ #include #endif #ifndef _COMPHELPER_PROCESSFACTORY_HXX_ #include #endif #include #include #include #include #include "servres.hrc" #include "servres.hxx" #include "testapp.hxx" using namespace comphelper; using namespace cppu; using namespace rtl; using namespace com::sun::star::uno; using namespace com::sun::star::lang; using namespace com::sun::star::registry; using namespace com::sun::star::ucb; MainWindow::MainWindow(MyApp *pAppl) : WorkWindow(NULL, WB_STDWORK) , pApp(pAppl) {} IMPL_LINK(MainWindow,MenuSelectHdl,MenuBar*,aMenu) { return pApp->GetDispatcher()->ExecuteFunction(aMenu->GetCurItemId()); } void MainWindow::FileOpen() { FileDialog Dlg(this,WB_OPEN ); Dlg.AddFilter(CUniString("Alle Dateien"), CUniString("*.*")); Dlg.SetCurFilter (CUniString("*.*")); if (Dlg.Execute() == RET_OK) { EditFileWindow * aEditWin = new EditFileWindow(this,Dlg.GetPath()); } } void MainWindow::TestGross() { ModalDialogGROSSER_TEST_DLG Dlg(this,ResId(GROSSER_TEST_DLG)); if (Dlg.Execute() == RET_OK) { } } BOOL MainWindow::Close() { WorkWindow::Close(); FileExit(); return TRUE; } void MainWindow::FileExit() { /* WriteSTBProfile();*/ // if (pApp->CloseAll()) pApp->Quit(); } void MainWindow::Tree(GHEditWindow *aEditWin, Window *pBase, int Indent) { String sIndent,aText; sIndent.Expand(5*Indent); aText = pBase->GetText(); aText.SearchAndReplaceAllAscii("\n",CUniString("\\n")); aEditWin->AddText(String(sIndent).AppendAscii("Text: ").Append(aText).AppendAscii("\n")); aEditWin->AddText(String(sIndent).AppendAscii("Help: ").Append(String::CreateFromInt64(pBase->GetHelpId())).AppendAscii(":").Append(pBase->GetQuickHelpText()).AppendAscii(":").Append(pBase->GetHelpText()).AppendAscii("\n")); int i; for (i = 0 ; i < pBase->GetChildCount() ; i++) { Tree(aEditWin,pBase->GetChild(i),Indent+1); } } void MainWindow::WinTree() { GHEditWindow * aEditWin = new GHEditWindow(this,CUniString("Window Tree")); Tree(aEditWin,this,0); } void MainWindow::SysDlg() { switch (QueryBox(this,WB_YES_NO_CANCEL | WB_DEF_YES, CUniString("Want to open another Dialog?")).Execute()) { case RET_YES: while ( WarningBox(this,WB_OK_CANCEL | WB_DEF_OK,CUniString("Well this is the last box now!")).Execute() == RET_OK ); break; case RET_NO: break; case RET_CANCEL:InfoBox(this,CUniString("Oh well..")).Execute(); break; } /* #define WB_OK ((WinBits)0x0010) #define WB_OK_CANCEL ((WinBits)0x0020) #define WB_YES_NO ((WinBits)0x0040) #define WB_YES_NO_CANCEL ((WinBits)0x0080) #define WB_RETRY_CANCEL ((WinBits)0x0100) #define WB_DEF_OK ((WinBits)0x0200) #define WB_DEF_CANCEL ((WinBits)0x0400) #define WB_DEF_RETRY ((WinBits)0x0800) #define WB_DEF_YES ((WinBits)0x1000) #define WB_DEF_NO ((WinBits)0x2000) #define RET_OK TRUE #define RET_CANCEL FALSE #define RET_YES 2 #define RET_NO 3 #define RET_RETRY 4 */ } MyApp aApp; MyApp::MyApp() { pMainWin = NULL; } void MyApp::Property( ApplicationProperty& rProp ) { TTProperties* pTTProperties = PTR_CAST( TTProperties, &rProp ); if ( pTTProperties ) { pTTProperties->nPropertyVersion = TT_PROPERTIES_VERSION; switch ( pTTProperties->nActualPR ) { /* case TT_PR_SLOTS: { pTTProperties->nSidOpenUrl = SID_OPENURL; pTTProperties->nSidFileName = SID_FILE_NAME; pTTProperties->nSidNewDocDirect = SID_NEWDOCDIRECT; pTTProperties->nSidCopy = SID_COPY; pTTProperties->nSidPaste = SID_PASTE; pTTProperties->nSidSourceView = SID_SOURCEVIEW; pTTProperties->nSidSelectAll = SID_SELECTALL; pTTProperties->nSidReferer = SID_REFERER; pTTProperties->nActualPR = 0; } break;*/ case TT_PR_DISPATCHER: { PlugInDispatcher* pDispatcher = GetDispatcher(); if ( !pDispatcher ) pTTProperties->nActualPR = TT_PR_ERR_NODISPATCHER; else { pDispatcher->SetExecuteMode(EXECUTEMODE_DIALOGASYNCHRON); if ( pDispatcher->ExecuteFunction( pTTProperties->mnSID, pTTProperties->mppArgs, pTTProperties->mnMode ) == EXECUTE_NO ) pTTProperties->nActualPR = TT_PR_ERR_NOEXECUTE; else pTTProperties->nActualPR = 0; } } break; /* case TT_PR_IMG: { SvDataMemberObjectRef aDataObject = new SvDataMemberObject(); SvData* pDataBmp = new SvData( FORMAT_BITMAP ); pDataBmp->SetData( pTTProperties->mpBmp ); aDataObject->Append( pDataBmp ); aDataObject->CopyClipboard(); pTTProperties->nActualPR = 0; } break;*/ default: { pTTProperties->nPropertyVersion = 0; } } return; } } USHORT MyDispatcher::ExecuteFunction( USHORT nSID, SfxPoolItem** ppArgs, USHORT nMode) { switch (nSID) { case IDM_FILE_EXIT: pMainWin->FileExit(); break; case IDM_FILE_OPEN_TEST: pMainWin->FileOpen(); break; case IDM_TEST_GROSS: pMainWin->TestGross(); break; case IDM_TEST_WINTREE: pMainWin->WinTree(); break; case IDM_SYS_DLG: pMainWin->SysDlg(); break; default: { DBG_ERROR1("Dispatcher kennt Funktion nicht %s",ByteString::CreateFromInt64(nSID).GetBuffer()); return EXECUTE_NO; } } return EXECUTE_YES; } PlugInDispatcher* MyApp::GetDispatcher() { return pMyDispatcher; } Reference< XContentProviderManager > InitializeUCB( void ) { OUString path; if( osl_Process_E_None != osl_getExecutableFile( (rtl_uString**)&path ) ) { InfoBox( NULL, String::CreateFromAscii( "Couldn't retrieve directory of executable" ) ).Execute(); exit( 1 ); } OSL_ASSERT( path.lastIndexOf( '/' ) >= 0 ); ::rtl::OUStringBuffer bufServices( path.copy( 0, path.lastIndexOf( '/' )+1 ) ); bufServices.appendAscii("services.rdb"); OUString services = bufServices.makeStringAndClear(); ::rtl::OUStringBuffer bufTypes( path.copy( 0, path.lastIndexOf( '/' )+1 ) ); bufTypes.appendAscii("types.rdb"); OUString types = bufTypes.makeStringAndClear(); Reference< XMultiServiceFactory > xSMgr; try { xSMgr = createRegistryServiceFactory( types, services, sal_True ); } catch( com::sun::star::uno::Exception & exc ) { fprintf( stderr, "Couldn't bootstrap uno servicemanager for reason : %s\n" , OUStringToOString( exc.Message, RTL_TEXTENCODING_ASCII_US ).getStr() ); InfoBox( NULL, String( exc.Message ) ).Execute(); throw ; } ////////////////////////////////////////////////////////////////////// // set global factory setProcessServiceFactory( xSMgr ); // Create unconfigured Ucb: Sequence< Any > aArgs; ucb::ContentBroker::initialize( xSMgr, aArgs ); Reference< XContentProviderManager > xUcb = ucb::ContentBroker::get()->getContentProviderManagerInterface(); Reference< XContentProvider > xFileProvider ( xSMgr->createInstance( OUString::createFromAscii( "com.sun.star.ucb.FileContentProvider" ) ), UNO_QUERY ); xUcb->registerContentProvider( xFileProvider, OUString::createFromAscii( "file" ), sal_True ); return xUcb; } void MyApp::Main() { Reference< XContentProviderManager > xUcb = InitializeUCB(); LanguageType aRequestedLanguage; aRequestedLanguage = LanguageType( LANGUAGE_GERMAN ); AllSettings aSettings = GetSettings(); aSettings.SetUILanguage( aRequestedLanguage ); aSettings.SetLanguage( aRequestedLanguage ); SetSettings( aSettings ); Resource::SetResManager( CREATEVERSIONRESMGR( tma ) ); MainWindow MainWin(this); pMainWin = &MainWin; MenuBar aMenu(ResId(MENU_CLIENT)); MainWin.SetMenuBar( &aMenu ); aMenu.GetPopupMenu( IDM_FILE )->SetSelectHdl(LINK(&MainWin, MainWindow, MenuSelectHdl)); aMenu.GetPopupMenu( IDM_TEST )->SetSelectHdl(LINK(&MainWin, MainWindow, MenuSelectHdl)); MyDispatcher MyDsp(pMainWin); pMyDispatcher = &MyDsp; MainWin.SetText(CUniString("Star Division Test Tool Client Window")); MainWin.Show(); RemoteControl aRC; Execute(); }