-#include <sfx2/macrconf.hxx>

-// #ifndef STR_VERSION_ID

-// #define STR_VERSION_ID 1

-// #endif

-// #ifndef STR_VERSION_TYPE

-// #define STR_VERSION_TYPE 1

-// #endif

-

-//=========================================================================

-/*ASDBG

-const SfxConstant __FAR_DATA aConstants[] =

-{

- SFX_USHORT_CONSTANT( "AlignBottom", ALIGN_BOTTOM ),

- SFX_USHORT_CONSTANT( "AlignTop", ALIGN_TOP ),

- SFX_USHORT_CONSTANT( "CharSetANSI", CHARSET_ANSI ),

- SFX_USHORT_CONSTANT( "CharSetDontKnow", CHARSET_DONTKNOW ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC437", CHARSET_IBMPC_437 ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC850", CHARSET_IBMPC_850 ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC860", CHARSET_IBMPC_860 ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC861", CHARSET_IBMPC_861 ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC863", CHARSET_IBMPC_863 ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC865", CHARSET_IBMPC_865 ),

- SFX_USHORT_CONSTANT( "CharSetIBMPC", CHARSET_IBMPC ),

- SFX_USHORT_CONSTANT( "CharSetMac", CHARSET_MAC ),

- SFX_USHORT_CONSTANT( "CharSetSymbol", CHARSET_SYMBOL ),

- SFX_USHORT_CONSTANT( "CharSetSystem", RTL_TEXTENCODING_UTF8 ),

- SFX_USHORT_CONSTANT( "FamilyDecorative", FAMILY_DECORATIVE ),

- SFX_USHORT_CONSTANT( "FamilyDontknow", FAMILY_DONTKNOW ),

- SFX_USHORT_CONSTANT( "FamilyModern", FAMILY_MODERN ),

- SFX_USHORT_CONSTANT( "FamilyRoman", FAMILY_ROMAN ),

- SFX_USHORT_CONSTANT( "FamilyScript", FAMILY_SCRIPT ),

- SFX_USHORT_CONSTANT( "FamilySwiss", FAMILY_SWISS ),

- SFX_USHORT_CONSTANT( "FamilySystem", FAMILY_SYSTEM ),

- SFX_USHORT_CONSTANT( "GradientAxial", GRADIENT_AXIAL ),

- SFX_USHORT_CONSTANT( "GradientElliptical", GRADIENT_ELLIPTICAL ),

- SFX_USHORT_CONSTANT( "GradientLinear", GRADIENT_LINEAR ),

- SFX_USHORT_CONSTANT( "GradientRadial", GRADIENT_RADIAL ),

- SFX_USHORT_CONSTANT( "GradientRect", GRADIENT_RECT ),

- SFX_USHORT_CONSTANT( "GradientSquare", GRADIENT_SQUARE ),

- SFX_USHORT_CONSTANT( "ItalicNone", ITALIC_NONE ),

- SFX_USHORT_CONSTANT( "ItalicOblique", ITALIC_OBLIQUE ),

- SFX_USHORT_CONSTANT( "StrikeThroughDouble", STRIKEOUT_DOUBLE ),

- SFX_USHORT_CONSTANT( "StrikeThroughNone", STRIKEOUT_NONE ),

- SFX_USHORT_CONSTANT( "StrikeThroughSingle", STRIKEOUT_SINGLE ),

- SFX_USHORT_CONSTANT( "UnderlineDotted", UNDERLINE_DOTTED ),

- SFX_USHORT_CONSTANT( "UnderlineDouble", UNDERLINE_DOUBLE ),

- SFX_USHORT_CONSTANT( "UnderlineNone", UNDERLINE_NONE ),

- SFX_USHORT_CONSTANT( "UnderlineSingle", UNDERLINE_SINGLE ),

- SFX_USHORT_CONSTANT( "UnitFoot", FUNIT_FOOT ),

- SFX_USHORT_CONSTANT( "UnitInch", FUNIT_INCH ),

- SFX_USHORT_CONSTANT( "UnitMile", FUNIT_MILE ),

- SFX_USHORT_CONSTANT( "UnitPercent", FUNIT_PERCENT ),

- SFX_USHORT_CONSTANT( "UnitPoint", FUNIT_POINT ),

- SFX_USHORT_CONSTANT( "UnitTwip", FUNIT_TWIP ),

- SFX_USHORT_CONSTANT( "Unit_cm", FUNIT_CM ),

- SFX_USHORT_CONSTANT( "Unit_m", FUNIT_M ),

- SFX_USHORT_CONSTANT( "Unit_mm", FUNIT_MM ),

- SFX_USHORT_CONSTANT( "WeightBlack", WEIGHT_BLACK ),

- SFX_USHORT_CONSTANT( "WeightBold", WEIGHT_BOLD ),

- SFX_USHORT_CONSTANT( "WeightDontKnow", WEIGHT_DONTKNOW ),

- SFX_USHORT_CONSTANT( "WeightLight", WEIGHT_LIGHT ),

- SFX_USHORT_CONSTANT( "WeightMedium", WEIGHT_MEDIUM ),

- SFX_USHORT_CONSTANT( "WeightNormal", WEIGHT_NORMAL ),

- SFX_USHORT_CONSTANT( "WeightSemibold", WEIGHT_SEMIBOLD ),

- SFX_USHORT_CONSTANT( "WeightSemilight", WEIGHT_SEMILIGHT ),

- SFX_USHORT_CONSTANT( "WeightThin", WEIGHT_THIN ),

- SFX_USHORT_CONSTANT( "WeightUltrabold", WEIGHT_ULTRABOLD ),

- SFX_USHORT_CONSTANT( "WeightUltralight", WEIGHT_ULTRALIGHT )

-};

-*/

