Something

err1:

invalid command name "x80ca338"
"$x changed" (procedure "Canvas_redraw" line 3)
"Canvas_redraw x8069ce8" ("eval" body line 1)
"eval [concat [list [lindex $methods 0] x8069ce8] $args]" (procedure "x8069ce8" line 4)
"x8069ce8 redraw"
".x8069ce8.#x8069ce8#m.#x8069ce8#m#view invoke active" ("uplevel" body line 1)
"uplevel #0 [list $w invoke active]" (procedure "tk::MenuInvoke" line 50)
"tk::MenuInvoke .x8069ce8.#x8069ce8#m.#x8069ce8#m#view 1" (command bound to event)


err2:

invalid command name "x80ca338"
"$child class" (procedure "Canvas_editmode=" line 10)
"Canvas_editmode= x8069ce8 1" ("eval" body line 1)
"eval [concat [list [lindex $methods 0] x8069ce8] $args]" (procedure "x8069ce8" line 4)
"$self editmode= [expr !$_($self:editmode)]" (procedure "Canvas_editmodeswitch" line 1)
"Canvas_editmodeswitch x8069ce8" ("eval" body line 1)
"eval [concat [list [lindex $methods 0] x8069ce8] $args]" (procedure "x8069ce8" line 4)
"x8069ce8 editmodeswitch" ("uplevel" body line 1)
"uplevel [info level] $code" (procedure "Menuable_eval%" line 3)
"Menuable_eval% x8069ce8 {%W editmodeswitch}" ("eval" body line 1)
"super $code" (procedure "Canvas_eval%" line 5)
"Canvas_eval% x8069ce8 {%W editmodeswitch}" ("eval" body line 1)
"eval [concat [list [lindex $methods 0] x8069ce8] $args]" (procedure "x8069ce8" line 4)
"$self eval% "%W $cmd"" (procedure "Menuable_ctrlkey" line 5)
"Menuable_ctrlkey x8069ce8 659 220 e  0" ("eval" body line 1)
"eval [concat [list [lindex $methods 0] x8069ce8] $args]" (procedure "x8069ce8" line 4)
"x8069ce8 ctrlkey 659 220 e  0 " (command bound to event)

err3:

no such method 'popup_open' for object 'x8066aa0'
with ancestors {Cnv Labeled IEMGUI Box View Menuable Observable Thing}
"error "no such method '$selector' for object '$self'\nwith ancestors {[Class_ancestors $class]}"" (procedure "dispatch_error" line 3)
"dispatch_error x8066aa0" ("eval" body line 1)
"eval [concat [list [lindex $methods 0] x8066aa0] $args]" (procedure "x8066aa0" line 4)
"x8066aa0 popup_open"
".x8066800.popup invoke active" ("uplevel" body line 1)
"uplevel #0 [list $w invoke active]" (procedure "tk::MenuInvoke" line 50)
"tk::MenuInvoke .x8066800.popup 1" (command bound to event)