diff -r fb386481e948 -r 817cce99fc96 UIPainter.st
--- a/UIPainter.st	Fri Sep 28 17:17:15 2001 +0200
+++ b/UIPainter.st	Fri Sep 28 17:19:17 2001 +0200
@@ -891,223 +891,223 @@
      
        #(#Menu
           
-	   #(
-	     #(#MenuItem
-		#label: 'About'
-		#translateLabel: true
-		#activeHelpKey: #about
-		#labelImage: #(#ResourceRetriever nil #menuIcon)
-		#submenuChannel: #menuAbout
-	    )
-	     #(#MenuItem
-		#label: 'File'
-		#translateLabel: true
-		#activeHelpKey: #file
-		#enabled: #enableChannel
-		#submenu: 
-		 #(#Menu
+           #(
+             #(#MenuItem
+                #label: 'About'
+                #translateLabel: true
+                #activeHelpKey: #about
+                #labelImage: #(#ResourceRetriever nil #menuIcon)
+                #submenuChannel: #menuAbout
+            )
+             #(#MenuItem
+                #label: '&File'
+                #translateLabel: true
+                #activeHelpKey: #file
+                #enabled: #enableChannel
+                #submenu: 
+                 #(#Menu
                     
-		     #(
-		       #(#MenuItem
-			  #label: 'New'
-			  #translateLabel: true
-			  #value: #doNew
-			  #activeHelpKey: #fileNew
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Load...'
-			  #translateLabel: true
-			  #value: #doLoad
-			  #activeHelpKey: #fileLoad
-		      )
-		       #(#MenuItem
-			  #label: 'Load Subspec...'
-			  #translateLabel: true
-			  #value: #doLoadSubspec
-			  #activeHelpKey: #fileLoadSubspec
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Save'
-			  #translateLabel: true
-			  #value: #doSave
-			  #activeHelpKey: #fileSave
-		      )
-		       #(#MenuItem
-			  #label: 'Save As...'
-			  #translateLabel: true
-			  #value: #doSaveAs
-			  #activeHelpKey: #fileSaveAs
-		      )
-		       #(#MenuItem
-			  #label: 'Define Class And Selector...'
-			  #translateLabel: true
-			  #value: #doDefineClassAndSelector
-			  #activeHelpKey: #fileSaveAs
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Pick A Window Spec...'
-			  #translateLabel: true
-			  #value: #doPickAView
-			  #activeHelpKey: #filePickAnInterface
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Show Window Spec'
-			  #translateLabel: true
-			  #value: #doWindowSpec
-			  #activeHelpKey: #fileShowWindowSpec
-		      )
-		       #(#MenuItem
-			  #label: 'Browse Class'
-			  #translateLabel: true
-			  #value: #doBrowseClass
-			  #activeHelpKey: #fileBrowseClass
-			  #enabled: #hasSpecClass
-		      )
-		       #(#MenuItem
-			  #label: 'Browse Aspect Methods'
-			  #translateLabel: true
-			  #value: #doBrowseAspectMethods
-			  #activeHelpKey: #fileBrowseAspectMethods
-			  #enabled: #hasSpecClass
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Exit'
-			  #translateLabel: true
-			  #value: #closeRequest
-			  #activeHelpKey: #fileExit
-		      )
-		    ) nil
-		    nil
-		)
-	    )
-	     #(#MenuItem
-		#label: 'Edit'
-		#translateLabel: true
-		#activeHelpKey: #edit
-		#submenuChannel: #menuEdit
-	    )
-	     #(#MenuItem
-		#label: 'Align'
-		#translateLabel: true
-		#activeHelpKey: #align
-		#submenuChannel: #menuAlign
-	    )
-	     #(#MenuItem
-		#label: 'Generate'
-		#translateLabel: true
-		#activeHelpKey: #generate
-		#submenu: 
-		 #(#Menu
+                     #(
+                       #(#MenuItem
+                          #label: 'New'
+                          #translateLabel: true
+                          #value: #doNew
+                          #activeHelpKey: #fileNew
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Load...'
+                          #translateLabel: true
+                          #value: #doLoad
+                          #activeHelpKey: #fileLoad
+                      )
+                       #(#MenuItem
+                          #label: 'Load Subspec...'
+                          #translateLabel: true
+                          #value: #doLoadSubspec
+                          #activeHelpKey: #fileLoadSubspec
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Save'
+                          #translateLabel: true
+                          #value: #doSave
+                          #activeHelpKey: #fileSave
+                      )
+                       #(#MenuItem
+                          #label: 'Save As...'
+                          #translateLabel: true
+                          #value: #doSaveAs
+                          #activeHelpKey: #fileSaveAs
+                      )
+                       #(#MenuItem
+                          #label: 'Define Class And Selector...'
+                          #translateLabel: true
+                          #value: #doDefineClassAndSelector
+                          #activeHelpKey: #fileSaveAs
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Pick A Window Spec...'
+                          #translateLabel: true
+                          #value: #doPickAView
+                          #activeHelpKey: #filePickAnInterface
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Show Window Spec'
+                          #translateLabel: true
+                          #value: #doWindowSpec
+                          #activeHelpKey: #fileShowWindowSpec
+                      )
+                       #(#MenuItem
+                          #label: 'Browse Class'
+                          #translateLabel: true
+                          #value: #doBrowseClass
+                          #activeHelpKey: #fileBrowseClass
+                          #enabled: #hasSpecClass
+                      )
+                       #(#MenuItem
+                          #label: 'Browse Aspect Methods'
+                          #translateLabel: true
+                          #value: #doBrowseAspectMethods
+                          #activeHelpKey: #fileBrowseAspectMethods
+                          #enabled: #hasSpecClass
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Exit'
+                          #translateLabel: true
+                          #value: #closeRequest
+                          #activeHelpKey: #fileExit
+                      )
+                    ) nil
+                    nil
+                )
+            )
+             #(#MenuItem
+                #label: 'Edit'
+                #translateLabel: true
+                #activeHelpKey: #edit
+                #submenuChannel: #menuEdit
+            )
+             #(#MenuItem
+                #label: 'Align'
+                #translateLabel: true
+                #activeHelpKey: #align
+                #submenuChannel: #menuAlign
+            )
+             #(#MenuItem
+                #label: 'Generate'
+                #translateLabel: true
+                #activeHelpKey: #generate
+                #submenu: 
+                 #(#Menu
                     
