[PD-cvs] SF.net SVN: pure-data:[10554] branches/pd-devel/0.41.4/src/pd_menus.tcl

[eighthave at users.sourceforge.net]

Revision: 10554
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10554&view=rev
Author:   eighthave
Date:     2009-01-14 15:34:55 +0000 (Wed, 14 Jan 2009)

Log Message:
-----------
enabled "raise pd window" and "find parent" in the menus

Modified Paths:
--------------
    branches/pd-devel/0.41.4/src/pd_menus.tcl

Modified: branches/pd-devel/0.41.4/src/pd_menus.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menus.tcl	2009-01-14 15:32:47 UTC (rev 10553)
+++ branches/pd-devel/0.41.4/src/pd_menus.tcl	2009-01-14 15:34:55 UTC (rev 10554)
@@ -209,9 +209,10 @@
 		$mymenu add command -label [say "Zoom"] -command "menu_zoom ."
 		$mymenu add  separator
 	}
-	$mymenu add command -label [say "Parent Window"] -state disabled
-	$mymenu add command -label [say "Pd window"] -command "menu_raise_console" \
-		-accelerator "$accelerator+R" -state disabled
+	$mymenu add command -label [say "Parent Window"] \
+		-command "pdsend \"$mytoplevel findparent ;\""
+	$mymenu add command -label [say "Pd window"] -command "menu_raise_pdwindow" \
+		-accelerator "$accelerator+R"
 	$mymenu add  separator
 }
 


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