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.