made quick plugin to print warning about 64-bit breakagesvn2git-root

svn path=/trunk/scripts/guiplugins/64bit-warning-plugin/; revision=16804

1 files changed, 11 insertions, 0 deletions

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"
+}