diff -r 32fafd49c100 -r 0416d7cbae92 UIPainter.st
--- a/UIPainter.st	Wed Jul 29 13:20:41 1998 +0200
+++ b/UIPainter.st	Wed Jul 29 13:23:19 1998 +0200
@@ -113,34 +113,34 @@
     ^super helpSpec addPairsFrom:#(
 
 #alignSelectionBottom
-'Aligns the selected widgets to the bottom edge of the dominant widget.'
+'Aligns the selected widgets bottom edges with the bottom of the dominant widget.'
 
 #alignSelectionCenterHor
-'Aligns the selected widgets vertically to the center of the dominant widget.'
+'Aligns the selected widgets centers vertically with the center of the dominant widget.'
 
 #alignSelectionCenterVer
-'Aligns the selected widgets horizontally to the center of the dominant widget.'
+'Aligns the selected widgets centers horizontally with the center of the dominant widget.'
 
 #alignSelectionLeft
-'Aligns the selected widgets to the left edge of the dominant widget.'
+'Aligns the selected widgets left edges with the left edge of the dominant widget.'
 
 #alignSelectionLeftAndRight
-'Aligns the selected widgets to the right and left edge of the dominant widget.'
+'Aligns the selected widgets left & right edges with the dominant widget.'
 
 #alignSelectionRight
-'Aligns the selected widgets to the right edge of the dominant widget.'
+'Aligns the selected widgets right edges with the right edge of the dominant widget.'
 
 #alignSelectionTop
-'Aligns the selected widgets to the top edge of the dominant widget.'
+'Aligns the selected widgets top edgegs withh the top edge of the dominant widget.'
 
 #alignSelectionTopAndBottom
-'Aligns the selected widgets to the top and bottom edge of the dominant widget.'
+'Aligns the selected widgets top and bottom edges with the dominant widget.'
 
 #centerSelectionHor
-'Centers the selected widgets horizontally to their contained widget.'
+'Centers the selected widgets horizontally within their containing widget.'
 
 #centerSelectionVer
-'Centers the selected widgets vertically in their contained widget.'
+'Centers the selected widgets vertically within their containing widget.'
 
 #changePositionDown
 'Moves the selected widget(s) towards the bottom.'
@@ -155,31 +155,31 @@
 'Moves the selected widget(s) towards the top.'
 
 #editDimensionCopyExtent
-'Copies the extent of the selected widgets.'
+'Copies the extent of the selected widget.'
 
 #editDimensionCopyLayout
-'Copies the layout of the selected widgets.'
+'Copies the layout of the selected widget.'
 
 #editDimensionDefaultExtent
-'Sets the selected widgets to their default extent.'
+'Sets the selected widget(s) extent to their default.'
 
 #editDimensionDefaultHeight
-'Sets the selected widgets to their default height.'
+'Sets the selected widget(s) height to their default.'
 
 #editDimensionDefaultWidth
-'Sets the selected widgets to their default width.'
+'Sets the selected widget(s) width to their default.'
 
 #editDimensionPasteExtent
-'Sets the extent of the selected widgets to the last copied extent.'
+'Sets the extent of the selected widget(s) to the last copied extent.'
 
 #editDimensionPasteHeight
-'Sets the height of the selected widgets to the height of the last copied layout/extent.'
+'Sets the height of the selected widget(s) to the height of the last copied layout/extent.'
 
 #editDimensionPasteLayout
-'Sets the layout of the selected widgets to the last copied layout.'
+'Sets the layout of the selected widget(s) to the last copied layout.'
 
 #editDimensionPasteWidth
-'Sets the width of the selected widgets to the width of the last copied layout/extent.'
+'Sets the width of the selected widget(s) to the width of the last copied layout/extent.'
 
 #editInspectSpec
 'Opens an inspector on the spec of the selected widget.'
@@ -194,19 +194,19 @@
 'Opens a System Browser to browse the aspect methods.'
 
 #fileLoad
