[PD-cvs] SF.net SVN: pure-data:[10548] branches/pd-devel/0.41.4/src
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Wed Jan 14 03:46:47 CET 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.
More information about the Pd-cvs
mailing list