Changeset 3209

Show
Ignore:
Timestamp:
02/23/00 10:00:54 (14 years ago)
Author:
ucaccsp
Message:

- Fix handling of WM_DELETE_WINDOW for the about box
- Fix handling of WM_DELETE_WINDOW for participant popup boxes
- Remove all "Dismiss" buttons - just close the windows instead
- Add balloon help button to the main window, moving the application name

to the title bar

Location:
rat/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/MODS

    r3208 r3209  
    11471147        - Add support for rtp.source.mute ("ALL" 0|1), which is much more efficient 
    11481148          than iterating all sources over the mbus. 
     1149        - Fix handling of WM_DELETE_WINDOW for the about box 
     1150        - Fix handling of WM_DELETE_WINDOW for participant popup boxes 
     1151        - Remove all "Dismiss" buttons - just close the windows instead 
     1152        - Add balloon help button to the main window, moving the application name  
     1153          to the title bar 
    11491154 
    11501155 
  • rat/trunk/ui_audiotool.tcl

    r3201 r3209  
    772772 
    773773proc mbus_recv_session.title {title} { 
    774     global session_title 
     774    global session_title tool_name 
    775775    set session_title \"$title\" 
    776     wm title . "RAT: $title" 
     776    wm title . "$tool_name: $title" 
    777777    wm deiconify . 
    778778} 
     
    855855            # lose the platform stuff 
    856856            set tool_frag [split $tool] 
    857             set tool_name "UCL [lindex $tool_frag 0] [lindex $tool_frag 1]" 
     857            set tool_name "[lindex $tool_frag 0] [lindex $tool_frag 1]" 
    858858        } 
    859859} 
     
    14731473 
    14741474# Window Magic 
    1475         frame  $win.dis 
    1476         button $win.dis.b -text "Dismiss" -command "destroy $win; 3d_delete_parameters $ssrc" 
    1477         pack   $win.dis   -side bottom -anchor e  
    1478         pack   $win.dis.b -side right -anchor e -padx 2 -pady 2 
    14791475        wm title $win "Participant $NAME($ssrc)" 
    14801476#       wm resizable $win 1 1 
     1477        wm protocol  $win WM_DELETE_WINDOW "destroy $win; 3d_delete_parameters $ssrc" 
    14811478        constrain_window $win $statsfont 36 24 
    14821479    } 
     
    15221519label .l.f.addr  -bd 0 -textvariable session_address 
    15231520 
    1524 frame  .st -bd 0 
    1525 label  .st.tool -textvariable tool_name -font $infofont -justify center -pady 0 
    1526 button .st.opts  -text "Options"  -command {wm deiconify .prefs; update_user_panel; raise .prefs} 
    1527 button .st.about -text "About"     -command {jiggle_credits; wm deiconify .about} 
    1528 button .st.quit  -text "Quit"      -command do_quit 
     1521frame       .st -bd 0 
     1522checkbutton .st.help -highlightthickness 0 -text "Balloon help" -onvalue 1 -offvalue 0 -variable help_on -font $compfont -anchor w -padx 4 
     1523button      .st.opts  -text "Options..." -command {wm deiconify .prefs; update_user_panel; raise .prefs} 
     1524button      .st.about -text "About..."   -command {jiggle_credits; wm deiconify .about} 
     1525button      .st.quit  -text "Quit"       -command do_quit 
    15291526 
    15301527frame .r.c -bd 0 
     
    15331530 
    15341531pack .st -side bottom -fill x -padx 2 -pady 0 
    1535 pack .st.tool -side left -fill both -expand 1  
     1532pack .st.help -side left -fill both -expand 1  
    15361533 
    15371534pack .st.quit .st.about .st.opts -side right -anchor w -padx 2 -pady 2 
     
    16111608# Override default tk behaviour 
    16121609wm protocol . WM_DELETE_WINDOW do_quit 
     1610wm title    . Initializing... 
    16131611 
    16141612if {$win32 == 0} { 
     
    21572155} 
    21582156 
    2159 button    .about.dismiss -text Dismiss -command "wm withdraw .about" 
    2160 pack      .about.dismiss -side bottom -anchor e -padx 2 -pady 2 
    2161  
    21622157frame     .about.rim.d.feedback  
    21632158frame     .about.rim.d.feedback.f -relief flat 
     
    21762171wm title     .about "About RAT" 
    21772172wm resizable .about 0 0 
     2173wm protocol  .about WM_DELETE_WINDOW {wm withdraw .about} 
     2174 
    21782175set about_pane Copyright 
    21792176set_pane about_pane .about.rim.d "Credits"  
     
    25262523catch { 
    25272524    toplevel .file 
    2528     wm protocol .file WM_DELETE_WINDOW {set files_on 0; file_show} 
    25292525    frame .file.play -relief groove -bd 2 
    25302526    frame .file.rec  -relief groove -bd 2 
     
    25372533    pack  .file.rec.l -side top -fill x 
    25382534 
    2539     button .file.dismiss -text Dismiss -command "set files_on 0; file_show" 
    2540     pack   .file.dismiss -side bottom -anchor e -padx 2 -pady 2 
    2541      
    25422535    wm withdraw .file 
    25432536    wm title    .file "RAT File Control" 
     2537    wm protocol .file WM_DELETE_WINDOW "set files_on 0; file_show" 
    25442538     
    25452539    foreach action { play rec } {