# HG changeset patch
# User tz
# Date 884974004 -3600
# Node ID ac37b2a972ffd090680f0ab2b5bb20f458aa0036
# Parent  330bf61c53b51080a0dd1fd719c30178cab352d8
select first column item after opening

diff -r 330bf61c53b5 -r ac37b2a972ff DataSetBuilder.st
--- 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