470be3178b
- Patch sources so @(un)exec is no longer needed Mostly from Marc Bruenink <marc@bruenink.de> (MAINTAINER)
30 lines
898 B
Plaintext
30 lines
898 B
Plaintext
$OpenBSD: patch-Coccinella_tcl,v 1.1 2005/04/18 21:59:51 alek Exp $
|
|
--- Coccinella.tcl.orig Wed Jan 26 08:58:29 2005
|
|
+++ Coccinella.tcl Thu Apr 7 22:47:56 2005
|
|
@@ -1,6 +1,6 @@
|
|
#!/bin/sh
|
|
# the next line restarts using wish \
|
|
- exec wish "$0" -visual best "$@"
|
|
+ exec wish8.4 "$0" -visual best "$@"
|
|
|
|
# Coccinella.tcl ---
|
|
#
|
|
@@ -131,7 +131,7 @@ if {[string equal $this(platform) "unix"
|
|
} else {
|
|
set thisScript [file normalize [info script]]
|
|
}
|
|
-set thisPath [file normalize [file dirname $thisScript]]
|
|
+set thisPath "!!COCCINELLALIB!!"
|
|
if {[info exists ::env(HOME)]} {
|
|
cd $::env(HOME)
|
|
} else {
|
|
@@ -159,6 +159,8 @@ if {![catch {package require Itcl 3.2}]}
|
|
}
|
|
set prefs(appName) "Coccinella"
|
|
set prefs(theAppName) "The Coccinella"
|
|
+
|
|
+lappend auto_path !!COCCINELLALIB!!
|
|
|
|
# Read our theme prefs file, if any, containing the theme name and locale.
|
|
package require Theme
|