$OpenBSD: patch-tkrat_start_tcl,v 1.1 2012/08/22 05:17:33 stu Exp $
--- tkrat/start.tcl.orig	Wed Sep 24 00:40:15 2003
+++ tkrat/start.tcl	Sat May  5 03:57:52 2012
@@ -91,12 +91,20 @@ proc TkRatStart {} {
     package require rat_balloon 1.0
     package require rat_edit 1.0
     package require rat_textlist 1.0
-    package require blt_busy 1.0
     package require rat_ed 1.0
     package require rat_ispell 1.0
     package require rat_tree 1.0
     package require rat_enriched 1.0
 
+    if {[catch {package require byzi}]} {
+	proc blt_busy {args} {}
+    } else {
+	proc blt_busy {w args} {
+	    if {[string equal $w "release"]} { set w forget }
+	    eval [linsert $args 0 ::byzi::byzi $w]
+	}
+    }
+
     # Change the color
     if {$option(override_color)} {
 	option add *TkRat*foreground black interactive
@@ -492,7 +500,7 @@ proc SetColor {baseColor {foreground black}} {
     foreach p {background foreground activeForeground insertBackground
 	       selectForeground highlightColor disabledForeground
 	       highlightBackground activeBackground selectBackground
-	       troughColor selectColor} {
+	       troughColor} {
 	option add *TkRat*$p [option get . $p Color] interactive
     }
 }
