INTEGRATION: CWS scriptingf1 (1.54.104); FILE MERGED

2003/10/31 17:26:32 dfoster 1.54.104.2: RESYNC: (1.54-1.55); FILE MERGED
2003/10/09 14:33:31 dfoster 1.54.104.1: #i19262# - support scripting framework scripts for forms
This commit is contained in:
Kurt Zenker 2003-11-18 15:50:17 +00:00
parent 415f44932f
commit 8af6395b19

View file

@ -2,9 +2,9 @@
*
* $RCSfile: formcontroller.cxx,v $
*
* $Revision: 1.55 $
* $Revision: 1.56 $
*
* last change: $Author: obo $ $Date: 2003-10-21 09:04:59 $
* last change: $Author: kz $ $Date: 2003-11-18 16:50:17 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -1510,11 +1510,13 @@ namespace pcr
{ // Dialog editor mode
pWriteScriptEvents->ListenerType = aListener;
}
if ( pMacro->GetLanguage().EqualsAscii("StarBasic") )
{
sal_Bool bApplicationMacro = pMacro->GetLibName().EqualsAscii("StarOffice");
sal_Bool bApplicationMacro = pMacro->GetLibName().EqualsAscii("StarOffice");
sScriptCode = ::rtl::OUString::createFromAscii( bApplicationMacro ? "application:" : "document:" );
sScriptCode += pMacro->GetMacName();
sScriptCode = ::rtl::OUString::createFromAscii( bApplicationMacro ? "application:" : "document:" );
sScriptCode += pMacro->GetMacName();
}
pWriteScriptEvents->ScriptCode = sScriptCode;
pWriteScriptEvents->EventMethod = *pMethods;