refactor: moved executeCurrentRowCommand to Nim

FossilOrigin-Name: c7fb869e5fee7dbd016e04f5c649da886a615b2288cb9b2fa94df77480414158
thindil · Nov 13, 2023 · 56ee9a4 · 56ee9a4
1 parent 48ae64a
commit 56ee9a4
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/nim/src/ui/table.nim b/nim/src/ui/table.nim
@@ -525,8 +525,15 @@ proc updateCurrentRowCommand(clientData: cint; interp: PInterp; argc: cint;
   except:
     return tclError
 
+proc executeCurrentRowCommand(clientData: cint; interp: PInterp; argc: cint;
+    argv: openArray[cstring]): TclResults =
+  let canvas = $argv[1]
+  return tclEval(script = canvas & " bind row$currentrow <Button-1" & (
+      if gameSettings.rightButton: "3" else: "1") & ">")
+
 proc addCommands*() =
   addCommand("UpdateCurrentRow", updateCurrentRowCommand)
+  addCommand("ExecuteCurrentRow", executeCurrentRowCommand)
 
 # Temporary code for interfacing with Ada