--- a/UIPainter.st	Fri Jun 27 15:24:37 1997 +0200
+++ b/UIPainter.st	Fri Jun 27 18:09:05 1997 +0200
@@ -203,11 +203,14 @@
                                         #'value:' #doRaise
                                   )
                                  #(#MenuItem
+                                        #'label:' '='
+                                  )
+                                 #(#MenuItem
                                         #'label:' 'quit'
                                         #'value:' #closeRequest
                                   )
                                  )
-                                #(3 1)
+                                #( 3 )
                                 nil
                        )
          )
@@ -271,11 +274,14 @@
                                         #'value:' #defineClassAndSelector
                                  )
                                  #(#MenuItem
-                                        #'label:' 'install spec'
+                                        #'label:' '='
+                                  )
+                                 #(#MenuItem
+                                        #'label:' 'install window spec.'
                                         #'value:' #doInstallSpec
                                   )
                                  #(#MenuItem
-                                        #'label:' 'install help spec'
+                                        #'label:' 'install help spec.'
                                         #'value:' #doInstallHelp
                                   )
                                  #(#MenuItem
@@ -283,19 +289,25 @@
                                         #'value:' #doInstallAspects
                                   )
                                  #(#MenuItem
-                                        #'label:' 'show windowSpec'
+                                        #'label:' '='
+                                  )
+                                 #(#MenuItem
+                                        #'label:' 'show window spec.'
                                         #'value:' #doWindowSpec
                                    )
-                                #(#MenuItem
+                                 #(#MenuItem
+                                        #'label:' '='
+                                  )
+                                 #(#MenuItem
                                         #'label:' 'browse application'
                                         #'value:' #doBrowseAppClass
-                                 )
-                                #(#MenuItem
-                                        #'label:' 'start application'
-                                        #'value:' #doStartApplication
-                                 )
+                                  )
+                                 #(#MenuItem
+                                         #'label:' 'start  application'
+                                         #'value:' #doStartApplication
+                                  )
                                 )
-                                #( 1 3 1)
+                                #( 4 )
                                 nil
                           )
          )
@@ -318,8 +330,6 @@
         nil
         nil
       )
-
-    "Modified: 17.6.1997 / 12:30:17 / cg"
 !
 
 nameAndSelectorSpec
@@ -694,7 +704,7 @@
         specClass isBehavior ifFalse:[cls := Smalltalk at:specClass asSymbol]
                               ifTrue:[cls := specClass].
 
-        (cls isSubclassOf:UISpecification) ifTrue:[
+        (cls includesBehavior:UISpecification) ifTrue:[
             cls := UISpecificationTool
         ]
     ].