*** empty log message ***

2 files changed, 40 insertions, 8 deletions

diff --git a/debian/changelog b/debian/changelog
index a69ffce..dfd5f6d 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,5 +1,9 @@
 zinc-tk (3.2.98) unstable; urgency=low
 
+  * Suppressed the fieldbbox command. It is available when calling
+    the bbox command with the -field and -label options.
+  * Fixed a nasty openGL/Windows redraw bug when opening a window.
+  * GL contexts are destoyed when no longer needed.
   * Fixed Enter/leave emission to match the Canvas (and better).
   * Slightly rearranged the init sequence for openGL. This will
     ensure that render will be reset has soon has possible if
@@ -36,7 +40,7 @@ zinc-tk (3.2.98) unstable; urgency=low
   * Several fixes in Makefile.PL (pthreads, INC augmented,
     Windows port)
 
- -- Patrick Lecoanet <lecoanet@ath.cena.fr>  Mon, 3 Jan 2004 17:10:07 +0200
+ -- Patrick Lecoanet <lecoanet@ath.cena.fr>  Mon, 3 May 2004 17:10:07 +0200
 
 zinc-tk (3.2.97) unstable; urgency=low
 
diff --git a/win/package.tcl b/win/package.tcl
index 3b129da..6e521e5 100644
--- a/win/package.tcl
+++ b/win/package.tcl
@@ -1,19 +1,47 @@
 set packager {C:\Program Files\Caphyon\Advanced Installer\AdvancedInstaller.exe}
+
+#
+# Build a merged pkgIndex.tcl
+#
 set fout [open pkgIndex.tcl w]
-set fid [open [file join .. pkgIndex.tcl]];
-puts -nonewline $fout [read $fid];
-close $fid
-set fid [open [file join .. library pkgIndex.tcl]]
-foreach line [split [read $fid] \n] {
+set fin [open [file join .. pkgIndex.tcl]]
+puts -nonewline $fout [read $fin];
+close $fin
+set fin [open [file join .. library pkgIndex.tcl]]
+foreach line [split [read $fin] \n] {
     if {![regexp {^\s*$|^#} $line]} {
 	puts $fout $line
     }
 }
-close $fid;
+close $fin
+close $fout
+
+#
+# Build a .bat script for the Perl demos.
+#
+set fout [open zinc-demos.bat w]
+set fin [open [file join .. Perl demos zinc-demos]]
+puts $fout {@rem = '--*-Perl-*--
+@echo off
+if "%OS%" == "Windows_NT" goto WinNT
+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+:WinNT
+perl -x -S %0 %*
+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
+if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+goto endofperl
+@rem ';}
+puts $fout [read $fin]
+puts $fout {__END__
+:endofperl}
+close $fin
 close $fout
 
 file copy -force [file join .. demos zinc-widget] zinc-widget.tcl
 
 exec $packager /build Tkzinc.aip
+exec $packager /build Tkzincperl.aip
 
-#file delete -force pkgIndex.tcl zinc-widget.tcl
+#file delete -force pkgIndex.tcl zinc-widget.tcl zinc-demos.bat