--- a/TabItemEditor.st Thu Feb 05 22:15:36 1998 +0100
+++ b/TabItemEditor.st Thu Feb 05 22:19:32 1998 +0100
@@ -495,6 +495,7 @@
#'label:' 'Tab Item'
#'value:' #doCreateTab
#'activeHelpKey:' #addTabItem
+ #'enabled:' #isNotModified
#'labelImage:' #(#ResourceRetriever nil #newTabItemIcon 'Tab Item')
)
) nil
@@ -664,10 +665,8 @@
)
#(#MenuItem
#'label:' 'Preview'
- #'isButton:' true
#'activeHelpKey:' #testPreview
#'enabled:' #canShowTestMode
- #'labelImage:' #(#ResourceRetriever nil #startIcon)
#'indication:' #testMode
)
) nil