npower13_objectmodules: uppercase UNO constants

basctl/source/basicide/baside2.cxx

@@ -1410,7 +1410,7 @@ BasicEntryDescriptor ModulWindow::CreateEntryDescriptor()
     {
         switch( xModule->GetModuleType() )
         {
-            case script::ModuleType::Document:
+            case script::ModuleType::DOCUMENT:
             {
                 aLibSubName = String( IDEResId( RID_STR_DOCUMENT_OBJECTS ) );
                 uno::Reference< container::XNameContainer > xLib = aDocument.getOrCreateLibrary( E_SCRIPTS, aLibName );
@@ -1425,13 +1425,13 @@ BasicEntryDescriptor ModulWindow::CreateEntryDescriptor()
                 }
                 break;
             }
-            case script::ModuleType::Form:
+            case script::ModuleType::FORM:
                 aLibSubName = String( IDEResId( RID_STR_USERFORMS ) );
                 break;
-            case script::ModuleType::Normal:
+            case script::ModuleType::NORMAL:
                 aLibSubName = String( IDEResId( RID_STR_NORMAL_MODULES ) );
                 break;
-            case script::ModuleType::Class:
+            case script::ModuleType::CLASS:
                 aLibSubName = String( IDEResId( RID_STR_CLASS_MODULES ) );
                 break;
         }

basctl/source/basicide/bastype2.cxx

@@ -63,7 +63,7 @@ void lcl_getObjectName( const uno::Reference< container::XNameContainer >& rLib,
 
 sal_Int32 lcl_getModuleType(  const uno::Reference< container::XNameContainer >& rLib, const String& rModName )
 {
-    sal_Int32 nType = com::sun::star::script::ModuleType::Normal;
+    sal_Int32 nType = com::sun::star::script::ModuleType::NORMAL;
     uno::Reference< script::XVBAModuleInfo > xVBAModuleInfo( rLib, uno::UNO_QUERY );
     if ( xVBAModuleInfo.is() && xVBAModuleInfo->hasModuleInfo( rModName ) )
     {
@@ -448,16 +448,16 @@ void BasicTreeListBox::ImpCreateLibSubSubEntriesInVBAMode( SvLBoxEntry* pLibSubR
             BasicEntryType eType = OBJ_TYPE_UNKNOWN;
             switch( lcl_getModuleType( xLib, aModName ) )
             {
-                case script::ModuleType::Document:
+                case script::ModuleType::DOCUMENT:
                     eType = OBJ_TYPE_DOCUMENT_OBJECTS;
                     break;
-                case script::ModuleType::Form:
+                case script::ModuleType::FORM:
                     eType = OBJ_TYPE_USERFORMS;
                     break;
-                case script::ModuleType::Normal:
+                case script::ModuleType::NORMAL:
                     eType = OBJ_TYPE_NORMAL_MODULES;
                     break;
-                case script::ModuleType::Class:
+                case script::ModuleType::CLASS:
                     eType = OBJ_TYPE_CLASS_MODULES;
                     break;
             }

basctl/source/basicide/bastypes.cxx

@@ -599,7 +599,7 @@ void __EXPORT BasicIDETabBar::Command( const CommandEvent& rCEvt )
                         if( pWin && pWin->ISA( ModulWindow ) )
                         {
                             SbModule* pActiveModule = (SbModule*)pBasic->FindModule( pWin->GetName() );
-                            if( pActiveModule && ( pActiveModule->GetModuleType() == script::ModuleType::Document ) )
+                            if( pActiveModule && ( pActiveModule->GetModuleType() == script::ModuleType::DOCUMENT ) )
                             {
                                 aPopup.EnableItem( SID_BASICIDE_DELETECURRENT, FALSE );
                                 aPopup.EnableItem( SID_BASICIDE_RENAMECURRENT, FALSE );