[PD-cvs] SF.net SVN: pure-data:[10465] branches/pd-devel/0.41.4

[chunlee at users.sourceforge.net]

Revision: 10465
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10465&view=rev
Author:   chunlee
Date:     2008-12-26 08:04:34 +0000 (Fri, 26 Dec 2008)

Log Message:
-----------
first look around

Modified Paths:
--------------
    branches/pd-devel/0.41.4/devel_doc/TODO
    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/pkgIndex.tcl

Modified: branches/pd-devel/0.41.4/devel_doc/TODO
===================================================================
--- branches/pd-devel/0.41.4/devel_doc/TODO	2008-12-25 09:30:33 UTC (rev 10464)
+++ branches/pd-devel/0.41.4/devel_doc/TODO	2008-12-26 08:04:34 UTC (rev 10465)
@@ -1 +1,2 @@
-Test commit...
+[ ] figure out Undo/Redo/Cut/Copy/Paste state changes for menus
+[ ] figure out parent window/window list for Window menu

Modified: branches/pd-devel/0.41.4/src/pd.tk
===================================================================
--- branches/pd-devel/0.41.4/src/pd.tk	2008-12-25 09:30:33 UTC (rev 10464)
+++ branches/pd-devel/0.41.4/src/pd.tk	2008-12-26 08:04:34 UTC (rev 10465)
@@ -14,9 +14,6 @@
 
 package require pd_menus
 
-# TODO figure out Undo/Redo/Cut/Copy/Paste state changes for menus
-# TODO figure out parent window/window list for Window menu
-
 # ------------------------------------------------------------------------------
 # global variables
 

Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2008-12-25 09:30:33 UTC (rev 10464)
+++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2008-12-26 08:04:34 UTC (rev 10465)
@@ -25,6 +25,14 @@
 	pdtk_canvas_new [format .flarg%d [expr round(rand()*1000)]] 30 10
 }
 
+proc ::pd_menucommands::menu_open {} {
+	global pd_opendir
+	set filename [tk_getOpenFile -defaultextension .pd \
+			  -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \
+			  -initialdir [pwd]]
+	if {$filename != ""} {open_file $filename}
+}
+
 proc ::pd_menucommands::menu_quit {} {
 	# PLACEHOLDER
 	exit

Modified: branches/pd-devel/0.41.4/src/pkgIndex.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pkgIndex.tcl	2008-12-25 09:30:33 UTC (rev 10464)
+++ branches/pd-devel/0.41.4/src/pkgIndex.tcl	2008-12-26 08:04:34 UTC (rev 10465)
@@ -8,5 +8,6 @@
 # script is sourced, the variable $dir must contain the
 # full path name of this file's directory.
 
-package ifneeded pdmenucommands 0.1 [list source [file join $dir pdmenucommands.tcl]]
-package ifneeded pdmenus 0.1 [list source [file join $dir pdmenus.tcl]]
+package ifneeded pd_iemgui 0.1 [list source [file join $dir pd_iemgui.tcl]]
+package ifneeded pd_menucommands 0.1 [list source [file join $dir pd_menucommands.tcl]]
+package ifneeded pd_menus 0.1 [list source [file join $dir pd_menus.tcl]]


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.