[Sumover-dev] [svn commit] r4087 - vic/branches/mpeg4/tcl

[sumover-dev at cs.ucl.ac.uk]

Author: turam
Date: Fri Aug 10 16:53:19 2007
New Revision: 4087

Modified:
   vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl

Log:
determine windowingsystem based on platform, if windowingsystem call fails

Modified: vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-ctrlmenu.tcl	Fri Aug 10 16:53:19 2007
@@ -32,7 +32,17 @@
 #
 proc windowingsystem { } {
     if { [ catch {set tkws [tk windowingsystem]}] } {
+        # if windowingsystem call fails, determine
+        # based on platform instead (note: windowingsystem
+        # call exists first in tk 8.4, one possible 
+        # reason for failure)
+        global tcl_platform
+        if {$tcl_platform(platform) == "windows"} {
+            set tkws win32
+        } else {
+            # default to x11 otherwise
             set tkws x11
+        }
     }
     return $tkws
 }