Re: new prefs dialogs in AlphaTcl

[Craig B U. <cupright@Princeton.EDU>]

(1) Calling pref dialogs in Alpha8 throws an error, but I don't have time to
get into that right now.

(2) Vince has been asking for [dialog::setDefaultGeometry] contributions, and
here's my stab at it.  Some of the values I chose below for "flagWidth" and
the final "+ 50" offset are not really scientific, just my best guesses at
what looks pleasing.  You can put the following in a "prefs.tcl" file and
restart to test it.  The new defaults are now smaller, I've tested this with
a variety of resolutions (both OSX and Classic)  and I like this better.


if {![llength [info procs dialog::setDefaultGeometry]]} {
    auto_load dialog::setDefaultGeometry
}

proc dialog::setDefaultGeometry {} {

    global alpha::macos screenWidth screenHeight

    variable PrefHeight
    variable PrefWidth
    variable FlagColumns

    set PrefHeight [expr {round($screenHeight * .5)}]
    # MacOS X uses rather large fonts
    if {${alpha::macos} == 2} {
        set flagWidth 225
    } else {
        set flagWidth 175
    }
    set maxWidth    [expr {round($screenWidth * .65)}]
    set FlagColumns [format {%.0f} [expr {$maxWidth / $flagWidth}]]
    set PrefWidth   [expr {($flagWidth * $FlagColumns) + 50}]
    if {($PrefWidth < 400)} {
        set PrefWidth 400
    }
    return
}

# Call this now.
dialog::setDefaultGeometry


-- Craig