2 files changed, 9 insertions, 4 deletions
diff --git a/include/basic/sbmod.hxx b/include/basic/sbmod.hxx
index a71f7253a451..fac7f9e50121 100644
--- a/include/basic/sbmod.hxx
+++ b/include/basic/sbmod.hxx
@@ -66,7 +66,8 @@ protected:
     std::unique_ptr<SbiImage> pImage;        // the Image
     SbiBreakpoints*     pBreaks;       // Breakpoints
     std::unique_ptr<SbClassData> pClassData;
-    bool mbVBACompat;
+    bool mbVBASupport; // Option VBASupport
+    bool mbCompat; // Option Compatible
     sal_Int32 mnType;
     SbxObjectRef pDocObject; // an impl object ( used by Document Modules )
     bool    bIsProxyModule;
@@ -95,7 +96,7 @@ protected:
     virtual ~SbModule() override;
 public:
     SBX_DECL_PERSIST_NODATA(SBXID_BASICMOD,2);
-                    SbModule( const OUString&, bool bCompat = false );
+                    SbModule( const OUString&, bool bVBASupport = false );
     SAL_DLLPRIVATE virtual void SetParent( SbxObject* ) override;
     SAL_DLLPRIVATE virtual void Clear() override;
 
@@ -120,8 +121,9 @@ public:
     SAL_DLLPRIVATE bool ExceedsLegacyModuleSize();
     SAL_DLLPRIVATE void fixUpMethodStart( bool bCvtToLegacy, SbiImage* pImg = nullptr ) const;
     SAL_DLLPRIVATE bool HasExeCode();
-    bool     IsVBACompat() const { return mbVBACompat;}
-    SAL_DLLPRIVATE void SetVBACompat( bool bCompat );
+    bool     IsVBASupport() const { return mbVBASupport; }
+    SAL_DLLPRIVATE void SetVBASupport( bool bSupport );
+    bool     IsCompatible() const { return mbCompat; }
     sal_Int32 GetModuleType() const { return mnType; }
     void     SetModuleType( sal_Int32 nType ) { mnType = nType; }
     bool     isProxyModule() const { return bIsProxyModule; }
diff --git a/include/basic/sbxobj.hxx b/include/basic/sbxobj.hxx
index 10d4c074c423..34c117d33853 100644
--- a/include/basic/sbxobj.hxx
+++ b/include/basic/sbxobj.hxx
@@ -78,6 +78,9 @@ public:
     SbxArray* GetObjects()      { return pObjs.get(); }
     // Debugging
     void Dump( SvStream&, bool bDumpAll );
+
+private:
+    bool IsModuleCompatible() const; // Module's Option Compatible
 };
 
 #endif // INCLUDED_BASIC_SBXOBJ_HXX