[PD-cvs] pd/src desire.tk,1.1.2.2,1.1.2.3
chunlee
chunlee at users.sourceforge.net
Sat Jul 30 18:12:19 CEST 2005
- Previous message: [PD-cvs] externals/grill/py/source py.cpp, 1.31, 1.32 pyargs.cpp, 1.20, 1.21 pybase.cpp, 1.5, 1.6 pybase.h, 1.5, 1.6 pyext.cpp, 1.39, 1.40 pyprefix.h, 1.3, 1.4
- Next message: [PD-cvs] pd/src g_text.c,1.5.4.3,1.5.4.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23486
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
ok, it should be error proof for the menus.
next, the wire_draw stuff
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -d -r1.1.2.2 -r1.1.2.3
*** desire.tk 29 Jul 2005 01:49:57 -0000 1.1.2.2
--- desire.tk 30 Jul 2005 16:12:16 -0000 1.1.2.3
***************
*** 113,126 ****
#-command {pd "pd audio-setapi $pd_whichapi ;"}
}
populate_menu $mbar.audio {} {
! {"Audio settings..." {pd pd audio-properties} ""}
! {"MIDI settings..." {pd pd midi-properties} ""}
! {"Test Audio and MIDI" {menu_doc_open doc/7.stuff/tools testtone.pd} ""}
! {"Load Meter" {menu_doc_open doc/7.stuff/tools load-meter.pd} ""}
}
populate_menu $mbar.help {} {
! {"About Pd" {menu_about} ""}
! {"Pure Documentation..." {menu_documentation} ""}
}
}
--- 113,143 ----
#-command {pd "pd audio-setapi $pd_whichapi ;"}
}
+
+ #the original
+ #populate_menu $mbar.audio {} {
+ #{"Audio settings..." {pd pd audio-properties} ""}
+ #{"MIDI settings..." {pd pd midi-properties} ""}
+ #{"Test Audio and MIDI" {menu_doc_open doc/7.stuff/tools testtone.pd} ""}
+ # {"Load Meter" {menu_doc_open doc/7.stuff/tools load-meter.pd} ""}
+ #}
+
+ #populate_menu $mbar.help {} {
+ #{"About Pd" {menu_about} ""}
+ #{"Pure Documentation..." {menu_documentation} ""}
+ #}
+
+ #error proof
populate_menu $mbar.audio {} {
! {"Audio settings..." {foo "pd audio-properties"} ""}
! {"MIDI settings..." {foo "pd midi-properties"} ""}
! {"Test Audio and MIDI" {foo "menu_doc_open doc/7.stuff/tools testtone.pd"} ""}
! {"Load Meter" {foo "menu_doc_open doc/7.stuff/tools load-meter.pd"} ""}
}
+
populate_menu $mbar.help {} {
! {"About Pd" {foo "menu_about"} ""}
! {"Pure Documentation..." {foo "menu_documentation"} ""}
}
+
}
***************
*** 287,290 ****
--- 304,315 ----
}
#-----------------------------------------------------------------------------------#
+
+ proc menu_audio {flag} {
+ puts "menu_audio::: $flag"
+
+ pd "pd dsp $flag ;"
+ }
+
+ #-----------------------------------------------------------------------------------#
#get the name of the toplevel window for a canvas; this is also
#the name of the canvas object in Pd.
***************
*** 389,405 ****
populate_menu $name.m.put $name $canvasmenu(put)
menu $name.m.find -tearoff $pd_tearoff
$name.m add cascade -label Find -menu $name.m.find
populate_menu $name.m.find $name {
! {Find... {menu_findobject %W} "Ctrl+f"}
! {"Find Again" {pd "%W findagain ;"} "Ctrl+g"}
! {"Find last error" {menu_finderror} {}}
}
! menu $name.m.windows -postcommand "menu_fixwindowmenu $name" \
-tearoff $pd_tearoff
populate_menu $name.m.windows $name {
! {"parent window" {menu_windowparent %W} {}}
! {"Pd window" {menu_pop_pd %W} {}}
{}
}
--- 414,450 ----
populate_menu $name.m.put $name $canvasmenu(put)
+ # the original
+ #menu $name.m.find -tearoff $pd_tearoff
+ #$name.m add cascade -label Find -menu $name.m.find
+ #populate_menu $name.m.find $name {
+ #{Find... {menu_findobject %W} "Ctrl+f"}
+ #{"Find Again" {pd "%W findagain ;"} "Ctrl+g"}
+ #{"Find last error" {menu_finderror} {}}
+ #}
+
+ #error proof
menu $name.m.find -tearoff $pd_tearoff
$name.m add cascade -label Find -menu $name.m.find
populate_menu $name.m.find $name {
! {Find... {foo menu_findobject} "Ctrl+f"}
! {"Find Again" {foo "pd %W findagain"} "Ctrl+g"}
! {"Find last error" {foo menu_finderror} {}}
}
! #the original
! #menu $name.m.windows -postcommand "menu_fixwindowmenu $name" \
! #-tearoff $pd_tearoff
! #populate_menu $name.m.windows $name {
! #{"parent window" {menu_windowparent %W} {}}
! #{"Pd window" {menu_pop_pd %W} {}}
! #{}
! #}
!
! #error proof
! menu $name.m.windows -postcommand "foo menu_fixwindowmenu" \
-tearoff $pd_tearoff
populate_menu $name.m.windows $name {
! {"parent window" {foo menu_windowparent} {}}
! {"Pd window" {foo menu_pop_pd} {}}
{}
}
***************
*** 576,584 ****
# for audio switch on/off
! #switch -- $key {
! # slash {menu_audio 1}
! # period {menu_audio 0}
! # e {menu_editmode $topname}
! #}
}
#-----------------------------------------------------------------------------------#
--- 621,629 ----
# for audio switch on/off
! switch -- $key {
! slash {menu_audio 1}
! period {menu_audio 0}
! e {menu_editmode $topname}
! }
}
#-----------------------------------------------------------------------------------#
- Previous message: [PD-cvs] externals/grill/py/source py.cpp, 1.31, 1.32 pyargs.cpp, 1.20, 1.21 pybase.cpp, 1.5, 1.6 pybase.h, 1.5, 1.6 pyext.cpp, 1.39, 1.40 pyprefix.h, 1.3, 1.4
- Next message: [PD-cvs] pd/src g_text.c,1.5.4.3,1.5.4.4
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list