hg/stx-libtool2: comparison UIPainter.st

equal deleted inserted replaced

-:23d754f0864b
+:fa52e7ad5cb2
 #(#MenuItem
 #'label:' 'raise'
 #'value:' #doRaise
 )
 #(#MenuItem
+#'label:' '='
+)
+#(#MenuItem
 #'label:' 'quit'
 #'value:' #closeRequest
 )
 )
-#(3 1)
+#( 3 )
 nil
 )
 )
 #(#MenuItem
 #'label:' 'misc'
 #(#MenuItem
 #'label:' 'class && method ...'
 #'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
 #'label:' 'install aspects'
 #'value:' #doInstallAspects
 )
 #(#MenuItem
-#'label:' 'show windowSpec'
+#'label:' '='
+)
+#(#MenuItem
+#'label:' 'show window spec.'
 #'value:' #doWindowSpec
 )
 #(#MenuItem
+#'label:' '='
+)
+#(#MenuItem
 #'label:' 'browse application'
 #'value:' #doBrowseAppClass
 )
 #(#MenuItem
-#'label:' 'start application'
+#'label:' 'start  application'
 #'value:' #doStartApplication
 )
 )
-#( 1 3 1)
+#( 4 )
 nil
 )
 )
 #(#MenuItem
 #'label:' 'test'
 )
 )
 nil
 nil
 )
-"Modified: 17.6.1997 / 12:30:17 / cg"
 !
 nameAndSelectorSpec
 "this window spec was automatically generated by the ST/X UIPainter"
 specClass notNil ifTrue:[
 specClass isBehavior ifFalse:[cls := Smalltalk at:specClass asSymbol]
 ifTrue:[cls := specClass].
-(cls isSubclassOf:UISpecification) ifTrue:[
+(cls includesBehavior:UISpecification) ifTrue:[
 cls := UISpecificationTool
 ]
 ].
 ^ cls
 !