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 "********* query toglversion *******"
set toglversion [Ng_GetToglVersion]
puts "togl-version : $toglversion"
@ -39,7 +38,6 @@ if { [Ng_GetToglVersion] == 2 } {
}
if { $toglok == 1} {
puts "***** togl is ok ********"
#
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
ttk::menubutton .bubar.selview1 -menu .bubar.selviewmenu -text "Geometry"
foreach viewv $viewvals {