# HG changeset patch
# User tz
# Date 886436125 -3600
# Node ID aac3f3c9383f7c33a820f8465df5b087140ff9af
# Parent  25a3072fd268001e623f7a6f07f56d02c52be22c
help menu item aligned to the right

diff -r 25a3072fd268 -r aac3f3c9383f HierarchicalListEditor.st
--- a/HierarchicalListEditor.st	Mon Feb 02 17:12:33 1998 +0100
+++ b/HierarchicalListEditor.st	Mon Feb 02 17:15:25 1998 +0100
@@ -51,7 +51,7 @@
         UIPainter
 
     [author:]
-        Claus Atzkern
+        Claus Atzkern, eXept Software AG
 "
 
 
@@ -267,7 +267,7 @@
            #(
              #(#MenuItem
                 #'label:' 'About'
-                #'labelImage:' #(#ResourceRetriever nil #icon)
+                #'labelImage:' #(#ResourceRetriever nil #menuIcon)
                 #'submenuChannel:' #menuAbout
             )
              #(#MenuItem
@@ -367,6 +367,11 @@
                     nil
                 )
             )
+             #(#MenuItem
+                #'label:' 'Help'
+                #'startGroup:' #right
+                #'submenuChannel:' #menuHelp
+            )
           ) nil
           nil
       )
diff -r 25a3072fd268 -r aac3f3c9383f MenuEditor.st
--- a/MenuEditor.st	Mon Feb 02 17:12:33 1998 +0100
+++ b/MenuEditor.st	Mon Feb 02 17:15:25 1998 +0100
@@ -966,7 +966,7 @@
              #(#MenuItem
                 #'label:' 'About'
                 #'accessCharacterPosition:' 1
-                #'labelImage:' #(#ResourceRetriever nil #icon)
+                #'labelImage:' #(#ResourceRetriever nil #menuIcon)
                 #'submenuChannel:' #menuAbout
             )
              #(#MenuItem
@@ -1044,6 +1044,7 @@
             )
              #(#MenuItem
                 #'label:' 'Help'
+                #'startGroup:' #right
                 #'submenuChannel:' #menuHelp
             )
           ) nil
diff -r 25a3072fd268 -r aac3f3c9383f TabItemEditor.st
--- a/TabItemEditor.st	Mon Feb 02 17:12:33 1998 +0100
+++ b/TabItemEditor.st	Mon Feb 02 17:15:25 1998 +0100
@@ -357,7 +357,7 @@
            #(
              #(#MenuItem
                 #'label:' 'About'
-                #'labelImage:' #(#ResourceRetriever nil #icon)
+                #'labelImage:' #(#ResourceRetriever nil #menuIcon)
                 #'submenuChannel:' #menuAbout
             )
              #(#MenuItem
@@ -434,6 +434,7 @@
             )
              #(#MenuItem
                 #'label:' 'Help'
+                #'startGroup:' #right
                 #'submenuChannel:' #menuHelp
             )
           ) nil