-'Opens a dialog to load a window spec from a class.'
+'Opens a dialog to load a window specification from a classes windowSpec method.'
 
 #fileLoadSubspec
-'Opens a dialog to load an sub spec from a class.'
+'Opens a dialog to load a sub specification from a classes windowSpec method.'
 
 #fileNew
 'Creates a new window spec.'
 
 #filePickAnInterface
-'Changes the cursor for moving it over another interface application to load its window spec.'
+'Select a view on the screen, generate a window spec for it and edit this spec.'
 
 #fileSave
-'Saves the window spec in the current class.'
+'Saves the window spec in the current class (as spec method).'
 
 #fileSaveAs
 'Opens a dialog to select class and selector for saving the window spec.'
@@ -232,6 +232,9 @@
 #helpSelectedWidget
 'Opens a HTML-Browser on the documentation file of the selected widget.'
 
+#historyMenuItem
+'Edit this windowSpec.'
+
 #moveWidgetDown
 'Moves the selected widget one step down.'
 
@@ -260,10 +263,13 @@
 'Opens a dialog to show/hide the grid points or to change the distances between them.'
 
 #settingsRedefineAspectMethods
-'Turns on/off the permission of redefinition of the aspect methods.'
+'Toggles the permission to overwrite existing aspect methods.'
+
+#settingsAspectsAsInstances
+'Genrate aspects as instance variables (or bindings, if off).'
 
 #settingsTranscriptHelp
-'Turns on/off showing help texts in a transcript (after opening of a new GUI Painter).'
+'Toggles display of help texts (after opening a new GUI Painter).'
 
 #settingsUndoManager
 'Opens a dialog to undo modifications.'
@@ -275,14 +281,14 @@
 'Sets the vertical spaces between the selected widgets as the same.'
 
 #testGeometryTestMode
-'Toggles geometry test mode in order to define ratios of variable panels.'
+'Toggles geometry test mode (to define ratios of variable panels and top-window dimension).'
 
 #testStartApplication
 'Starts the application with the current window spec.'
 
 )
 
-    "Modified: / 20.5.1998 / 02:09:00 / cg"
+    "Modified: / 29.7.1998 / 11:54:16 / cg"
 ! !
 
 !UIPainter class methodsFor:'helpers'!
@@ -1049,6 +1055,13 @@
                           #indication: #redefineAspectMethods:
                       )
                        #(#MenuItem
+                          #label: 'Aspects As Instances'
+                          #translateLabel: true
+                          #activeHelpKey: #settingsAspectsAsInstances
+                          #enabled: #hasSpecClass
+                          #indication: #generateAspectsAsInstanceVariables:
+                      )
+                       #(#MenuItem
                           #label: '-'
                       )
                        #(#MenuItem
@@ -1155,7 +1168,7 @@
           nil
       )
 
-    "Modified: / 20.5.1998 / 01:44:19 / cg"
+    "Modified: / 29.7.1998 / 12:03:44 / cg"
 !
 
 menuAlign
@@ -2633,6 +2646,24 @@
 
 !UIPainter methodsFor:'settings'!
 
+generateAspectsAsInstanceVariables
+    "if on, aspects are held as instance variables;
+     if off (the default), they are kept in the bindings dictionary.
+    "
+    ^ UIPainterView generateAspectsAsInstanceVariables
+
+    "Created: / 29.7.1998 / 11:17:59 / cg"
+!
+
+generateAspectsAsInstanceVariables:aBoolean
+    "if on, aspects are held as instance variables;
+     if off (the default), they are kept in the bindings dictionary.
+    "
+    ^ UIPainterView generateAspectsAsInstanceVariables:aBoolean
+
+    "Created: / 29.7.1998 / 11:18:20 / cg"
+!
+
 redefineAspectMethods
     "redefine methods yes or no. If a method is defined in super class
      should the message be reinstalled ?