Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20250
Modified Files: Tag: desiredata desire.tk Log Message: add no menubar osx exception
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.53 retrieving revision 1.1.2.600.2.54 diff -C2 -d -r1.1.2.600.2.53 -r1.1.2.600.2.54 *** desire.tk 9 Dec 2006 17:01:09 -0000 1.1.2.600.2.53 --- desire.tk 9 Dec 2006 17:09:38 -0000 1.1.2.600.2.54 *************** *** 1595,1599 **** set win .$self set c [$self widget] ! if {[$self look menubar]} {toplevel $win -menu $win.m} else {toplevel $win} wm iconphoto $win icon_pd set butts [[ButtonBar new $self] widget] --- 1595,1603 ---- set win .$self set c [$self widget] ! if {$::tcl_platform(platform) == "macintosh"} { ! toplevel $win -menu $win.m ! } else { ! if {[$self look menubar]} {toplevel $win -menu $win.m} else {toplevel $win} ! } wm iconphoto $win icon_pd set butts [[ButtonBar new $self] widget] *************** *** 1618,1622 **** wm protocol $win WM_DELETE_WINDOW "$self close" focus $c ! if {[$self look menubar]} {$self new_menubar} else {set @editmode 0} $self new_binds $self update_title --- 1622,1630 ---- wm protocol $win WM_DELETE_WINDOW "$self close" focus $c ! if {$::tcl_platform(platform) == "macintosh"} { ! $self new_menubar ! } else { ! if {[$self look menubar]} {$self new_menubar} else {set @editmode 0} ! } $self new_binds $self update_title