basic/source/sample/collelem.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: collelem.cxx,v $
  10  * $Revision: 1.7 $
  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_basic.hxx"
  33 #include <tools/errcode.hxx>
  34 #include <vcl/msgbox.hxx>
  35 #include <basic/sbx.hxx>
  36 #include "collelem.hxx"
  37
  38 // Das Sample-Element ist ein kleines Objekt, das die Properties
  39 // Name und Value enth„lt sowie die Methode Say, die den �bergebenen
  40 // Text mit dem eigenen Namen verkoppelt und ausgibt.
  41
  42 SampleElement::SampleElement( const String& r ) : SbxObject( r )
  43 {
  44     // Methode Say mit einem String-Parameter
  45     SbxVariable* pMeth = Make( String( RTL_CONSTASCII_USTRINGPARAM("Say") ), SbxCLASS_METHOD, SbxEMPTY );
  46     pMeth->SetUserData( 0x12345678 );
  47     pMeth->ResetFlag( SBX_FIXED );
  48     SbxInfo* pInfo_ = new SbxInfo;
  49     pInfo_->AddParam( String( RTL_CONSTASCII_USTRINGPARAM("text") ), SbxSTRING, SBX_READ );
  50     pMeth->SetInfo( pInfo_ );
  51 }
  52
  53 void SampleElement::SFX_NOTIFY( SfxBroadcaster& rBC, const TypeId& rBCType,
  54                                 const SfxHint& rHint, const TypeId& rHintType )
  55 {
  56     const SbxHint* pHint = PTR_CAST(SbxHint,&rHint);
  57     if( pHint )
  58     {
  59         SbxVariable* pVar = pHint->GetVar();
  60         SbxArray* pPar_ = pVar->GetParameters();
  61         ULONG t = pHint->GetId();
  62         if( t == SBX_HINT_DATAWANTED && pVar->GetUserData() == 0x12345678 )
  63         {
  64             // Die Say-Methode:
  65             // 1 Parameter + Returnwert
  66             if( !pPar_ || pPar_->Count() != 2 )
  67                 SetError( SbxERR_WRONG_ARGS );
  68             else
  69             {
  70                 String s( GetName() );
  71                 s.AppendAscii( " says: " );
  72                 s += pPar_->Get( 1 )->GetString();
  73                 pPar_->Get( 0 )->SetType(SbxSTRING);
  74                 pPar_->Get( 0 )->PutString( s );
  75                 InfoBox( NULL, s ).Execute();
  76             }
  77             return;
  78         }
  79         SbxObject::SFX_NOTIFY( rBC, rBCType, rHint, rHintType );
  80     }
  81 }
  82