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

[eighthave at users.sourceforge.net]

Revision: 10535
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10535&view=rev
Author:   eighthave
Date:     2009-01-13 18:00:15 +0000 (Tue, 13 Jan 2009)

Log Message:
-----------
temporarily disabled Mac-only exit proc because it doesn't work yet, and is annoying

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

Modified: branches/pd-devel/0.41.4/src/apple_events.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/apple_events.tcl	2009-01-13 18:00:10 UTC (rev 10534)
+++ branches/pd-devel/0.41.4/src/apple_events.tcl	2009-01-13 18:00:15 UTC (rev 10535)
@@ -11,33 +11,32 @@
 
 # kAEOpenDocuments
 proc ::tk::mac::OpenDocument {} {
+	# TODO
 }
 
 # kEventAppHidden
 proc ::tk::mac::OnHide {} {
+	# TODO
 }
 
 # kEventAppShown
 proc ::tk::mac::OnShow {} {
+	# TODO
 }
 
-#kAEShowPreferences
+# kAEShowPreferences
 proc ::tk::mac::ShowPreferences {} {
  	puts "apple prefs menu item callback"
  	puts "::tk::mac::ShowPreferences "
-# 	menu_preferences
+	# TODO
+ 	#menu_preferences
 }
 
-#kAEQuitApplication
-proc exit {} {
-	puts stderr "Custom exit proc"
-	# this proc overrides the built-in exit so we can grab the Quit event
-	pdsend "pd verifyquit;"
-	::exit
-	# TODO sort this out...
-}
-
-proc spinCursor {widget count} {
-	$widget configure -cursor spinning$count
-	after 100 spinCursor [incr count]
-}
+# kAEQuitApplication
+#proc exit {} {
+#	# TODO sort this out...
+#	puts stderr "Custom exit proc"
+#	# this proc overrides the built-in exit so we can grab the Quit event
+#	pdsend "pd verifyquit;"
+#	::exit
+#}


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