Changeset 4737

Show
Ignore:
Timestamp:
03/29/10 01:07:08 (4 years ago)
Author:
soohyunc
Message:

Updated Tcl ui-main.tcl from mpeg4 branch
(including upto Revision 4735)

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • vic/branches/cc/tcl/ui-main.tcl

    r4011 r4737  
    5959 
    6060    frame $w.bar  -borderwidth 0 
    61     if {[string match [ windowingsystem] "aqua"]} { 
     61 
     62    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
    6263        global V 
    6364        set net $V(data-net) 
    64         label $w.bar.title -text "Address: [$net addr]  Port: [$net port]  TTL: [$net ttl]" -font [smallfont] -justify left 
     65        label $w.bar.title -text "Address: [$net addr]  Port: [$net port]  TTL: [$net ttl]" -font [smallfont] -justify left 
     66        ttk::button $w.bar.quit -text Quit \ 
     67            -command adios 
     68        ttk::button $w.bar.menu -text Menu  \ 
     69            -command "toggle_window .menu" 
     70        ttk::button $w.bar.help -text Help \ 
     71            -command "toggle_window .help" 
     72        ttk::button $w.bar.autoplace -text Autoplace \ 
     73            -command "ag_autoplace::show_ui" 
     74    } elseif {[windowingsystem] == "aqua"} { 
     75        global V 
     76        set net $V(data-net) 
     77        label $w.bar.title -text "Address: [$net addr]  Port: [$net port]  TTL: [$net ttl]" -font [smallfont] -justify left 
    6578        button $w.bar.quit -text Quit \ 
    66                 -font [smallfont] \ 
    67                 -command adios 
     79            -font [smallfont] \ 
     80            -command adios 
    6881        button $w.bar.menu -text Menu  \ 
    69                 -font [smallfont] \ 
    70                 -command "toggle_window .menu" 
     82            -font [smallfont] \ 
     83            -command "toggle_window .menu" 
    7184        button $w.bar.help -text Help \ 
    72                 -font [smallfont] \ 
    73                 -command "toggle_window .help" 
    74         button $w.bar.autoplace -text Autoplace \ 
    75                                 -font [smallfont] \ 
    76                                 -command "ag_autoplace::show_ui" 
     85            -font [smallfont] \ 
     86            -command "toggle_window .help" 
     87        button $w.bar.autoplace -text Autoplace \ 
     88            -font [smallfont] \ 
     89            -command "ag_autoplace::show_ui" 
    7790    } else { 
    7891        global V 
     
    8093        label $w.bar.title -text "Address: [$net addr]  Port: [$net port]  TTL: [$net ttl]" -font [smallfont] -relief flat -justify left 
    8194        button $w.bar.quit -text Quit -relief raised \ 
    82                 -font [smallfont] -command adios \ 
    83                 -highlightthickness 1 
     95            -font [smallfont] -command adios \ 
     96            -highlightthickness 1 
    8497        button $w.bar.menu -text Menu -relief raised \ 
    85                 -font [smallfont] -highlightthickness 1 \ 
    86                 -command "toggle_window .menu" 
     98            -font [smallfont] -highlightthickness 1 \ 
     99            -command "toggle_window .menu" 
    87100        button $w.bar.help -text Help -relief raised \ 
    88                 -font [smallfont] -highlightthickness 1 \ 
    89                 -command "toggle_window .help" 
    90             button $w.bar.autoplace -text Autoplace -relief raised  \ 
    91                                 -font [smallfont] -highlightthickness 1 \ 
    92                                 -command "ag_autoplace::show_ui" 
    93     }                                 
     101            -font [smallfont] -highlightthickness 1 \ 
     102            -command "toggle_window .help" 
     103        button $w.bar.autoplace -text Autoplace -relief raised  \ 
     104            -font [smallfont] -highlightthickness 1 \ 
     105            -command "ag_autoplace::show_ui" 
     106    } 
     107 
    94108    pack $w.bar.title -side left -fill both -expand 1 
    95109    pack $w.bar.menu $w.bar.autoplace $w.bar.help $w.bar.quit -side left -padx 1 -pady 1  
     110 
     111    if {[windowingsystem] == "aqua"} { 
     112        label $w.bar.gap -text " " 
     113        pack $w.bar.gap -side left -padx 1 -pady 1 
     114 
     115    } 
    96116} 
    97117 
     
    100120        frame $w.bar2 -relief ridge -borderwidth 0 
    101121 
    102         button $w.bar2.autoplace -text Autoplace -relief raised  \ 
    103                 -font [smallfont] -highlightthickness 1 \ 
    104                 -command "ag_autoplace::show_ui" 
    105        button $w.bar2.pixrate -text Pixrate -relief raised \ 
    106                 -font [smallfont] -highlightthickness 1 \ 
    107                 -command "create_pixrate_stats_window" 
    108  
     122    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
     123        ttk::button $w.bar2.autoplace -text Autoplace \ 
     124            -command "ag_autoplace::show_ui" 
     125        ttk::button $w.bar2.pixrate -text Pixrate \ 
     126            -command "create_pixrate_stats_window" 
     127    } else { 
     128        button $w.bar2.autoplace -text Autoplace -relief raised \ 
     129            -font [smallfont] -highlightthickness 1 \ 
     130            -command "ag_autoplace::show_ui" 
     131        button $w.bar2.pixrate -text Pixrate -relief raised \ 
     132            -font [smallfont] -highlightthickness 1 \ 
     133            -command "create_pixrate_stats_window" 
     134    } 
    109135 
    110136        pack $w.bar2.autoplace $w.bar2.pixrate -side right -padx 1 -pady 1 
     
    252278        } 
    253279 
    254         frame .top.barholder -relief ridge -borderwidth 2 
    255  
    256         build.bar .top.barholder 
    257 #       build.bar2 .top.barholder 
    258  
    259         pack .top.barholder.bar -fill x -side bottom 
    260 #       pack .top.barholder.bar2 -fill x -side bottom 
    261         pack .top.barholder -side bottom -fill x 
     280        frame .top.barholder -relief ridge -borderwidth 2 
     281 
     282        build.bar .top.barholder 
     283#       build.bar2 .top.barholder 
     284 
     285        pack .top.barholder.bar -fill x -side bottom 
     286#       pack .top.barholder.bar2 -fill x -side bottom 
     287        pack .top.barholder -side bottom -fill x 
    262288        pack .top -expand 1 -fill both 
    263289 
    264         label .top.label -text "Waiting for video..." 
     290        label .top.label -text "Waiting for video..." 
    265291        pack .top.label -before .top.barholder -anchor c -expand 1 
    266292 
     
    543569        set stamp $w.stamp 
    544570        frame $stamp -relief ridge -borderwidth 2 
    545         bind $stamp <Enter> "%W configure -background gray90" 
    546         if {[string match [ windowingsystem] "aqua"]} { 
    547                 bind $stamp <Enter> "%W configure -background CornflowerBlue" 
    548         } else { 
    549                 bind $stamp <Enter> "%W configure -background gray90" 
    550         }    
    551         bind $stamp <Leave> "%W configure -background [resource background]" 
     571 
    552572        create_video_widget $stamp.video 80 60 
    553573        global win_is_slow 
     
    556576        # disable xvideo fro stamp video 
    557577        attach_window $src $stamp.video false  
    558          
    559         if {[string match [ windowingsystem] "aqua"]} { 
    560                 pack $stamp.video -side left -padx 2 -pady 2 
    561                 pack $stamp -side left -anchor nw -padx {4 2} -pady 2 
    562                 frame $w.r -padx 2 
    563         } else { 
    564                 pack $stamp.video -side left -anchor c -padx 2 
    565                 pack $stamp -side left -fill y 
    566                 frame $w.r 
    567         } 
     578 
     579    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
     580        pack $stamp.video -side left -padx 2 -pady 2 
     581        pack $stamp -side left -anchor nw -padx {4 2} -pady 2 
     582        frame $w.r -padx 2 
     583    } elseif {[windowingsystem] == "aqua"} { 
     584        pack $stamp.video -side left -padx 2 -pady 2 
     585        pack $stamp -side left -anchor nw -padx {4 2} -pady 2 
     586        frame $w.r -padx 2 
     587    } else { 
     588        pack $stamp.video -side left -anchor c -padx 2 
     589        pack $stamp -side left -fill y 
     590        frame $w.r 
     591    } 
    568592         
    569593        global V         
     
    577601        pack $w.r.cw -side left -expand 1 -fill both -anchor w -padx 0 
    578602 
    579  
    580         if {[string match [ windowingsystem] "aqua"]} { 
    581                 label $w.r.cw.name -textvariable src_nickname($src) -font $f \ 
    582                         -padx 2 -pady 1 -borderwidth 0 -anchor w 
    583                 label $w.r.cw.addr -textvariable src_info($src) -font $f \ 
    584                         -padx 2 -pady 1 -borderwidth 0 -anchor w 
    585         } else { 
    586                 label $w.r.cw.name -textvariable src_nickname($src) -font $f \ 
    587                         -pady 1 -borderwidth 0 -anchor w 
    588                 label $w.r.cw.addr -textvariable src_info($src) -font $f \ 
    589                         -pady 1 -borderwidth 0 -anchor w 
    590         }           
    591  
     603    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
     604        label $w.r.cw.name -textvariable src_nickname($src) -font $f \ 
     605            -padx 2 -pady 1 -borderwidth 0 -anchor w 
     606        label $w.r.cw.addr -textvariable src_info($src) -font $f \ 
     607            -padx 2 -pady 1 -borderwidth 0 -anchor w 
     608    } elseif {[windowingsystem] == "aqua"} { 
     609        label $w.r.cw.name -textvariable src_nickname($src) -font $f \ 
     610            -padx 2 -pady 1 -borderwidth 0 -anchor w 
     611        label $w.r.cw.addr -textvariable src_info($src) -font $f \ 
     612            -padx 2 -pady 1 -borderwidth 0 -anchor w 
     613    } else { 
     614        label $w.r.cw.name -textvariable src_nickname($src) -font $f \ 
     615            -pady 1 -borderwidth 0 -anchor w 
     616        label $w.r.cw.addr -textvariable src_info($src) -font $f \ 
     617            -pady 1 -borderwidth 0 -anchor w 
     618    } 
    592619 
    593620        global ftext btext ltext 
     
    610637        $src mute $mutebutton($src) 
    611638 
    612         if {[string match [ windowingsystem] "aqua"]} { 
    613                 checkbutton $w.r.ctrl.mute -text mute -borderwidth 2 \ 
    614                         -font $f -width 4 \ 
    615                         -command "$src mute \$mutebutton($src)" \ 
    616                         -variable mutebutton($src) 
    617  
    618                 checkbutton $w.r.ctrl.color -text color -borderwidth 2 \ 
    619                         -font $f -width 4 \ 
    620                         -command "\[$src handler\] color \$colorbutton($src)" \ 
    621                         -variable colorbutton($src) 
    622         } else { 
    623                 checkbutton $w.r.ctrl.mute -text mute -borderwidth 2 \ 
    624                         -highlightthickness 1 \ 
    625                         -relief groove -font $f -width 4 \ 
    626                         -command "$src mute \$mutebutton($src)" \ 
    627                         -variable mutebutton($src) 
    628  
    629                 checkbutton $w.r.ctrl.color -text color -borderwidth 2 \ 
    630                         -highlightthickness 1 \ 
    631                         -relief groove -font $f -width 4 \ 
    632                         -command "\[$src handler\] color \$colorbutton($src)" \ 
    633                         -variable colorbutton($src) 
    634         } 
    635               
     639    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
     640        ttk::checkbutton $w.r.ctrl.mute -text mute -width 4 \ 
     641            -command "$src mute \$mutebutton($src)" \ 
     642            -variable mutebutton($src) 
     643 
     644        ttk::checkbutton $w.r.ctrl.color -text color -width 4 \ 
     645            -command "\[$src handler\] color \$colorbutton($src)" \ 
     646            -variable colorbutton($src) 
     647    } elseif {[windowingsystem] == "aqua"} { 
     648        checkbutton $w.r.ctrl.mute -text mute -borderwidth 2 \ 
     649            -font $f -width 4 \ 
     650            -command "$src mute \$mutebutton($src)" \ 
     651            -variable mutebutton($src) 
     652 
     653        checkbutton $w.r.ctrl.color -text color -borderwidth 2 \ 
     654            -font $f -width 4 \ 
     655            -command "\[$src handler\] color \$colorbutton($src)" \ 
     656            -variable colorbutton($src) 
     657    } else { 
     658        checkbutton $w.r.ctrl.mute -text mute -borderwidth 2 \ 
     659            -highlightthickness 1 \ 
     660            -relief groove -font $f -width 4 \ 
     661            -command "$src mute \$mutebutton($src)" \ 
     662            -variable mutebutton($src) 
     663 
     664        checkbutton $w.r.ctrl.color -text color -borderwidth 2 \ 
     665            -highlightthickness 1 \ 
     666            -relief groove -font $f -width 4 \ 
     667            -command "\[$src handler\] color \$colorbutton($src)" \ 
     668            -variable colorbutton($src) 
     669    } 
     670 
    636671        set m $w.r.ctrl.info.menu$src 
    637         if {[string match [ windowingsystem] "aqua"]} { 
    638                 menubutton $w.r.ctrl.info -text info -borderwidth 2 \ 
    639                         -font $f -pady 4 -menu $m 
    640         } else { 
    641                 menubutton $w.r.ctrl.info -text info... -borderwidth 2 \ 
    642                         -highlightthickness 1 \ 
    643                         -relief groove -font $f -width 5 \ 
    644                         -menu $m 
    645         }       
     672    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
     673        ttk::menubutton $w.r.ctrl.info -text info -menu $m 
     674    } elseif {[windowingsystem] == "aqua"} { 
     675        menubutton $w.r.ctrl.info -text info -borderwidth 2 \ 
     676            -font $f -pady 4 -menu $m 
     677    } else { 
     678        menubutton $w.r.ctrl.info -text info -borderwidth 2 \ 
     679            -highlightthickness 1 \ 
     680            -relief groove -font $f -width 5 \ 
     681            -menu $m -indicatoron 1 
     682    } 
    646683        build_info_menu $src $m 
    647684 
    648         if {[string match [ windowingsystem] "aqua"]} { 
    649                 pack $w.r.ctrl.mute -side left -expand 1 
    650                 pack $w.r.ctrl.color -side left -expand 1 
    651                 pack $w.r.ctrl.info -side left -fill x -expand 1 
    652         } else { 
    653                 pack $w.r.ctrl.mute -side left -fill x -expand 1 
    654                 pack $w.r.ctrl.color -side left -fill x -expand 1 
    655                 pack $w.r.ctrl.info -side left -fill x -expand 1 
    656 #               pack $w.r.ctrl.options -side left -fill x -expand 1 
    657         }  
     685    if {$::tk_version > 8.4 && [windowingsystem] != "x11"} { 
     686        pack $w.r.ctrl.mute -side left -expand 1 
     687        pack $w.r.ctrl.color -side left -expand 1 
     688        pack $w.r.ctrl.info -side left -fill x -expand 1 
     689    } elseif {[windowingsystem] == "aqua"} { 
     690        pack $w.r.ctrl.mute -side left -expand 1 
     691        pack $w.r.ctrl.color -side left -expand 1 
     692        pack $w.r.ctrl.info -side left -fill x -expand 1 
     693    } else { 
     694        pack $w.r.ctrl.mute -side left -fill x -expand 1 
     695        pack $w.r.ctrl.color -side left -fill x -expand 1 
     696        pack $w.r.ctrl.info -side left -fill x -expand 1 
     697#       pack $w.r.ctrl.options -side left -fill x -expand 1 
     698    } 
    658699 
    659700        global colorbutton 
     
    667708        pack $w.r.ctrl -fill x -side top 
    668709        pack $w.r -side left -expand 1 -fill x 
    669          
     710 
     711    if {$::tk_version > 8.4 && [windowingsystem] != "aqua"} { 
     712        bind $stamp <Enter> "%W configure -background [$m cget -activebackground]" 
     713        bind $stamp <Leave> "%W configure -background [$m cget -background]" 
     714    } elseif {$::tk_version > 8.4 && [windowingsystem] == "aqua"} { 
     715        bind $stamp <Enter> "%W configure -background CornflowerBlue" 
     716        bind $stamp <Leave> "%W configure -background [$m cget -background]" 
     717    } elseif {[windowingsystem] == "aqua"} { 
     718        bind $stamp <Enter> "%W configure -background CornflowerBlue" 
     719        bind $stamp <Leave> "%W configure -background [resource background]" 
     720    } else { 
     721        bind $stamp <Enter> "%W configure -background gray90" 
     722        bind $stamp <Leave> "%W configure -background [resource background]" 
     723    } 
     724 
    670725        bind $stamp.video <1> "select_thumbnail $w $src" 
    671726        bind $stamp.video <Enter> { focus %W }