-// DBG_ASSERT( pAppData_Impl->nBasicCallLevel != 0,

-// "unnecessary call to GetBasicManager() - inefficient!" );

- if ( pAppData_Impl->nBasicCallLevel == 0 )

- // sicherheitshalber

- EnterBasicCall();

-

-//--------------------------------------------------------------------

-

-FASTBOOL SfxApplication::IsInBasicCall() const

-{

- return 0 != pAppData_Impl->nBasicCallLevel;

-}

-

-//--------------------------------------------------------------------

-

-void SfxApplication::EnterBasicCall()

-{

- if ( 1 == ++pAppData_Impl->nBasicCallLevel )

- {

- DBG_TRACE( "SfxShellObject: BASIC-on-demand" );

-

- // das kann l"anger dauern, da Progress nicht geht, wenigstens Sanduhr

-//(mba)/task SfxWaitCursor aWait;

-

- // zuerst das BASIC laden

- GetBasic();

-/*

- // als erstes SfxShellObject das SbxObject der SfxApplication erzeugen

- SbxObject *pSbx = GetSbxObject();

- DBG_ASSERT( pSbx, "SfxShellObject: can't create SbxObject for SfxApplication" );

-

- // die SbxObjects aller Module erzeugen

- SfxModuleArr_Impl& rArr = GetModules_Impl();

- for ( sal_uInt16 n = 0; n < rArr.Count(); ++n )

- {

- SfxModule *pMod = rArr.GetObject(n);

- if ( pMod->IsLoaded() )

- {

- pSbx = pMod->GetSbxObject();

- DBG_ASSERT( pSbx, "SfxModule: can't create SbxObject" );

- }

- }

-

- // die SbxObjects aller Tasks erzeugen

- for ( SfxTask *pTask = SfxTask::GetFirst(); pTask; pTask = SfxTask::GetNext( *pTask ) )

- pTask->GetSbxObject();

-

- // die SbxObjects aller SfxObjectShells erzeugen (ggf. Frame-los!)

- for ( SfxObjectShell *pObjSh = SfxObjectShell::GetFirst( NULL, sal_False );

- pObjSh;

- pObjSh = SfxObjectShell::GetNext(*pObjSh, NULL, sal_False) )

- {

- // kein IP-Object oder wenn doch dann initialisiert?

- SvStorageRef aStorage;

- if ( !pObjSh->IsHandsOff() )

- aStorage = pObjSh->GetStorage();

- if ( !pObjSh->GetInPlaceObject() || aStorage.Is() )

- {

- DBG( DbgOutf( "SfxShellObject: BASIC-on-demand for %s",

- pObjSh->SfxShell::GetName().GetBuffer() ) );

- pSbx = pObjSh->GetSbxObject();

- DBG_ASSERT( pSbx, "SfxShellObject: can't create SbxObject" );

- }

- }

-

- // die SbxObjects der SfxShells auf den Stacks der Frames erzeugen

- for ( SfxViewFrame *pFrame = SfxViewFrame::GetFirst(0,sal_False);

- pFrame;

- pFrame = SfxViewFrame::GetNext(*pFrame,0,0,sal_False) )

- {

- // den Dispatcher des Frames rausholen

- SfxDispatcher *pDispat = pFrame->GetDispatcher();

- pDispat->Flush();

-

- // "uber alle SfxShells auf dem Stack des Dispatchers iterieren

- // Frame selbst wird ausgespart, da er indirekt angezogen wird,

- // sofern er ein Dokument enth"alt.

- for ( sal_uInt16 nStackIdx = pDispat->GetShellLevel(*pFrame);

- 0 != nStackIdx;

- --nStackIdx )

- {

- DBG( DbgOutf( "SfxShellObject: BASIC-on-demand for level %u", nStackIdx-1 ); )

- pSbx = pDispat->GetShell(nStackIdx - 1)->GetSbxObject();

- DBG_ASSERT( pSbx, "SfxShellObject: can't create SbxObject" );

- }

-

- if ( !pFrame->GetObjectShell() )

- {

- DBG( DbgOutf( "SfxShellObject: BASIC-on-demand for empty frame" ); )

- pSbx = pFrame->GetSbxObject();

- DBG_ASSERT( pSbx, "SfxShellObject: can't create SbxObject" );

- }

- }

-*/

- // Factories anmelden

-// SbxBase::AddFactory( new SfxSbxObjectFactory_Impl );

- }

-}

