Changeset 3213

Show
Ignore:
Timestamp:
02/23/00 11:59:26 (14 years ago)
Author:
ucacoxh
Message:

- balloon help checkbutton was disgusting. Perhaps bitmap checkbuttons are better.
- added reception and file boxes too.

Location:
rat/trunk
Files:
2 added
2 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/tcltk.c

    r3133 r3213  
    270270#include "xbm/left.xbm" 
    271271#include "xbm/right.xbm" 
     272#include "xbm/balloon.xbm" 
     273#include "xbm/reception.xbm" 
    272274 
    273275int  
     
    318320        Tk_DefineBitmap(interp, Tk_GetUid("left"),  left_bits,  left_width, left_height); 
    319321        Tk_DefineBitmap(interp, Tk_GetUid("right"), right_bits, right_width,  right_height); 
     322        Tk_DefineBitmap(interp, Tk_GetUid("balloon"), balloon_bits, balloon_width,  balloon_height); 
     323        Tk_DefineBitmap(interp, Tk_GetUid("reception"), reception_bits, reception_width,  reception_height); 
    320324 
    321325        audiotool_obj = Tcl_NewStringObj(ui_audiotool, strlen(ui_audiotool)); 
  • rat/trunk/ui_audiotool.tcl

    r3212 r3213  
    15171517 
    15181518frame       .st -bd 0 
    1519 checkbutton .st.help -highlightthickness 0 -text "Balloon help" -onvalue 1 -offvalue 0 -variable help_on -font $compfont -anchor w -padx 4 
     1519 
     1520checkbutton .st.file -bitmap disk      -indicatoron 0 -variable files_on  -command file_show  
     1521checkbutton .st.recp -bitmap reception -indicatoron 0 -variable matrix_on -command chart_show 
     1522checkbutton .st.help -bitmap balloon   -indicatoron 0 -variable help_on 
     1523 
     1524#-onvalue 1 -offvalue 0 -variable help_on -font $compfont -anchor w -padx 4 
    15201525button      .st.opts  -text "Options..." -command {wm deiconify .prefs; update_user_panel; raise .prefs} 
    15211526button      .st.about -text "About..."   -command {jiggle_credits; wm deiconify .about} 
     
    15271532 
    15281533pack .st -side bottom -fill x -padx 2 -pady 0 
    1529 pack .st.help -side left -fill both -expand 1  
     1534pack .st.file .st.recp .st.help -side left -anchor e -padx 2 -pady 2 
    15301535 
    15311536pack .st.quit .st.about .st.opts -side right -anchor w -padx 2 -pady 2