Merge branch '87-gnatsas-integration-insert-pragma-annotate' into 'ma…

…ster' Replace use of "CodePeer" in pragma Annotate and review dialog Closes #87 See merge request eng/ide/gnatstudio!275
AdaCore · Oct 31, 2023 · 646e2c7 · 646e2c7
2 parents bfd5159 + e6f62c3
commit 646e2c7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/code_analysis/src/codepeer-module.adb b/code_analysis/src/codepeer-module.adb
@@ -1780,7 +1780,8 @@ package body CodePeer.Module is
          Editor.Insert
            (Location.End_Of_Line, ASCII.LF &
               "pragma Annotate" & ASCII.LF &
-              "(CodePeer, False_Positive, """ &
+              "(" & CodePeer.Module_Name &
+              ", False_Positive, """ &
               To_String (Message.Category.Name) &
               """, ""<insert review>"");");
          Editor.Indent (Location, Location.Forward_Line (2));

diff --git a/code_analysis/src/codepeer-multiple_message_review_dialogs.adb b/code_analysis/src/codepeer-multiple_message_review_dialogs.adb
@@ -191,11 +191,11 @@ package body CodePeer.Multiple_Message_Review_Dialogs is
 
       GPS.Dialogs.Initialize
         (Self,
-         Title  => -"CodePeer message review",
+         Title  => -(CodePeer.Module_Name & " message review"),
          Kernel => Kernel,
          Typ    => Class_Record.The_Type);
       GPS.Main_Window.Set_Default_Size_From_History
-        (Self, "CodePeer message review", Kernel, 400, 400);
+        (Self, CodePeer.Module_Name & " message review", Kernel, 400, 400);
 
       Gtk.Paned.Gtk_New_Vpaned (Paned_1);
       Self.Get_Content_Area.Pack_Start (Paned_1);