strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#86438# New RTL method GlobalScope()

Browse source
This commit is contained in:
Andreas Bregas 2001-05-17 12:43:03 +00:00
parent 5fcc679789
commit e38b60b461
3 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
basic/source/runtime/methods1.cxx
View file

@ -2,9 +2,9 @@
*
* $RCSfile: methods1.cxx,v $
*
* $Revision: 1.3 $
* $Revision: 1.4 $
*
* last change: $Author: ab $ $Date: 2001-03-03 15:54:39 $
* last change: $Author: ab $ $Date: 2001-05-17 13:42:39 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -1290,6 +1290,16 @@ RTLFUNC(CreateUnoDialog)
RTL_Impl_CreateUnoDialog( pBasic, rPar, bWrite );
}
// Return the application standard lib as root scope
RTLFUNC(GlobalScope)
{
SbxObject* p = pBasic;
while( p->GetParent() )
p = p->GetParent();
SbxVariableRef refVar = rPar.Get(0);
refVar->PutObject( p );
}

5
basic/source/runtime/rtlproto.hxx
View file

@ -2,9 +2,9 @@
*
* $RCSfile: rtlproto.hxx,v $
*
* $Revision: 1.2 $
* $Revision: 1.3 $
*
* last change: $Author: ab $ $Date: 2001-03-03 15:50:11 $
* last change: $Author: ab $ $Date: 2001-05-17 13:41:55 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -349,6 +349,7 @@ extern RTLFUNC(CreateUnoListener);
extern RTLFUNC(HasUnoInterfaces);
extern RTLFUNC(EqualUnoObjects);
extern RTLFUNC(CreateUnoDialog);
extern RTLFUNC(GlobalScope);
extern RTLFUNC(FileExists);

13
basic/source/runtime/stdobj.cxx
View file

@ -2,9 +2,9 @@
*
* $RCSfile: stdobj.cxx,v $
*
* $Revision: 1.2 $
* $Revision: 1.3 $
*
* last change: $Author: ab $ $Date: 2001-03-03 15:51:15 $
* last change: $Author: ab $ $Date: 2001-05-17 13:43:03 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -290,10 +290,11 @@ static Methods aMethods[] = {
{ "GetGUIVersion", SbxLONG, _FUNCTION,RTLNAME(GetGUIVersion) },
{ "GetPathSeparator", SbxSTRING, _FUNCTION,RTLNAME(GetPathSeparator) },
{ "GetProcessServiceManager", SbxOBJECT, 0 | _FUNCTION, RTLNAME(GetProcessServiceManager) },
{ "GetSolarVersion", SbxLONG, _FUNCTION,RTLNAME(GetSolarVersion) },
{ "GetSystemTicks", SbxLONG, _FUNCTION,RTLNAME(GetSystemTicks) },
{ "GetSystemType", SbxINTEGER, _FUNCTION,RTLNAME(GetSystemType) },
{ "Green", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Green) },
{ "GetSolarVersion", SbxLONG, _FUNCTION,RTLNAME(GetSolarVersion) },
{ "GetSystemTicks", SbxLONG, _FUNCTION,RTLNAME(GetSystemTicks) },
{ "GetSystemType", SbxINTEGER, _FUNCTION,RTLNAME(GetSystemType) },
{ "GlobalScope", SbxOBJECT, _FUNCTION,RTLNAME(GlobalScope) },
{ "Green", SbxINTEGER, 1 | _FUNCTION, RTLNAME(Green) },
{ "RGB-Value", SbxLONG },
{ "HasUnoInterfaces", SbxBOOL, 1 | _FUNCTION, RTLNAME(HasUnoInterfaces) },