[PD-cvs] SF.net SVN: pure-data:[10461] branches/pd-devel/0.41.4/src/pd.tk
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Thu Dec 25 07:17:03 CET 2008
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.
More information about the Pd-cvs
mailing list