-		     #(
-		       #(#MenuItem
-			  #label: 'Aspect Methods'
-			  #translateLabel: true
-			  #value: #doGenerateAspectMethods
-			  #activeHelpKey: #generateAspectMethods
-			  #enabled: #hasSpecClass
-		      )
-		       #(#MenuItem
-			  #label: 'Menu Stub Methods'
-			  #translateLabel: true
-			  #value: #doGenerateMenuMethods
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Hook Methods'
-			  #translateLabel: true
-			  #value: #doGenerateHookMethods
-			  #activeHelpKey: #generateHookMethods
-			  #enabled: #hasSpecClass
-		      )
-		    ) nil
-		    nil
-		)
-	    )
-	     #(#MenuItem
-		#label: 'Test'
-		#translateLabel: true
-		#activeHelpKey: #test
-		#submenu: 
-		 #(#Menu
+                     #(
+                       #(#MenuItem
+                          #label: 'Aspect Methods'
+                          #translateLabel: true
+                          #value: #doGenerateAspectMethods
+                          #activeHelpKey: #generateAspectMethods
+                          #enabled: #hasSpecClass
+                      )
+                       #(#MenuItem
+                          #label: 'Menu Stub Methods'
+                          #translateLabel: true
+                          #value: #doGenerateMenuMethods
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Hook Methods'
+                          #translateLabel: true
+                          #value: #doGenerateHookMethods
+                          #activeHelpKey: #generateHookMethods
+                          #enabled: #hasSpecClass
+                      )
+                    ) nil
+                    nil
+                )
+            )
+             #(#MenuItem
+                #label: 'Test'
+                #translateLabel: true
+                #activeHelpKey: #test
+                #submenu: 
+                 #(#Menu
                     
