From db29fbd4721211235a2567ea9d2711ef156f2bc5 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Wed, 2 Jan 2013 03:30:10 +0000
Subject: made quick plugin to print warning about 64-bit breakage

svn path=/trunk/scripts/guiplugins/64bit-warning-plugin/; revision=16804
---
 64bit-warning-plugin.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 64bit-warning-plugin.tcl

diff --git a/64bit-warning-plugin.tcl b/64bit-warning-plugin.tcl
new file mode 100644
index 0000000..cafb44f
--- /dev/null
+++ b/64bit-warning-plugin.tcl
@@ -0,0 +1,11 @@
+# This plugin is only to print a warning about the beta status of 64-bit
+# builds on various platforms
+
+if {$tcl_platform(machine) eq "x86_64"} {
+    set msg "WARNING: 64-bit builds are still beta, some libraries are known to have serious issues, like "
+    if {$tcl_platform(os) eq "Darwin"} {
+        append msg "Gem, tclpd, "
+    }
+    append msg "pdp, maxlib, moonlib, moocow, bsaylor, etc."
+    ::pdwindow::error "$msg\n"
+}
-- 
cgit v1.2.1