--- a/CodeView.st Thu Oct 12 18:36:45 2017 +0200
+++ b/CodeView.st Fri Oct 20 11:19:09 2017 +0200
@@ -259,14 +259,16 @@
codeViews do support #accept
... add it after #inspectIt
"
- m
- addItemList:#(
- ('-')
- ('Accept' accept Accept)
- )
- resources:resources
- after:#inspectIt.
-
+ (m indexOf:'Accept') == 0 ifTrue:[
+ m
+ addItemList:#(
+ ('-')
+ ('Accept' accept Accept)
+ )
+ resources:resources
+ after:#inspectIt.
+ ].
+
(acceptEnabled == false
or:[acceptAction isNil]) ifTrue:[
m disable:#accept
@@ -304,7 +306,7 @@
].
^ m ? sub.
- "Modified: / 12.11.2001 / 16:04:46 / cg"
+ "Modified: / 20-10-2017 / 11:18:23 / cg"
!
explain