sfx2/source/appl/appdde.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <vcl/wrkwin.hxx>
  21 #include <svl/rectitem.hxx>
  22 #include <svl/eitem.hxx>
  23 #include <svl/intitem.hxx>
  24 #include <basic/sbstar.hxx>
  25 #include <svl/stritem.hxx>
  26 #include <svl/svdde.hxx>
  27 #include <sfx2/lnkbase.hxx>
  28 #include <sfx2/linkmgr.hxx>
  29
  30 #include <tools/urlobj.hxx>
  31 #include <tools/diagnose_ex.h>
  32 #include <unotools/pathoptions.hxx>
  33
  34 #include <sfx2/app.hxx>
  35 #include "appdata.hxx"
  36 #include <sfx2/objsh.hxx>
  37 #include <sfx2/viewfrm.hxx>
  38 #include <sfx2/dispatch.hxx>
  39 #include "sfxtypes.hxx"
  40 #include <sfx2/sfxsids.hrc>
  41 #include "helper.hxx"
  42 #include <sfx2/docfile.hxx>
  43 #include <comphelper/processfactory.hxx>
  44 #include <comphelper/string.hxx>
  45 #include <com/sun/star/ucb/IllegalIdentifierException.hpp>
  46
  47 //========================================================================
  48
  49 OUString SfxDdeServiceName_Impl( const OUString& sIn )
  50 {
  51     OUStringBuffer sReturn(sIn.getLength());
  52
  53     for ( sal_uInt16 n = sIn.getLength(); n; --n )
  54     {
  55         sal_Unicode cChar = sIn[n-1];
  56         if (comphelper::string::isalnumAscii(cChar))
  57             sReturn.append(cChar);
  58     }
  59
  60     return sReturn.makeStringAndClear();
  61 }
  62
  63 #if defined( WNT )
  64 class ImplDdeService : public DdeService
  65 {
  66 public:
  67     ImplDdeService( const OUString& rNm )
  68         : DdeService( rNm )
  69     {}
  70     virtual bool MakeTopic( const OUString& );
  71
  72     virtual OUString  Topics();
  73
  74     virtual bool SysTopicExecute( const OUString* pStr );
  75 };
  76
  77 //--------------------------------------------------------------------
  78 namespace
  79 {
  80     sal_Bool lcl_IsDocument( const OUString& rContent )
  81     {
  82         using namespace com::sun::star;
  83
  84         sal_Bool bRet = sal_False;
  85         INetURLObject aObj( rContent );
  86         DBG_ASSERT( aObj.GetProtocol() != INET_PROT_NOT_VALID, "Invalid URL!" );
  87
  88         try
  89         {
  90             ::ucbhelper::Content aCnt( aObj.GetMainURL( INetURLObject::NO_DECODE ), uno::Reference< ucb::XCommandEnvironment >(), comphelper::getProcessComponentContext() );
  91             bRet = aCnt.isDocument();
  92         }
  93         catch( const ucb::CommandAbortedException& )
  94         {
  95             DBG_WARNING( "CommandAbortedException" );
  96         }
  97         catch( const ucb::IllegalIdentifierException& )
  98         {
  99             DBG_WARNING( "IllegalIdentifierException" );
 100         }
 101         catch( const ucb::ContentCreationException& )
 102         {
 103             DBG_WARNING( "IllegalIdentifierException" );
 104         }
 105         catch( const uno::Exception& )
 106         {
 107             SAL_WARN( "sfx.appl", "Any other exception" );
 108         }
 109
 110         return bRet;
 111     }
 112 }
 113
 114 bool ImplDdeService::MakeTopic( const OUString& rNm )
 115 {
 116     // Workaround for Event after Main() under OS/2
 117     // happens when exiting starts the App again
 118     if ( !Application::IsInExecute() )
 119         return false;
 120
 121     // The Topic rNm is sought, do we have it?
 122     // First only loop over the ObjectShells to find those
 123     // with the specific name:
 124     sal_Bool bRet = sal_False;
 125     OUString sNm( rNm.toAsciiLowerCase() );
 126     TypeId aType( TYPE(SfxObjectShell) );
 127     SfxObjectShell* pShell = SfxObjectShell::GetFirst( &aType );
 128     while( pShell )
 129     {
 130         OUString sTmp( pShell->GetTitle(SFX_TITLE_FULLNAME) );
 131         if( sNm == sTmp.toAsciiLowerCase() )
 132         {
 133             SFX_APP()->AddDdeTopic( pShell );
 134             bRet = true;
 135             break;
 136         }
 137         pShell = SfxObjectShell::GetNext( *pShell, &aType );
 138     }
 139
 140     if( !bRet )
 141     {
 142         INetURLObject aWorkPath( SvtPathOptions().GetWorkPath() );
 143         INetURLObject aFile;
 144         if ( aWorkPath.GetNewAbsURL( rNm, &aFile ) &&
 145              lcl_IsDocument( aFile.GetMainURL( INetURLObject::NO_DECODE ) ) )
 146         {
 147             // File exists? then try to load it:
 148             SfxStringItem aName( SID_FILE_NAME, aFile.GetMainURL( INetURLObject::NO_DECODE ) );
 149             SfxBoolItem aNewView(SID_OPEN_NEW_VIEW, sal_True);
 150
 151             SfxBoolItem aSilent(SID_SILENT, sal_True);
 152             SfxDispatcher* pDispatcher = SFX_APP()->GetDispatcher_Impl();
 153             const SfxPoolItem* pRet = pDispatcher->Execute( SID_OPENDOC,
 154                     SFX_CALLMODE_SYNCHRON,
 155                     &aName, &aNewView,
 156                     &aSilent, 0L );
 157
 158             if( pRet && pRet->ISA( SfxViewFrameItem ) &&
 159                 ((SfxViewFrameItem*)pRet)->GetFrame() &&
 160                 0 != ( pShell = ((SfxViewFrameItem*)pRet)
 161                     ->GetFrame()->GetObjectShell() ) )
 162             {
 163                 SFX_APP()->AddDdeTopic( pShell );
 164                 bRet = true;
 165             }
 166         }
 167     }
 168     return bRet;
 169 }
 170
 171 OUString ImplDdeService::Topics()
 172 {
 173     OUString sRet;
 174     if( GetSysTopic() )
 175         sRet += GetSysTopic()->GetName();
 176
 177     TypeId aType( TYPE(SfxObjectShell) );
 178     SfxObjectShell* pShell = SfxObjectShell::GetFirst( &aType );
 179     while( pShell )
 180     {
 181         if( SfxViewFrame::GetFirst( pShell ) )
 182         {
 183             if( !sRet.isEmpty() )
 184                 sRet += "\t";
 185             sRet += pShell->GetTitle(SFX_TITLE_FULLNAME);
 186         }
 187         pShell = SfxObjectShell::GetNext( *pShell, &aType );
 188     }
 189     if( !sRet.isEmpty() )
 190         sRet += "\r\n";
 191     return sRet;
 192 }
 193
 194 bool ImplDdeService::SysTopicExecute( const OUString* pStr )
 195 {
 196     return SFX_APP()->DdeExecute( *pStr );
 197 }
 198 #endif
 199
 200 class SfxDdeTriggerTopic_Impl : public DdeTopic
 201 {
 202 public:
 203     SfxDdeTriggerTopic_Impl()
 204         : DdeTopic( "TRIGGER" )
 205         {}
 206
 207     virtual bool Execute( const OUString* );
 208 };
 209
 210 class SfxDdeDocTopic_Impl : public DdeTopic
 211 {
 212 public:
 213     SfxObjectShell* pSh;
 214     DdeData aData;
 215     ::com::sun::star::uno::Sequence< sal_Int8 > aSeq;
 216
 217     SfxDdeDocTopic_Impl( SfxObjectShell* pShell )
 218         : DdeTopic( pShell->GetTitle(SFX_TITLE_FULLNAME) ), pSh( pShell )
 219     {}
 220
 221     virtual DdeData* Get( sal_uIntPtr );
 222     virtual bool Put( const DdeData* );
 223     virtual bool Execute( const OUString* );
 224     virtual bool StartAdviseLoop();
 225     virtual bool MakeItem( const OUString& rItem );
 226 };
 227
 228
 229 class SfxDdeDocTopics_Impl : public std::vector<SfxDdeDocTopic_Impl*> {};
 230
 231 #if defined( WNT )
 232
 233 namespace {
 234
 235 /*  [Description]
 236
 237     Checks if 'rCmd' of the event 'rEvent' is (without '(') and then assemble
 238     this data into a <ApplicationEvent>, which is then excecuted through
 239     <Application::AppEvent()>. If 'rCmd' is the given event 'rEvent', then
 240     TRUE is returned, otherwise FALSE.
 241
 242     [Example]
 243
 244     rCmd = "Open(\"d:\doc\doc.sdw\")"
 245     rEvent = "Open"
 246 */
 247 sal_Bool SfxAppEvent_Impl( const OUString& rCmd, const OUString& rEvent,
 248                            ApplicationEvent::Type eType )
 249 {
 250     OUString sEvent(rEvent + "(");
 251     if (rCmd.startsWithIgnoreAsciiCase(sEvent))
 252     {
 253         sal_Int32 start = sEvent.getLength();
 254         if ( rCmd.getLength() - start >= 2 )
 255         {
 256             // Transform into the ApplicationEvent Format
 257             //TODO: I /assume/ that rCmd should match the syntax of
 258             // <http://msdn.microsoft.com/en-us/library/ms648995.aspx>
 259             // "WM_DDE_EXECUTE message" but does not (handle commands enclosed
 260             // in [...]; handle commas separating multiple arguments; handle
 261             // double "", ((, )), [[, ]] in quoted arguments); see also the mail
 262             // thread starting at <http://lists.freedesktop.org/archives/
 263             // libreoffice/2013-July/054779.html> "DDE on Windows."
 264             std::vector<OUString> aData;
 265             for ( sal_Int32 n = start; n < rCmd.getLength() - 1; )
 266             {
 267                 // Resiliently read arguments either starting with " and
 268                 // spanning to the next " (if any; TODO: do we need to undo any
 269                 // escaping within the string?) or with neither " nor SPC and
 270                 // spanning to the next SPC (if any; TODO: is this from not
 271                 // wrapped in "..." relevant? it would have been parsed by the
 272                 // original code even if that was only by accident, so I left it
 273                 // in), with runs of SPCs treated like single ones:
 274                 switch ( rCmd[n] )
 275                 {
 276                 case '"':
 277                     {
 278                         sal_Int32 i = rCmd.indexOf('"', ++n);
 279                         if (i < 0 || i > rCmd.getLength() - 1) {
 280                             i = rCmd.getLength() - 1;
 281                         }
 282                         aData.push_back(rCmd.copy(n, i - n));
 283                         n = i + 1;
 284                         break;
 285                     }
 286                 case ' ':
 287                     ++n;
 288                     break;
 289                 default:
 290                     {
 291                         sal_Int32 i = rCmd.indexOf(' ', n);
 292                         if (i < 0 || i > rCmd.getLength() - 1) {
 293                             i = rCmd.getLength() - 1;
 294                         }
 295                         aData.push_back(rCmd.copy(n, i - n));
 296                         n = i + 1;
 297                         break;
 298                     }
 299                 }
 300             }
 301
 302             GetpApp()->AppEvent( ApplicationEvent(eType, aData) );
 303             return sal_True;
 304         }
 305     }
 306
 307     return sal_False;
 308 }
 309
 310 }
 311
 312 /*  Description]
 313
 314     This method can be overloaded by application developers, to receive
 315     DDE-commands directed to their SfxApplication subclass.
 316
 317     The base implementation understands the API functionality of the
 318     relevant SfxApplication subclass in BASIC syntax. Return values can
 319     not be transferred, unfortunately.
 320 */
 321 long SfxApplication::DdeExecute( const OUString&   rCmd )  // Expressed in our BASIC-Syntax
 322 {
 323     // Print or Open-Event?
 324     if ( !( SfxAppEvent_Impl( rCmd, "Print", ApplicationEvent::TYPE_PRINT ) ||
 325             SfxAppEvent_Impl( rCmd, "Open", ApplicationEvent::TYPE_OPEN ) ) )
 326     {
 327         // all others are BASIC
 328         StarBASIC* pBasic = GetBasic();
 329         DBG_ASSERT( pBasic, "Where is the Basic???" );
 330         SbxVariable* pRet = pBasic->Execute( rCmd );
 331         if( !pRet )
 332         {
 333             SbxBase::ResetError();
 334             return 0;
 335         }
 336     }
 337     return 1;
 338 }
 339
 340 #endif
 341
 342 /*  [Description]
 343
 344     This method can be overloaded by application developers, to receive
 345     DDE-commands directed to the their SfxApplication subclass.
 346
 347     The base implementation does nothing and returns 0.
 348 */
 349 long SfxObjectShell::DdeExecute( const OUString&   rCmd )  // Expressed in our BASIC-Syntax
 350 {
 351 #ifdef DISABLE_SCRIPTING
 352     (void) rCmd;
 353 #else
 354     StarBASIC* pBasic = GetBasic();
 355     DBG_ASSERT( pBasic, "Where is the Basic???" ) ;
 356     SbxVariable* pRet = pBasic->Execute( rCmd );
 357     if( !pRet )
 358     {
 359         SbxBase::ResetError();
 360         return 0;
 361     }
 362 #endif
 363     return 1;
 364 }
 365
 366 //--------------------------------------------------------------------
 367
 368 /*  [Description]
 369
 370     This method can be overloaded by application developers, to receive
 371     DDE-data-requests directed to their SfxApplication subclass.
 372
 373     The base implementation provides no data and returns 0.
 374 */
 375 long SfxObjectShell::DdeGetData( const OUString&,              // the Item to be addressed
 376                                  const OUString&,              // in: Format
 377                                  ::com::sun::star::uno::Any& )// out: requested data
 378 {
 379     return 0;
 380 }
 381
 382 //--------------------------------------------------------------------
 383
 384 /*  [Description]
 385
 386     This method can be overloaded by application developers, to receive
 387     DDE-data directed to their SfxApplication subclass.
 388
 389     The base implementation is not receiving any data and returns 0.
 390 */
 391 long SfxObjectShell::DdeSetData( const OUString&,                    // the Item to be addressed
 392                                  const OUString&,                    // in: Format
 393                                  const ::com::sun::star::uno::Any& )// out: requested data
 394 {
 395     return 0;
 396 }
 397
 398 /*  [Description]
 399
 400     This method can be overloaded by application developers, to establish
 401     a DDE-hotlink to their SfxApplication subclass.
 402
 403     The base implementation is not generate a link and returns 0.
 404 */
 405 ::sfx2::SvLinkSource* SfxObjectShell::DdeCreateLinkSource( const OUString& ) // the Item to be addressed
 406 {
 407     return 0;
 408 }
 409
 410 void SfxObjectShell::ReconnectDdeLink(SfxObjectShell& /*rServer*/)
 411 {
 412 }
 413
 414 void SfxObjectShell::ReconnectDdeLinks(SfxObjectShell& rServer)
 415 {
 416     TypeId aType = TYPE(SfxObjectShell);
 417     SfxObjectShell* p = GetFirst(&aType, false);
 418     while (p)
 419     {
 420         if (&rServer != p)
 421             p->ReconnectDdeLink(rServer);
 422
 423         p = GetNext(*p, &aType, false);
 424     }
 425 }
 426
 427 /*  [Description]
 428
 429     This method can be overloaded by application developers, to receive
 430     DDE-commands directed to the their SfxApplication subclass.
 431
 432     The base implementation understands the API functionality of the
 433     relevant SfxViewFrame, which is shown and the relevant SfxViewShell
 434     and the relevant SfxApplication subclass in BASIC syntax. Return
 435     values can not be transferred, unfortunately.
 436 */
 437 long SfxViewFrame::DdeExecute( const OUString&   rCmd ) // Expressed in our BASIC-Syntax
 438 {
 439     if ( GetObjectShell() )
 440         return GetObjectShell()->DdeExecute( rCmd );
 441
 442     return 0;
 443 }
 444
 445 /*  [Description]
 446
 447     This method can be overloaded by application developers, to receive
 448     DDE-data-requests directed to their SfxApplication subclass.
 449
 450     The base implementation provides no data and returns 0.
 451 */
 452 long SfxViewFrame::DdeGetData( const OUString&,            // the Item to be addressed
 453                                const OUString&,            // in: Format
 454                                ::com::sun::star::uno::Any& )// out: requested data
 455 {
 456     return 0;
 457 }
 458
 459 /*  [Description]
 460
 461     This method can be overloaded by application developers, to receive
 462     DDE-data directed to their SfxApplication subclass.
 463
 464     The base implementation is not receiving any data and returns 0.
 465 */
 466 long SfxViewFrame::DdeSetData( const OUString&,                  // the Item to be addressed
 467                                const OUString&,                  // in: Format
 468                                const ::com::sun::star::uno::Any& )// out: requested data
 469 {
 470     return 0;
 471 }
 472
 473 /*  [Description]
 474
 475     This method can be overloaded by application developers, to establish
 476     a DDE-hotlink to their SfxApplication subclass.
 477
 478     The base implementation is not generate a link and returns 0.
 479 */
 480 ::sfx2::SvLinkSource* SfxViewFrame::DdeCreateLinkSource( const OUString&  )// the Item to be addressed
 481 {
 482     return 0;
 483 }
 484
 485 sal_Bool SfxApplication::InitializeDde()
 486 {
 487     int nError = 0;
 488 #if defined( WNT )
 489     DBG_ASSERT( !pAppData_Impl->pDdeService,
 490                 "Dde can not be initialized multiple times" );
 491
 492     pAppData_Impl->pDdeService = new ImplDdeService( Application::GetAppName() );
 493     nError = pAppData_Impl->pDdeService->GetError();
 494     if( !nError )
 495     {
 496         pAppData_Impl->pDocTopics = new SfxDdeDocTopics_Impl;
 497
 498         // we certainly want to support RTF!
 499         pAppData_Impl->pDdeService->AddFormat( FORMAT_RTF );
 500
 501         // Config path as a topic becauseof multiple starts
 502         INetURLObject aOfficeLockFile( SvtPathOptions().GetUserConfigPath() );
 503         aOfficeLockFile.insertName( "soffice.lck" );
 504         OUString aService( SfxDdeServiceName_Impl(
 505                     aOfficeLockFile.GetMainURL(INetURLObject::DECODE_TO_IURI) ) );
 506         aService = aService.toAsciiUpperCase();
 507         pAppData_Impl->pDdeService2 = new ImplDdeService( aService );
 508         pAppData_Impl->pTriggerTopic = new SfxDdeTriggerTopic_Impl;
 509         pAppData_Impl->pDdeService2->AddTopic( *pAppData_Impl->pTriggerTopic );
 510     }
 511 #endif
 512     return !nError;
 513 }
 514
 515 void SfxAppData_Impl::DeInitDDE()
 516 {
 517     DELETEZ( pTriggerTopic );
 518     DELETEZ( pDdeService2 );
 519     DELETEZ( pDocTopics );
 520     DELETEZ( pDdeService );
 521 }
 522
 523 #if defined( WNT )
 524 void SfxApplication::AddDdeTopic( SfxObjectShell* pSh )
 525 {
 526     DBG_ASSERT( pAppData_Impl->pDocTopics, "There is no Dde-Service" );
 527     //OV: DDE is disconnected in server mode!
 528     if( !pAppData_Impl->pDocTopics )
 529         return;
 530
 531     // prevent double submit
 532     OUString sShellNm;
 533     sal_Bool bFnd = sal_False;
 534     for (size_t n = pAppData_Impl->pDocTopics->size(); n;)
 535     {
 536         if( (*pAppData_Impl->pDocTopics)[ --n ]->pSh == pSh )
 537         {
 538             // If the document is untitled, is still a new Topic is created!
 539             if( !bFnd )
 540             {
 541                 bFnd = sal_True;
 542                 sShellNm = pSh->GetTitle(SFX_TITLE_FULLNAME).toAsciiLowerCase();
 543             }
 544             OUString sNm( (*pAppData_Impl->pDocTopics)[ n ]->GetName() );
 545             if( sShellNm == sNm.toAsciiLowerCase() )
 546                 return ;
 547         }
 548     }
 549
 550     SfxDdeDocTopic_Impl *const pTopic = new SfxDdeDocTopic_Impl(pSh);
 551     pAppData_Impl->pDocTopics->push_back(pTopic);
 552     pAppData_Impl->pDdeService->AddTopic( *pTopic );
 553 }
 554 #endif
 555
 556 void SfxApplication::RemoveDdeTopic( SfxObjectShell* pSh )
 557 {
 558     DBG_ASSERT( pAppData_Impl->pDocTopics, "There is no Dde-Service" );
 559     //OV: DDE is disconnected in server mode!
 560     if( !pAppData_Impl->pDocTopics )
 561         return;
 562
 563     for (size_t n = pAppData_Impl->pDocTopics->size(); n; )
 564     {
 565         SfxDdeDocTopic_Impl *const pTopic = (*pAppData_Impl->pDocTopics)[ --n ];
 566         if (pTopic->pSh == pSh)
 567         {
 568             pAppData_Impl->pDdeService->RemoveTopic( *pTopic );
 569             delete pTopic;
 570             pAppData_Impl->pDocTopics->erase( pAppData_Impl->pDocTopics->begin() + n );
 571         }
 572     }
 573 }
 574
 575 const DdeService* SfxApplication::GetDdeService() const
 576 {
 577     return pAppData_Impl->pDdeService;
 578 }
 579
 580 DdeService* SfxApplication::GetDdeService()
 581 {
 582     return pAppData_Impl->pDdeService;
 583 }
 584
 585 //--------------------------------------------------------------------
 586
 587 bool SfxDdeTriggerTopic_Impl::Execute( const OUString* )
 588 {
 589     return true;
 590 }
 591
 592 //--------------------------------------------------------------------
 593 DdeData* SfxDdeDocTopic_Impl::Get( sal_uIntPtr nFormat )
 594 {
 595     OUString sMimeType( SotExchange::GetFormatMimeType( nFormat ));
 596     ::com::sun::star::uno::Any aValue;
 597     long nRet = pSh->DdeGetData( GetCurItem(), sMimeType, aValue );
 598     if( nRet && aValue.hasValue() && ( aValue >>= aSeq ) )
 599     {
 600         aData = DdeData( aSeq.getConstArray(), aSeq.getLength(), nFormat );
 601         return &aData;
 602     }
 603     aSeq.realloc( 0 );
 604     return 0;
 605 }
 606
 607 bool SfxDdeDocTopic_Impl::Put( const DdeData* pData )
 608 {
 609     aSeq = ::com::sun::star::uno::Sequence< sal_Int8 >(
 610                             (sal_Int8*)(const void*)*pData, (long)*pData );
 611     bool bRet;
 612     if( aSeq.getLength() )
 613     {
 614         ::com::sun::star::uno::Any aValue;
 615         aValue <<= aSeq;
 616         OUString sMimeType( SotExchange::GetFormatMimeType( pData->GetFormat() ));
 617         bRet = 0 != pSh->DdeSetData( GetCurItem(), sMimeType, aValue );
 618     }
 619     else
 620         bRet = false;
 621     return bRet;
 622 }
 623
 624 bool SfxDdeDocTopic_Impl::Execute( const OUString* pStr )
 625 {
 626     long nRet = pStr ? pSh->DdeExecute( *pStr ) : 0;
 627     return 0 != nRet;
 628 }
 629
 630 bool SfxDdeDocTopic_Impl::MakeItem( const OUString& rItem )
 631 {
 632     AddItem( DdeItem( rItem ) );
 633     return true;
 634 }
 635
 636 bool SfxDdeDocTopic_Impl::StartAdviseLoop()
 637 {
 638     bool bRet = false;
 639     ::sfx2::SvLinkSource* pNewObj = pSh->DdeCreateLinkSource( GetCurItem() );
 640     if( pNewObj )
 641     {
 642         // then we also establish a corresponding SvBaseLink
 643         OUString sNm, sTmp( Application::GetAppName() );
 644         ::sfx2::MakeLnkName( sNm, &sTmp, pSh->GetTitle(SFX_TITLE_FULLNAME), GetCurItem() );
 645         new ::sfx2::SvBaseLink( sNm, OBJECT_DDE_EXTERN, pNewObj );
 646         bRet = true;
 647     }
 648     return bRet;
 649 }
 650
 651 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */