refactor: updated code to the new version of showError procedure

FossilOrigin-Name: 107059018831871e600c646ff4d6dd1cb54632f7b8d66a7533432c644ee9281a
thindil · Sep 16, 2024 · 0cdf88e · 0cdf88e
1 parent 2e633fa
commit 0cdf88e
Show file tree

Hide file tree

Showing 15 changed files with 65 additions and 65 deletions.
diff --git a/nim/src/ui/knowledge.nim b/nim/src/ui/knowledge.nim
@@ -169,7 +169,7 @@ proc knowledgeMaxMinCommand(clientData: cint; interp: PInterp; argc: cint;
         $argv[1] & " show}")
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the trades UI
   try:
     knowledgebases.addCommands()

diff --git a/nim/src/ui/knowledgebases.nim b/nim/src/ui/knowledgebases.nim
@@ -218,7 +218,7 @@ proc showBasesCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc showBaseInfoCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show information about the selected base
   ##
   ## * clientData - the additional data for the Tcl command
@@ -546,7 +546,7 @@ proc sortBasesCommand(clientData: cint; interp: PInterp; argc: cint;
   updateBasesList(baseName = $argv[1])
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the trades UI
   try:
     discard

diff --git a/nim/src/ui/knowledgeevents.nim b/nim/src/ui/knowledgeevents.nim
@@ -20,7 +20,7 @@ import ../[config, game, maps, tk, types]
 import coreui, dialogs, errordialog, table
 
 proc showEventInfoCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show information about the selected event
   ##
   ## * clientData - the additional data for the Tcl command
@@ -373,7 +373,7 @@ proc sortEventsCommand(clientData: cint; interp: PInterp; argc: cint;
   updateEventsList()
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the known events UI
   try:
     discard

diff --git a/nim/src/ui/knowledgemissions.nim b/nim/src/ui/knowledgemissions.nim
@@ -20,7 +20,7 @@ import ../[config, game, maps, missions, tk, types]
 import coreui, dialogs, errordialog, table, utilsui2
 
 proc showMissionsMenuCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show the menu with available the selected mission options
   ##
   ## * clientData - the additional data for the Tcl command
@@ -387,7 +387,7 @@ proc sortMissionsCommand(clientData: cint; interp: PInterp; argc: cint;
   updateMissionsList()
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the accepted missions UI
   try:
     discard

diff --git a/nim/src/ui/knowledgestories.nim b/nim/src/ui/knowledgestories.nim
@@ -20,7 +20,7 @@ import ../[game, stories, tk]
 import coreui, errordialog
 
 proc showStoryCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show the current story information
   ##
   ## * clientData - the additional data for the Tcl command
@@ -131,7 +131,7 @@ proc showStoryCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc showStoryLocationCommand(clientData: cint; interp: PInterp; argc: cint;
-   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show the current story event on map
   ##
   ## * clientData - the additional data for the Tcl command
@@ -151,7 +151,7 @@ proc showStoryLocationCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc setStoryCommand(clientData: cint; interp: PInterp; argc: cint;
-   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Set the current story event as the player's ship destination
   ##
   ## * clientData - the additional data for the Tcl command
@@ -170,7 +170,7 @@ proc setStoryCommand(clientData: cint; interp: PInterp; argc: cint;
   tclEval(script = "SetDestination2 " & $newX & " " & $newY)
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the list of known stories
   try:
     discard

diff --git a/nim/src/ui/mapsuicommands.nim b/nim/src/ui/mapsuicommands.nim
@@ -113,7 +113,7 @@ proc moveMapInfoCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc drawMapCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Draw the sky map
   ##
   ## * clientData - the additional data for the Tcl command
@@ -127,7 +127,7 @@ proc drawMapCommand(clientData: cint; interp: PInterp; argc: cint;
   ## DrawMap
 
 proc zoomMapCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Zoom in or our the sky map
   ##
   ## * clientData - the additional data for the Tcl command
@@ -141,7 +141,7 @@ proc zoomMapCommand(clientData: cint; interp: PInterp; argc: cint;
   ## ZoomMap
 
 proc updateMapInfoCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Update the information about the selected map's cell
   ##
   ## * clientData - the additional data for the Tcl command
@@ -156,7 +156,7 @@ proc updateMapInfoCommand(clientData: cint; interp: PInterp; argc: cint;
   ## X and Y are coordinates of the map cell which info will be show
 
 proc showDestinationMenuCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Create and show the destination menu dialog
   ##
   ## * clientData - the additional data for the Tcl command
@@ -171,7 +171,7 @@ proc showDestinationMenuCommand(clientData: cint; interp: PInterp; argc: cint;
   ## X and Y are the map coordinates for which the destination menu will be show
 
 proc setShipDestinationCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Set the current map cell as the destination for the player's ship
   ##
   ## * clientData - the additional data for the Tcl command
@@ -185,7 +185,7 @@ proc setShipDestinationCommand(clientData: cint; interp: PInterp; argc: cint;
   ## SetDestination
 
 proc moveMapCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Move the map in the selected direction
   ##
   ## * clientData - the additional data for the Tcl command
@@ -201,7 +201,7 @@ proc moveMapCommand(clientData: cint; interp: PInterp; argc: cint;
 
 proc moveShipCommand(clientData: cint; interp: PInterp; argc: cint;
     argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [
-        WriteIOEffect, RootEffect], exportc.}
+        WriteIOEffect, TimeEffect, RootEffect], exportc.}
   ## Move the player's ship in the selected direction and check what happened
   ##
   ## * clientData - the additional data for the Tcl command
@@ -251,7 +251,7 @@ proc resignGameCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc showStatsCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show the screen with the player's game statistics
   ##
   ## * clientData - the additional data for the Tcl command
@@ -268,7 +268,7 @@ proc showStatsCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc showSkyMapCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.}
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.}
   ## Show the sky map
   ##
   ## * clientData - the additional data for the Tcl command
@@ -354,7 +354,7 @@ proc toggleFullScreenCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc resizeLastMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Resize the last messages window
   ##
   ## * clientData - the additional data for the Tcl command
@@ -418,7 +418,7 @@ proc invokeMenuCommand(clientData: cint; interp: PInterp; argc: cint;
   ## Shortcut, the keyboard shortcut which was pressed
 
 proc setShipSpeedCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Set the new speed for the player's ship
   ##
   ## * clientData - the additional data for the Tcl command

diff --git a/nim/src/ui/messagesui.nim b/nim/src/ui/messagesui.nim
@@ -33,7 +33,7 @@ proc showMessage(message: MessageData; messageView: string;
   tclEval(script = messageView & " insert end {" & message.message & "\n}" & messageTag)
 
 proc showLastMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show the list of last messages to a player
   ##
   ## * clientData - the additional data for the Tcl command
@@ -93,7 +93,7 @@ proc showLastMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc selectMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show only messages of the selected type
   ##
   ## * clientData - the additional data for the Tcl command
@@ -128,7 +128,7 @@ proc deleteMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc searchMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+    argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show only this messages which contains the selected sequence
   ##
   ## * clientData - the additional data for the Tcl command
@@ -180,7 +180,7 @@ proc searchMessagesCommand(clientData: cint; interp: PInterp; argc: cint;
   tclSetResult(value = "1")
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the crew UI
   try:
     discard

diff --git a/nim/src/ui/missionsui.nim b/nim/src/ui/missionsui.nim
@@ -23,7 +23,7 @@ import coreui, dialogs, errordialog, mapsui, table, utilsui2
 var baseIndex = 0
 
 proc showMissionCommand(clientData: cint; interp: PInterp; argc: cint;
-   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show mission on map
   ##
   ## * clientData - the additional data for the Tcl command
@@ -71,7 +71,7 @@ var
   missionsTable: TableWidget
   missionsIndexes: seq[Natural]
 
-proc refreshMissionsList(page: Positive = 1) {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc refreshMissionsList(page: Positive = 1) {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Refresh the list of available missions
   ##
   ## * page - The current page of the list to show. Default value is 1.
@@ -287,7 +287,7 @@ proc showBaseMissionsCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc missionMoreInfoCommand(clientData: cint; interp: PInterp; argc: cint;
-   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Show more info about the selected mission
   ##
   ## * clientData - the additional data for the Tcl command
@@ -419,7 +419,7 @@ proc missionMoreInfoCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc acceptMissionCommand(clientData: cint; interp: PInterp; argc: cint;
-   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Accept the mission in a base
   ##
   ## * clientData - the additional data for the Tcl command
@@ -490,7 +490,7 @@ proc acceptMissionCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc updateMissionRewardCommand(clientData: cint; interp: PInterp; argc: cint;
-   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect], exportc.} =
+   argv: cstringArray): TclResults {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect], exportc.} =
   ## Update the information about the selected mission reward
   ##
   ## * clientData - the additional data for the Tcl command
@@ -676,7 +676,7 @@ proc sortAvailableMissionsCommand(clientData: cint; interp: PInterp; argc: cint;
   updateTable(table = missionsTable)
   return tclOk
 
-proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect].} =
+proc addCommands*() {.sideEffect, raises: [], tags: [WriteIOEffect, TimeEffect].} =
   ## Adds Tcl commands related to the list of available missions
   try:
     discard