help menu item aligned to the right
authortz
Mon, 02 Feb 1998 17:15:25 +0100
changeset 546 aac3f3c9383f
parent 545 25a3072fd268
child 547 930b3df19305
help menu item aligned to the right
HierarchicalListEditor.st
MenuEditor.st
TabItemEditor.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
       )
--- 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
--- 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