From 981f641ef44fe4d72dcb0e1248a2f96ba53cee69 Mon Sep 17 00:00:00 2001
From: Miller Puckette <millerpuckette@users.sourceforge.net>
Date: Sat, 6 Nov 2004 16:07:34 +0000
Subject: 0.38 test 9 (mostly bug fixes)

svn path=/trunk/; revision=2226
---
 pd/src/u_main.tk | 39 ++++++++++++++++++++++++++++-----------
 1 file changed, 28 insertions(+), 11 deletions(-)

(limited to 'pd/src/u_main.tk')

diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk
index b07c7d16..03dbc544 100644
--- a/pd/src/u_main.tk
+++ b/pd/src/u_main.tk
@@ -1,8 +1,16 @@
 #!/usr/bin/wish
 
-set pd_nt 0
-# (The above is 0 for unix, 1 for microsoft, and 2 for Mac OSX.  The first
-# line is automatically munged by the relevant makefiles.)
+# set pd_nt (bad name) 0 for unix, 1 for microsoft, and 2 for Mac OSX.
+if { $tcl_platform(platform) == "windows" }  {
+         set pd_nt 1
+         puts stderr {Configuring for Windows}
+} elseif { $tcl_platform(os) == "Darwin" } {  
+         set pd_nt 2
+         puts stderr {Configuring for MacOS X}
+} else { 
+         set pd_nt 0
+         puts stderr {Configuring for UNIX}
+}        
 
 # Copyright (c) 1997-1999 Miller Puckette.
 # For information on usage and redistribution, and for a DISCLAIMER OF ALL
@@ -25,11 +33,13 @@ if {$pd_nt == 1} {
     set pd_gui2 [string range $argv0 0 [expr [string last \\ $argv0 ] - 1]]
     regsub -all \\\\ $pd_gui2 / pd_gui3
     set pd_guidir $pd_gui3/..
-    load $pd_guidir/bin/pdtcl
+    load $pd_guidir/bin/pdtcl.dll
     set pd_tearoff 1
 }
 
 if {$pd_nt == 2} {
+# turn on James Tittle II's fast drawing (wait until I can test this...):
+#   set tk::mac::useCGDrawing 1
     global pd_guidir
     global pd_tearoff
     set pd_gui2 [string range $argv0 0 [expr [string last / $argv0 ] - 1]]
@@ -315,10 +325,17 @@ proc menu_documentation {} {
     global help_directory
     global pd_nt
 
-    set filename [tk_getOpenFile -defaultextension .pd \
-    -filetypes { {{documentation} {.pd .txt .htm}} } \
-    -initialdir $help_directory]
-
+    if {$pd_nt == 2} {
+    	exec rm -rf /tmp/pd-documentation
+    	exec cp -pr $help_directory /tmp/pd-documentation
+	set filename [tk_getOpenFile -defaultextension .pd \
+	-filetypes { {{documentation} {.pd .txt .htm}} } \
+	-initialdir /tmp/pd-documentation]
+    } else {
+	set filename [tk_getOpenFile -defaultextension .pd \
+	-filetypes { {{documentation} {.pd .txt .htm}} } \
+	-initialdir $help_directory]
+    }    
     if {$filename != ""} {
     	if {[string first .txt $filename] >= 0} {
     	    menu_opentext $filename
@@ -1652,9 +1669,9 @@ proc pdtk_graph_dialog {id x1 y1 x2 y2 xpix ypix} {
     pdtk_standardkeybindings $id.xrangef.x1
     pdtk_standardkeybindings $id.xrangef.x2
     pdtk_standardkeybindings $id.xrangef.xpix
-    pdtk_standardkeybindings $id.xrangef.y1
-    pdtk_standardkeybindings $id.xrangef.y2
-    pdtk_standardkeybindings $id.xrangef.ypix
+    pdtk_standardkeybindings $id.yrangef.y1
+    pdtk_standardkeybindings $id.yrangef.y2
+    pdtk_standardkeybindings $id.yrangef.ypix
     $id.xrangef.x2 select from 0
     $id.xrangef.x2 select adjust end
     focus $id.xrangef.x2
-- 
cgit v1.2.1