sfx2/source/view/topfrm.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: topfrm.cxx,v $
  10  * $Revision: 1.97 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sfx2.hxx"
  33 #ifndef GCC
  34 #endif
  35
  36 #include <sfx2/topfrm.hxx>
  37 #include <sfx2/signaturestate.hxx>
  38 #include <com/sun/star/frame/XModuleManager.hpp>
  39 #include <com/sun/star/util/XURLTransformer.hpp>
  40 #include <com/sun/star/uno/Reference.h>
  41 #include <com/sun/star/frame/XFrame.hpp>
  42 #ifndef _UNOTOOLS_PROCESSFACTORY_HXX
  43 #include <comphelper/processfactory.hxx>
  44 #endif
  45 #include <com/sun/star/frame/XFramesSupplier.hpp>
  46 #include <com/sun/star/util/XCloseable.hpp>
  47 #include <com/sun/star/util/CloseVetoException.hpp>
  48 #ifndef _TOOLKIT_UNOHLP_HXX
  49 #include <toolkit/helper/vclunohelper.hxx>
  50 #endif
  51 #ifndef _UNO_COM_SUN_STAR_AWT_POSSIZE_HPP_
  52 #include <com/sun/star/awt/PosSize.hpp>
  53 #endif
  54 #include <com/sun/star/container/XIndexAccess.hpp>
  55 #ifndef _COM_SUN_STAR_CONTAINER_XPROPERTYSET_HPP_
  56 #include <com/sun/star/beans/XPropertySet.hpp>
  57 #endif
  58 #include <com/sun/star/frame/XLayoutManager.hpp>
  59 #include <com/sun/star/beans/NamedValue.hpp>
  60 #include <com/sun/star/beans/XMaterialHolder.hpp>
  61 #include <com/sun/star/awt/XWindow2.hpp>
  62 #include <vcl/menu.hxx>
  63 #include <svtools/rectitem.hxx>
  64 #include <svtools/intitem.hxx>
  65 #include <svtools/eitem.hxx>
  66 #include <svtools/stritem.hxx>
  67 #include <svtools/asynclink.hxx>
  68 #include <svtools/sfxecode.hxx>
  69 #include <vcl/dialog.hxx>
  70 #include <svtools/urihelper.hxx>
  71 #include <svtools/moduleoptions.hxx>
  72 #include <unotools/configmgr.hxx>
  73 #include <unotools/bootstrap.hxx>
  74
  75 #include <sfxresid.hxx>
  76
  77 // wg. pTopFrames
  78 #include "appdata.hxx"
  79 #include <sfx2/app.hxx>
  80 #include <sfx2/sfx.hrc>
  81 #include <sfx2/objsh.hxx>
  82 #include <sfx2/docfile.hxx>
  83 #include <sfx2/viewsh.hxx>
  84 #include <sfx2/bindings.hxx>
  85 #include <sfx2/dispatch.hxx>
  86 #include <sfx2/request.hxx>
  87 #include <sfx2/objitem.hxx>
  88 #include <sfx2/objface.hxx>
  89 #include <sfx2/msg.hxx>
  90 #include "objshimp.hxx"
  91 #include "workwin.hxx"
  92 #include "sfxtypes.hxx"
  93 #include "splitwin.hxx"
  94 #include "arrdecl.hxx"
  95 #include "sfxhelp.hxx"
  96 #include <sfx2/fcontnr.hxx>
  97 #include <sfx2/docfac.hxx>
  98 #include "statcach.hxx"
  99 #include <sfx2/event.hxx>
 100
 101 using namespace ::com::sun::star;
 102 using namespace ::com::sun::star::uno;
 103 using namespace ::com::sun::star::frame;
 104 using namespace ::com::sun::star::util;
 105 using namespace ::com::sun::star::container;
 106 using namespace ::com::sun::star::beans;
 107
 108 //------------------------------------------------------------------------
 109
 110 #define SfxTopViewFrame
 111 #include "sfxslots.hxx"
 112
 113 DBG_NAME(SfxTopViewFrame)
 114
 115 #include <comphelper/sequenceashashmap.hxx>
 116 static ::rtl::OUString GetModuleName_Impl( const ::rtl::OUString& sDocService )
 117 {
 118     uno::Reference< container::XNameAccess > xMM( ::comphelper::getProcessServiceFactory()->createInstance(::rtl::OUString::createFromAscii("com.sun.star.frame.ModuleManager")), uno::UNO_QUERY );
 119     ::rtl::OUString sVar;
 120     if ( !xMM.is() )
 121         return sVar;
 122
 123     try
 124     {
 125         ::comphelper::SequenceAsHashMap aAnalyzer( xMM->getByName(sDocService) );
 126         sVar = aAnalyzer.getUnpackedValueOrDefault( ::rtl::OUString::createFromAscii("ooSetupFactoryUIName"), ::rtl::OUString() );
 127     }
 128     catch( uno::Exception& )
 129     {
 130         sVar = ::rtl::OUString();
 131     }
 132
 133     return sVar;
 134 }
 135
 136 class SfxTopFrame_Impl
 137 {
 138 public:
 139     Window*             pWindow;        // maybe external
 140     BOOL                bHidden;
 141     BOOL                bLockResize;
 142     BOOL                bMenuBarOn;
 143 };
 144
 145 class SfxTopWindow_Impl : public Window
 146 {
 147 public:
 148     SfxTopFrame*                pFrame;
 149
 150     SfxTopWindow_Impl( SfxTopFrame* pF );
 151 //        : Window( pF->pImp->pWindow, WB_CLIPCHILDREN | WB_NODIALOGCONTROL | WB_3DLOOK )
 152 //        , pFrame( pF )
 153 //    { SetBackground(); }
 154     ~SfxTopWindow_Impl( );
 155
 156     virtual void        DataChanged( const DataChangedEvent& rDCEvt );
 157     virtual void                StateChanged( StateChangedType nStateChange );
 158     virtual long                PreNotify( NotifyEvent& rNEvt );
 159     virtual long                Notify( NotifyEvent& rEvt );
 160     virtual void        Resize();
 161     virtual void        GetFocus();
 162     void                                DoResize();
 163     DECL_LINK(                  CloserHdl, void* );
 164 };
 165
 166 SfxTopWindow_Impl::SfxTopWindow_Impl( SfxTopFrame* pF )
 167         : Window( pF->pImp->pWindow, WB_BORDER | WB_CLIPCHILDREN | WB_NODIALOGCONTROL | WB_3DLOOK )
 168         , pFrame( pF )
 169 {
 170 }
 171
 172 SfxTopWindow_Impl::~SfxTopWindow_Impl( )
 173 {
 174 }
 175
 176 void SfxTopWindow_Impl::DataChanged( const DataChangedEvent& rDCEvt )
 177 {
 178     Window::DataChanged( rDCEvt );
 179     SfxWorkWindow *pWorkWin = pFrame->GetWorkWindow_Impl();
 180     if ( pWorkWin )
 181         pWorkWin->DataChanged_Impl( rDCEvt );
 182 }
 183
 184 long SfxTopWindow_Impl::Notify( NotifyEvent& rNEvt )
 185 {
 186     if ( pFrame->IsClosing_Impl() || !pFrame->GetFrameInterface().is() )
 187         return sal_False;
 188
 189     SfxViewFrame* pView = pFrame->GetCurrentViewFrame();
 190     if ( !pView || !pView->GetObjectShell() )
 191         return Window::Notify( rNEvt );
 192
 193     if ( rNEvt.GetType() == EVENT_GETFOCUS )
 194     {
 195         if ( pView->GetViewShell() && !pView->GetViewShell()->GetUIActiveIPClient_Impl() && !pFrame->IsInPlace() )
 196         {
 197             DBG_TRACE("SfxTopFrame: GotFocus");
 198             pView->MakeActive_Impl( FALSE );
 199         }
 200
 201         // TODO/LATER: do we still need this code?
 202         Window* pWindow = rNEvt.GetWindow();
 203         ULONG nHelpId  = 0;
 204         while ( !nHelpId && pWindow )
 205         {
 206             nHelpId = pWindow->GetHelpId();
 207             pWindow = pWindow->GetParent();
 208         }
 209
 210         if ( nHelpId )
 211             SfxHelp::OpenHelpAgent( pFrame, nHelpId );
 212
 213         // if focus was on an external window, the clipboard content might have been changed
 214         pView->GetBindings().Invalidate( SID_PASTE );
 215         pView->GetBindings().Invalidate( SID_PASTE_SPECIAL );
 216         return sal_True;
 217     }
 218     else if( rNEvt.GetType() == EVENT_KEYINPUT )
 219     {
 220         if ( pView->GetViewShell()->KeyInput( *rNEvt.GetKeyEvent() ) )
 221             return TRUE;
 222     }
 223     else if ( rNEvt.GetType() == EVENT_EXECUTEDIALOG /*|| rNEvt.GetType() == EVENT_INPUTDISABLE*/ )
 224     {
 225         pView->SetModalMode( sal_True );
 226         return sal_True;
 227     }
 228     else if ( rNEvt.GetType() == EVENT_ENDEXECUTEDIALOG /*|| rNEvt.GetType() == EVENT_INPUTENABLE*/ )
 229     {
 230         //EnableInput( sal_True, sal_True );
 231         pView->SetModalMode( sal_False );
 232         return sal_True;
 233     }
 234
 235     return Window::Notify( rNEvt );
 236 }
 237
 238 long SfxTopWindow_Impl::PreNotify( NotifyEvent& rNEvt )
 239 {
 240     USHORT nType = rNEvt.GetType();
 241     if ( nType == EVENT_KEYINPUT || nType == EVENT_KEYUP )
 242     {
 243         SfxViewFrame* pView = pFrame->GetCurrentViewFrame();
 244         SfxViewShell* pShell = pView ? pView->GetViewShell() : NULL;
 245         if ( pShell && pShell->HasKeyListeners_Impl() && pShell->HandleNotifyEvent_Impl( rNEvt ) )
 246             return sal_True;
 247     }
 248     else if ( nType == EVENT_MOUSEBUTTONUP || nType == EVENT_MOUSEBUTTONDOWN )
 249     {
 250         Window* pWindow = rNEvt.GetWindow();
 251         SfxViewFrame* pView = pFrame->GetCurrentViewFrame();
 252         SfxViewShell* pShell = pView ? pView->GetViewShell() : NULL;
 253         if ( pShell )
 254             if ( pWindow == pShell->GetWindow() || pShell->GetWindow()->IsChild( pWindow ) )
 255                 if ( pShell->HasMouseClickListeners_Impl() && pShell->HandleNotifyEvent_Impl( rNEvt ) )
 256                     return sal_True;
 257     }
 258
 259     if ( nType == EVENT_MOUSEBUTTONDOWN )
 260     {
 261         Window* pWindow = rNEvt.GetWindow();
 262         const MouseEvent* pMEvent = rNEvt.GetMouseEvent();
 263         Point aPos = pWindow->OutputToScreenPixel( pMEvent->GetPosPixel() );
 264         SfxWorkWindow *pWorkWin = pFrame->GetWorkWindow_Impl();
 265         if ( pWorkWin )
 266             pWorkWin->EndAutoShow_Impl( aPos );
 267     }
 268
 269     return Window::PreNotify( rNEvt );
 270 }
 271
 272 void SfxTopWindow_Impl::GetFocus()
 273 {
 274     if ( pFrame && !pFrame->IsClosing_Impl() && pFrame->GetCurrentViewFrame() && pFrame->GetFrameInterface().is() )
 275         pFrame->GetCurrentViewFrame()->MakeActive_Impl( TRUE );
 276 }
 277
 278 void SfxTopWindow_Impl::Resize()
 279 {
 280     if ( IsReallyVisible() || IsReallyShown() || GetOutputSizePixel().Width() )
 281         DoResize();
 282 }
 283
 284 void SfxTopWindow_Impl::StateChanged( StateChangedType nStateChange )
 285 {
 286     if ( nStateChange == STATE_CHANGE_INITSHOW )
 287     {
 288         pFrame->pImp->bHidden = FALSE;
 289         if ( pFrame->IsInPlace() )
 290             // TODO/MBA: workaround for bug in LayoutManager: the final resize does not get through because the
 291             // LayoutManager works asynchronously and between resize and time execution the DockingAcceptor was exchanged so that
 292             // the resize event never is sent to the component
 293             SetSizePixel( GetParent()->GetOutputSizePixel() );
 294
 295         DoResize();
 296         SfxViewFrame* pView = pFrame->GetCurrentViewFrame();
 297         if ( pView )
 298             pView->GetBindings().GetWorkWindow_Impl()->ShowChilds_Impl();
 299     }
 300
 301     Window::StateChanged( nStateChange );
 302 }
 303
 304 void SfxTopWindow_Impl::DoResize()
 305 {
 306     if ( !pFrame->pImp->bLockResize )
 307         pFrame->Resize();
 308 }
 309
 310 class StopButtonTimer_Impl : public Timer
 311 {
 312     BOOL bState;
 313     SfxViewFrame* pFrame;
 314 protected:
 315     virtual void Timeout();
 316 public:
 317     StopButtonTimer_Impl( SfxViewFrame*);
 318     void SetButtonState( BOOL bStateP );
 319     BOOL GetButtonState() const { return bState; }
 320 };
 321
 322 StopButtonTimer_Impl::StopButtonTimer_Impl( SfxViewFrame*p)
 323     : bState( FALSE )
 324     , pFrame( p )
 325 {
 326     SetTimeout( 200 );
 327 }
 328
 329 void StopButtonTimer_Impl::SetButtonState( BOOL bStateP )
 330 {
 331     if( bStateP )
 332     {
 333         bState = TRUE;
 334         Stop();
 335     }
 336     else if( bState )
 337         Start();
 338 }
 339
 340 void StopButtonTimer_Impl::Timeout()
 341 {
 342     bState = FALSE;
 343     pFrame->GetBindings().Invalidate( SID_BROWSE_STOP );
 344 }
 345
 346 class SfxTopViewWin_Impl : public Window
 347 {
 348 friend class SfxInternalFrame;
 349
 350     BOOL                                bActive;
 351     SfxTopViewFrame*    pFrame;
 352
 353 public:
 354                         SfxTopViewWin_Impl( SfxTopViewFrame* p,
 355                                 Window *pParent, WinBits nBits=0 ) :
 356                             Window( pParent, nBits | WB_BORDER | WB_CLIPCHILDREN ),
 357                             bActive( FALSE ),
 358                             pFrame( p )
 359                         {
 360                             p->GetFrame()->GetWindow().SetBorderStyle( WINDOW_BORDER_NOBORDER );
 361                         }
 362
 363     virtual void                Resize();
 364     virtual void                StateChanged( StateChangedType nStateChange );
 365 };
 366
 367 //--------------------------------------------------------------------
 368 void SfxTopViewWin_Impl::StateChanged( StateChangedType nStateChange )
 369 {
 370     if ( nStateChange == STATE_CHANGE_INITSHOW )
 371     {
 372         SfxObjectShell* pDoc = pFrame->GetObjectShell();
 373         if ( pDoc && !pFrame->IsVisible_Impl() )
 374             pFrame->Show();
 375
 376         pFrame->Resize();
 377     }
 378     else
 379         Window::StateChanged( nStateChange );
 380 }
 381
 382 void SfxTopViewWin_Impl::Resize()
 383 {
 384     if ( IsReallyVisible() || IsReallyShown() || GetOutputSizePixel().Width() )
 385         pFrame->Resize();
 386 }
 387
 388 class SfxTopViewFrame_Impl
 389 {
 390 public:
 391     sal_Bool            bActive;
 392     Window*             pWindow;
 393     String              aFactoryName;
 394     StopButtonTimer_Impl* pStopButtonTimer;
 395
 396                         SfxTopViewFrame_Impl()
 397                             : bActive( sal_False )
 398                             , pWindow( 0 )
 399                             , pStopButtonTimer( 0 )
 400                         {}
 401 };
 402
 403 static svtools::AsynchronLink* pPendingCloser = 0;
 404
 405 static String _getTabString()
 406 {
 407     String result;
 408
 409     Reference < XMaterialHolder > xHolder(
 410         ::comphelper::getProcessServiceFactory()->createInstance(
 411         DEFINE_CONST_UNICODE("com.sun.star.tab.tabreg") ), UNO_QUERY );
 412     if (xHolder.is())
 413     {
 414         rtl::OUString aTabString;
 415         Sequence< NamedValue > sMaterial;
 416         if (xHolder->getMaterial() >>= sMaterial) {
 417             for (int i=0; i < sMaterial.getLength(); i++) {
 418                 if ((sMaterial[i].Name.equalsAscii("title")) &&
 419                     (sMaterial[i].Value >>= aTabString))
 420                 {
 421                     result += ' ';
 422                     result += String(aTabString);
 423                 }
 424             }
 425         }
 426     }
 427     return result;
 428 }
 429
 430 SfxTopFrame* SfxTopFrame::Create( SfxObjectShell* pDoc, USHORT nViewId, BOOL bHidden, const SfxItemSet* pSet )
 431 {
 432     Reference < XFrame > xDesktop ( ::comphelper::getProcessServiceFactory()->createInstance( DEFINE_CONST_UNICODE("com.sun.star.frame.Desktop") ), UNO_QUERY );
 433     SfxTopFrame *pFrame = NULL;
 434     BOOL bNewView = FALSE;
 435     if ( pSet )
 436     {
 437         SFX_ITEMSET_ARG( pSet, pItem, SfxBoolItem, SID_OPEN_NEW_VIEW, sal_False );
 438         bNewView = pItem && pItem->GetValue();
 439     }
 440
 441     if ( pDoc && !bHidden && !bNewView )
 442     {
 443         URL aTargetURL;
 444         aTargetURL.Complete = pDoc->GetMedium()->GetURLObject().GetMainURL( INetURLObject::NO_DECODE );
 445
 446         BOOL bIsBasic = FALSE;
 447         if ( !aTargetURL.Complete.getLength() )
 448         {
 449             String sFactory = String::CreateFromAscii(pDoc->GetFactory().GetShortName());
 450             bIsBasic = (sFactory.CompareIgnoreCaseToAscii("sbasic")==COMPARE_EQUAL);
 451
 452             if (!bIsBasic)
 453             {
 454                 String aURL = String::CreateFromAscii("private:factory/");
 455                 aURL += sFactory;
 456                 aTargetURL.Complete = aURL;
 457             }
 458         }
 459
 460         if (bIsBasic)
 461         {
 462             Reference < XFramesSupplier > xSupplier( xDesktop, UNO_QUERY );
 463             if (xSupplier.is())
 464             {
 465                 Reference < XIndexAccess > xContainer(xSupplier->getFrames(), UNO_QUERY);
 466                 if (xContainer.is())
 467                 {
 468                     Reference< ::com::sun::star::frame::XModuleManager > xCheck(::comphelper::getProcessServiceFactory()->createInstance( rtl::OUString::createFromAscii("com.sun.star.frame.ModuleManager" )), UNO_QUERY);
 469                     sal_Int32 nCount = xContainer->getCount();
 470                     for (sal_Int32 i=0; i<nCount; ++i)
 471                     {
 472                         try
 473                         {
 474                             Reference < XFrame > xFrame;
 475                             if (!(xContainer->getByIndex(i) >>= xFrame) || !xFrame.is())
 476                                 continue;
 477                             ::rtl::OUString sModule = xCheck->identify(xFrame);
 478                             if (sModule.equalsAscii("com.sun.star.frame.StartModule"))
 479                             {
 480                                 pFrame = Create(xFrame);
 481                                 break;
 482                             }
 483                         }
 484                         catch(const Exception&) {}
 485                     }
 486                 }
 487             }
 488         }
 489         else
 490         {
 491             Reference < XURLTransformer > xTrans( ::comphelper::getProcessServiceFactory()->createInstance( rtl::OUString::createFromAscii("com.sun.star.util.URLTransformer" )), UNO_QUERY );
 492             xTrans->parseStrict( aTargetURL );
 493
 494             Reference < ::com::sun::star::frame::XDispatchProvider > xProv( xDesktop, UNO_QUERY );
 495             Reference < ::com::sun::star::frame::XDispatch > xDisp;
 496             if ( xProv.is() )
 497             {
 498                 Sequence < ::com::sun::star::beans::PropertyValue > aSeq(1);
 499                 aSeq[0].Name = ::rtl::OUString::createFromAscii("Model");
 500                 aSeq[0].Value <<= pDoc->GetModel();
 501                 ::rtl::OUString aTargetFrame( ::rtl::OUString::createFromAscii("_default") );
 502                 xDisp = xProv->queryDispatch( aTargetURL, aTargetFrame , 0 );
 503                 if ( xDisp.is() )
 504                     xDisp->dispatch( aTargetURL, aSeq );
 505             }
 506
 507             SfxFrameArr_Impl& rArr = *SFX_APP()->Get_Impl()->pTopFrames;
 508             for( USHORT nPos = rArr.Count(); nPos--; )
 509             {
 510                 SfxTopFrame *pF = (SfxTopFrame*) rArr[ nPos ];
 511                 if ( pF->GetCurrentDocument() == pDoc )
 512                 {
 513                     pFrame = pF;
 514                     break;
 515                 }
 516             }
 517         }
 518     }
 519
 520     if ( !pFrame  )
 521     {
 522         Reference < XFrame > xFrame = xDesktop->findFrame( DEFINE_CONST_UNICODE("_blank"), 0 );
 523         pFrame = Create( xFrame );
 524     }
 525
 526     pFrame->pImp->bHidden = bHidden;
 527     Window* pWindow = pFrame->GetTopWindow_Impl();
 528     if ( pWindow && pDoc )
 529     {
 530         ::rtl::OUString aDocServiceName( pDoc->GetFactory().GetDocumentServiceName() );
 531         ::rtl::OUString aProductName;
 532         ::utl::ConfigManager::GetDirectConfigProperty(::utl::ConfigManager::PRODUCTNAME) >>= aProductName;
 533         String aTitle = pDoc->GetTitle( SFX_TITLE_DETECT );
 534         aTitle += String::CreateFromAscii( " - " );
 535         aTitle += String(aProductName);
 536         aTitle += ' ';
 537         aTitle += String( GetModuleName_Impl( aDocServiceName ) );
 538 #ifndef PRODUCT
 539         ::rtl::OUString aDefault;
 540         aTitle += DEFINE_CONST_UNICODE(" [");
 541         String aVerId( utl::Bootstrap::getBuildIdData( aDefault ));
 542         aTitle += aVerId;
 543         aTitle += ']';
 544 #endif
 545
 546         // append TAB string if available
 547         aTitle += _getTabString();
 548
 549         /* AS_TITLE
 550         pWindow->SetText( aTitle );
 551         */
 552
 553         /* AS_ICON
 554         if( pWindow->GetType() == WINDOW_WORKWINDOW )
 555         {
 556             SvtModuleOptions::EFactory eFactory;
 557             if( SvtModuleOptions::ClassifyFactoryByName( aDocServiceName, eFactory ) )
 558             {
 559                 WorkWindow* pWorkWindow = (WorkWindow*)pWindow;
 560                 pWorkWindow->SetIcon( (sal_uInt16) SvtModuleOptions().GetFactoryIcon( eFactory ) );
 561             }
 562         }
 563         */
 564     }
 565
 566     pFrame->SetItemSet_Impl( pSet );
 567     if ( pDoc && pDoc != pFrame->GetCurrentDocument() )
 568     {
 569         if ( nViewId )
 570             pDoc->GetMedium()->GetItemSet()->Put( SfxUInt16Item( SID_VIEW_ID, nViewId ) );
 571         pFrame->InsertDocument( pDoc );
 572         if ( pWindow && !bHidden )
 573             pWindow->Show();
 574     }
 575
 576     return pFrame;
 577 }
 578
 579 SfxTopFrame* SfxTopFrame::Create( SfxObjectShell* pDoc, Window* pWindow, USHORT nViewId, BOOL bHidden, const SfxItemSet* pSet )
 580 {
 581     Reference < ::com::sun::star::lang::XMultiServiceFactory > xFact( ::comphelper::getProcessServiceFactory() );
 582     Reference < XFramesSupplier > xDesktop ( xFact->createInstance( DEFINE_CONST_UNICODE("com.sun.star.frame.Desktop") ), UNO_QUERY );
 583     Reference < XFrame > xFrame( xFact->createInstance( DEFINE_CONST_UNICODE("com.sun.star.frame.Frame") ), UNO_QUERY );
 584
 585     xFrame->initialize( VCLUnoHelper::GetInterface ( pWindow ) );
 586     if ( xDesktop.is() )
 587         xDesktop->getFrames()->append( xFrame );
 588
 589     uno::Reference< awt::XWindow2 > xWin( VCLUnoHelper::GetInterface ( pWindow ), uno::UNO_QUERY );
 590     if ( xWin.is() && xWin->isActive() )
 591         xFrame->activate();
 592
 593     SfxTopFrame* pFrame = new SfxTopFrame( pWindow );
 594     pFrame->SetFrameInterface_Impl( xFrame );
 595     pFrame->pImp->bHidden = bHidden;
 596
 597     pFrame->SetItemSet_Impl( pSet );
 598     if ( pDoc )
 599     {
 600         if ( nViewId )
 601             pDoc->GetMedium()->GetItemSet()->Put( SfxUInt16Item( SID_VIEW_ID, nViewId ) );
 602         pFrame->InsertDocument( pDoc );
 603     }
 604
 605     return pFrame;
 606 }
 607
 608 SfxTopFrame* SfxTopFrame::Create( Reference < XFrame > xFrame )
 609 {
 610     // create a new TopFrame to an external XFrame object ( wrap controller )
 611     DBG_ASSERT( xFrame.is(), "Wrong parameter!" );
 612
 613     Window* pWindow = VCLUnoHelper::GetWindow( xFrame->getContainerWindow() );
 614     SfxTopFrame* pFrame = new SfxTopFrame( pWindow );
 615     pFrame->SetFrameInterface_Impl( xFrame );
 616     return pFrame;
 617 }
 618
 619 SfxTopFrame::SfxTopFrame( Window* pExternal, sal_Bool bHidden )
 620     : SfxFrame( NULL )
 621     , pWindow( NULL )
 622 {
 623     pImp = new SfxTopFrame_Impl;
 624     pImp->bHidden = bHidden;
 625     pImp->bLockResize = FALSE;
 626     pImp->bMenuBarOn = TRUE;
 627     InsertTopFrame_Impl( this );
 628     if ( pExternal )
 629     {
 630         pImp->pWindow = pExternal;
 631     }
 632     else
 633     {
 634         DBG_ERROR( "TopFrame without window created!" );
 635 /*
 636         pImp->pWindow = new SfxTopFrameWindow_Impl( this );
 637         pImp->pWindow->SetActivateMode( ACTIVATE_MODE_GRABFOCUS );
 638         pImp->pWindow->SetPosSizePixel( Point( 20,20 ), Size( 800,600 ) );
 639         if ( GetFrameInterface().is() )
 640             GetFrameInterface()->initialize( VCLUnoHelper::GetInterface( pImp->pWindow ) );
 641         pImp->pWindow->Show();
 642  */
 643     }
 644
 645     pWindow = new SfxTopWindow_Impl( this );
 646 /** AS:
 647     Hide this window till the component was realy loaded. Otherwhise it overpaint e.g. the old component hardly
 648     and produce repaint errors.
 649     pWindow->Show();
 650   */
 651 }
 652
 653 SfxTopFrame::~SfxTopFrame()
 654 {
 655     RemoveTopFrame_Impl( this );
 656     DELETEZ( pWindow );
 657     delete pImp;
 658 }
 659
 660 void SfxTopFrame::SetPresentationMode( BOOL bSet )
 661 {
 662     if ( GetCurrentViewFrame() )
 663         GetCurrentViewFrame()->GetWindow().SetBorderStyle( bSet ? WINDOW_BORDER_NOBORDER : WINDOW_BORDER_NORMAL );
 664
 665     Reference< com::sun::star::beans::XPropertySet > xPropSet( GetFrameInterface(), UNO_QUERY );
 666     Reference< ::com::sun::star::frame::XLayoutManager > xLayoutManager;
 667
 668     if ( xPropSet.is() )
 669     {
 670         Any aValue = xPropSet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "LayoutManager" )));
 671         aValue >>= xLayoutManager;
 672     }
 673
 674     if ( xLayoutManager.is() )
 675         xLayoutManager->setVisible( !bSet ); // we don't want to have ui in presentation mode
 676
 677     SetMenuBarOn_Impl( !bSet );
 678     if ( GetWorkWindow_Impl() )
 679         GetWorkWindow_Impl()->SetDockingAllowed( !bSet );
 680     if ( GetCurrentViewFrame() )
 681         GetCurrentViewFrame()->GetDispatcher()->Update_Impl( TRUE );
 682 }
 683
 684 SystemWindow*
 685 SfxTopFrame::GetSystemWindow() const
 686 {
 687     return GetTopWindow_Impl();
 688 }
 689
 690 SystemWindow* SfxTopFrame::GetTopWindow_Impl() const
 691 {
 692     if ( pImp->pWindow->IsSystemWindow() )
 693         return (SystemWindow*) pImp->pWindow;
 694     else
 695         return NULL;
 696 }
 697
 698 Window& SfxTopFrame::GetWindow() const
 699 {
 700     return *pWindow;
 701 }
 702
 703 sal_Bool SfxTopFrame::Close()
 704 {
 705     delete this;
 706     return sal_True;
 707 }
 708
 709 void SfxTopFrame::LockResize_Impl( BOOL bLock )
 710 {
 711     pImp->bLockResize = bLock;
 712 }
 713
 714 IMPL_LINK( SfxTopWindow_Impl, CloserHdl, void*, EMPTYARG )
 715 {
 716     if ( pFrame && !pFrame->PrepareClose_Impl( TRUE ) )
 717         return 0L;
 718
 719     if ( pFrame )
 720         pFrame->GetCurrentViewFrame()->GetBindings().Execute( SID_CLOSEWIN, 0, 0, SFX_CALLMODE_ASYNCHRON );
 721     return 0L;
 722 }
 723
 724 void SfxTopFrame::SetMenuBarOn_Impl( BOOL bOn )
 725 {
 726     pImp->bMenuBarOn = bOn;
 727
 728     Reference< com::sun::star::beans::XPropertySet > xPropSet( GetFrameInterface(), UNO_QUERY );
 729     Reference< ::com::sun::star::frame::XLayoutManager > xLayoutManager;
 730
 731     if ( xPropSet.is() )
 732     {
 733         Any aValue = xPropSet->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "LayoutManager" )));
 734         aValue >>= xLayoutManager;
 735     }
 736
 737     if ( xLayoutManager.is() )
 738     {
 739         rtl::OUString aMenuBarURL( RTL_CONSTASCII_USTRINGPARAM( "private:resource/menubar/menubar" ));
 740
 741         if ( bOn )
 742             xLayoutManager->showElement( aMenuBarURL );
 743         else
 744             xLayoutManager->hideElement( aMenuBarURL );
 745     }
 746 }
 747
 748 BOOL SfxTopFrame::IsMenuBarOn_Impl() const
 749 {
 750     return pImp->bMenuBarOn;
 751 }
 752
 753 String SfxTopFrame::GetWindowData()
 754 {
 755     String aActWinData;
 756     char cToken = ',';
 757
 758     SfxViewFrame *pActFrame = SfxViewFrame::Current();
 759     SfxViewFrame *pFrame = GetCurrentViewFrame();
 760     const sal_Bool bActWin = ( pActFrame->GetTopViewFrame() == pFrame );
 761
 762     // ::com::sun::star::sdbcx::User-Daten der ViewShell
 763     String aUserData;
 764     pFrame->GetViewShell()->WriteUserData(aUserData);
 765
 766     // assemble ini-data
 767     String aWinData;
 768     aWinData += String::CreateFromInt32( pFrame->GetCurViewId() );
 769     aWinData += cToken;
 770
 771     aWinData += '1';                    // former attribute "isfloating"
 772     aWinData += cToken;
 773
 774     // aktives kennzeichnen
 775     aWinData += cToken;
 776     aWinData += bActWin ? '1' : '0';
 777
 778     aWinData += cToken;
 779     aWinData += aUserData;
 780
 781     return aWinData;
 782 }
 783
 784 sal_Bool SfxTopFrame::InsertDocument( SfxObjectShell* pDoc )
 785 /* [Beschreibung]
 786  */
 787 {
 788     // Spezielle Bedingungen testen: nicht im ModalMode!
 789     if ( !SfxFrame::InsertDocument( pDoc ) )
 790         return sal_False;
 791
 792     SfxObjectShell *pOld = GetCurrentDocument();
 793
 794     // Position und Groesse testen
 795     // Wenn diese schon gesetzt sind, soll offensichtlich nicht noch
 796     // LoadWindows_Impl aufgerufen werden ( z.B. weil dieses ein CreateFrame()
 797     // an einer Task aufgerufen hat! )
 798     const SfxItemSet* pSet = GetItemSet_Impl();
 799     if ( !pSet )
 800         pSet = pDoc->GetMedium()->GetItemSet();
 801     SetItemSet_Impl(0);
 802
 803     // Position und Gr"o\se
 804     SFX_ITEMSET_ARG(
 805         pSet, pAreaItem, SfxRectangleItem, SID_VIEW_POS_SIZE, sal_False );
 806     // View-Id
 807     SFX_ITEMSET_ARG(
 808         pSet, pViewIdItem, SfxUInt16Item, SID_VIEW_ID, sal_False );
 809     // Zoom
 810     SFX_ITEMSET_ARG(
 811         pSet, pModeItem, SfxUInt16Item, SID_VIEW_ZOOM_MODE, sal_False );
 812     // Hidden
 813     SFX_ITEMSET_ARG(
 814         pSet, pHidItem, SfxBoolItem,    SID_HIDDEN, sal_False);
 815     // ViewDaten
 816     SFX_ITEMSET_ARG(
 817         pSet, pViewDataItem, SfxStringItem, SID_USER_DATA, sal_False );
 818     // ViewOnly
 819     SFX_ITEMSET_ARG(
 820         pSet, pEditItem, SfxBoolItem, SID_VIEWONLY, sal_False);
 821     // InPlace (Hack)
 822     SFX_ITEMSET_ARG(
 823         pSet, pPluginItem, SfxUInt16Item, SID_PLUGIN_MODE, sal_False );
 824
 825     // Plugin (external InPlace)
 826     SFX_ITEMSET_ARG(
 827         pSet, pPluginMode, SfxUInt16Item, SID_PLUGIN_MODE, sal_False);
 828     // Jump (GotoBookmark)
 829     SFX_ITEMSET_ARG(
 830         pSet, pJumpItem, SfxStringItem, SID_JUMPMARK, sal_False);
 831
 832     if ( pEditItem  && pEditItem->GetValue() )
 833         SetMenuBarOn_Impl( FALSE );
 834
 835     if ( pHidItem )
 836         pImp->bHidden = pHidItem->GetValue();
 837
 838     if( !pImp->bHidden )
 839         pDoc->OwnerLock( sal_True );
 840
 841     // Wenn z.B. eine Fenstergr"o\se gesetzt wurde, soll keine Fensterinformation
 842     // aus den Dokument geladen werden, z.B. weil InsertDocument seinerseits
 843     // aus LoadWindows_Impl aufgerufen wurde!
 844     if ( !pJumpItem && !pPluginMode && pDoc && !pAreaItem && !pViewIdItem && !pModeItem &&
 845             pDoc->LoadWindows_Impl( this ) )
 846     {
 847         if ( GetCurrentDocument() != pDoc )
 848             // something went wrong during insertion
 849             return sal_False;
 850         pDoc->OwnerLock( sal_False );
 851         return sal_True;
 852     }
 853
 854     if ( pDoc )
 855     {
 856         UpdateHistory( pDoc );
 857         UpdateDescriptor( pDoc );
 858     }
 859
 860     SetFrameType_Impl( GetFrameType() & ~SFXFRAME_FRAMESET );
 861     sal_Bool bBrowsing = sal_True;
 862     SfxViewFrame *pFrame = GetCurrentViewFrame();
 863     if ( pFrame )
 864     {
 865         sal_Bool bChildActivated = sal_False;
 866         if ( pFrame->GetActiveChildFrame_Impl() && pFrame->GetActiveChildFrame_Impl() == SfxViewFrame::Current() )
 867         {
 868 //            ::com::sun::star::uno::Reference< ::com::sun::star::frame::XFramesSupplier >  xFrames( GetFrameInterface(), ::com::sun::star::uno::UNO_QUERY );
 869 //            if ( xFrames.is() )
 870 //                xFrames->setActiveFrame( ::com::sun::star::uno::Reference< ::com::sun::star::frame::XFrame > () );
 871             pFrame->SetActiveChildFrame_Impl(0);
 872             SfxViewFrame::SetViewFrame( pFrame );
 873             bChildActivated = sal_True;
 874         }
 875
 876         if ( pFrame->GetObjectShell() )
 877         {
 878             pFrame->ReleaseObjectShell_Impl( sal_False );
 879         }
 880
 881         if ( pViewIdItem )
 882             pFrame->SetViewData_Impl( pViewIdItem->GetValue(), String() );
 883         if ( pDoc )
 884             pFrame->SetObjectShell_Impl( *pDoc );
 885     }
 886     else
 887     {
 888         // 1: internal embedded object
 889         // 2: external embedded object
 890         // 3: OLE server
 891         if ( pPluginItem && pPluginItem->GetValue() != 2 )
 892             SetInPlace_Impl( TRUE );
 893
 894         bBrowsing = sal_False;
 895         pFrame = new SfxTopViewFrame( this, pDoc, pViewIdItem ? pViewIdItem->GetValue() : 0 );
 896         if ( !pFrame->GetViewShell() )
 897             return sal_False;
 898
 899         if ( pPluginItem && pPluginItem->GetValue() == 1 )
 900         {
 901             pFrame->ForceOuterResize_Impl( FALSE );
 902             pFrame->GetBindings().HidePopups(TRUE);
 903
 904             // MBA: layoutmanager of inplace frame starts locked and invisible
 905             GetWorkWindow_Impl()->MakeVisible_Impl( FALSE );
 906             GetWorkWindow_Impl()->Lock_Impl( TRUE );
 907
 908             GetWindow().SetBorderStyle( WINDOW_BORDER_NOBORDER );
 909             if ( GetCurrentViewFrame() )
 910                 GetCurrentViewFrame()->GetWindow().SetBorderStyle( WINDOW_BORDER_NOBORDER );
 911         }
 912     }
 913
 914     String aMark;
 915     SFX_ITEMSET_ARG( pSet, pMarkItem, SfxStringItem, SID_JUMPMARK, FALSE );
 916     if ( pMarkItem )
 917         aMark = pMarkItem->GetValue();
 918
 919     // Position und Groesse setzen
 920     //sal_uInt16 nWinMode = pModeItem ? pModeItem->GetValue() : 1;
 921     if ( pAreaItem && !pOld )
 922     {
 923         Window *pWin = pImp->pWindow;
 924
 925         // Groesse setzen
 926         const Rectangle aWinRect( pAreaItem->GetValue() );
 927         const Size aAppWindow( pImp->pWindow->GetDesktopRectPixel().GetSize() );
 928         Point aPos( aWinRect.TopLeft() );
 929         Size aSz(aWinRect.GetSize());
 930         if ( aSz.Width() && aSz.Height() )
 931         {
 932             aPos.X() = Min(aPos.X(),
 933                             long(aAppWindow.Width() - aSz.Width() + aSz.Width() / 2) );
 934             aPos.Y() = Min(aPos.Y(),
 935                             long( aAppWindow.Height() - aSz.Height() + aSz.Height() / 2) );
 936             if ( aPos.X() + aSz.Width() <
 937                     aAppWindow.Width() + aSz.Width() / 2 &&
 938                     aPos.Y() + aSz.Height() <
 939                     aAppWindow.Height() + aSz.Height() / 2 )
 940             {
 941                 pWin->SetPosPixel( aPos );
 942                 pWin->SetOutputSizePixel( aSz );
 943             }
 944         }
 945     }
 946
 947     if ( !pImp->bHidden )
 948     {
 949         if ( pDoc->IsHelpDocument() )
 950             pFrame->GetDispatcher()->HideUI( TRUE );
 951         else
 952             pFrame->GetDispatcher()->HideUI( FALSE );
 953
 954         if ( IsInPlace() )
 955             pFrame->LockAdjustPosSizePixel();
 956
 957         if ( pPluginMode && pPluginMode->GetValue() == 3)
 958             GetWorkWindow_Impl()->SetInternalDockingAllowed(FALSE);
 959
 960         if ( !IsInPlace() )
 961             pFrame->GetDispatcher()->Update_Impl();
 962         pFrame->Show();
 963         GetWindow().Show();
 964         if ( !IsInPlace() || (pPluginItem && pPluginItem->GetValue() == 3) )
 965             pFrame->MakeActive_Impl( GetFrameInterface()->isActive() );
 966         pDoc->OwnerLock( sal_False );
 967
 968         // Dont show container window! Its done by framework or directly
 969         // by SfxTopFrame::Create() or SfxViewFrame::ExecView_Impl() ...
 970
 971         if ( IsInPlace() )
 972         {
 973             pFrame->UnlockAdjustPosSizePixel();
 974             // force resize for OLE server to fix layout problems of writer and math
 975             // see i53651
 976             if ( pPluginItem && pPluginItem->GetValue() == 3 )
 977                 pFrame->Resize(TRUE);
 978         }
 979     }
 980     else
 981     {
 982         DBG_ASSERT( !IsInPlace() && !pPluginMode && !pPluginItem, "Special modes not compatible with hidden mode!" );
 983         GetWindow().Show();
 984     }
 985
 986     if ( pDoc->Get_Impl()->nLoadedFlags & SFX_LOADED_MAINDOCUMENT )
 987     {
 988         if ( pViewDataItem )
 989             pFrame->GetViewShell()->ReadUserData( pViewDataItem->GetValue(), sal_True );
 990         else if( aMark.Len() )
 991             GetCurrentViewFrame()->GetViewShell()->JumpToMark( aMark );
 992     }
 993     else
 994     {
 995         // Daten setzen, die in FinishedLoading ausgewertet werden
 996         MarkData_Impl*& rpMark = pDoc->Get_Impl()->pMarkData;
 997         if (!rpMark)
 998             rpMark = new MarkData_Impl;
 999         rpMark->pFrame = GetCurrentViewFrame();
1000         if ( pViewDataItem )
1001             rpMark->aUserData = pViewDataItem->GetValue();
1002         else
1003             rpMark->aMark = aMark;
1004     }
1005
1006     // Jetzt UpdateTitle, hidden TopFrames haben sonst keinen Namen!
1007     pFrame->UpdateTitle();
1008
1009     if ( !IsInPlace() )
1010     {
1011         if ( pFrame->GetViewShell()->UseObjectSize() )
1012         {
1013             GetCurrentViewFrame()->UnlockAdjustPosSizePixel();
1014             GetCurrentViewFrame()->Resize(TRUE);
1015             GetCurrentViewFrame()->ForceInnerResize_Impl( FALSE );
1016             GetCurrentViewFrame()->Resize(TRUE);
1017         }
1018         else
1019             GetCurrentViewFrame()->Resize(TRUE);
1020     }
1021
1022     SFX_APP()->NotifyEvent( SfxEventHint(SFX_EVENT_VIEWCREATED, GlobalEventConfig::GetEventName( STR_EVENT_VIEWCREATED ), pDoc ) );
1023     return sal_True;
1024 }
1025
1026
1027 //========================================================================
1028
1029 long SfxViewFrameClose_Impl( void* /*pObj*/, void* pArg )
1030 {
1031     ((SfxViewFrame*)pArg)->GetFrame()->DoClose();
1032     return 0;
1033 }
1034
1035 TYPEINIT1(SfxTopFrame, SfxFrame);
1036 TYPEINIT1(SfxTopViewFrame, SfxViewFrame);
1037
1038 //--------------------------------------------------------------------
1039 SFX_IMPL_INTERFACE(SfxTopViewFrame,SfxViewFrame,SfxResId(0))
1040 {
1041 }
1042
1043 //--------------------------------------------------------------------
1044 String SfxTopViewFrame::UpdateTitle()
1045
1046 /*      [Beschreibung]
1047
1048     Mit dieser Methode kann der SfxTopViewFrame gezwungen werden, sich sofort
1049     den neuen Titel vom der <SfxObjectShell> zu besorgen.
1050
1051     [Anmerkung]
1052
1053     Dies ist z.B. dann notwendig, wenn man der SfxObjectShell als SfxListener
1054     zuh"ort und dort auf den <SfxSimpleHint> SFX_HINT_TITLECHANGED reagieren
1055     m"ochte, um dann die Titel seiner Views abzufragen. Diese Views (SfxTopViewFrames)
1056     jedoch sind ebenfalls SfxListener und da die Reihenfolge der Benachrichtigung
1057     nicht feststeht, mu\s deren Titel-Update vorab erzwungen werden.
1058
1059
1060     [Beispiel]
1061
1062     void SwDocShell::Notify( SfxBroadcaster& rBC, const SfxHint& rHint )
1063     {
1064         if ( rHint.IsA(TYPE(SfxSimpleHint)) )
1065         {
1066             switch( ( (SfxSimpleHint&) rHint ).GetId() )
1067             {
1068                 case SFX_HINT_TITLECHANGED:
1069                     for ( SfxTopViewFrame *pTop = (SfxTopViewFrame*)
1070                                 SfxViewFrame::GetFirst(this, TYPE(SfxTopViewFrame));
1071                           pTop;
1072                           pTop = (SfxTopViewFrame*)
1073                                 SfxViewFrame::GetNext(this, TYPE(SfxTopViewFrame));
1074                     {
1075                         pTop->UpdateTitle();
1076                         ... pTop->GetName() ...
1077                     }
1078                     break;
1079                 ...
1080             }
1081         }
1082     }
1083 */
1084
1085 {
1086     DBG_CHKTHIS(SfxTopViewFrame, 0);
1087
1088     const SfxObjectFactory &rFact = GetObjectShell()->GetFactory();
1089     pImp->aFactoryName = String::CreateFromAscii( rFact.GetShortName() );
1090
1091     String aTitle = SfxViewFrame::UpdateTitle();
1092
1093     ::rtl::OUString aProductName;
1094     ::utl::ConfigManager::GetDirectConfigProperty(::utl::ConfigManager::PRODUCTNAME) >>= aProductName;
1095
1096     aTitle += String::CreateFromAscii( " - " );
1097     aTitle += String(aProductName);
1098     aTitle += ' ';
1099     ::rtl::OUString aDocServiceName( GetObjectShell()->GetFactory().GetDocumentServiceName() );
1100     aTitle += String( GetModuleName_Impl( aDocServiceName ) );
1101 #ifndef PRODUCT
1102     ::rtl::OUString     aDefault;
1103     aTitle += DEFINE_CONST_UNICODE(" [");
1104     String aVerId( utl::Bootstrap::getBuildIdData( aDefault ));
1105     aTitle += aVerId;
1106     aTitle += ']';
1107 #endif
1108
1109     // append TAB string if available
1110     aTitle += _getTabString();
1111
1112     GetBindings().Invalidate( SID_NEWDOCDIRECT );
1113
1114     /* AS_TITLE
1115     Window* pWindow = GetTopFrame_Impl()->GetTopWindow_Impl();
1116     if ( pWindow && pWindow->GetText() != aTitle )
1117         pWindow->SetText( aTitle );
1118     */
1119     return aTitle;
1120 }
1121
1122 //--------------------------------------------------------------------
1123 void SfxTopViewFrame::Notify( SfxBroadcaster& rBC, const SfxHint& rHint )
1124 {
1125     {DBG_CHKTHIS(SfxTopViewFrame, 0);}
1126
1127     if( IsDowning_Impl())
1128         return;
1129
1130     // we know only SimpleHints
1131     if ( rHint.IsA(TYPE(SfxSimpleHint)) )
1132     {
1133         switch( ( (SfxSimpleHint&) rHint ).GetId() )
1134         {
1135             case SFX_HINT_MODECHANGED:
1136             case SFX_HINT_TITLECHANGED:
1137                 // when the document changes its title, change views too
1138                 UpdateTitle();
1139                 break;
1140
1141             case SFX_HINT_DEINITIALIZING:
1142                 // on all other changes force repaint
1143                 GetFrame()->DoClose();
1144                 return;
1145     }
1146     }
1147
1148     SfxViewFrame::Notify( rBC, rHint );
1149 }
1150
1151 //--------------------------------------------------------------------
1152 sal_Bool SfxTopViewFrame::Close()
1153 {
1154     {DBG_CHKTHIS(SfxTopViewFrame, 0);}
1155
1156     // Modaler Dialog oben ??
1157 //      if ( pImp->GetModalDialog() )
1158 //              return sal_False;
1159
1160     // eigentliches Schlie\sen
1161     if ( SfxViewFrame::Close() )
1162     {
1163         if (SfxViewFrame::Current() == this)
1164             SfxViewFrame::SetViewFrame(0);
1165
1166         // Da der Dispatcher leer ger"aumt wird, kann man ihn auch nicht mehr
1167         // vern"unftig verwenden - also besser still legen
1168         GetDispatcher()->Lock(sal_True);
1169         delete this;
1170
1171         return sal_True;
1172     }
1173
1174     return sal_False;
1175 }
1176
1177 SfxTopViewFrame::SfxTopViewFrame
1178 (
1179     SfxFrame*                   pFrame,
1180     SfxObjectShell*     pObjShell,
1181     sal_uInt16                          nViewId
1182 )
1183
1184 /*      [Beschreibung]
1185
1186     Ctor des SfxTopViewFrame f"ur eine <SfxObjectShell> aus der Ressource.
1187     Die 'nViewId' der zu erzeugenden <SfxViewShell> kann angegeben werden
1188     (default ist die zuerst registrierte SfxViewShell-Subklasse).
1189 */
1190
1191     : SfxViewFrame( *(new SfxBindings), pFrame, pObjShell, SFXFRAME_HASTITLE )
1192 {
1193     DBG_CTOR(SfxTopViewFrame, 0);
1194
1195     pCloser = 0;
1196     pImp = new SfxTopViewFrame_Impl;
1197     pImp->pStopButtonTimer = new StopButtonTimer_Impl(this);
1198
1199 //(mba)/task    if ( !pFrame->GetTask() )
1200     {
1201         pImp->pWindow = new SfxTopViewWin_Impl( this, &pFrame->GetWindow() );
1202         pImp->pWindow->SetSizePixel( pFrame->GetWindow().GetOutputSizePixel() );
1203         SetWindow_Impl( pImp->pWindow );
1204         pFrame->SetOwnsBindings_Impl( sal_True );
1205         pFrame->CreateWorkWindow_Impl();
1206     }
1207
1208     sal_uInt32 nType = SFXFRAME_OWNSDOCUMENT | SFXFRAME_HASTITLE;
1209     if ( pObjShell && pObjShell->GetCreateMode() == SFX_CREATE_MODE_EMBEDDED )
1210         nType |= SFXFRAME_EXTERNAL;
1211     GetFrame()->SetFrameType_Impl( GetFrame()->GetFrameType() | nType );
1212
1213     if ( GetFrame()->IsInPlace() )
1214     {
1215         LockAdjustPosSizePixel();
1216     }
1217
1218     try
1219     {
1220         if ( pObjShell )
1221             SwitchToViewShell_Impl( nViewId );
1222     }
1223     catch (com::sun::star::uno::Exception& )
1224     {
1225         // make sure that the ctor is left regularly
1226         ReleaseObjectShell_Impl();
1227         return;
1228     }
1229
1230     if ( GetFrame()->IsInPlace() )
1231     {
1232         UnlockAdjustPosSizePixel();
1233     }
1234     else if ( GetViewShell() && GetViewShell()->UseObjectSize() )
1235     {
1236         // initiale Gr"o\se festlegen
1237         // Zuerst die logischen Koordinaten von IP-Objekt und EditWindow
1238         // ber"ucksichtigen
1239         LockAdjustPosSizePixel();
1240         ForceInnerResize_Impl( TRUE );
1241
1242         Window *pWindow = GetViewShell()->GetWindow();
1243
1244         // Da in den Applikationen bei der R"ucktransformation immer die
1245         // Eckpunkte tranformiert werden und nicht die Size (um die Ecken
1246         // alignen zu k"onnen), transformieren wir hier auch die Punkte, um
1247         // m"oglichst wenig Rundungsfehler zu erhalten.
1248 /*
1249         Rectangle aRect = pWindow->LogicToLogic( GetObjectShell()->GetVisArea(),
1250                                         GetObjectShell()->GetMapUnit(),
1251                                         pWindow->GetMapMode() );
1252 */
1253         Rectangle aRect = pWindow->LogicToPixel( GetObjectShell()->GetVisArea() );
1254         Size aSize = aRect.GetSize();
1255         GetViewShell()->GetWindow()->SetSizePixel( aSize );
1256         DoAdjustPosSizePixel(GetViewShell(), Point(), aSize );
1257     }
1258 }
1259
1260 //------------------------------------------------------------------------
1261 SfxTopViewFrame::~SfxTopViewFrame()
1262 {
1263     DBG_DTOR(SfxTopViewFrame, 0);
1264
1265     SetDowning_Impl();
1266
1267     if ( SfxViewFrame::Current() == this )
1268         SfxViewFrame::SetViewFrame(NULL);
1269
1270     ReleaseObjectShell_Impl();
1271     if ( pPendingCloser == pCloser )
1272         pPendingCloser = 0;
1273     delete pCloser;
1274     if ( GetFrame()->OwnsBindings_Impl() )
1275         // Die Bindings l"oscht der Frame!
1276         KillDispatcher_Impl();
1277
1278     delete pImp->pWindow;
1279     delete pImp->pStopButtonTimer;
1280     delete pImp;
1281 }
1282
1283 //------------------------------------------------------------------------
1284 sal_Bool SfxTopViewFrame::SetBorderPixelImpl( const SfxViewShell *pVSh, const SvBorder &rBorder )
1285 {
1286     if( SfxViewFrame::SetBorderPixelImpl( GetViewShell(), rBorder ) )
1287     {
1288         if ( IsResizeInToOut_Impl() && !GetFrame()->IsInPlace() )
1289         {
1290             Size aSize = pVSh->GetWindow()->GetOutputSizePixel();
1291             if ( aSize.Width() && aSize.Height() )
1292             {
1293                 aSize.Width() += rBorder.Left() + rBorder.Right();
1294                 aSize.Height() += rBorder.Top() + rBorder.Bottom();
1295
1296                 Size aOldSize = GetWindow().GetOutputSizePixel();
1297                 GetWindow().SetOutputSizePixel( aSize );
1298                 Window* pParent = &GetWindow();
1299                 while ( pParent->GetParent() )
1300                     pParent = pParent->GetParent();
1301                 Size aOuterSize = pParent->GetOutputSizePixel();
1302                 aOuterSize.Width() += ( aSize.Width() - aOldSize.Width() );
1303                 aOuterSize.Height() += ( aSize.Height() - aOldSize.Height() );
1304                 pParent->SetOutputSizePixel( aOuterSize );
1305             }
1306         }
1307         else
1308         {
1309             Point aPoint;
1310             Rectangle aEditArea( aPoint, GetWindow().GetOutputSizePixel() );
1311             aEditArea.Left() += rBorder.Left();
1312             aEditArea.Right() -= rBorder.Right();
1313             aEditArea.Top() += rBorder.Top();
1314             aEditArea.Bottom() -= rBorder.Bottom();
1315             pVSh->GetWindow()->SetPosSizePixel( aEditArea.TopLeft(), aEditArea.GetSize() );
1316         }
1317         return sal_True;
1318
1319     }
1320     return sal_False;
1321 }
1322
1323 void SfxTopViewFrame::Exec_Impl(SfxRequest &rReq )
1324 {
1325     // Wenn gerade die Shells ausgetauscht werden...
1326     if ( !GetObjectShell() || !GetViewShell() )
1327         return;
1328
1329     switch ( rReq.GetSlot() )
1330     {
1331         case SID_SHOWPOPUPS :
1332         {
1333             SFX_REQUEST_ARG(rReq, pShowItem, SfxBoolItem, SID_SHOWPOPUPS, FALSE);
1334             BOOL bShow = pShowItem ? pShowItem->GetValue() : TRUE;
1335             SFX_REQUEST_ARG(rReq, pIdItem, SfxUInt16Item, SID_CONFIGITEMID, FALSE);
1336             USHORT nId = pIdItem ? pIdItem->GetValue() : 0;
1337
1338             // ausfuehren
1339             SfxWorkWindow *pWorkWin = GetFrame()->GetWorkWindow_Impl();
1340             if ( bShow )
1341             {
1342                 // Zuerst die Floats auch anzeigbar machen
1343                 pWorkWin->MakeChildsVisible_Impl( bShow );
1344                 GetDispatcher()->Update_Impl( TRUE );
1345
1346                 // Dann anzeigen
1347                 GetBindings().HidePopups( !bShow );
1348             }
1349             else
1350             {
1351                 // Alles hiden
1352                 SfxBindings *pBind = &GetBindings();
1353                 while ( pBind )
1354                 {
1355                     pBind->HidePopupCtrls_Impl( !bShow );
1356                     pBind = pBind->GetSubBindings_Impl();
1357                 }
1358
1359                 pWorkWin->HidePopups_Impl( !bShow, TRUE, nId );
1360                 pWorkWin->MakeChildsVisible_Impl( bShow );
1361             }
1362
1363             Invalidate( rReq.GetSlot() );
1364             rReq.Done();
1365             break;
1366         }
1367
1368         case SID_ACTIVATE:
1369         {
1370             MakeActive_Impl( TRUE );
1371             rReq.SetReturnValue( SfxObjectItem( 0, this ) );
1372             break;
1373         }
1374
1375         case SID_WIN_POSSIZE:
1376             break;
1377
1378         case SID_NEWDOCDIRECT :
1379         {
1380             SFX_REQUEST_ARG( rReq, pFactoryItem, SfxStringItem, SID_NEWDOCDIRECT, FALSE);
1381             String aFactName;
1382             if ( pFactoryItem )
1383                 aFactName = pFactoryItem->GetValue();
1384             else if ( pImp->aFactoryName.Len() )
1385                 aFactName = pImp->aFactoryName;
1386             else
1387             {
1388                 DBG_ERROR("Missing argument!");
1389                 break;
1390             }
1391
1392             SfxRequest aReq( SID_OPENDOC, SFX_CALLMODE_SYNCHRON, GetPool() );
1393             String aFact = String::CreateFromAscii("private:factory/");
1394             aFact += aFactName;
1395             aReq.AppendItem( SfxStringItem( SID_FILE_NAME, aFact ) );
1396             aReq.AppendItem( SfxFrameItem( SID_DOCFRAME, GetFrame() ) );
1397             aReq.AppendItem( SfxStringItem( SID_TARGETNAME, String::CreateFromAscii( "_blank" ) ) );
1398             SFX_APP()->ExecuteSlot( aReq );
1399             const SfxViewFrameItem* pItem = PTR_CAST( SfxViewFrameItem, aReq.GetReturnValue() );
1400             if ( pItem )
1401                 rReq.SetReturnValue( SfxFrameItem( 0, pItem->GetFrame() ) );
1402             break;
1403         }
1404
1405         case SID_CLOSEWIN:
1406         {
1407             // disable CloseWin, if frame is not a task
1408             Reference < XCloseable > xTask( GetFrame()->GetFrameInterface(),  UNO_QUERY );
1409             if ( !xTask.is() )
1410                 break;
1411
1412             if ( GetViewShell()->PrepareClose() )
1413             {
1414                 // weitere Views auf dasselbe Doc?
1415                 SfxObjectShell *pDocSh = GetObjectShell();
1416                 int bOther = sal_False;
1417                 for ( const SfxTopViewFrame *pFrame =
1418                           (SfxTopViewFrame *)SfxViewFrame::GetFirst( pDocSh, TYPE(SfxTopViewFrame) );
1419                       !bOther && pFrame;
1420                       pFrame = (SfxTopViewFrame *)SfxViewFrame::GetNext( *pFrame, pDocSh, TYPE(SfxTopViewFrame) ) )
1421                     bOther = (pFrame != this);
1422
1423                 // Doc braucht nur gefragt zu werden, wenn keine weitere View
1424                 sal_Bool bClosed = sal_False;
1425                 sal_Bool bUI = TRUE;
1426                 if ( ( bOther || pDocSh->PrepareClose( bUI ) ) )
1427                 {
1428                     if ( !bOther )
1429                         pDocSh->SetModified( FALSE );
1430                     rReq.Done(); // unbedingt vor Close() rufen!
1431                     bClosed = sal_False;
1432                     try
1433                     {
1434                         xTask->close(sal_True);
1435                         bClosed = sal_True;
1436                     }
1437                     catch( CloseVetoException& )
1438                     {
1439                         bClosed = sal_False;
1440                     }
1441                 }
1442
1443                 rReq.SetReturnValue( SfxBoolItem( rReq.GetSlot(), bClosed ));
1444             }
1445             return;
1446         }
1447     }
1448
1449     rReq.Done();
1450 }
1451
1452 void SfxTopViewFrame::GetState_Impl( SfxItemSet &rSet )
1453 {
1454     SfxObjectShell *pDocSh = GetObjectShell();
1455
1456     if ( !pDocSh )
1457         return;
1458
1459     const sal_uInt16 *pRanges = rSet.GetRanges();
1460     DBG_ASSERT(pRanges, "Set ohne Bereich");
1461     while ( *pRanges )
1462     {
1463         for ( sal_uInt16 nWhich = *pRanges++; nWhich <= *pRanges; ++nWhich )
1464         {
1465             switch(nWhich)
1466             {
1467             case SID_NEWDOCDIRECT :
1468             {
1469                 if ( pImp->aFactoryName.Len() )
1470                 {
1471                     String aFact = String::CreateFromAscii("private:factory/");
1472                     aFact += pImp->aFactoryName;
1473                     rSet.Put( SfxStringItem( nWhich, aFact ) );
1474                 }
1475                 break;
1476             }
1477
1478             case SID_NEWWINDOW:
1479                 rSet.DisableItem(nWhich);
1480                 break;
1481
1482             case SID_CLOSEWIN:
1483             {
1484                 // disable CloseWin, if frame is not a task
1485                 Reference < XCloseable > xTask( GetFrame()->GetFrameInterface(),  UNO_QUERY );
1486                 if ( !xTask.is() )
1487                     rSet.DisableItem(nWhich);
1488                 break;
1489             }
1490
1491             case SID_SHOWPOPUPS :
1492                 break;
1493
1494             case SID_WIN_POSSIZE:
1495             {
1496                 rSet.Put( SfxRectangleItem( nWhich, Rectangle(
1497                         GetWindow().GetPosPixel(), GetWindow().GetSizePixel() ) ) );
1498                 break;
1499             }
1500
1501             default:
1502                 DBG_ERROR( "invalid message-id" );
1503             }
1504         }
1505         ++pRanges;
1506     }
1507 }
1508
1509 void SfxTopViewFrame::INetExecute_Impl( SfxRequest &rRequest )
1510 {
1511     sal_uInt16 nSlotId = rRequest.GetSlot();
1512     switch( nSlotId )
1513     {
1514         case SID_BROWSE_FORWARD:
1515         case SID_BROWSE_BACKWARD:
1516         {
1517             // Anzeige der n"achsten oder vorherigen Seite aus der History
1518             SFX_REQUEST_ARG( rRequest, pSteps, SfxUInt16Item, nSlotId, sal_False );
1519             GetFrame()->Browse( nSlotId == SID_BROWSE_FORWARD, pSteps ? pSteps->GetValue() : 1,
1520                 (rRequest.GetModifier() & KEY_MOD1) != 0 );
1521             break;
1522         }
1523         case SID_CREATELINK:
1524         {
1525 /*! (pb) we need new implementation to create a link
1526 */
1527             break;
1528         }
1529         case SID_BROWSE_STOP:
1530         {
1531             if ( GetCancelManager() )
1532                 GetCancelManager()->Cancel( TRUE );
1533
1534             // cancel jobs in hidden tasks
1535             SfxFrameArr_Impl& rArr = *SFX_APP()->Get_Impl()->pTopFrames;
1536             for( USHORT nPos = rArr.Count(); nPos--; )
1537             {
1538                 SfxFrame *pFrame = rArr[ nPos ];
1539                 if ( !pFrame->GetCurrentViewFrame() )
1540                     pFrame->GetCancelManager()->Cancel( TRUE );
1541             }
1542
1543             break;
1544         }
1545         case SID_FOCUSURLBOX:
1546         {
1547             SfxStateCache *pCache = GetBindings().GetAnyStateCache_Impl( SID_OPENURL );
1548             if( pCache )
1549             {
1550                 SfxControllerItem* pCtrl = pCache->GetItemLink();
1551                 while( pCtrl )
1552                 {
1553                     pCtrl->StateChanged( SID_FOCUSURLBOX, SFX_ITEM_UNKNOWN, 0 );
1554                     pCtrl = pCtrl->GetItemLink();
1555                 }
1556             }
1557         }
1558     }
1559
1560     // Recording
1561     rRequest.Done();
1562 }
1563
1564 void SfxTopViewFrame::INetState_Impl( SfxItemSet &rItemSet )
1565 {
1566     if ( !GetFrame()->CanBrowseForward() )
1567         rItemSet.DisableItem( SID_BROWSE_FORWARD );
1568
1569     if ( !GetFrame()->CanBrowseBackward() )
1570         rItemSet.DisableItem( SID_BROWSE_BACKWARD );
1571
1572     // Add/SaveToBookmark bei BASIC-IDE, QUERY-EDITOR etc. disablen
1573     SfxObjectShell *pDocSh = GetObjectShell();
1574     sal_Bool bPseudo = pDocSh && !( pDocSh->GetFactory().GetFlags() & SFXOBJECTSHELL_HASOPENDOC );
1575     sal_Bool bEmbedded = pDocSh && pDocSh->GetCreateMode() == SFX_CREATE_MODE_EMBEDDED;
1576     if ( !pDocSh || bPseudo || bEmbedded || !pDocSh->HasName() )
1577         rItemSet.DisableItem( SID_CREATELINK );
1578
1579     pImp->pStopButtonTimer->SetButtonState( GetCancelManager()->CanCancel() );
1580     if ( !pImp->pStopButtonTimer->GetButtonState() )
1581         rItemSet.DisableItem( SID_BROWSE_STOP );
1582 }
1583
1584 void SfxTopViewFrame::SetZoomFactor( const Fraction &rZoomX, const Fraction &rZoomY )
1585 {
1586     GetViewShell()->SetZoomFactor( rZoomX, rZoomY );
1587 }
1588
1589 void SfxTopViewFrame::Activate( sal_Bool bMDI )
1590 {
1591     DBG_ASSERT(GetViewShell(), "Keine Shell");
1592     if ( bMDI )
1593         pImp->bActive = sal_True;
1594 //(mba): hier evtl. wie in Beanframe NotifyEvent ?!
1595 }
1596
1597 void SfxTopViewFrame::Deactivate( sal_Bool bMDI )
1598 {
1599     DBG_ASSERT(GetViewShell(), "Keine Shell");
1600     if ( bMDI )
1601         pImp->bActive = sal_False;
1602 //(mba): hier evtl. wie in Beanframe NotifyEvent ?!
1603 }
1604
1605 void SfxTopFrame::CheckMenuCloser_Impl( MenuBar* pMenuBar )
1606 {
1607     Reference < ::com::sun::star::frame::XFrame > xFrame = GetFrameInterface();
1608
1609     // checks if there is more than one "real" (not help) task window
1610     // in this case a close button is inserted into the menubar
1611
1612     DBG_ASSERT( xFrame.is(), "Attention: this bug is very hard to reproduce. Please try to remember how you triggered it!");
1613     if ( !xFrame.is() || !xFrame->getController().is() )
1614         // dummy component
1615         return;
1616
1617     Reference < ::com::sun::star::frame::XFramesSupplier > xDesktop( xFrame->getCreator(), UNO_QUERY );
1618     if ( !xDesktop.is() )
1619         // test only for task windows
1620         return;
1621
1622     sal_Bool bLastTask = sal_False;
1623     Reference < ::com::sun::star::container::XIndexAccess >
1624             xList ( xDesktop->getFrames(), ::com::sun::star::uno::UNO_QUERY );
1625     sal_Int32 nCount = xList->getCount();
1626     if ( nCount<=1 )
1627         // only one task
1628         bLastTask = sal_True;
1629     else if ( nCount==2 )
1630     {
1631         // if we have to tasks, one can be the help task, that should be ignored
1632         for( sal_Int32 i=0; i<nCount; ++i )
1633         {
1634             Reference < ::com::sun::star::frame::XFrame > xTask;
1635             ::com::sun::star::uno::Any aVal = xList->getByIndex(i);
1636             if ( (aVal>>=xTask) && xTask.is() && xTask->getName().compareToAscii("OFFICE_HELP_TASK") == COMPARE_EQUAL )
1637             {
1638                 // one of the two open tasks was the help task -> ignored
1639                 bLastTask = sal_True;
1640                 break;
1641             }
1642         }
1643     }
1644
1645     pMenuBar->ShowCloser(bLastTask);
1646 }