Changeset 2295

Timestamp:

03/17/99 10:07:26 (14 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:

• rat/trunk/ui_audiotool.tcl (modified) (9 diffs)

rat/trunk/ui_audiotool.tcl

@@ -21 +21 @@
 }
 
-set statsfont     {helvetica 10}
-set titlefont     {helvetica 10}
-set infofont      {helvetica 10}
-set smallfont     {helvetica  8}
-set verysmallfont {helvetica  8}
+set statsfont     [font actual {helvetica 10}]
+set titlefont     [font actual {helvetica 10}]
+set infofont      [font actual {helvetica 10}]
+set smallfont     [font actual {helvetica  8}]
+set verysmallfont [font actual {helvetica  8}]
 
 option add *Entry.relief       sunken 
@@ -732 +732 @@
             set tool_frag [split $tool]
             set tool_name "UCL [lindex $tool_frag 0] [lindex $tool_frag 1]"
-            wm title . ""
         }
 }
@@ -1200 +1199 @@
         wm title $win "Participant $NAME($cname)"
         wm resizable $win 1 0
-        constrain_window $win 0 250 21 0
+        constrain_window $win $statsfont 30 28
     }
 }
@@ -1374 +1373 @@
 }
 
-proc constrain_window {win maxstr xpad ylines ypad} {
-    set fn [.prefs.buttons.apply cget -font]
-    set w  [expr [font measure $fn $maxstr] + $xpad]
-    set h  [expr $ylines * [font metrics $fn -linespace] + $ypad]
-    wm geometry $win [format "%sx%s" $w $h]
-}
+proc averageCharacterWidth {font} {
+    set sample "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
+    set slen [string length $sample]
+    set wpc  [expr [font measure $font $sample] / $slen + 1]
+    return $wpc
+}
+
+# constrain_window - window, font, characters wide, characters high
+proc constrain_window {w font cW cH} {
+    
+    catch {
+            set wpc [averageCharacterWidth $font]
+            set hpc [font metrics $font -ascent]
+    
+        # Calculate dimensions
+            set width [expr $cW * $wpc]
+            set height [expr $cH * $hpc]
+            wm geometry $w [format "%sx%s" $width $height]
+            set dummy ""
+    } err
+    if {$err != ""} {
+        puts "Error: $err"
+    }
+} 
 
 proc tk_optionCmdMenu {w varName firstValue args} {
@@ -1437 +1454 @@
 
 # setup width of prefs panel
-constrain_window .prefs "XXXXXXXX48-kHzXXXStereoXXXLinear-16XXXUnitsXPerXPcktXXXXXXX" 0 12 128
+constrain_window .prefs $infofont 56 28
 
 # Personal Info Pane
@@ -1633 +1650 @@
 pack $i.of.l -side top -fill x
 
-frame   $i.of.codecs 
-
-pack    $i.of.codecs -side left -padx 2
+frame   $i.of.codecs
+
+pack    $i.of.codecs -side left -padx 2 -fill y
 label   $i.of.codecs.l    -text "Codec" -relief raised
 listbox $i.of.codecs.lb -width 20 -yscrollcommand "$i.of.codecs.scroll set"
@@ -1646 +1663 @@
 
 frame $i.of.details.upper
-pack $i.of.details.upper -fill x -pady 2
+pack $i.of.details.upper -fill x
 
 frame $i.of.details.desc
@@ -1687 +1704 @@
 }
 
-label $i.of.details.desc.l -text "Description:" -anchor w -wraplength 190 -justify left
+set descw [expr [averageCharacterWidth $infofont] * 30]
+label $i.of.details.desc.l -text "Description:" -anchor w -wraplength $descw -justify left
 pack $i.of.details.desc.l -side left -fill x
+unset descw
 
 bind $i.of.codecs.lb <1> {
@@ -1862 +1881 @@
 set about_pane Copyright
 set_pane about_pane .about.rim.d "Credits" 
-constrain_window .about "XANDXFITNESSXFORXAXPARTICULARXPURPOSEXAREXDISCLAIMED.XINXNOXEVENTX" 0 21 28 
+constrain_window .about $infofont 70 25 
 
 .about.rim.d.copyright.f.f.blurb insert end {