[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.8,1.1.1.4.2.7.4.9

[matju at users.sourceforge.net]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9154

Modified Files:
      Tag: impd_0_37
	u_main.tk 
Log Message:
some fixes for osx


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.8
retrieving revision 1.1.1.4.2.7.4.9
diff -C2 -d -r1.1.1.4.2.7.4.8 -r1.1.1.4.2.7.4.9
*** u_main.tk	27 Feb 2004 05:20:52 -0000	1.1.1.4.2.7.4.8
--- u_main.tk	5 Mar 2004 05:25:03 -0000	1.1.1.4.2.7.4.9
***************
*** 101,105 ****
      -command {pd [concat pd meters $ctrls_meter_on \;]}
  
! pack .controls.switches.meterbutton .controls.switches.audiobutton -side left
  
  frame .controls.inout
--- 101,105 ----
      -command {pd [concat pd meters $ctrls_meter_on \;]}
  
! pack .controls.switches.meterbutton .controls.switches.audiobutton -side top
  
  frame .controls.inout
***************
*** 121,127 ****
      -command {pd [concat pd audiostatus \;]}
  
! pack .controls.switches -side bottom -pady 12
  pack .controls.inout.in .controls.inout.out -side left -padx 6
  pack .controls.inout -side left -padx 14
  pack .controls.dio -side right -padx 20
  
--- 121,128 ----
      -command {pd [concat pd audiostatus \;]}
  
! #pack .controls.switches -side bottom -pady 12
  pack .controls.inout.in .controls.inout.out -side left -padx 6
  pack .controls.inout -side left -padx 14
+ pack .controls.switches -side left -pady 12
  pack .controls.dio -side right -padx 20
  
***************
*** 676,683 ****
  
  proc stat_pos_update {name x y} {
!     $name.stat.pos configure -state normal
!     $name.stat.pos delete 0 end
!     $name.stat.pos insert 0 "($x,$y)"
!     $name.stat.pos configure -state disabled
  }
  
--- 677,685 ----
  
  proc stat_pos_update {name x y} {
! #    $name.stat.pos configure -state normal
! #    $name.stat.pos delete 0 end
! #    $name.stat.pos insert 0 "($x,$y)"
! #    $name.stat.pos configure -state disabled
!     $name.stat.pos configure -text "($x,$y)"
  }
  
***************
*** 707,712 ****
  
      if {[info exists env(pd_statusbar)]} {
! 	frame $name.stat
! 	entry $name.stat.pos -width 10 -state disabled
  	pack $name.stat.pos -side left
  	pack $name.stat -side bottom -fill x -expand no
--- 709,717 ----
  
      if {[info exists env(pd_statusbar)]} {
! 	frame $name.stat -border 2 -relief ridge
! #	entry $name.stat.pos -width 10 -state disabled \
! #		-background red -foreground white
! 	label $name.stat.pos -width 20 \
! 		-background red -foreground white
  	pack $name.stat.pos -side left
  	pack $name.stat -side bottom -fill x -expand no
***************
*** 3585,3586 ****
--- 3590,3593 ----
  # rendering:
  source $pd_guidir/bin/u_object.tk
+ 
+ raise .