Changeset 2295

Show
Ignore:
Timestamp:
03/17/99 10:07:26 (15 years ago)
Author:
ucacoxh
Message:

- Attempt to constrain windows better by calculating average wifdth per char
and specifying constraining sizes in chars wide by chars high.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • rat/trunk/ui_audiotool.tcl

    r2293 r2295  
    2121} 
    2222 
    23 set statsfont     {helvetica 10} 
    24 set titlefont     {helvetica 10} 
    25 set infofont      {helvetica 10} 
    26 set smallfont     {helvetica  8} 
    27 set verysmallfont {helvetica  8} 
     23set statsfont     [font actual {helvetica 10}] 
     24set titlefont     [font actual {helvetica 10}] 
     25set infofont      [font actual {helvetica 10}] 
     26set smallfont     [font actual {helvetica  8}] 
     27set verysmallfont [font actual {helvetica  8}] 
    2828 
    2929option add *Entry.relief       sunken  
     
    732732            set tool_frag [split $tool] 
    733733            set tool_name "UCL [lindex $tool_frag 0] [lindex $tool_frag 1]" 
    734             wm title . "" 
    735734        } 
    736735} 
     
    12001199        wm title $win "Participant $NAME($cname)" 
    12011200        wm resizable $win 1 0 
    1202         constrain_window $win 0 250 21 0 
     1201        constrain_window $win $statsfont 30 28 
    12031202    } 
    12041203} 
     
    13741373} 
    13751374 
    1376 proc constrain_window {win maxstr xpad ylines ypad} { 
    1377     set fn [.prefs.buttons.apply cget -font] 
    1378     set w  [expr [font measure $fn $maxstr] + $xpad] 
    1379     set h  [expr $ylines * [font metrics $fn -linespace] + $ypad] 
    1380     wm geometry $win [format "%sx%s" $w $h] 
    1381 } 
     1375proc averageCharacterWidth {font} { 
     1376    set sample "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 
     1377    set slen [string length $sample] 
     1378    set wpc  [expr [font measure $font $sample] / $slen + 1] 
     1379    return $wpc 
     1380} 
     1381 
     1382# constrain_window - window, font, characters wide, characters high 
     1383proc constrain_window {w font cW cH} { 
     1384     
     1385    catch { 
     1386            set wpc [averageCharacterWidth $font] 
     1387            set hpc [font metrics $font -ascent] 
     1388     
     1389        # Calculate dimensions 
     1390            set width [expr $cW * $wpc] 
     1391            set height [expr $cH * $hpc] 
     1392            wm geometry $w [format "%sx%s" $width $height] 
     1393            set dummy "" 
     1394    } err 
     1395    if {$err != ""} { 
     1396        puts "Error: $err" 
     1397    } 
     1398}  
    13821399 
    13831400proc tk_optionCmdMenu {w varName firstValue args} { 
     
    14371454 
    14381455# setup width of prefs panel 
    1439 constrain_window .prefs "XXXXXXXX48-kHzXXXStereoXXXLinear-16XXXUnitsXPerXPcktXXXXXXX" 0 12 128 
     1456constrain_window .prefs $infofont 56 28 
    14401457 
    14411458# Personal Info Pane 
     
    16331650pack $i.of.l -side top -fill x 
    16341651 
    1635 frame   $i.of.codecs  
    1636  
    1637 pack    $i.of.codecs -side left -padx 2 
     1652frame   $i.of.codecs 
     1653 
     1654pack    $i.of.codecs -side left -padx 2 -fill y 
    16381655label   $i.of.codecs.l    -text "Codec" -relief raised 
    16391656listbox $i.of.codecs.lb -width 20 -yscrollcommand "$i.of.codecs.scroll set" 
     
    16461663 
    16471664frame $i.of.details.upper 
    1648 pack $i.of.details.upper -fill x -pady 2 
     1665pack $i.of.details.upper -fill x 
    16491666 
    16501667frame $i.of.details.desc 
     
    16871704} 
    16881705 
    1689 label $i.of.details.desc.l -text "Description:" -anchor w -wraplength 190 -justify left 
     1706set descw [expr [averageCharacterWidth $infofont] * 30] 
     1707label $i.of.details.desc.l -text "Description:" -anchor w -wraplength $descw -justify left 
    16901708pack $i.of.details.desc.l -side left -fill x 
     1709unset descw 
    16911710 
    16921711bind $i.of.codecs.lb <1> { 
     
    18621881set about_pane Copyright 
    18631882set_pane about_pane .about.rim.d "Credits"  
    1864 constrain_window .about "XANDXFITNESSXFORXAXPARTICULARXPURPOSEXAREXDISCLAIMED.XINXNOXEVENTX" 0 21 28  
     1883constrain_window .about $infofont 70 25  
    18651884 
    18661885.about.rim.d.copyright.f.f.blurb insert end {