strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
office-gobmx/basctl/source/basicide/moduldlg.cxx

796 lines
27 KiB
C++
Raw Normal View History

initial import
2000-09-29 05:02:42 -05:00
/*************************************************************************
*
* $RCSfile: moduldlg.cxx,v $
*
* $Revision: 1.1.1.1 $
*
* last change: $Author: mh $ $Date: 2000-09-29 11:02:37 $
*
* 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, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 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 EXPRESSED 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: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
#include <ide_pch.hxx>
#pragma hdrstop
#include <moduldlg.hrc>
#include <moduldlg.hxx>
#include <basidesh.hrc>
#include <bastypes.hxx>
#include <basobj.hxx>
#include <baside2.hrc>
#include <sbxitem.hxx>
#ifndef _SBXCLASS_HXX //autogen
#include <svtools/sbx.hxx>
#endif
ExtBasicTreeListBox::ExtBasicTreeListBox( Window* pParent, const ResId& rRes )
: BasicTreeListBox( pParent, rRes )
{
}
ExtBasicTreeListBox::~ExtBasicTreeListBox()
{
}
BOOL __EXPORT ExtBasicTreeListBox::EditingEntry( SvLBoxEntry* pEntry, Selection& )
{
DBG_ASSERT( pEntry, "Kein Eintrag?" );
USHORT nDepth = GetModel()->GetDepth( pEntry );
return nDepth == 2 ? TRUE : FALSE;
}
BOOL __EXPORT ExtBasicTreeListBox::EditedEntry( SvLBoxEntry* pEntry, const String& rNewText )
{
BOOL bValid = BasicIDE::IsValidSbxName( rNewText );
String aCurText( GetEntryText( pEntry ) );
if ( bValid && ( aCurText != rNewText ) )
{
SbxVariable* pVar = FindVariable( pEntry );
DBG_ASSERT( pVar, "Variable nicht gefunden!" );
SbxVariable* pBasic = pVar->GetParent();
DBG_ASSERT( pBasic->ISA( StarBASIC ), "Parent kein Basic ?!" );
// Pruefen, ob mit dem Namen vorhanden...
// Nicht im QueryDrop, zu Aufwendig!
// #63718# Darf aber 'case-sensitiv umbenannt' werden.
if ( ( aCurText.CompareIgnoreCaseToAscii( rNewText ) != COMPARE_EQUAL ) &&
( ( pVar->ISA( SbModule ) && ((StarBASIC*)pBasic)->FindModule( rNewText ) ) ||
( pVar->ISA( SbxObject ) && ((StarBASIC*)pBasic)->GetObjects()->Find( rNewText, SbxCLASS_OBJECT ) ) ) )
{
ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute();
return FALSE;
}
pVar->SetName( rNewText );
BasicIDE::MarkDocShellModified( (StarBASIC*)pBasic );
SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, pVar );
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SBXRENAMED,
SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
// OV-Bug?!
SetEntryText( pEntry, rNewText );
SetCurEntry( pEntry );
SetCurEntry( pEntry );
Select( pEntry, FALSE );
Select( pEntry ); // damit Handler gerufen wird => Edit updaten
}
if ( !bValid )
ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_BADSBXNAME ) ) ).Execute();
return bValid;
}
DragDropMode __EXPORT ExtBasicTreeListBox::NotifyBeginDrag( SvLBoxEntry* pEntry )
{
USHORT nDepth = pEntry ? GetModel()->GetDepth( pEntry ) : 0;
return nDepth == 2 ? GetDragDropMode() : 0;
}
BOOL __EXPORT ExtBasicTreeListBox::NotifyQueryDrop( SvLBoxEntry* pEntry )
{
USHORT nDepth = pEntry ? GetModel()->GetDepth( pEntry ) : 0;
BOOL bValid = nDepth ? TRUE : FALSE; // uebrall hin, nur nicht auf einen BasMgr
SvLBoxEntry* pSelected = FirstSelected();
// nicht innerhalb einer Lib:
if ( ( nDepth == 1 ) && ( pEntry == GetParent( pSelected ) ) )
bValid = FALSE;
else if ( ( nDepth == 2 ) && ( GetParent( pEntry ) == GetParent( pSelected ) ) )
bValid = FALSE;
if ( bValid && ( nDepth == 1 ) )
{
// Es darf nicht auf eine geschuetzte oder nicht geladene
// Libary gedroppt werden.
String aLib = GetEntryText( pEntry );
String aMgr = GetEntryText( GetParent( pEntry ) );
BasicManager* pBasicManager = BasicIDE::FindBasicManager( aMgr );
if ( pBasicManager )
{
USHORT nLib = pBasicManager->GetLibId( aLib );
if ( !pBasicManager->IsLibLoaded( nLib ) || (
pBasicManager->HasPassword( nLib ) &&
!pBasicManager->IsPasswordVerified( nLib ) ) )
{
bValid = FALSE;
}
}
else
bValid = FALSE;
}
return bValid;
}
BOOL __EXPORT ExtBasicTreeListBox::NotifyMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry,
SvLBoxEntry*& rpNewParent, ULONG& rNewChildPos )
{
return NotifyCopyingMoving( pTarget, pEntry,
rpNewParent, rNewChildPos, TRUE );
}
BOOL __EXPORT ExtBasicTreeListBox::NotifyCopying( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry,
SvLBoxEntry*& rpNewParent, ULONG& rNewChildPos )
{
// return FALSE; // Wie kopiere ich ein SBX ?!
return NotifyCopyingMoving( pTarget, pEntry,
rpNewParent, rNewChildPos, FALSE );
}
BOOL __EXPORT ExtBasicTreeListBox::NotifyCopyingMoving( SvLBoxEntry* pTarget, SvLBoxEntry* pEntry,
SvLBoxEntry*& rpNewParent, ULONG& rNewChildPos, BOOL bMove )
{
DBG_ASSERT( pEntry, "Kein Eintrag?" ); // Hier ASS ok, sollte nicht mit
DBG_ASSERT( pTarget, "Kein Ziel?" ); // NULL (ganz vorne) erreicht werden
USHORT nDepth = GetModel()->GetDepth( pTarget );
DBG_ASSERT( nDepth, "Tiefe?" );
if ( nDepth == 1 )
{
// Target = Basic => Modul/Dialog unter das Basic haengen...
rpNewParent = pTarget;
rNewChildPos = 0;
}
else if ( nDepth == 2 )
{
// Target = Modul/Dialog => Modul/Dialog unter das uebergeordnete Basic haengen...
rpNewParent = GetParent( pTarget );
rNewChildPos = GetModel()->GetRelPos( pTarget ) + 1;
}
// Moven...
// Der Parent ist das Basic:
SbxVariable* pVar = FindVariable( rpNewParent );
DBG_ASSERT( pVar && pVar->ISA( StarBASIC ), "Parent ist kein Basic!" );
StarBASIC* pDestBasic = (StarBASIC*)pVar;
// Kopiert/Verschoben wird ein Modul/Dialog:
pVar = FindVariable( FirstSelected() );
DBG_ASSERT( pVar && pVar->ISA( SbxObject ), "Kein Object selektiert?" );
SbxObject* pObj = (SbxObject*)pVar;
// Pruefen, ob mit dem Namen vorhanden...
// Nicht im QueryDrop, zu Aufwendig!
if ( ( pVar->ISA( SbModule ) && pDestBasic->FindModule( pVar->GetName() ) ) ||
( pVar->ISA( SbxObject ) && pDestBasic->GetObjects()->Find( pVar->GetName(), SbxCLASS_OBJECT ) ) )
{
ErrorBox( this, WB_OK | WB_DEF_OK, String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute();
return FALSE;
}
// Aus welchem Basic lommt das Object?
StarBASIC* pSourceBasic = BasicIDE::FindBasic( pObj );
DBG_ASSERT( pSourceBasic, "Woher kommt das Object?" );
SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, pObj );
USHORT nDestPos = (USHORT)rNewChildPos; // evtl. anpassen...
SbxVariableRef xObj = pObj; // festhalten waehrend Remove!
DBG_ASSERT( !xObj->ISA( SbMethod ), "Move/Copy fuer Methoden nicht implementiert!" );
DBG_ASSERT( xObj->ISA( SbModule) || ( xObj->GetSbxId() == GetDialogSbxId() ), "Move fuer unbekanntes Objekt nicht implementiert!" );
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if ( bMove )
{
// BasicIDE bescheid sagen, dass Sbx verschwindet
if ( pSourceBasic != pDestBasic )
{
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SBXDELETED,
SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
}
// Sbx aus dem Basic entfernen und in das andere Basic haengen...
pSourceBasic->Remove( xObj );
pDestBasic->Insert( xObj );
BasicIDE::MarkDocShellModified( pSourceBasic );
BasicIDE::MarkDocShellModified( pDestBasic );
}
else // Copy
{
// Wie ?!
SvMemoryStream aTmpStream;
BOOL bDone = xObj->Store( aTmpStream );
aTmpStream.Seek( 0L );
DBG_ASSERT( bDone, "Temporaeres Speichern fehlgeschlagen!" );
SbxBaseRef xNewSbx = SbxBase::Load( aTmpStream );
DBG_ASSERT( xNewSbx.Is() && xNewSbx->ISA( SbxVariable ), "Kein Object erzeugt, oder Object keine Variable!" );
DBG_ASSERT( xNewSbx->ISA( SbModule) || ( ((SbxVariable*)(SbxBase*)xNewSbx)->GetSbxId() == GetDialogSbxId() ), "Copy fuer unbekanntes Objekt nicht implementiert!" );
pDestBasic->Insert( (SbxVariable*)(SbxBase*)xNewSbx );
BasicIDE::MarkDocShellModified( pDestBasic );
}
if ( pSourceBasic != pDestBasic )
{
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
}
return 2; // Aufklappen...
}
OrganizeDialog::OrganizeDialog( Window* pParent )
: TabDialog( pParent, IDEResId( RID_TD_ORGANIZE ) ),
aTabCtrl( this, IDEResId( RID_TC_ORGANIZE ) )
{
FreeResource();
aTabCtrl.SetActivatePageHdl( LINK( this, OrganizeDialog, ActivatePageHdl ) );
aTabCtrl.SetCurPageId( RID_TP_MOD );
ActivatePageHdl( &aTabCtrl );
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_STOREALLMODULESOURCES );
}
}
void OrganizeDialog::SetCurrentModule( const String& rMacroDescr )
{
TabPage* pTP = aTabCtrl.GetTabPage( RID_TP_MOD );
if ( pTP )
((ObjectPage*)pTP)->SetCurrentModule( rMacroDescr );
}
__EXPORT OrganizeDialog::~OrganizeDialog()
{
for ( USHORT i = 0; i < aTabCtrl.GetPageCount(); i++ )
delete aTabCtrl.GetTabPage( aTabCtrl.GetPageId( i ) );
};
short OrganizeDialog::Execute()
{
Window* pPrevDlgParent = Application::GetDefDialogParent();
Application::SetDefDialogParent( this );
short nRet = TabDialog::Execute();
Application::SetDefDialogParent( pPrevDlgParent );
return nRet;
}
IMPL_LINK( OrganizeDialog, ActivatePageHdl, TabControl *, pTabCtrl )
{
USHORT nId = pTabCtrl->GetCurPageId();
// Wenn TabPage noch nicht erzeugt wurde, dann erzeugen
if ( !pTabCtrl->GetTabPage( nId ) )
{
TabPage* pNewTabPage = 0;
switch ( nId )
{
case RID_TP_MOD:
{
pNewTabPage = new ObjectPage( pTabCtrl );
((ObjectPage*)pNewTabPage)->SetTabDlg( this );
}
break;
case RID_TP_LIB:
{
pNewTabPage = new LibPage( pTabCtrl );
((LibPage*)pNewTabPage)->SetTabDlg( this );
}
break;
default: DBG_ERROR( "PageHdl: Unbekannte ID!" );
}
DBG_ASSERT( pNewTabPage, "Keine Page!" );
pTabCtrl->SetTabPage( nId, pNewTabPage );
}
return 0;
}
ObjectPage::ObjectPage( Window * pParent ) :
TabPage( pParent,IDEResId( RID_TP_MODULS ) ),
aLibText( this, IDEResId( RID_STR_LIB ) ),
aBasicBox( this, IDEResId( RID_TRLBOX ) ),
// aEdit( this, IDEResId( RID_EDIT ) ),
aEditButton( this, IDEResId( RID_PB_EDIT ) ),
aCloseButton( this, IDEResId( RID_PB_CLOSE ) ),
aNewModButton( this, IDEResId( RID_PB_NEWMOD ) ),
aNewDlgButton( this, IDEResId( RID_PB_NEWDLG ) ),
aDelButton( this, IDEResId( RID_PB_DELETE ) )
{
FreeResource();
pTabDlg = 0;
aEditButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
aNewModButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
aNewDlgButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
aDelButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
aCloseButton.SetClickHdl( LINK( this, ObjectPage, ButtonHdl ) );
aBasicBox.SetSelectHdl( LINK( this, ObjectPage, BasicBoxHighlightHdl ) );
// aEdit.SetModifyHdl( LINK( this, ObjectPage, EditModifyHdl ) );
aBasicBox.SetDragDropMode( SV_DRAGDROP_CTRL_MOVE | SV_DRAGDROP_CTRL_COPY );
aBasicBox.EnableInplaceEditing( TRUE );
aBasicBox.SetMode( BROWSEMODE_MODULES | BROWSEMODE_OBJS );
aBasicBox.SetWindowBits( WB_HASLINES );
aEditButton.GrabFocus();
CheckButtons();
}
void __EXPORT ObjectPage::ActivatePage()
{
aBasicBox.Clear();
aBasicBox.ScanAllBasics();
aBasicBox.ExpandAllTrees();
ImplMarkCurrentModule();
}
void ObjectPage::ImplMarkCurrentModule()
{
if ( aCurEntryDescr.Len() )
{
SvLBoxEntry* pEntry = FindMostMatchingEntry( aBasicBox, aCurEntryDescr );
if ( pEntry )
aBasicBox.SetCurEntry( pEntry );
}
}
void __EXPORT ObjectPage::DeactivatePage()
{
SvLBoxEntry* pEntry = aBasicBox.GetCurEntry();
if ( pEntry )
aCurEntryDescr = CreateEntryDescription( aBasicBox, pEntry );
}
void ObjectPage::CheckButtons()
{
BOOL bEnableNew = FALSE;
// String aEditText( aEdit.GetText() );
// Der Name muss nur im aktuellen Basic/Lib eindeutig sein
SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
USHORT nDepth = pCurEntry ? aBasicBox.GetModel()->GetDepth( pCurEntry ) : 0;
if ( nDepth == 2 )
aEditButton.Enable();
else
aEditButton.Disable();
SvLBoxEntry* pEntry = pCurEntry;
while ( pEntry && ( ((BasicEntry*)pEntry->GetUserData())->GetType() != OBJTYPE_LIB ) )
pEntry = aBasicBox.GetParent( pEntry );
/*
if ( pEntry && aEditText.Len() )
{
String aLibText = aBasicBox.GetEntryText( pEntry );
if ( ( pEntry != pCurEntry ) || ( aLibText != aEditText ) )
bEnableNew = TRUE;
pEntry = aBasicBox.FirstChild( pEntry );
while ( pEntry )
{
String aEntryText = aBasicBox.GetEntryText( pEntry );
if ( aEntryText == aEditText )
{
bEnableNew = FALSE;
break;
}
pEntry = aBasicBox.NextSibling( pEntry );
}
}
*/
if ( bEnableNew )
{
aDelButton.Disable();
}
else
{
if ( pCurEntry )
{
BYTE nType = ((BasicEntry*)pCurEntry->GetUserData())->GetType();
if ( ( nType == OBJTYPE_OBJECT ) || ( nType == OBJTYPE_MODULE ) )
aDelButton.Enable();
else
aDelButton.Disable();
}
}
}
IMPL_LINK( ObjectPage, BasicBoxHighlightHdl, BasicTreeListBox *, pBox )
{
if ( !pBox->IsSelected( pBox->GetHdlEntry() ) )
return 0;
/*
SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
if ( pCurEntry )
{
USHORT nDepth = aBasicBox.GetModel()->GetDepth( pCurEntry );
if ( nDepth == 2 )
aEdit.SetText( aBasicBox.GetEntryText( pCurEntry ) );
else
aEdit.SetText( String() );
}
*/
CheckButtons();
return 0;
}
/*
IMPL_LINK_INLINE_START( ObjectPage, EditModifyHdl, Edit *, pEdit )
{
CheckButtons();
return 0;
}
IMPL_LINK_INLINE_END( ObjectPage, EditModifyHdl, Edit *, pEdit )
*/
IMPL_LINK( ObjectPage, ButtonHdl, Button *, pButton )
{
if ( pButton == &aEditButton )
{
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_APPEAR, SFX_CALLMODE_SYNCHRON );
}
SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
DBG_ASSERT( pCurEntry, "Entry?!" );
if ( aBasicBox.GetModel()->GetDepth( pCurEntry ) == 2 )
{
SbxVariable* pSbx = aBasicBox.FindVariable(pCurEntry );
DBG_ASSERT( pSbx && pSbx->ISA( SbxObject ), "Object?!" );
SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, pSbx );
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SHOWSBX, SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
}
else // Nur Lib selektiert
{
DBG_ASSERT( aBasicBox.GetModel()->GetDepth( pCurEntry ) == 1, "Kein LibEntry?!" );
String aLib( aBasicBox.GetEntryText( pCurEntry ) );
String aBasMgr( aBasicBox.GetEntryText( aBasicBox.GetParent( pCurEntry ) ) );
String aLibAndMgr( CreateMgrAndLibStr( aBasMgr, aLib ) );
SfxStringItem aLibName( SID_BASICIDE_ARG_LIBNAME, aLibAndMgr );
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_LIBSELECTED, SFX_CALLMODE_ASYNCHRON, &aLibName, 0L );
}
}
EndTabDialog( 1 );
}
else if ( pButton == &aNewModButton )
NewModule();
else if ( pButton == &aNewDlgButton )
NewDialog();
else if ( pButton == &aDelButton )
DeleteCurrent();
else if ( pButton == &aCloseButton )
EndTabDialog( 0 );
return 0;
}
StarBASIC* ObjectPage::GetSelectedBasic()
{
String aLib, aModOrDlg, aSub;
BasicManager* pBasMgr = aBasicBox.GetSelectedSbx( aLib, aModOrDlg, aSub );
DBG_ASSERT( pBasMgr, "Kein BasicManager!" );
StarBASIC* pLib = aLib.Len() ? pBasMgr->GetLib( aLib ) : pBasMgr->GetLib( 0 );
if ( !pLib && aLib.Len() )
{
USHORT nLib = pBasMgr->GetLibId( aLib );
BOOL bOK = TRUE;
if ( pBasMgr->HasPassword( nLib ) &&
!pBasMgr->IsPasswordVerified( nLib ) )
{
bOK = QueryPassword( pBasMgr, nLib );
}
if ( bOK )
{
pBasMgr->LoadLib( nLib );
pLib = pBasMgr->GetLib( nLib );
if ( !pLib )
ErrorBox( this, WB_OK|WB_DEF_OK, String( IDEResId( RID_STR_ERROROPENLIB ) ) ).Execute();
}
}
return pLib;
}
/*
BOOL ObjectPage::UseEditText()
{
SvLBoxEntry* pSel = aBasicBox.FirstSelected();
if ( pSel )
{
String aSelected( aBasicBox.GetEntryText( pSel ) );
if ( aSelected == aEdit.GetText() )
return FALSE;
}
return TRUE;
}
*/
void ObjectPage::NewModule()
{
StarBASIC* pLib = GetSelectedBasic();
DBG_ASSERT( pLib, "Keine Lib!" );
if ( pLib )
{
NewObjectDialog* pNewDlg = new NewObjectDialog( this, NEWOBJECTMODE_MOD );
pNewDlg->SetObjectName( BasicIDE::CreateModuleName( pLib, String() ) );
if ( pNewDlg->Execute() )
{
String aModName( pNewDlg->GetObjectName() );
if ( !BasicIDE::FindModule( pLib, aModName ) )
{
SbModule* pModule = BasicIDE::CreateModule( pLib, aModName, TRUE );
DBG_ASSERT( pModule , "Modul wurde nicht erzeugt!" );
SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, pModule );
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
SvLBoxEntry* pLibEntry = aBasicBox.FindLibEntry( pLib );
DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" );
USHORT nImgId = IMGID_MODULE;
SvLBoxEntry* pEntry = aBasicBox.InsertEntry( pModule->GetName(), aBasicBox.GetImage( nImgId ), aBasicBox.GetImage( nImgId ), pLibEntry, FALSE, LIST_APPEND );
DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" );
pEntry->SetUserData( new BasicEntry( OBJTYPE_MODULE ) );
aBasicBox.SetCurEntry( pEntry );
aBasicBox.Select( aBasicBox.GetCurEntry() ); // OV-Bug?!
}
else
{
ErrorBox( this, WB_OK | WB_DEF_OK,
String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute();
}
}
delete pNewDlg;
}
}
void ObjectPage::NewDialog()
{
StarBASIC* pLib = GetSelectedBasic();
DBG_ASSERT( pLib, "Keine Lib!" );
if ( pLib )
{
NewObjectDialog* pNewDlg = new NewObjectDialog( this, NEWOBJECTMODE_DLG );
pNewDlg->SetObjectName( BasicIDE::CreateDialogName( pLib, String() ) );
if ( pNewDlg->Execute() )
{
String aDlgName( pNewDlg->GetObjectName() );
if ( !BasicIDE::FindDialog( pLib, aDlgName ) )
{
SbxObject* pDialog = BasicIDE::CreateDialog( pLib, aDlgName );
DBG_ASSERT( pDialog, "Dialog wurde nicht erzeugt!" );
SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, pDialog );
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SBXINSERTED,
SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
SvLBoxEntry* pLibEntry = aBasicBox.FindLibEntry( pLib );
DBG_ASSERT( pLibEntry, "Libeintrag nicht gefunden!" );
SvLBoxEntry* pEntry = aBasicBox.InsertEntry( pDialog->GetName(), aBasicBox.GetImage( IMGID_OBJECT ), aBasicBox.GetImage( IMGID_OBJECT ), pLibEntry, FALSE, LIST_APPEND );
DBG_ASSERT( pEntry, "InsertEntry fehlgeschlagen!" );
pEntry->SetUserData( new BasicEntry( OBJTYPE_OBJECT ) );
aBasicBox.SetCurEntry( pEntry );
aBasicBox.Select( aBasicBox.GetCurEntry() ); // OV-Bug?!
}
else
{
ErrorBox( this, WB_OK | WB_DEF_OK,
String( IDEResId( RID_STR_SBXNAMEALLREADYUSED2 ) ) ).Execute();
}
}
delete pNewDlg;
}
}
void ObjectPage::DeleteCurrent()
{
SvLBoxEntry* pCurEntry = aBasicBox.GetCurEntry();
DBG_ASSERT( pCurEntry, "Kein aktueller Eintrag!" );
SbxVariableRef xVar = aBasicBox.FindVariable( pCurEntry );
DBG_ASSERT( xVar.Is(), "Keine Variable?" );
if ( ( xVar->ISA( SbModule ) && QueryDelModule( xVar->GetName(), this ) ) ||
( ( xVar->ISA( SbxObject ) && !xVar->ISA( SbModule ) && QueryDelDialog( xVar->GetName(), this ) ) ) )
{
StarBASICRef xBasic = BasicIDE::FindBasic( xVar );
DBG_ASSERT( xBasic.Is(), "Basic nicht gefunden!" );
aBasicBox.GetModel()->Remove( pCurEntry );
if ( aBasicBox.GetCurEntry() ) // OV-Bug ?
aBasicBox.Select( aBasicBox.GetCurEntry() );
SbxItem aSbxItem( SID_BASICIDE_ARG_SBX, xVar );
SfxViewFrame* pCurFrame = SfxViewFrame::Current();
DBG_ASSERT( pCurFrame != NULL, "No current view frame!" );
SfxDispatcher* pDispatcher = pCurFrame ? pCurFrame->GetDispatcher() : NULL;
if( pDispatcher )
{
pDispatcher->Execute( SID_BASICIDE_SBXDELETED,
SFX_CALLMODE_SYNCHRON, &aSbxItem, 0L );
}
xBasic->Remove( xVar );
BasicIDE::MarkDocShellModified( xBasic );
}
}
void ObjectPage::EndTabDialog( USHORT nRet )
{
DBG_ASSERT( pTabDlg, "TabDlg nicht gesetzt!" );
if ( pTabDlg )
pTabDlg->EndDialog( nRet );
}
LibDialog::LibDialog( Window* pParent )
: ModalDialog( pParent, IDEResId( RID_DLG_LIBS ) ),
aOKButton( this, IDEResId( RID_PB_OK ) ),
aCancelButton( this, IDEResId( RID_PB_CANCEL ) ),
aStorageName( this, IDEResId( RID_FT_STORAGENAME ) ),
aLibBox( this, IDEResId( RID_CTRL_LIBS ) ),
aGroupBox( this, IDEResId( RID_GB_OPTIONS ) ),
aReferenceBox( this, IDEResId( RID_CB_REF ) ),
aSepFileBox( this, IDEResId( RID_CB_SEP ) ),
aReplaceBox( this, IDEResId( RID_CB_REPL ) )
{
SetText( String( IDEResId( RID_STR_APPENDLIBS ) ) );
FreeResource();
aReferenceBox.SetClickHdl( LINK( this, LibDialog, CheckBoxSelectHdl ) );
aSepFileBox.SetClickHdl( LINK( this, LibDialog, CheckBoxSelectHdl ) );
bSepFileEnabled = FALSE;
aSepFileBox.Enable( FALSE );
}
LibDialog::~LibDialog()
{
}
void LibDialog::SetStorageName( const String& rName )
{
String aName( IDEResId( RID_STR_FILENAME ) );
aName += rName;
aStorageName.SetText( aName );
}
IMPL_LINK( LibDialog, CheckBoxSelectHdl, CheckBox*, EMPTYARG )
{
// Referenz und separate Datei schliessen sich aus...
if ( aReferenceBox.IsChecked() )
aSepFileBox.Enable( FALSE );
else if ( bSepFileEnabled )
aSepFileBox.Enable( TRUE );
if ( aSepFileBox.IsChecked() )
aReferenceBox.Enable( FALSE );
else
aReferenceBox.Enable( TRUE );
return 1;
}
Reference in a new issue Copy permalink