do ask for save item when wanna paste
authortz
Thu, 05 Feb 1998 22:08:34 +0100
changeset 601 89366181efd9
parent 600 82bca69d8d37
child 602 5bf03bf611c8
do ask for save item when wanna paste
DataSetBuilder.st
--- a/DataSetBuilder.st	Thu Feb 05 21:59:12 1998 +0100
+++ b/DataSetBuilder.st	Thu Feb 05 22:08:34 1998 +0100
@@ -2259,6 +2259,7 @@
 
     |label list|
 
+    self checkMenuItemModified ifFalse: [^nil].
     list := self seqList.
     label := self class clipboard label.
     columns add: self class clipboard deepCopy afterIndex:selectedColumnIndex.