diff options
-rw-r--r-- | basctl/source/basicide/basobj3.cxx | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/basctl/source/basicide/basobj3.cxx b/basctl/source/basicide/basobj3.cxx index ab8a36f85341..41c4f52052a4 100644 --- a/basctl/source/basicide/basobj3.cxx +++ b/basctl/source/basicide/basobj3.cxx @@ -250,20 +250,23 @@ BasicManager* FindBasicManager( StarBASIC const * pLib ) void MarkDocumentModified( const ScriptDocument& rDocument ) { + Shell* pShell = GetShell(); + // does not have to come from a document... if ( rDocument.isApplication() ) { - if (Shell* pShell = GetShell()) - { + if (pShell) pShell->SetAppBasicModified(true); - pShell->UpdateObjectCatalog(); - } } else { rDocument.setDocumentModified(); } + // tdf#130161 in all cases call UpdateObjectCatalog + if (pShell) + pShell->UpdateObjectCatalog(); + if (SfxBindings* pBindings = GetBindingsPtr()) { pBindings->Invalidate( SID_SIGNATURE ); |