[PD-cvs] pd/src desire.tk,1.1.2.600.2.53,1.1.2.600.2.54

[chunlee]

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