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

#92172# New methods Store/LoadBinaryData()

Browse source
This commit is contained in:
Andreas Bregas 2001-10-23 11:06:51 +00:00
parent a0722ccb1e
commit 947a6ec5ec
1 changed files with 33 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
basic/source/classes/sbxmod.cxx
View file

@ -2,9 +2,9 @@
*
* $RCSfile: sbxmod.cxx,v $
*
* $Revision: 1.5 $
* $Revision: 1.6 $
*
* last change: $Author: mh $ $Date: 2001-10-17 18:47:21 $
* last change: $Author: ab $ $Date: 2001-10-23 12:06:51 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -999,6 +999,37 @@ BOOL SbModule::StoreData( SvStream& rStrm ) const
}
}
// Store only image, no source
BOOL SbModule::StoreBinaryData( SvStream& rStrm )
{
BOOL bRet = SbxObject::StoreData( rStrm );
if( bRet )
{
bRet = Compile();
if( bRet )
{
pImage->aSource = String();
pImage->aComment = aComment;
pImage->aName = GetName();
rStrm << (BYTE) 1;
bRet = pImage->Save( rStrm );
pImage->aSource = aSource;
}
}
return bRet;
}
BOOL SbModule::LoadBinaryData( SvStream& rStrm )
{
String aKeepSource = aSource;
bool bRet = LoadData( rStrm, 2 );
aSource = aKeepSource;
return bRet;
}
BOOL SbModule::LoadCompleted()
{
SbxArray* p = GetMethods();