Version 0 of Dual or Multiple Monitors

Updated 2004-02-11 01:03:34

Try to determine if we are operating on a system with dual monitors. Damon Courtney

 proc DualMonitors {} {
     set top .#dualMonitorCheck#
     if {![winfo exists $top]} { toplevel $top; wm withdraw $top }
     set sw [winfo screenwidth $top]
     set mw [lindex [wm maxsize .] 0]
     return [expr {($sw * 2)) < $mw}]
 }