-		     #(
-		       #(#MenuItem
-			  #label: 'Start Application'
-			  #translateLabel: true
-			  #value: #doStartApplication
-			  #activeHelpKey: #testStartApplication
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Geometry Test Mode'
-			  #translateLabel: true
-			  #activeHelpKey: #testGeometryTestMode
-			  #indication: #testMode:
-		      )
-		    ) nil
-		    nil
-		)
-	    )
-	     #(#MenuItem
-		#label: 'Settings'
-		#translateLabel: true
-		#activeHelpKey: #settings
-		#submenu: 
-		 #(#Menu
+                     #(
+                       #(#MenuItem
+                          #label: 'Start Application'
+                          #translateLabel: true
+                          #value: #doStartApplication
+                          #activeHelpKey: #testStartApplication
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Geometry Test Mode'
+                          #translateLabel: true
+                          #activeHelpKey: #testGeometryTestMode
+                          #indication: #testMode:
+                      )
+                    ) nil
+                    nil
+                )
+            )
+             #(#MenuItem
+                #label: 'Settings'
+                #translateLabel: true
+                #activeHelpKey: #settings
+                #submenu: 
+                 #(#Menu
                     
-		     #(
-		       #(#MenuItem
-			  #label: 'Canvas'
-			  #translateLabel: true
-			  #activeHelpKey: #settingsCanvas
-			  #indication: #painterShown
-		      )
-		       #(#MenuItem
-			  #label: 'Gallery'
-			  #translateLabel: true
-			  #activeHelpKey: #settingsGallery
-			  #indication: #galleryShown
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Redefine Aspect Methods'
-			  #translateLabel: true
-			  #activeHelpKey: #settingsRedefineAspectMethods
-			  #enabled: #hasSpecClass
-			  #indication: #redefineAspectMethods:
-		      )
-		       #(#MenuItem
-			  #label: 'Aspects As Instances'
-			  #translateLabel: true
-			  #activeHelpKey: #settingsAspectsAsInstances
-			  #enabled: #hasSpecClass
-			  #indication: #generateAspectsAsInstanceVariables:
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
+                     #(
+                       #(#MenuItem
+                          #label: 'Canvas'
+                          #translateLabel: true
+                          #activeHelpKey: #settingsCanvas
+                          #indication: #painterShown
+                      )
+                       #(#MenuItem
+                          #label: 'Gallery'
+                          #translateLabel: true
+                          #activeHelpKey: #settingsGallery
+                          #indication: #galleryShown
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Redefine Aspect Methods'
+                          #translateLabel: true
+                          #activeHelpKey: #settingsRedefineAspectMethods
+                          #enabled: #hasSpecClass
+                          #indication: #redefineAspectMethods:
+                      )
+                       #(#MenuItem
+                          #label: 'Aspects As Instances'
+                          #translateLabel: true
+                          #activeHelpKey: #settingsAspectsAsInstances
+                          #enabled: #hasSpecClass
+                          #indication: #generateAspectsAsInstanceVariables:
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
 "/                       #(#MenuItem
 "/                          #label: 'Fonts'
 "/                          #submenuChannel: #menuFont
@@ -1115,103 +1115,103 @@
 "/                       #(#MenuItem
 "/                          #label: '-'
 "/                      )
-		       #(#MenuItem
-			  #label: 'Undo Manager...'
-			  #translateLabel: true
-			  #value: #openUndoMenu
-			  #activeHelpKey: #settingsUndoManager
-			  #enabled: #hasUndoHistory
-		      )
-		       #(#MenuItem
-			  #label: 'Grid Manager...'
-			  #translateLabel: true
-			  #value: #doDefineGrid
-			  #activeHelpKey: #settingsGridManager
-		      )
-		    ) nil
-		    nil
-		)
-	    )
-	     #(#MenuItem
-		#label: 'History'
-		#translateLabel: true
-		#activeHelpKey: #history
-		#submenuChannel: #menuHistory
-	    )
-	     #(#MenuItem
-		#label: 'Help'
-		#translateLabel: true
-		#startGroup: #right
-		#activeHelpKey: #help
-		#submenu: 
-		 #(#Menu
+                       #(#MenuItem
+                          #label: 'Undo Manager...'
+                          #translateLabel: true
+                          #value: #openUndoMenu
+                          #activeHelpKey: #settingsUndoManager
+                          #enabled: #hasUndoHistory
+                      )
+                       #(#MenuItem
+                          #label: 'Grid Manager...'
+                          #translateLabel: true
+                          #value: #doDefineGrid
+                          #activeHelpKey: #settingsGridManager
+                      )
+                    ) nil
+                    nil
+                )
+            )
+             #(#MenuItem
+                #label: 'History'
+                #translateLabel: true
+                #activeHelpKey: #history
+                #submenuChannel: #menuHistory
+            )
+             #(#MenuItem
+                #label: 'Help'
+                #translateLabel: true
+                #startGroup: #right
+                #activeHelpKey: #help
+                #submenu: 
+                 #(#Menu
                     
