# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1098275372 -7200
# Node ID b012215061b96d707211f5060da81ef18751b295
# Parent  319fd72c588c0cb7ba64451514e0f123b82cc26e
*** empty log message ***

diff -r 319fd72c588c -r b012215061b9 DataSetBuilder.st
--- a/DataSetBuilder.st	Wed Oct 20 14:18:44 2004 +0200
+++ b/DataSetBuilder.st	Wed Oct 20 14:29:32 2004 +0200
@@ -138,6 +138,48 @@
 
 !DataSetBuilder class methodsFor:'help specs'!
 
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:DataSetBuilder    
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#addColumn
+'Add a Column'
+
+#fileLoad
+'Load Column Description from Method'
+
+#fileNew
+'New Column Description'
+
+#fileSave
+'Save Column Description as Method'
+
+#fileSaveAs
+'Save Column Description as Method'
+
+#editCut
+'Cut Column'
+
+#editCopy
+'Copy Column'
+
+#editPaste
+'Paste Column'
+
+)
+!
+
 helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
@@ -2113,7 +2155,7 @@
             itemValue: doNew
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever ToolbarIconLibrary newDataSet24x24Icon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary newDataSetIcon)
           )
          (MenuItem
             activeHelpKey: fileLoad
@@ -2122,19 +2164,18 @@
             translateLabel: true
             isButton: true
             submenuChannel: menuHistory
-            labelImage: (ResourceRetriever ToolbarIconLibrary load22x22Icon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
           )
-
          (MenuItem
             activeHelpKey: fileSave
             label: 'Save'
             itemValue: doSave
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
           )
          (MenuItem
-            label: ''
+            label: '-'
           )
          (MenuItem
             activeHelpKey: editCut
@@ -2143,7 +2184,7 @@
             itemValue: doCut
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever Icon cutIcon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon)
           )
          (MenuItem
             activeHelpKey: editCopy
@@ -2152,7 +2193,7 @@
             itemValue: doCopy
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever Icon copyIcon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon)
           )
          (MenuItem
             activeHelpKey: editPaste
@@ -2161,7 +2202,7 @@
             itemValue: doPaste
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever Icon pasteIcon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon)
           )
          (MenuItem
             activeHelpKey: editDelete
@@ -2170,10 +2211,11 @@
             itemValue: doDelete
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever Icon deleteIcon)
+            isVisible: false
+            labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon)
           )
          (MenuItem
-            label: ''
+            label: '-'
           )
          (MenuItem
             activeHelpKey: addColumn
@@ -2185,7 +2227,7 @@
             labelImage: (ResourceRetriever nil newColumnIcon)
           )
          (MenuItem
-            label: ''
+            label: '-'
           )
          (MenuItem
             activeHelpKey: editMoveUp