32 lines
904 B
Plaintext
32 lines
904 B
Plaintext
$OpenBSD: patch-examples_math_bigfloat_demo_tcl,v 1.1 2009/03/19 16:54:32 sthen Exp $
|
|
--- examples/math/bigfloat.demo.tcl.orig Fri Dec 12 23:10:25 2008
|
|
+++ examples/math/bigfloat.demo.tcl Fri Jan 16 14:48:18 2009
|
|
@@ -1,3 +1,9 @@
|
|
+#! /bin/sh
|
|
+# the next line restarts with tclsh \
|
|
+exec tclsh "$0" ${1+"$@"}
|
|
+
|
|
+set scriptDir [file dirname [info script]]
|
|
+
|
|
########################################################################
|
|
# BigFloat for Tcl
|
|
# Copyright (C) 2003-2005 ARNOLD Stephane
|
|
@@ -45,6 +51,8 @@
|
|
#
|
|
########################################################################
|
|
|
|
+package require Tk
|
|
+
|
|
package require math::bigfloat
|
|
namespace import ::math::bigfloat::*
|
|
|
|
@@ -248,7 +256,7 @@ proc ShowFile {filename buttonText} {
|
|
|
|
proc _help {args} {
|
|
# display some help
|
|
- ShowFile bigfloat.help Close
|
|
+ ShowFile [file join $::scriptDir bigfloat.help] Close
|
|
}
|
|
|
|
proc _del {} {
|