-

-//--------------------------------------------------------------------

-

-void SfxApplication::LeaveBasicCall()

-{

- --pAppData_Impl->nBasicCallLevel;

-}

-

- case SID_PLAYMACRO:

- PlayMacro_Impl( rReq, GetBasic() );

- break;

-

- rSet.Put( SfxUInt16Item( SID_ATTR_UNDO_COUNT, sal::static_int_cast< UINT16 >( SvtUndoOptions().GetUndoCount() ) ) );

- case SID_BUILD_VERSION:

- {

- String aVersion = lcl_GetVersionString(pAppData_Impl->pLabelResMgr);

- rSet.Put( SfxUInt32Item( SID_BUILD_VERSION, (sal_uInt32) aVersion.ToInt32() ) );

- break;

- }

-

- case SID_OFFICE_PRIVATE_USE:

- case SID_OFFICE_COMMERCIAL_USE:

- {

- DBG_ASSERT( sal_False, "SfxApplication::PropState_Impl()\nSID_OFFICE_PRIVATE_USE & SID_OFFICE_COMMERCIAL_USE are obsolete!\n" );

- break;

- }

-

-//--------------------------------------------------------------------

-void SfxApplication::MacroExec_Impl( SfxRequest& rReq )

-{

- DBG_MEMTEST();

- if ( SfxMacroConfig::IsMacroSlot( rReq.GetSlot() ) )

- {

- // SlotId referenzieren, damit nicht im Execute der Slot abgeschossen

- // werden kann

- GetMacroConfig()->RegisterSlotId(rReq.GetSlot());

- SFX_REQUEST_ARG(rReq, pArgs, SfxStringItem,

- rReq.GetSlot(), sal_False);

- String aArgs;

- if( pArgs ) aArgs = pArgs->GetValue();

- if ( GetMacroConfig()->ExecuteMacro(rReq.GetSlot(), aArgs ) )

- rReq.Done();

- GetMacroConfig()->ReleaseSlotId(rReq.GetSlot());

- }

-}

-

-//--------------------------------------------------------------------

-void SfxApplication::MacroState_Impl( SfxItemSet& )

-{

- DBG_MEMTEST();

-}

-

-//-------------------------------------------------------------------------

-

-void SfxApplication::PlayMacro_Impl( SfxRequest &rReq, StarBASIC *pBasic )

-{

- EnterBasicCall();

- sal_Bool bOK = sal_False;

-

- // Makro und asynch-Flag

- SFX_REQUEST_ARG(rReq,pMacro,SfxStringItem,SID_STATEMENT,sal_False);

- SFX_REQUEST_ARG(rReq,pAsynch,SfxBoolItem,SID_ASYNCHRON,sal_False);

-

- if ( pAsynch && pAsynch->GetValue() )

- {

- // asynchron ausf"uhren

- GetDispatcher_Impl()->Execute( SID_PLAYMACRO, SFX_CALLMODE_ASYNCHRON, pMacro, 0L );

- rReq.Done();

- }

- else if ( pMacro )

- {

- // Statement aufbereiten

- DBG_ASSERT( pBasic, "no BASIC found" ) ;

- String aStatement( '[' );

- aStatement += pMacro->GetValue();

- aStatement += ']';

-

- // P"aventiv den Request abschlie\sen, da er ggf. zerst"ort wird

- rReq.Done();

- rReq.ReleaseArgs();

-

- // Statement ausf"uhren

- pBasic->Execute( aStatement );

- bOK = 0 == SbxBase::GetError();

- SbxBase::ResetError();

- }

-

- LeaveBasicCall();

- rReq.SetReturnValue(SfxBoolItem(0,bOK));

-}

-

-