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:
parent
415f44932f
commit
8af6395b19
1 changed files with 8 additions and 6 deletions
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue