diff options
Diffstat (limited to 'wizards/source/sfdocuments/SF_Document.xba')
| -rw-r--r-- | wizards/source/sfdocuments/SF_Document.xba | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/wizards/source/sfdocuments/SF_Document.xba b/wizards/source/sfdocuments/SF_Document.xba index 2b80dd4cb5d6..d839538879d6 100644 --- a/wizards/source/sfdocuments/SF_Document.xba +++ b/wizards/source/sfdocuments/SF_Document.xba @@ -294,6 +294,11 @@ Property Get ImportFilters() As Variant End Property ' SFDocuments.SF_Document.ImportFilters REM ----------------------------------------------------------------------------- +Property Get IsAlive() As Boolean + IsAlive = _PropertyGet("IsAlive") +End Property ' SFDocuments.SF_Document.IsAlive + +REM ----------------------------------------------------------------------------- Property Get IsBase() As Boolean IsBase = _PropertyGet("IsBase") End Property ' SFDocuments.SF_Document.IsBase @@ -997,6 +1002,7 @@ Public Function Properties() As Variant , "ExportFilters" _ , "FileSystem" _ , "ImportFilters" _ + , "IsAlive" _ , "IsBase" _ , "IsCalc" _ , "IsDraw" _ @@ -2152,11 +2158,14 @@ Const cstSubArgs = "" _PropertyGet = False Select Case _DocumentType - Case "Calc" : cstThisSub = "SFDocuments.SF_" & _DocumentType & ".get" & psProperty + Case "Base", "Calc", "FormDocument", "Writer" + cstThisSub = "SFDocuments.SF_" & _DocumentType & ".get" & psProperty Case Else : cstThisSub = "SFDocuments.SF_Document.get" & psProperty End Select ScriptForge.SF_Utils._EnterFunction(cstThisSub, cstSubArgs) - If Not _IsStillAlive() Then GoTo Finally + If psProperty <> "IsAlive" Then + If Not _IsStillAlive() Then GoTo Finally + End If Select Case psProperty Case "CustomProperties" @@ -2181,6 +2190,8 @@ Const cstSubArgs = "" _PropertyGet = oContent.getIdentifier().ContentIdentifier & "/" Case "ImportFilters" _PropertyGet = _GetFilterNames(False) + Case "IsAlive" + _PropertyGet = _IsStillAlive(False, False) Case "IsBase", "IsCalc", "IsDraw", "IsFormDocument", "IsImpress", "IsMath", "IsWriter" _PropertyGet = ( Mid(psProperty, 3) = _DocumentType ) Case "Keywords" |