--- a/DataSetBuilder.st Fri Jan 16 19:02:23 1998 +0100
+++ b/DataSetBuilder.st Fri Jan 16 19:06:44 1998 +0100
@@ -1227,19 +1227,16 @@
#'label:' 'Cut'
#'value:' #doCutColumn
#'enabled:' #isColumnSelected
- #'shortcutKeyCharacter:' #Cut
)
#(#MenuItem
#'label:' 'Copy'
#'value:' #doCopyColumn
#'enabled:' #isColumnSelected
- #'shortcutKeyCharacter:' #Copy
)
#(#MenuItem
#'label:' 'Paste'
#'value:' #doPasteColumn
#'enabled:' #valueOfHavingClipboard
- #'shortcutKeyCharacter:' #Paste
)
#(#MenuItem
#'label:' '-'
@@ -1393,8 +1390,8 @@
(cls := self resolveClassNamed) notNil ifTrue:[
SystemBrowser openInClass:cls
] ifFalse:[
- self information:'no class yet'.
- ].
+ self information:'No class defined!!'
+ ]
@@ -1513,7 +1510,7 @@
|cls superclass|
className isNil ifTrue:[
- ^ self information:'no class defined'
+ ^ self information:'No class defined!!'
].
cls := self resolveClassNamed.
@@ -1811,7 +1808,8 @@
update:something with:aParameter from:someObject
"one of my aspects has changed; update modified channel
- "
+ "
+
isModified ifFalse:[
isModified := hasChanged := true.
self modifiedChannel value:true.
@@ -2225,7 +2223,9 @@
super postBuildWith:builder.
- (builder componentAt: #columnView) selectConditionBlock: [:i|self checkMenuItemModified]
+ (builder componentAt: #columnView)
+ selectConditionBlock: [:i|self checkMenuItemModified];
+ selection: 1