From d36f12cc165169695b53e15f4c3df1f3eb797c2d Mon Sep 17 00:00:00 2001
From: Marc Culler <culler@users.noreply.github.com>
Date: Tue, 26 Nov 2024 08:50:15 -0600
Subject: [PATCH] Add fetch script for TclTk 9

---
 ci/windows/fetch_tcltk9.sh | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 ci/windows/fetch_tcltk9.sh

diff --git a/ci/windows/fetch_tcltk9.sh b/ci/windows/fetch_tcltk9.sh
new file mode 100644
index 0000000..2eb8186
--- /dev/null
+++ b/ci/windows/fetch_tcltk9.sh
@@ -0,0 +1,17 @@
+#!/usr/bin/bash
+set -e
+TCL9_VERSION=9.0.0
+TK9_VERSION=9.0.0
+WGET="/c/msys64/usr/bin/wget -nv"
+CMD=/c/msys64/usr/bin/cmd
+if [ ! -e tcl$TCL9_VERSION-src.tar.gz ] ; then
+    $WGET https://prdownloads.sourceforge.net/tcl/tcl$TCL9_VERSION-src.tar.gz
+fi
+if [ ! -e tk$TK9_VERSION-src.tar.gz ]; then
+    $WGET https://prdownloads.sourceforge.net/tcl/tk$TCL9_VERSION-src.tar.gz
+fi
+rm -rf tcl9 tk9
+tar xfz tcl$TCL9_VERSION-src.tar.gz
+mv tcl$TCL9_VERSION tcl9
+tar xfz tk$TCL9_VERSION-src.tar.gz
+mv tk$TCL9_VERSION tk9