--- a/Menu.st	Wed Jul 28 11:57:28 2010 +0200
+++ b/Menu.st	Wed Jul 28 19:27:26 2010 +0200
@@ -11,7 +11,7 @@
 "
 "{ Package: 'stx:libview2' }"
 
-Object subclass:#Menu
+Model subclass:#Menu
 	instanceVariableNames:'items groupSizes receiver'
 	classVariableNames:''
 	poolDictionaries:''
@@ -1182,9 +1182,9 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.74 2009-12-04 13:38:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.75 2010-07-28 17:27:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.74 2009-12-04 13:38:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.75 2010-07-28 17:27:26 cg Exp $'
 ! !