SF.net SVN: pure-data:[10548] branches/pd-devel/0.41.4/src - Pd-cvs

14 Jan 2009

Revision: 10548
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10548&view=rev
Author:   eighthave
Date:     2009-01-14 02:46:47 +0000 (Wed, 14 Jan 2009)
Log Message:
-----------
- cleaned up global pd_opendir, pd_savedir, and pd_saveasdir
- set "fontlist" box/font sizes to fit with "tk scaling 1"
Modified Paths:
--------------
    branches/pd-devel/0.41.4/src/pd.tk
    branches/pd-devel/0.41.4/src/pd_menucommands.tcl
    branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl
Modified: branches/pd-devel/0.41.4/src/pd.tk
===================================================================

--- branches/pd-devel/0.41.4/src/pd.tk	2009-01-14 01:20:48 UTC (rev 10547)
+++ branches/pd-devel/0.41.4/src/pd.tk	2009-01-14 02:46:47 UTC (rev 10548)
@@ -25,6 +25,10 @@
 # for testing which platform we are running on ("aqua", "win32", or "x11")
 set windowingsystem ""
+set pd_opendir [pwd]
+set pd_savedir [pwd]
+set pd_saveasdir [pwd]
+
 #------------------------------------------------------------------------------#
 # packages for this project
@@ -64,6 +68,12 @@
 #   $menuitem = 'menu' item
 #   $mycanvas = 'canvas'
 #   $canvasitem = 'canvas' item
+#
+#
+## Prefix Names for Procs
+#----------------------------
+# pdtk      called from 'pd'
+# canvas    manipulates a canvas
# ------------------------------------------------------------------------------
 # quoting functions
@@ -121,7 +131,7 @@
    pdtk_post "version: $version"
    pdtk_post "args: $args"
    set oldtclversion 0
-	set fontlist "8 5 8 9 6 10 10 7 11 12 7 12 14 8 14 16 10 16 18 11 18 24 14 24 30 18 30 36 22 36"
+	set fontlist "8 5 10 9 6 11 10 6 13 12 7 15 14 8 17 16 10 20 18 11 22 24 14 30 30 18 37 36 22 45"
    pdsend "pd init [pdtk_enquote [pwd]] $oldtclversion $fontlist ;"
    # TODO what else is needed from the original?
 }
Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2009-01-14 01:20:48 UTC (rev 10547)
+++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2009-01-14 02:46:47 UTC (rev 10548)
@@ -40,10 +40,9 @@
 }
proc ::pd_menucommands::menu_open {} {
-	global pd_opendir filetypes
    set filename [tk_getOpenFile -defaultextension .pd \
-					  -filetypes $filetypes \
-					  -initialdir $pd_opendir]
+					  -filetypes $::filetypes \
+					  -initialdir $::pd_opendir]
    if {$filename ne ""} {
    	open_file $filename
    }
Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl	2009-01-14 01:20:48 UTC (rev 10547)
+++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl	2009-01-14 02:46:47 UTC (rev 10548)
@@ -21,11 +21,9 @@
 }
-set pd_opendir [pwd]
 proc open_file {filename} {
-    global pd_opendir
     set directory [string range $filename 0 [expr [string last / $filename] - 1]]
-    set pd_opendir $directory
+    set ::pd_opendir $directory
     set basename [string range $filename [expr [string last / $filename] + 1] end]
     if {[string last .pd $filename] >= 0} {
         pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

    