refactor: use Nim code to add commands related to various actions in …

…bases FossilOrigin-Name: 9be9889f6539eb8877b6c4b3acaca45f7ac287f198ae25cd0d0266d2db774b64
thindil · Sep 29, 2024 · 992aeeb · 992aeeb
1 parent 64af693
commit 992aeeb
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 9 deletions.
diff --git a/nim/src/ui/basesui.nim b/nim/src/ui/basesui.nim
@@ -607,10 +607,9 @@ proc sortBaseItemsCommand(clientData: cint; interp: PInterp; argc: cint;
 proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the trades UI
   try:
-    discard
-#    addCommand("ShowBaseUI", showBaseUiCommand)
-#    addCommand("BaseAction", baseActionCommand)
-#    addCommand("SearchRecipes", searchRecipesCommand)
-#    addCommand("ShowBaseMenu", showBaseMenuCommand)
+    addCommand("ShowBaseUI", showBaseUiCommand)
+    addCommand("BaseAction", baseActionCommand)
+    addCommand("SearchRecipes", searchRecipesCommand)
+    addCommand("ShowBaseMenu", showBaseMenuCommand)
   except:
     showError(message = "Can't add a Tcl command.")
diff --git a/nim/src/ui/mapsui.nim b/nim/src/ui/mapsui.nim
@@ -739,7 +739,7 @@ proc createGameUi*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect,
 #    tradesui.addCommands()
     basesschoolui.addCommands()
     basesrecruitui.addCommands()
-#    basesui.addCommands()
+    basesui.addCommands()
     basesshipyardui.addCommands()
     baseslootui.addCommands()
 #    knowledge.addCommands()

diff --git a/src/ui/maps-ui.adb b/src/ui/maps-ui.adb
@@ -20,8 +20,6 @@ with Tcl.Tk.Ada.Widgets.TtkButton;
 with Tcl.Tk.Ada.Widgets.TtkFrame;
 with Tcl.Tk.Ada.Widgets.TtkPanedWindow;
 with Tcl.Tk.Ada.Winfo;
-with Bases;
-with Bases.UI;
 with Crafts.UI;
 with CoreUI;
 with DebugUI;
@@ -100,7 +98,6 @@ package body Maps.UI is
          Messages.UI.Add_Commands;
          GameOptions.Add_Commands;
          Trades.UI.Add_Commands;
-         Bases.UI.Add_Commands;
          Knowledge.Add_Commands;
          Missions.UI.Add_Commands;
          Statistics.UI.Add_Commands;