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 .