--- a/NewLauncher.st	Thu Jan 29 23:16:26 1998 +0100
+++ b/NewLauncher.st	Thu Jan 29 23:44:34 1998 +0100
@@ -123,6 +123,7 @@
            #(
              #(#MenuItem
                 #'label:' 'about'
+                #'translateLabel:' true
                 #'labelImage:' #(#ResourceRetriever #ToolApplicationModel #stxIcon)
                 #'submenuChannel:' #menuAbout
             )
@@ -527,12 +528,14 @@
             )
              #(#MenuItem
                 #'label:' 'Projects'
+                #'translateLabel:' true
                 #'submenu:' 
                  #(#Menu
                     
                      #(
                        #(#MenuItem
                           #'label:' 'New Project'
+                          #'translateLabel:' true
                           #'value:' #newProject
                       )
                        #(#MenuItem
@@ -540,6 +543,7 @@
                       )
                        #(#MenuItem
                           #'label:' 'Select Project...'
+                          #'translateLabel:' true
                           #'value:' #selectProject
                       )
                     ) nil
@@ -548,6 +552,7 @@
             )
              #(#MenuItem
                 #'label:' 'Settings'
+                #'translateLabel:' true
                 #'submenuChannel:' #menuSettings
             )
              #(#MenuItem
@@ -924,7 +929,7 @@
                           #'label:' '-'
                       )
                        #(#MenuItem
-                          #'label:' 'Print Documentation ...'
+                          #'label:' 'Print Documentation...'
                           #'translateLabel:' true
                           #'value:' #showBookPrintDocument
                       )
@@ -944,6 +949,8 @@
           ) nil
           nil
       )
+
+    "Modified: / 29.1.1998 / 23:41:06 / cg"
 !
 
 menuNewSettings
@@ -966,16 +973,19 @@
            #(
              #(#MenuItem
                 #'label:' 'Style...'
+                #'translateLabel:' true
                 #'value:' #'openSettingsFor:'
                 #'argument:' 'StyleSettings'
             )
              #(#MenuItem
                 #'label:' 'System...'
+                #'translateLabel:' true
                 #'value:' #'openSettingsFor:'
                 #'argument:' 'SystemSettings'
             )
              #(#MenuItem
                 #'label:' 'Compilation...'
+                #'translateLabel:' true
                 #'value:' #'openSettingsFor:'
                 #'argument:' 'CompilationSettings'
                 #'labelImage:' #(#ResourceRetriever nil #'```````````````')
@@ -997,6 +1007,8 @@
           ) nil
           nil
       )
+
+    "Modified: / 29.1.1998 / 23:39:06 / cg"
 !
 
 menuSettings
@@ -1109,7 +1121,7 @@
           nil
       )
 
-    "Modified: / 29.1.1998 / 22:55:13 / cg"
+    "Modified: / 29.1.1998 / 23:41:51 / cg"
 !
 
 menuToolbar
@@ -6652,6 +6664,27 @@
      to save its contents."
 
     ObjectMemory changed:#aboutToExit
+!
+
+saveScreenImage:anImage defaultName:defaultName
+    "save an image into a file 
+     - ask user for filename using a fileSelectionBox."
+
+    |fileName|
+
+    fileName := Dialog
+                    requestFileName:(resources string:'save image in:')
+                    default:(defaultName , '.tiff')
+                    ok:(resources string:'save')
+                    abort:(resources string:'cancel')
+                    pattern:'*.tiff'.
+
+    fileName notNil ifTrue:[
+        anImage saveOn:fileName
+    ].
+
+    "Modified: / 21.2.1996 / 13:09:28 / cg"
+    "Created: / 29.1.1998 / 23:20:36 / cg"
 ! !
 
 !NewLauncher methodsFor:'queries'!
@@ -6821,5 +6854,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.19 1998-01-29 22:16:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.20 1998-01-29 22:44:34 cg Exp $'
 ! !