refactor: added pragmas to procedures

FossilOrigin-Name: dbd569f1c688cb309a255f27ad7cb9850676c456c5d8ab2234541418181bbbb2
thindil · Nov 15, 2023 · fcefad1 · fcefad1
1 parent bc104ed
commit fcefad1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/nim/src/ui/table.nim b/nim/src/ui/table.nim
@@ -591,15 +591,16 @@ proc isChecked*(table: TableWidget; row, column: Natural): bool {.sideEffect,
     return true
   return false
 
-proc toggleCheckedButton*(table: TableWidget; row, column: Natural) =
+proc toggleCheckedButton*(table: TableWidget; row,
+    column: Natural) {.sideEffect, raises: [], tags: [].} =
   if isChecked(table, row, column):
     tclEval(script = table.canvas & " itemconfigure row" & $row & "col" &
         $column & " -image checkbox-unchecked-empty")
   else:
     tclEval(script = table.canvas & " itemconfigure row" & $row & "col" &
         $column & " -image checkbox-checked")
 
-proc addCommands*() =
+proc addCommands*() {.sideEffect, raises: [AddingCommandError], tags: [].} =
   ## Add Tcl commands related to the TableWidget
   addCommand("UpdateCurrentRow", updateCurrentRowCommand)
   addCommand("ExecuteCurrentRow", executeCurrentRowCommand)