From 85ddaba3b87b4d1691250512a2fc23abc4768716 Mon Sep 17 00:00:00 2001
From: Poor Yorick <pooryorick@users.sf.net>
Date: Tue, 17 Sep 2024 20:33:04 +0000
Subject: [PATCH] Add tcl::oo for Tcl 9.

---
 modules/virtchannel_base/string.tcl | 4 +++-
 modules/virtchannel_core/core.tcl   | 4 +++-
 modules/virtchannel_core/events.tcl | 4 +++-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/modules/virtchannel_base/string.tcl b/modules/virtchannel_base/string.tcl
index 277f9496c4..b3b3f85ce7 100644
--- a/modules/virtchannel_base/string.tcl
+++ b/modules/virtchannel_base/string.tcl
@@ -26,7 +26,9 @@
 # # ## ### ##### ######## #############
 
 package require Tcl 8.5 9
-package require TclOO
+if {[catch {package require tcl::oo}]} {
+	package require TclOO
+}
 package require tcl::chan::events
 
 # # ## ### ##### ######## #############
diff --git a/modules/virtchannel_core/core.tcl b/modules/virtchannel_core/core.tcl
index f31ac628ed..a54892ef81 100644
--- a/modules/virtchannel_core/core.tcl
+++ b/modules/virtchannel_core/core.tcl
@@ -22,7 +22,9 @@
 # # ## ### ##### ######## #############
 
 package require Tcl 8.5 9
-package require TclOO
+if {[catch {package require tcl::oo}]} {
+	package require TclOO
+}
 
 # # ## ### ##### ######## #############
 
diff --git a/modules/virtchannel_core/events.tcl b/modules/virtchannel_core/events.tcl
index e84f60618a..6a7efc57a0 100644
--- a/modules/virtchannel_core/events.tcl
+++ b/modules/virtchannel_core/events.tcl
@@ -27,7 +27,9 @@
 # # ## ### ##### ######## #############
 
 package require Tcl 8.5 9
-package require TclOO
+if {[catch {package require tcl::oo}]} {
+	package require TclOO
+}
 package require tcl::chan::core
 
 # # ## ### ##### ######## #############