Add tcl::oo for Tcl 9.

tcltk · Sep 17, 2024 · 85ddaba · 85ddaba
1 parent 1764e8b
commit 85ddaba
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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
 
 # # ## ### ##### ######## #############