sc/workben/result.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: result.cxx,v $
  10  * $Revision: 1.4 $
  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 #ifdef _MSC_VER
  32 #pragma hdrstop
  33 #endif
  34
  35 #include <tools/debug.hxx>
  36 #include <usr/ustring.hxx>
  37
  38 #include "result.hxx"
  39
  40 using namespace com::sun::star;
  41
  42 //------------------------------------------------------------------------
  43
  44 SV_IMPL_PTRARR( XResultListenerArr_Impl, XResultListenerPtr );
  45
  46 //SMART_UNO_IMPLEMENTATION( ScAddInResult, UsrObject );
  47
  48 //------------------------------------------------------------------------
  49
  50 ScAddInResult::ScAddInResult(const String& rStr) :
  51     aArg( rStr ),
  52     nTickCount( 0 )
  53 {
  54     aTimer.SetTimeout( 1000 );
  55     aTimer.SetTimeoutHdl( LINK( this, ScAddInResult, TimeoutHdl ) );
  56     aTimer.Start();
  57 }
  58
  59 void ScAddInResult::NewValue()
  60 {
  61     ++nTickCount;
  62
  63     uno::Any aAny;
  64     if ( TRUE /* nTickCount % 4 */ )
  65     {
  66         String aRet = aArg;
  67         aRet += nTickCount;
  68         rtl::OUString aUStr = StringToOUString( aRet, CHARSET_SYSTEM );
  69         aAny <<= aUStr;
  70     }
  71     // else void
  72
  73 //      sheet::ResultEvent aEvent( (UsrObject*)this, aAny );
  74     sheet::ResultEvent aEvent( (cppu::OWeakObject*)this, aAny );
  75
  76     for ( USHORT n=0; n<aListeners.Count(); n++ )
  77         (*aListeners[n])->modified( aEvent );
  78 }
  79
  80 IMPL_LINK_INLINE_START( ScAddInResult, TimeoutHdl, Timer*, pT )
  81 {
  82     NewValue();
  83     pT->Start();
  84     return 0;
  85 }
  86 IMPL_LINK_INLINE_END( ScAddInResult, TimeoutHdl, Timer*, pT )
  87
  88 ScAddInResult::~ScAddInResult()
  89 {
  90 }
  91
  92 // XVolatileResult
  93
  94 void SAL_CALL ScAddInResult::addResultListener( const ::com::sun::star::uno::Reference< ::com::sun::star::sheet::XResultListener >& aListener ) throw(::com::sun::star::uno::RuntimeException)
  95 {
  96     uno::Reference<sheet::XResultListener> *pObj = new uno::Reference<sheet::XResultListener>( aListener );
  97     aListeners.Insert( pObj, aListeners.Count() );
  98
  99     if ( aListeners.Count() == 1 )
 100     {
 101         acquire();                                              // one Ref for all listeners
 102
 103         NewValue();     //! Test
 104     }
 105 }
 106
 107 void SAL_CALL ScAddInResult::removeResultListener( const ::com::sun::star::uno::Reference< ::com::sun::star::sheet::XResultListener >& aListener ) throw(::com::sun::star::uno::RuntimeException)
 108 {
 109     acquire();
 110
 111     USHORT nCount = aListeners.Count();
 112     for ( USHORT n=nCount; n--; )
 113     {
 114         uno::Reference<sheet::XResultListener> *pObj = aListeners[n];
 115         if ( *pObj == aListener )
 116         {
 117             aListeners.DeleteAndDestroy( n );
 118
 119             if ( aListeners.Count() == 0 )
 120             {
 121                 nTickCount = 0; //! Test
 122
 123                 release();                                      // release listener Ref
 124             }
 125
 126             break;
 127         }
 128     }
 129
 130     release();
 131 }
 132
 133 //------------------------------------------------------------------------
 134
 135
 136