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.