refactor: added procedures tclSetResult

FossilOrigin-Name: 666c5c028113f8173c6de67996efd0445809be4ab79fe8c8294e969d578ef569
thindil · Nov 16, 2023 · 830b176 · 830b176
1 parent 10b9e8e
commit 830b176
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/nim/src/tk.nim b/nim/src/tk.nim
@@ -199,3 +199,17 @@ proc tclSetVar*(varName, newValue: string) =
   ## * varName  - the name of the Tcl variable to set
   ## * newValue - the value of the Tcl variable
   tclSetVar(getInterp(), varName.cstring, newValue.cstring, 1)
+
+proc tclSetResult(interp: PInterp; result: cstring; freeProc: cint) {.cdecl,
+    dynlib: tclDllName, importc: "Tcl_SetResult".}
+  ## Set the new value for the Tcl result
+  ##
+  ## * interp   - the Tcl interpreter on which the result will be set
+  ## * result   - the new value for the Tcl result
+  ## * freeProc - the type of procedure used to free the result
+
+proc tclSetResult*(value: string) =
+  ## Set the new value for the Tcl result on the current Tcl interpreter
+  ##
+  ## * result   - the new value for the Tcl result
+  tclSetResult(getInterp(), value.cstring, 1)