# HG changeset patch # User Claus Gittinger # Date 1002707081 -7200 # Node ID 0c57ab09156b1c128da7fc717634b302c55d99a4 # Parent 817cce99fc96de0a4f8f03919a61420ddbef11db about menu items moved into the Help-menu diff -r 817cce99fc96 -r 0c57ab09156b DataSetBuilder.st --- a/DataSetBuilder.st Fri Sep 28 17:19:17 2001 +0200 +++ b/DataSetBuilder.st Wed Oct 10 11:44:41 2001 +0200 @@ -1659,13 +1659,6 @@ #( #(#MenuItem - #label: 'About' - #translateLabel: true - #accessCharacterPosition: 1 - #labelImage: #(#ResourceRetriever nil #menuIcon) - #submenuChannel: #menuAbout - ) - #(#MenuItem #label: 'File' #translateLabel: true #activeHelpKey: #file diff -r 817cce99fc96 -r 0c57ab09156b HierarchicalListEditor.st --- a/HierarchicalListEditor.st Fri Sep 28 17:19:17 2001 +0200 +++ b/HierarchicalListEditor.st Wed Oct 10 11:44:41 2001 +0200 @@ -13,6 +13,8 @@ +"{ Package: 'stx:libtool2' }" + ResourceSpecEditor subclass:#HierarchicalListEditor instanceVariableNames:'treeView' classVariableNames:'' @@ -139,7 +141,8 @@ ^Icon constantNamed:#'HierarchicalListEditor createChildIcon' - ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A<3L308@A33L33H@A30L33H@A33L33H@A<3L008@A?????8@C*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself]! + ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A<3L308@A33L33H@A30L33H@A33L33H@A<3L008@A?????8@C*****(@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself] +! createSisterIcon "This resource specification was automatically generated @@ -156,7 +159,8 @@ ^Icon constantNamed:#'HierarchicalListEditor createSisterIcon' - ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself]! ! + ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8') ; yourself); yourself] +! ! !HierarchicalListEditor class methodsFor:'interface specs'! @@ -302,11 +306,6 @@ #( #(#MenuItem - #label: 'About' - #labelImage: #(#ResourceRetriever nil #menuIcon) - #submenuChannel: #menuAbout - ) - #(#MenuItem #label: 'File' #submenu: #(#Menu diff -r 817cce99fc96 -r 0c57ab09156b ImageEditor.st --- a/ImageEditor.st Fri Sep 28 17:19:17 2001 +0200 +++ b/ImageEditor.st Wed Oct 10 11:44:41 2001 +0200 @@ -1015,13 +1015,6 @@ #(#Menu #( #(#MenuItem - #label: 'About' - #translateLabel: true - #activeHelpKey: #about - #labelImage: #(#ResourceRetriever nil #menuIcon) - #submenuChannel: #menuAbout - ) - #(#MenuItem #label: '&File' #translateLabel: true #activeHelpKey: #file @@ -2266,10 +2259,15 @@ |depth img cMap newColorMap newImage oldCListSize newMode| img := self image. + img isNil ifTrue:[ + self warn:'No Image.'. + ^ self + ]. + depth := img depth. cMap := img colorMap. cMap isNil ifTrue:[ - self warn:'Image has no colormap\change colorMap mode first.' withCRs. + self warn:'Image has no colormap.\Change colorMap mode first.' withCRs. ^ self ]. diff -r 817cce99fc96 -r 0c57ab09156b MenuEditor.st --- a/MenuEditor.st Fri Sep 28 17:19:17 2001 +0200 +++ b/MenuEditor.st Wed Oct 10 11:44:41 2001 +0200 @@ -1416,12 +1416,6 @@ #( #(#MenuItem - #label: 'About' - #translateLabel: true - #labelImage: #(#ResourceRetriever nil #menuIcon) - #submenuChannel: #menuAbout - ) - #(#MenuItem #label: '&File' #activeHelpKey: #file #translateLabel: true @@ -1563,6 +1557,16 @@ #activeHelpKey: #helpShowHelp #indication: #showingHelp: ) + #(#MenuItem + #label: '-' + ) + #(#MenuItem + #label: 'About MenuEditor...' + #translateLabel: true + #value: #openAboutThisApplication + #activeHelpKey: #aboutThisAppliaction + ) + ) nil nil ) diff -r 817cce99fc96 -r 0c57ab09156b UIPainter.st --- a/UIPainter.st Fri Sep 28 17:19:17 2001 +0200 +++ b/UIPainter.st Wed Oct 10 11:44:41 2001 +0200 @@ -893,13 +893,6 @@ #( #(#MenuItem - #label: 'About' - #translateLabel: true - #activeHelpKey: #about - #labelImage: #(#ResourceRetriever nil #menuIcon) - #submenuChannel: #menuAbout - ) - #(#MenuItem #label: '&File' #translateLabel: true #activeHelpKey: #file @@ -1206,6 +1199,15 @@ #activeHelpKey: #helpShowHelp #indication: #showingHelp: ) + #(#MenuItem + #label: '-' + ) + #(#MenuItem + #label: 'About this Application...' + #translateLabel: true + #value: #openAboutThisApplication + #activeHelpKey: #aboutThisAppliaction + ) ) nil nil )