afonso/core-extra
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

minor change text label to use symmetric/asymmetric instead of uni/bidir.

Browse source 
(Boeing r1804)
This commit is contained in:
ahrenholz 2013-12-05 18:11:49 +00:00
parent d281682772
commit 564cabaac6
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gui/editor.tcl
View file

@ -2772,12 +2772,17 @@ proc popupConfigDialog { c } {
} else { } else {
set unistate disabled set unistate disabled
} }
ttk::button $wi.preset.uni -text "Unidir. >>" -state $unistate \ ttk::button $wi.preset.uni -text " >> " -state $unistate \
-command "linkConfigUni $wi" -command "linkConfigUni $wi"
pack $wi.preset.uni $wi.preset.linkpre -side right pack $wi.preset.uni $wi.preset.linkpre -side right
linkPresets $wi $linkpreMenu init linkPresets $wi $linkpreMenu init
pack $wi.preset -side top -anchor e pack $wi.preset -side top -anchor e
ttk::frame $wi.unilabel -borderwidth 4
ttk::label $wi.unilabel.updown -text "Symmetric link effects:"
pack $wi.unilabel.updown -side left -anchor w
pack $wi.unilabel -side top -anchor w
ttk::frame $wi.bandwidth -borderwidth 4 ttk::frame $wi.bandwidth -borderwidth 4
ttk::label $wi.bandwidth.label -anchor e -text "Bandwidth (bps):" ttk::label $wi.bandwidth.label -anchor e -text "Bandwidth (bps):"
$spinbox $wi.bandwidth.value -justify right -width 10 \ $spinbox $wi.bandwidth.value -justify right -width 10 \
@ -2923,11 +2928,13 @@ proc linkConfigUni { wi } {
set capt [lindex [$wi.preset.uni configure -text] 4] set capt [lindex [$wi.preset.uni configure -text] 4]
if { $capt == "Unidir. >>" } { if { $capt == " >> " } {
set g_link_config_uni_state "uni" set g_link_config_uni_state "uni"
$wi.preset.uni configure -text "<< Bidir." $wi.preset.uni configure -text " << "
set spinbox [getspinbox] set txt "Asymmetric effects: downstream / upstream"
$wi.unilabel.updown configure -text $txt
set spinbox [getspinbox]
if { ![winfo exists $wi.bandwidth.value2] } { if { ![winfo exists $wi.bandwidth.value2] } {
$spinbox $wi.bandwidth.value2 -justify right \ $spinbox $wi.bandwidth.value2 -justify right \
-width 10 -validate focus -invalidcommand "focusAndFlash %W" -width 10 -validate focus -invalidcommand "focusAndFlash %W"
@ -2987,24 +2994,15 @@ proc linkConfigUni { wi } {
$wi.dup.value2 insert 0 [$wi.dup.value get] $wi.dup.value2 insert 0 [$wi.dup.value get]
pack $wi.dup.value2 -side right pack $wi.dup.value2 -side right
pack $wi.dup.value2 -before $wi.dup.value pack $wi.dup.value2 -before $wi.dup.value
if { ![winfo exists $wi.unilabel] } {
ttk::frame $wi.unilabel
set txt " downstream / upstream "
ttk::label $wi.unilabel.updown -text $txt
}
pack $wi.unilabel.updown -side right -anchor e
pack $wi.unilabel -after $wi.preset
} else { } else {
set g_link_config_uni_state "bid" set g_link_config_uni_state "bid"
$wi.preset.uni configure -text "Unidir. >>" $wi.preset.uni configure -text " >> "
$wi.unilabel.updown configure -text "Symmetric link effects:"
pack forget $wi.bandwidth.value2 pack forget $wi.bandwidth.value2
pack forget $wi.delay.value2 pack forget $wi.delay.value2
pack forget $wi.jitter.value2 pack forget $wi.jitter.value2
pack forget $wi.ber.value2 pack forget $wi.ber.value2
pack forget $wi.dup.value2 pack forget $wi.dup.value2
pack forget $wi.unilabel.updown $wi.unilabel
} }
} }