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

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

Author: piers
Date: Tue May 29 23:31:15 2007
New Revision: 4042

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

Log:
Got rid of debug puts for testing of colormap option (which don't work on OSX)


Modified: vic/branches/mpeg4/tcl/ui-util.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/ui-util.tcl	(original)
+++ vic/branches/mpeg4/tcl/ui-util.tcl	Tue May 29 23:31:15 2007
@@ -142,9 +142,7 @@
 proc create_toplevel { w title } {
 	global V
 	if [info exists V(visual)] {
-		puts "toplevel $w -class $V(class) -visual $V(visual) -colormap $V(colormap)"
-		toplevel $w -class $V(class) \
-			-visual "$V(visual)"
+		toplevel $w -class $V(class)  -visual "$V(visual)"
 	} else {
 		toplevel $w -class $V(class)
 	}