[Sumover-dev] [svn commit] r3959 - rat/trunk

[sumover-dev at cs.ucl.ac.uk]

Author: csp
Date: Mon Jan 15 15:20:21 2007
New Revision: 3959

Modified:
   rat/trunk/ui_audiotool.tcl

Log:
UI tweaks


Modified: rat/trunk/ui_audiotool.tcl
==============================================================================
--- rat/trunk/ui_audiotool.tcl	(original)
+++ rat/trunk/ui_audiotool.tcl	Mon Jan 15 15:20:21 2007
@@ -1673,9 +1673,9 @@
 pack .r.c.rx.net.bw -side right -fill x -expand 1
 
 frame  .r.c.rx.au.port -bd 0
-button .r.c.rx.au.port.l0 -highlightthickness 0 -command {incr_port oport oports -1} -font $compfont -bitmap left -relief flat
+button .r.c.rx.au.port.l0 -highlightthickness 0 -command {incr_port oport oports -1} -font $compfont -bitmap right -relief flat
 label  .r.c.rx.au.port.l1 -highlightthickness 0 -textv oport -font $compfont -width 10
-button .r.c.rx.au.port.l2 -highlightthickness 0 -command {incr_port oport oports +1} -font $compfont -bitmap right -relief flat
+button .r.c.rx.au.port.l2 -highlightthickness 0 -command {incr_port oport oports +1} -font $compfont -bitmap  left -relief flat
 label  .r.c.rx.au.port.vlabel -text "Vol"
 label  .r.c.rx.au.port.vval   -textv volume -width 3 -justify right
 pack   .r.c.rx.au.port -side top -fill x -expand 1
@@ -1707,9 +1707,9 @@
 pack .r.c.tx.net.bw -side right -fill x -expand 1
 
 frame  .r.c.tx.au.port -bd 0
-button .r.c.tx.au.port.l0 -highlightthickness 0 -command {incr_port iport iports -1} -font $compfont -bitmap left -relief flat
+button .r.c.tx.au.port.l0 -highlightthickness 0 -command {incr_port iport iports -1} -font $compfont -bitmap right -relief flat
 label  .r.c.tx.au.port.l1 -highlightthickness 0 -textv iport -font $compfont -width 10
-button .r.c.tx.au.port.l2 -highlightthickness 0 -command {incr_port iport iports +1} -font $compfont -bitmap right -relief flat
+button .r.c.tx.au.port.l2 -highlightthickness 0 -command {incr_port iport iports +1} -font $compfont -bitmap  left -relief flat
 label  .r.c.tx.au.port.vlabel -text "Gain"
 label  .r.c.tx.au.port.vval   -textv gain -width 3 -justify right
 pack   .r.c.tx.au.port -side top -fill x -expand 1