Revision: 10500 http://pure-data.svn.sourceforge.net/pure-data/?rev=10500&view=rev Author: eighthave Date: 2009-01-10 17:02:36 +0000 (Sat, 10 Jan 2009)
Log Message: ----------- - if Tcl < 8.4.14, then create the preferences on the .apple menu on 8.4.14 or later, it is created automatically and tied to ::tk::mac::ShowPreferences
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/pd_menus.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-10 05:47:05 UTC (rev 10499) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-10 17:02:36 UTC (rev 10500) @@ -121,10 +121,9 @@
# the popup menu for the canvas menu $name.popup -tearoff false - $name.popup add command -label "Properties" -command {popup_action $name 0} - $name.popup add command -label "Open" -command {popup_action $name 1} - $name.popup add command -label "Help" -command {popup_action $name 2} - + $name.popup add command -label "Properties" -command "popup_action $name 0" + $name.popup add command -label "Open" -command "popup_action $name 1" + $name.popup add command -label "Help" -command "popup_action $name 2" }
# ------------------------------------------------------------------------------
Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-10 05:47:05 UTC (rev 10499) +++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-10 17:02:36 UTC (rev 10500) @@ -8,6 +8,7 @@ variable untitled_directory [pwd]
namespace export menu_* + }
# ------------------------------------------------------------------------------
Modified: branches/pd-devel/0.41.4/src/pd_menus.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-10 05:47:05 UTC (rev 10499) +++ branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-10 17:02:36 UTC (rev 10500) @@ -289,11 +289,16 @@ proc ::pd_menus::make_apple_menu {rootmenu} { puts stderr CREATE_APPLE_MENU # TODO this should open a Pd patch called about.pd - menu .menubar.apple - .menubar.apple add command -label [say "About Pd"] -command \ - "menu_doc_open doc/1.manual 1.introduction.txt" - .menubar add cascade -label "Apple" -menu .menubar.apple - # TODO WTF?!? the preferences menu never shows up! + menu $rootmenu.apple + $rootmenu.apple add command -label [say "About Pd"] \ + -command "menu_doc_open doc/1.manual 1.introduction.txt" + $rootmenu add cascade -label "Apple" -menu $rootmenu.apple + # starting in 8.4.14, this is created automatically + if {[regsub -- {[0-9].[0-9].([0-9][0-9]*)} [info patchlevel] {\1}] < 14} { + $rootmenu.apple add separator + $rootmenu.apple add command -label [say "Preferences..."] \ + -command "menu_preferences" -accelerator "Cmd+," + } }
# for Windows only
Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl =================================================================== --- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-10 05:47:05 UTC (rev 10499) +++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-10 17:02:36 UTC (rev 10500) @@ -21,7 +21,18 @@ }
+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 basename [string range $filename [expr [string last / $filename] + 1] end] + if {[string last .pd $filename] >= 0} { + pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" + } +}
+ # ------------------------------------------------------------------------------ # kludges to avoid changing C code
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.