]      if {$actClock <= [clock seconds]} {   bell   tk_messageBox -title "Error" -icon error -message \       "The activation date & time must be in the future"   $tbl rejectinput      } else {   $tbl cellconfigure $row,act