--- 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