-		     #(
-		       #(#MenuItem
-			  #label: 'Tutorial'
-			  #translateLabel: true
-			  #value: #openHTMLDocument:
-			  #activeHelpKey: #helpTutorial
-			  #argument: 'tools/uipainter/TOP.html'
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Functions'
-			  #translateLabel: true
-			  #value: #openHTMLDocument:
-			  #activeHelpKey: #helpFunctions
-			  #argument: 'tools/uipainter/Functions.html'
-		      )
-		       #(#MenuItem
-			  #label: 'Examples'
-			  #translateLabel: true
-			  #value: #openHTMLDocument:
-			  #activeHelpKey: #helpExamples
-			  #argument: 'tools/uipainter/Examples.html'
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Help Tool'
-			  #translateLabel: true
-			  #value: #openHTMLDocument:
-			  #activeHelpKey: #helpHelpTool
-			  #argument: 'tools/uipainter/HelpTool.html'
-		      )
-		       #(#MenuItem
-			  #label: 'Layout Tool'
-			  #translateLabel: true
-			  #value: #openHTMLDocument:
-			  #activeHelpKey: #helpLayoutTool
-			  #argument: 'tools/uipainter/LayoutTool.html'
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Selected Widget'
-			  #translateLabel: true
-			  #value: #doOpenWidgetDocumentation
-			  #activeHelpKey: #helpSelectedWidget
-		      )
-		       #(#MenuItem
-			  #label: '-'
-		      )
-		       #(#MenuItem
-			  #label: 'Show Help Texts'
-			  #translateLabel: true
-			  #activeHelpKey: #helpShowHelp
-			  #indication: #showingHelp:
-		      )
-		    ) nil
-		    nil
-		)
-	    )
-	  ) nil
-	  nil
+                     #(
+                       #(#MenuItem
+                          #label: 'Tutorial'
+                          #translateLabel: true
+                          #value: #openHTMLDocument:
+                          #activeHelpKey: #helpTutorial
+                          #argument: 'tools/uipainter/TOP.html'
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Functions'
+                          #translateLabel: true
+                          #value: #openHTMLDocument:
+                          #activeHelpKey: #helpFunctions
+                          #argument: 'tools/uipainter/Functions.html'
+                      )
+                       #(#MenuItem
+                          #label: 'Examples'
+                          #translateLabel: true
+                          #value: #openHTMLDocument:
+                          #activeHelpKey: #helpExamples
+                          #argument: 'tools/uipainter/Examples.html'
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Help Tool'
+                          #translateLabel: true
+                          #value: #openHTMLDocument:
+                          #activeHelpKey: #helpHelpTool
+                          #argument: 'tools/uipainter/HelpTool.html'
+                      )
+                       #(#MenuItem
+                          #label: 'Layout Tool'
+                          #translateLabel: true
+                          #value: #openHTMLDocument:
+                          #activeHelpKey: #helpLayoutTool
+                          #argument: 'tools/uipainter/LayoutTool.html'
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Selected Widget'
+                          #translateLabel: true
+                          #value: #doOpenWidgetDocumentation
+                          #activeHelpKey: #helpSelectedWidget
+                      )
+                       #(#MenuItem
+                          #label: '-'
+                      )
+                       #(#MenuItem
+                          #label: 'Show Help Texts'
+                          #translateLabel: true
+                          #activeHelpKey: #helpShowHelp
+                          #indication: #showingHelp:
+                      )
+                    ) nil
+                    nil
+                )
+            )
+          ) nil
+          nil
       )
 
     "Modified: / 23.8.1998 / 16:09:22 / cg"