oo: Fix 'methods' for superclasses

Methods inherited from a base class are created with alias, so
they are not returned by 'info procs'. Need to use 'info commands' instead.

1 files changed, 1 insertions, 1 deletions

diff --git a/oo.tcl b/oo.tcl
index a05aa01..b6ad4a9 100644
--- a/oo.tcl
+++ b/oo.tcl
@@ -78,7 +78,7 @@ proc class {classname {baseclasses {}} classvars} {
 	proc "$classname classvars" {} classvars { return $classvars }
 	proc "$classname classname" {} classname { return $classname }
 	proc "$classname methods" {} classname {
-		lsort [lmap p [info procs "$classname *"] {
+		lsort [lmap p [info commands "$classname *"] {
 			lindex [split $p " "] 1
 		}]
 	}