35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
$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
|
|
}
|
|
}
|