--- 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
]
].