1998-03-12 01:51:31 +00:00
|
|
|
--- fr.orig Mon Feb 16 04:09:54 1998
|
|
|
|
|
+++ fr Thu Mar 12 09:49:30 1998
|
|
|
|
|
@@ -1,6 +1,6 @@
|
|
|
|
|
#! /bin/sh
|
|
|
|
|
# -*- tcl -*- \
|
|
|
|
|
-exec wish8.0 $0 wish8.0 $*
|
|
|
|
|
+exec wish8.1 $0 wish8.1 $*
|
|
|
|
|
|
|
|
|
|
set glob(version) 2.4.2
|
|
|
|
|
|
1998-03-09 07:04:47 +00:00
|
|
|
@@ -3162,11 +3162,12 @@
|
|
|
|
|
|
|
|
|
|
FindLibfr
|
|
|
|
|
|
|
|
|
|
+# FreeBSD fix the bug already..
|
|
|
|
|
# Load patches for 8.0...
|
|
|
|
|
-if {$tk_patchLevel == "8.0"} {
|
|
|
|
|
- #puts "Buggy 8.0 menu.tcl file, applying patch"
|
|
|
|
|
- source $glob(lib_fr)/menu_80_patch.tcl
|
|
|
|
|
-}
|
|
|
|
|
+#if {$tk_patchLevel == "8.0"} {
|
|
|
|
|
+# #puts "Buggy 8.0 menu.tcl file, applying patch"
|
|
|
|
|
+# source $glob(lib_fr)/menu_80_patch.tcl
|
|
|
|
|
+#}
|
|
|
|
|
|
|
|
|
|
set auto_path [linsert $auto_path 0 $glob(lib_fr) ]
|
|
|
|
|
|
