Changeset 2940

Show
Ignore:
Timestamp:
11/17/99 18:13:38 (15 years ago)
Author:
ucacoxh
Message:

- File Window now consistent with user info and main panel.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/ui_audiotool.tcl

    r2939 r2940  
    751751proc mbus_recv_session.title {title} { 
    752752    global session_title 
    753     set session_title $title 
     753    set session_title \"$title\" 
    754754    wm title . "RAT: $title" 
    755755} 
     
    16611661button .prefs.buttons.bye   -text "Cancel" -command {sync_ui_to_engine; wm withdraw .prefs} 
    16621662button .prefs.buttons.apply -text "Apply" -command {wm withdraw .prefs; sync_engine_to_ui} 
    1663 #button .prefs.buttons.save  -text "Save & Apply" -command {save_settings; wm withdraw .prefs; sync_engine_to_ui} 
    1664 #pack   .prefs.buttons.bye .prefs.buttons.apply .prefs.buttons.save -side right -padx 2 -pady 2 
    16651663pack   .prefs.buttons.bye .prefs.buttons.apply -side right -padx 2 -pady 2 
    16661664 
     
    24692467    toplevel .file 
    24702468    wm protocol .file WM_DELETE_WINDOW {set files_on 0; file_show} 
    2471     frame .file.play -relief ridge 
    2472     frame .file.rec  -relief ridge 
     2469    frame .file.play -relief groove -bd 2 
     2470    frame .file.rec  -relief groove -bd 2 
    24732471    pack  .file.play -side top -pady 2 -padx 2 -fill x -expand 1 
    24742472    pack  .file.rec  -side top -pady 2 -padx 2 -fill x -expand 1 
     
    24762474    label .file.play.l -text "Playback" 
    24772475    pack  .file.play.l -side top -fill x 
    2478     label .file.rec.l -text "Record" 
     2476    label .file.rec.l -text "Record"    
    24792477    pack  .file.rec.l -side top -fill x 
    24802478 
     
    24962494        } 
    24972495 
    2498         label  .file.$action.buttons.status -text "No file selected." -relief sunk -width 16 -anchor w 
     2496        label  .file.$action.buttons.status -text "No file selected." -width 16 -anchor w 
    24992497        pack   .file.$action.buttons.status -side bottom -fill both -expand 1 -padx 2 -pady 2 
    25002498    }