remove tcl debug output

This commit is contained in:
Joachim Schöberl 2016-02-20 07:13:57 +01:00
parent 0db3dc8c54
commit beed19330f
2 changed files with 0 additions and 3 deletions

View File

@ -15,7 +15,6 @@ set oldmousey 0
# puts "no OpenGL" # puts "no OpenGL"
# } { # } {
puts "********* query toglversion *******"
set toglversion [Ng_GetToglVersion] set toglversion [Ng_GetToglVersion]
puts "togl-version : $toglversion" puts "togl-version : $toglversion"
@ -39,7 +38,6 @@ if { [Ng_GetToglVersion] == 2 } {
} }
if { $toglok == 1} { if { $toglok == 1} {
puts "***** togl is ok ********"
# #
pack .ndraw -expand true -fill both -padx 10 -pady 10 pack .ndraw -expand true -fill both -padx 10 -pady 10

View File

@ -912,7 +912,6 @@ pack .bubar.center .bubar.zoomall -side right
} }
} }
puts "bubar selviewmenu"
menu .bubar.selviewmenu menu .bubar.selviewmenu
ttk::menubutton .bubar.selview1 -menu .bubar.selviewmenu -text "Geometry" ttk::menubutton .bubar.selview1 -menu .bubar.selviewmenu -text "Geometry"
foreach viewv $viewvals { foreach viewv $viewvals {