[PD-cvs] SF.net SVN: pure-data: [10013] branches/pd-extended/v0-40/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 10013
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10013&view=rev
Author:   eighthave
Date:     2008-06-17 09:03:47 -0700 (Tue, 17 Jun 2008)

Log Message:
-----------
cleaned up comment headers and debug post

Modified Paths:
--------------
    branches/pd-extended/v0-40/pd/src/u_main.tk

Modified: branches/pd-extended/v0-40/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-17 13:46:37 UTC (rev 10012)
+++ branches/pd-extended/v0-40/pd/src/u_main.tk	2008-06-17 16:03:47 UTC (rev 10013)
@@ -882,9 +882,8 @@
 .mbar.find add command -label {Find last error} -command {menu_finderror} 
 
 
-###########  functions for menu functions on document windows ########
+#######  functions for embedding a patch into a standalone Mac OS X app #######
 
-# make embedded application on Mac OS X
 proc makeapp_promptreplace {appdir} {
 	if {[file exists $appdir]} {
 		set answer [tk_messageBox -message [concat overwrite $appdir "?"] \
@@ -942,7 +941,6 @@
 proc makeapp_getpatchname {top_window} {
 	set top_window_path [wm attributes $top_window -titlepath]
 	if {$top_window_path != ""} {
-		pdtk_post "top window path $top_window_path\n"
 		return $top_window_path
 	} else {
 		return ""
@@ -962,6 +960,8 @@
 
 }
 
+###########  functions for menu functions on document windows ########
+
 proc menu_makeapp {isdir} {
 	set top_window [lindex [wm stackorder .] end]
 	menu_windowparent $top_window


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