allowed interface specification in extending a class. e.g. extend ClassName [Interface1,Interface2,etc] { ... }

moo/kernel/X11.moo

@@ -16,6 +16,16 @@ interface X11able3
 	method(#dual) class.
 }
 
+class QQQ(Object)
+{
+}
+
+extend QQQ [X11able]
+{
+
+method(#dual) abc { ^nil }
+method(#dual,#liberal) def(x, z) { ^nil }
+}
 
 class X11(Object) [X11able,selfns.X11able3] from 'x11'
 {
@@ -32,6 +42,7 @@ class X11(Object) [X11able,selfns.X11able3] from 'x11'
 	var event_loop_sem, event_loop_proc.
 	var llevent_blocks.
 
+
 method(#dual) abc { ^nil }
 method(#dual,#liberal) def(x, z) { ^nil }
 ###method(#dual) abc3 { ^nil }