Revision: 10461 http://pure-data.svn.sourceforge.net/pure-data/?rev=10461&view=rev Author: eighthave Date: 2008-12-25 06:17:02 +0000 (Thu, 25 Dec 2008)
Log Message: ----------- made the formatting nice and neat, yes I am embracing my OCD
Modified Paths: -------------- branches/pd-devel/0.41.4/src/pd.tk
Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2008-12-25 00:06:06 UTC (rev 10460) +++ branches/pd-devel/0.41.4/src/pd.tk 2008-12-25 06:17:02 UTC (rev 10461) @@ -100,19 +100,19 @@
proc menu_create_file_aqua {rootmenu} { global accelerator - $rootmenu add command -label "New" -accelerator "$accelerator+N" - $rootmenu add command -label "Open" -accelerator "$accelerator+O" + $rootmenu add command -label "New" -accelerator "$accelerator+N" + $rootmenu add command -label "Open" -accelerator "$accelerator+O" $rootmenu add cascade -label "Open Recent" - $rootmenu add separator - $rootmenu add command -label "Close" -accelerator "$accelerator+W" - $rootmenu add command -label "Save" -accelerator "$accelerator+S" + $rootmenu add separator + $rootmenu add command -label "Close" -accelerator "$accelerator+W" + $rootmenu add command -label "Save" -accelerator "$accelerator+S" $rootmenu add command -label "Save As..." -accelerator "$accelerator+Shift+S" # $rootmenu add command -label "Save All" $rootmenu add command -label "Revert to Saved" - $rootmenu add separator + $rootmenu add separator $rootmenu add command -label "Message" - $rootmenu add separator - $rootmenu add command -label "Print..." -accelerator "$accelerator+P" + $rootmenu add separator + $rootmenu add command -label "Print..." -accelerator "$accelerator+P" }
proc menu_create_edit_aqua {rootmenu} { @@ -134,19 +134,19 @@
proc menu_create_file_x11 {rootmenu} { global accelerator - $rootmenu add command -label "New" -accelerator "$accelerator+N" - $rootmenu add command -label "Open" -accelerator "$accelerator+O" + $rootmenu add command -label "New" -accelerator "$accelerator+N" + $rootmenu add command -label "Open" -accelerator "$accelerator+O" $rootmenu add separator - $rootmenu add command -label "Save" -accelerator "$accelerator+S" + $rootmenu add command -label "Save" -accelerator "$accelerator+S" $rootmenu add command -label "Save As..." -accelerator "Shift+$accelerator+S" $rootmenu add command -label "Revert" $rootmenu add separator - $rootmenu add command -label "Message" -accelerator "$accelerator+M" - $rootmenu add command -label "Print..." -accelerator "$accelerator+P" - $rootmenu add separator - $rootmenu add command -label "Close" -accelerator "$accelerator+W" - $rootmenu add command -label "Quit" -command {menu_quit} \ - -accelerator "$accelerator+Q" + $rootmenu add command -label "Message" -accelerator "$accelerator+M" + $rootmenu add command -label "Print..." -accelerator "$accelerator+P" + $rootmenu add separator + $rootmenu add command -label "Close" -accelerator "$accelerator+W" + $rootmenu add command -label "Quit" -accelerator "$accelerator+Q" \ + -command {menu_quit} }
proc menu_create_edit_x11 {rootmenu} { @@ -168,19 +168,19 @@
proc menu_create_file_win32 {rootmenu} { global accelerator - $rootmenu add command -label "New" -accelerator "$accelerator+N" - $rootmenu add command -label "Open" -accelerator "$accelerator+O" + $rootmenu add command -label "New" -accelerator "$accelerator+N" + $rootmenu add command -label "Open" -accelerator "$accelerator+O" $rootmenu add separator - $rootmenu add command -label "Save" -accelerator "$accelerator+S" + $rootmenu add command -label "Save" -accelerator "$accelerator+S" $rootmenu add command -label "Save As..." -accelerator "Shift+$accelerator+S" $rootmenu add command -label "Revert" $rootmenu add separator - $rootmenu add command -label "Message" -accelerator "$accelerator+M" - $rootmenu add command -label "Print..." -accelerator "$accelerator+P" - $rootmenu add separator - $rootmenu add command -label "Close" -accelerator "$accelerator+W" - $rootmenu add command -label "Quit" -command {menu_quit} \ - -accelerator "$accelerator+Q" + $rootmenu add command -label "Message" -accelerator "$accelerator+M" + $rootmenu add command -label "Print..." -accelerator "$accelerator+P" + $rootmenu add separator + $rootmenu add command -label "Close" -accelerator "$accelerator+W" + $rootmenu add command -label "Quit" -accelerator "$accelerator+Q" \ + -command {menu_quit} }
proc menu_create_edit_win32 {rootmenu} { @@ -202,14 +202,14 @@ # menu building functions proc menu_create_file {rootmenu name} { [format menu_create_file_%s [tk windowingsystem]] $rootmenu - $rootmenu entryconfigure "New" -command {menu_new} - $rootmenu entryconfigure "Open" -command {menu_open} - $rootmenu entryconfigure "Save" -command {menu_save $name} + $rootmenu entryconfigure "New" -command {menu_new} + $rootmenu entryconfigure "Open" -command {menu_open} + $rootmenu entryconfigure "Save" -command {menu_save $name} $rootmenu entryconfigure "Save As..." -command {menu_saveas $name} - $rootmenu entryconfigure "Revert*" -command {menu_revert $name} - $rootmenu entryconfigure "Close" -command {menu_close $name} - $rootmenu entryconfigure "Message" -command {menu_send} - $rootmenu entryconfigure "Print..." -command {menu_print $name} + $rootmenu entryconfigure "Revert*" -command {menu_revert $name} + $rootmenu entryconfigure "Close" -command {menu_close $name} + $rootmenu entryconfigure "Message" -command {menu_send} + $rootmenu entryconfigure "Print..." -command {menu_print $name} }
proc menu_create_edit {rootmenu name} { @@ -219,20 +219,20 @@
proc menu_create_put {rootmenu name} { global accelerator - $rootmenu add command -label "Object" -accelerator "$accelerator+1" \ + $rootmenu add command -label "Object" -accelerator "$accelerator+1" \ -command {menu_object $name 0} $rootmenu add command -label "Message" -accelerator "$accelerator+2" \ -command {menu_message $name 0} - $rootmenu add command -label "Number" -accelerator "$accelerator+3" \ + $rootmenu add command -label "Number" -accelerator "$accelerator+3" \ -command {menu_floatatom $name 0} - $rootmenu add command -label "Symbol" -accelerator "$accelerator+4" \ + $rootmenu add command -label "Symbol" -accelerator "$accelerator+4" \ -command {menu_symbolatom $name 0} $rootmenu add command -label "Comment" -accelerator "$accelerator+5" \ -command {menu_comment $name 0} - $rootmenu add separator - $rootmenu add command -label "Bang" -accelerator "Shift+$accelerator+B" \ + $rootmenu add separator + $rootmenu add command -label "Bang" -accelerator "Shift+$accelerator+B" \ -command {menu_bng $name 0} - $rootmenu add command -label "Toggle" -accelerator "Shift+$accelerator+T" \ + $rootmenu add command -label "Toggle" -accelerator "Shift+$accelerator+T" \ -command {menu_toggle $name 0} $rootmenu add command -label "Number2" -accelerator "Shift+$accelerator+N" \ -command {menu_numbox $name 0} @@ -240,17 +240,17 @@ -command {menu_vslider $name 0} $rootmenu add command -label "Hslider" -accelerator "Shift+$accelerator+H" \ -command {menu_hslider $name 0} - $rootmenu add command -label "Vradio" -accelerator "Shift+$accelerator+D" \ + $rootmenu add command -label "Vradio" -accelerator "Shift+$accelerator+D" \ -command {menu_vradio $name 0} - $rootmenu add command -label "Hradio" -accelerator "Shift+$accelerator+I" \ + $rootmenu add command -label "Hradio" -accelerator "Shift+$accelerator+I" \ -command {menu_hradio $name 0} - $rootmenu add command -label "VU" -accelerator "Shift+$accelerator+U" \ + $rootmenu add command -label "VU" -accelerator "Shift+$accelerator+U" \ -command {menu_vumeter $name 0} - $rootmenu add command -label "Canvas" -accelerator "Shift+$accelerator+C"\ + $rootmenu add command -label "Canvas" -accelerator "Shift+$accelerator+C" \ -command {menu_mycnv $name 0} - $rootmenu add separator + $rootmenu add separator $rootmenu add command -label Graph -command {menu_graph $name} - $rootmenu add command -label Array -command {menu_array $name} + $rootmenu add command -label Array -command {menu_array $name} }
proc menu_create_media {rootmenu name} {
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.