Changeset 2259

Show
Ignore:
Timestamp:
02/25/99 02:31:33 (15 years ago)
Author:
ucacoxh
Message:

- Most of the stuff in the ui for payload mapping (one job that
should never have been started...didn't help sanity ;-)

Location:
rat/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/mbus_engine.c

    r2258 r2259  
    815815        mbus_parse_init(sp->mbus_engine, args); 
    816816 
    817         if (mbus_parse_str(sp->mbus_engine, &codec_long_name) || 
     817        if (mbus_parse_str(sp->mbus_engine, &codec_long_name) && 
    818818            mbus_parse_int(sp->mbus_engine, &new_pt)) { 
    819819                mbus_decode_str(codec_long_name); 
     
    823823                        codec_id_t cid; 
    824824                        codec_get_by_name(codec_long_name); 
    825                         codec_map_payload(cid, new_pt); 
    826                         ui_update_codec(sp, cid); 
     825                        if (codec_map_payload(cid, new_pt)) { 
     826                                ui_update_codec(sp, cid); 
     827                                debug_msg("map %s $d succeeded.\n", codec_long_name, new_pt); 
     828                        } else { 
     829                                debug_msg("map %s %d failed.\n", codec_long_name, new_pt); 
     830                        } 
    827831                } 
    828832                                                       
  • rat/trunk/ui_audiotool.tcl

    r2258 r2259  
    15591559scrollbar $i.of.codecs.scroll -command "$i.of.codecs.lb yview" 
    15601560pack    $i.of.codecs.l -side top -fill x 
    1561 pack    $i.of.codecs.lb $i.of.codecs.scroll -side left -fill both  
     1561pack    $i.of.codecs.scroll $i.of.codecs.lb -side left -fill both  
    15621562 
    15631563frame   $i.of.details  
     
    15661566frame $i.of.details.upper 
    15671567pack $i.of.details.upper -fill x -pady 2 
     1568 
     1569frame $i.of.details.desc 
     1570pack $i.of.details.desc -side top -fill x 
     1571 
     1572frame $i.of.details.pt  
     1573pack $i.of.details.pt -side bottom -fill x -anchor s 
     1574label $i.of.details.pt.l -anchor w -text "RTP payload:" 
     1575pack  $i.of.details.pt.l -side left -anchor w 
     1576 
     1577entry $i.of.details.pt.e -width 4  
     1578pack  $i.of.details.pt.e -side left -padx 4 
     1579 
     1580button $i.of.details.pt.b -text "Map Codec" -command map_codec 
     1581pack  $i.of.details.pt.b -side left -padx 4 
     1582 
    15681583label $i.of.details.upper.l0 -text "Details" -relief raised 
    15691584pack $i.of.details.upper.l0 -side top -fill x -expand 1 
     
    15721587pack $i.of.details.upper.l -side left 
    15731588label $i.of.details.upper.l.0 -text "Short name:"  -anchor w 
    1574 label $i.of.details.upper.l.1 -text "Sample Rate:" -anchor w 
     1589label $i.of.details.upper.l.1 -text "Sample Rate (Hz):" -anchor w 
    15751590label $i.of.details.upper.l.2 -text "Channels:"    -anchor w 
    1576 label $i.of.details.upper.l.3 -text "Bitrate:"     -anchor w 
     1591label $i.of.details.upper.l.3 -text "Bitrate (kbps):"     -anchor w 
    15771592label $i.of.details.upper.l.4 -text "RTP Payload:" -anchor w 
    15781593for {set idx 0} {$idx < 5} {incr idx} { 
     
    15911606} 
    15921607 
     1608label $i.of.details.desc.l -text "Description:" -anchor w -wraplength 190 -justify left 
     1609pack $i.of.details.desc.l -side left -fill x 
     1610 
    15931611bind $i.of.codecs.lb <1> { 
    15941612    codecs_panel_select [%W index @%x,%y] 
     
    16021620    foreach {c} $codecs { 
    16031621        .prefs.pane.codecs.of.codecs.lb insert end $c 
    1604         puts "$c" 
    16051622    } 
    16061623} 
    16071624 
    16081625proc codecs_panel_select { idx } { 
    1609     global codecs codec_nick_name codec_rate codec_channels codec_pt 
     1626    global codecs codec_nick_name codec_rate codec_channels codec_pt codec_block_size codec_data_size codec_desc 
    16101627     
    16111628    set codec [lindex $codecs $idx] 
     
    16141631    $root.1 configure -text $codec_rate($codec) 
    16151632    $root.2 configure -text $codec_channels($codec) 
     1633 
     1634    set fps [expr $codec_rate($codec) * 2 * $codec_channels($codec) / $codec_block_size($codec) ] 
     1635    set kbps [expr 8 * $fps * $codec_data_size($codec) / 1000.0] 
     1636    $root.3 configure -text [format "%.1f" $kbps] 
     1637 
    16161638    $root.4 configure -text $codec_pt($codec) 
    16171639 
    1618     puts "$idx" 
     1640    .prefs.pane.codecs.of.details.desc.l configure -text "Description: $codec_desc($codec)" 
     1641 
     1642} 
     1643 
     1644proc map_codec {} { 
     1645    global codecs 
     1646 
     1647    set idx [.prefs.pane.codecs.of.codecs.lb curselection] 
     1648 
     1649    if {[llength $idx] == 0} { 
     1650        return 
     1651    } 
     1652 
     1653    set pt [.prefs.pane.codecs.of.details.pt.e get] 
     1654    .prefs.pane.codecs.of.details.pt.e delete 0 end 
     1655 
     1656    set ptnot [string trim $pt 1234567890] 
     1657    if {$ptnot != ""} { 
     1658        return 
     1659    } 
     1660 
     1661    set codec [lindex $codecs $idx] 
     1662    puts "ui:$codec $pt" 
     1663    mbus_send "R" "tool.rat.payload.set" "[mbus_encode_str $codec] $pt" 
    16191664} 
    16201665