[Sumover-dev] [svn commit] r4402 - vic/branches/mpeg4/tcl
sumover-dev at cs.ucl.ac.uk
sumover-dev at cs.ucl.ac.uk
Sun Mar 22 22:12:20 GMT 2009
Author: douglask
Date: Sun Mar 22 22:12:12 2009
New Revision: 4402
Modified:
vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl
vic/branches/mpeg4/tcl/ui-extout.tcl
vic/branches/mpeg4/tcl/ui-grabber.tcl
vic/branches/mpeg4/tcl/ui-main.tcl
vic/branches/mpeg4/tcl/ui-stats.tcl
vic/branches/mpeg4/tcl/ui-windows.tcl
Log:
Replace "..." text in menubutton labels with an indicator.
Modified: vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl (original)
+++ vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl Sun Mar 22 22:12:12 2009
@@ -759,7 +759,7 @@
if {[string match [ windowingsystem] "aqua"]} {
menubutton $w -menu $m -text Device -width 8 -pady 4
} else {
- menubutton $w -menu $m -text Device... \
+ menubutton $w -menu $m -text Device -indicatoron 1 \
-relief raised -width 10 -font $f
}
menu $m
@@ -968,7 +968,7 @@
menubutton $w -menu $w.menu -text Port -width 8 -pady 4 \
-state disabled
} else {
- menubutton $w -menu $w.menu -text Port... \
+ menubutton $w -menu $w.menu -text Port -indicatoron 1 \
-relief raised -width 10 -font $f -state disabled
}
global portButton inputPort
@@ -1012,8 +1012,8 @@
menubutton $w -text Signal -menu $m -width 8 -pady 4 \
-state disabled
} else {
- menubutton $w -text Signal... -menu $m -relief raised \
- -width 10 -font $f -state disabled
+ menubutton $w -text Signal -menu $m -relief raised \
+ -width 10 -font $f -state disabled -indicatoron 1
}
menu $m
$m add radiobutton -label "auto" -command restart \
@@ -1049,8 +1049,8 @@
if {[string match [ windowingsystem] "aqua"]} {
menubutton $w -text Options -menu $m -width 8 -pady 4
} else {
- menubutton $w -text Options... -menu $m -relief raised -width 10 \
- -font $f
+ menubutton $w -text Options -menu $m -relief raised -width 10 \
+ -font $f -indicatoron 1
}
menu $m
$m add checkbutton -label "Sending Slides" \
@@ -1072,8 +1072,8 @@
if {[string match [ windowingsystem] "aqua"]} {
menubutton $w -text Tile -menu $m -width 8 -pady 4
} else {
- menubutton $w -text Tile... -menu $m -relief raised -width 10 \
- -font $f
+ menubutton $w -text Tile -menu $m -relief raised -width 10 \
+ -font $f -indicatoron 1
}
menu $m
$m add radiobutton -label Single -command "redecorate 1" \
@@ -1092,8 +1092,8 @@
if {[string match [ windowingsystem] "aqua"]} {
menubutton $w -text Options -menu $m -width 8 -pady 4
} else {
- menubutton $w -text Options... -menu $m -relief raised -width 10 \
- -font $f
+ menubutton $w -text Options -menu $m -relief raised -width 10 \
+ -font $f -indicatoron 1
}
menu $m
$m add checkbutton -label "Mute New Sources" \
@@ -1123,8 +1123,8 @@
-width 10 -font $f -highlightthickness 0 \
-command "extout_select $outputDeviceList"
} else {
- menubutton $w -text External... -menu $m -relief raised \
- -width 10 -font $f
+ menubutton $w -text External -menu $m -relief raised \
+ -width 10 -font $f -indicatoron 1
menu $m
foreach d $outputDeviceList {
$m add command -font $f -label [$d nickname] \
Modified: vic/branches/mpeg4/tcl/ui-extout.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-extout.tcl (original)
+++ vic/branches/mpeg4/tcl/ui-extout.tcl Sun Mar 22 22:12:12 2009
@@ -81,8 +81,8 @@
set f [smallfont]
set m $w.mb.menu
- menubutton $w.mb -text Port... -menu $m \
- -relief raised -font $f
+ menubutton $w.mb -text Port -menu $m \
+ -relief raised -font $f -indicatoron 1
#XXX no supported devices have multiple external ports yet
$w.mb configure -state disabled
Modified: vic/branches/mpeg4/tcl/ui-grabber.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-grabber.tcl (original)
+++ vic/branches/mpeg4/tcl/ui-grabber.tcl Sun Mar 22 22:12:12 2009
@@ -113,8 +113,8 @@
frame $w.f.left -relief flat
set m $w.f.left.antiflicker.menu
- menubutton $w.f.left.antiflicker -menu $m -text "Anti-flicker..." \
- -relief raised -width 14 -font $f -padx 1 -pady 1
+ menubutton $w.f.left.antiflicker -menu $m -text "Anti-flicker" \
+ -relief raised -width 14 -font $f -padx 1 -pady 1 -indicatoron 1
menu $m
$m add radiobutton -label "disabled" -command "grabber antiflicker 0" \
-value "disabled" -variable antiflicker -font $f
@@ -816,7 +816,7 @@
set m $w1.menu
set m1 $m.m1
menubutton $w1.menu -menu $m1 -text "Source:" \
- -relief raised -width 7 -font $f
+ -relief raised -width 7 -font $f -indicatoron 1
label $w1.label -width 6 -font $f
frame $w1.row
menu $m1
Modified: vic/branches/mpeg4/tcl/ui-main.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-main.tcl (original)
+++ vic/branches/mpeg4/tcl/ui-main.tcl Sun Mar 22 22:12:12 2009
@@ -638,10 +638,10 @@
menubutton $w.r.ctrl.info -text info -borderwidth 2 \
-font $f -pady 4 -menu $m
} else {
- menubutton $w.r.ctrl.info -text info... -borderwidth 2 \
+ menubutton $w.r.ctrl.info -text info -borderwidth 2 \
-highlightthickness 1 \
-relief groove -font $f -width 5 \
- -menu $m
+ -menu $m -indicatoron 1
}
build_info_menu $src $m
Modified: vic/branches/mpeg4/tcl/ui-stats.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-stats.tcl (original)
+++ vic/branches/mpeg4/tcl/ui-stats.tcl Sun Mar 22 22:12:12 2009
@@ -601,8 +601,8 @@
frame $p
set m $p.mb.menu
- menubutton $p.mb -text Stats... -menu $m -relief raised -width 8 \
- -font $f
+ menubutton $p.mb -text Stats -menu $m -relief raised -width 8 \
+ -font $f -indicatoron 1
menu $m
$m add command -label RTP -command "create_rtp_window $src" -font $f
$m add command -label Decoder \
Modified: vic/branches/mpeg4/tcl/ui-windows.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-windows.tcl (original)
+++ vic/branches/mpeg4/tcl/ui-windows.tcl Sun Mar 22 22:12:12 2009
@@ -225,8 +225,8 @@
-highlightthickness 0
set m $w.bar.mode.menu
- menubutton $w.bar.mode -text Modes... -menu $m -relief raised \
- -width 8 -font $f
+ menubutton $w.bar.mode -text Modes -menu $m -relief raised \
+ -width 8 -font $f -indicatoron 1
menu $m
if {[string match [ windowingsystem] "aqua"]} {
@@ -254,8 +254,8 @@
}
set m $w.bar.size.menu
- menubutton $w.bar.size -text Size... -menu $m -relief raised -width 8 \
- -font $f
+ menubutton $w.bar.size -text Size -menu $m -relief raised -width 8 \
+ -font $f -indicatoron 1
menu $m
if {[string match [ windowingsystem] "aqua"]} {
$w.mbar add cascade -label Size -menu $m
@@ -301,7 +301,7 @@
# Marcus ...
set m $w.bar.decoder.menu
- menubutton $w.bar.decoder -text Decoder... -menu $m -relief raised -width 8 -font $f
+ menubutton $w.bar.decoder -text Decoder -menu $m -relief raised -width 8 -font $f -indicatoron 1
if {[string match [ windowingsystem] "aqua"]} {
$w.mbar add cascade -label Decoder -menu $m
}
More information about the Sumover-dev
mailing list