refactor: added pragmas to showHelpCommand procedure

FossilOrigin-Name: 8ff314d151798f70c2d9cd5baaaf9ff0a4a31e32647bef279b23df50e4124a34
thindil · Feb 29, 2024 · b532a6d · b532a6d
1 parent ec4fb00
commit b532a6d
Showing 1 changed file with 15 additions and 5 deletions.
diff --git a/nim/src/ui/helpui.nim b/nim/src/ui/helpui.nim
@@ -61,7 +61,7 @@ proc closeHelpCommand(clientData: cint; interp: PInterp; argc: cint;
   return tclOk
 
 proc showHelpCommand(clientData: cint; interp: PInterp; argc: cint;
-    argv: openArray[cstring]): TclResults =
+    argv: openArray[cstring]): TclResults {.sideEffect, raises: [], tags: [].} =
   let helpWindow = ".help"
   if tclEval2(script = "winfo exists " & helpWindow) == "1":
     return closeHelpCommand(clientData = clientData, interp = interp,
@@ -84,12 +84,22 @@ proc showHelpCommand(clientData: cint; interp: PInterp; argc: cint;
       theme.boldHelpColor & "} -font BoldHelpFont")
   tclEval(script = helpView & " tag configure italic -foreground {" &
       theme.italicHelpColor & "} -font ItalicHelpFont")
-  var x = ((tclEval2(script = "winfo vrootwidth " & helpWindow).parseInt -
-      gameSettings.windowWidth) / 2).int
+  var x = try:
+        ((tclEval2(script = "winfo vrootwidth " & helpWindow).parseInt -
+            gameSettings.windowWidth) / 2).int
+      except:
+        tclEval(script = "bgerror {Can't count X position of help window. Reason: " &
+            getCurrentExceptionMsg() & "}")
+        return tclOk
   if x < 0:
     x = 0
-  var y = ((tclEval2(script = "winfo vrootheight " & helpWindow).parseInt -
-      gameSettings.windowHeight) / 2).int
+  var y = try:
+        ((tclEval2(script = "winfo vrootheight " & helpWindow).parseInt -
+            gameSettings.windowHeight) / 2).int
+      except:
+        tclEval(script = "bgerror {Can't count Y position of help window. Reason: " &
+            getCurrentExceptionMsg() & "}")
+        return tclOk
   if y < 0:
     y = 0
   tclEval(script = "wm geometry " & helpWindow & " " &