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 {} {