Repos / gorts / bba1a5aacd
commit bba1a5aacd58f5e61c36ef2e6b5e765f2bc4fe03
Author: Nhân <hi@imnhan.com>
Date:   Thu Jun 22 10:28:37 2023 +0700

    prevent user from clicking other stuff

diff --git a/tcl/main.tcl b/tcl/main.tcl
index 2918868..c020f7d 100644
--- a/tcl/main.tcl
+++ b/tcl/main.tcl
@@ -288,6 +288,7 @@ proc fetchplayers {} {
     .n.s.fetch configure -state disabled
     .n.s.token configure -state disabled
     .n.s.tournamentslug configure -state disabled
+    .n state disabled
     set ::startgg(msg) "Fetching..."
     ipc_write "fetchplayers" $::startgg(token) $::startgg(slug)
 }
@@ -297,6 +298,7 @@ proc fetchplayers__resp {} {
     .n.s.fetch configure -state normal
     .n.s.token configure -state normal
     .n.s.tournamentslug configure -state normal
+    .n state !disabled
 }
 
 proc discardscoreboard {} {