2016-03-02 02:13:12 +01:00
|
|
|
--- polypuzzle.orig 2008-10-26 00:53:04 UTC
|
|
|
|
|
+++ polypuzzle
|
2004-07-02 21:48:03 +02:00
|
|
|
@@ -1,8 +1,8 @@
|
2016-03-02 02:13:12 +01:00
|
|
|
#!/bin/sh
|
2004-07-02 21:48:03 +02:00
|
|
|
# the next line restarts using tclsh \
|
|
|
|
|
-exec wish "$0" "$@"
|
2016-03-02 02:13:12 +01:00
|
|
|
+exec %%WISH%% "$0" "$@"
|
2004-07-02 21:48:03 +02:00
|
|
|
|
|
|
|
|
-if {[file isdirectory /usr/local/lib/polypuzzle]} {cd /usr/local/lib/polypuzzle}
|
|
|
|
|
+if {[file isdirectory %%DATADIR%%]} {cd %%DATADIR%%}
|
|
|
|
|
|
2016-03-02 02:13:12 +01:00
|
|
|
# wish8.5.2 still occasionally has problems for polypuzzle without this hack:
|
|
|
|
|
set tcl_precision 12
|
|
|
|
|
@@ -380,7 +380,7 @@ proc DrawPiece {n xpos ypos} {
|
|
|
|
|
# Place this piece on top (but underneath text, which is our ceiling)
|
|
|
|
|
# in windows tcl 8.2 this generates an error on initiation
|
|
|
|
|
# as text is not defined - ooh noo (but is ok in tcl832)
|
|
|
|
|
- .c lower piece$n text
|
|
|
|
|
+ # .c lower piece$n text
|
|
|
|
|
|
|
|
|
|
.c move piece$n $xpos $ypos
|
|
|
|
|
|
