--- a/UIPainter.st	Sat Jun 28 15:13:13 1997 +0200
+++ b/UIPainter.st	Sat Jun 28 15:13:50 1997 +0200
@@ -87,6 +87,56 @@
 
 ! !
 
+!UIPainter class methodsFor:'help specs'!
+
+helpSpec
+    "return a dictionary filled with helpKey -> helptext associations.
+     These are used by the activeHelp tool.
+    "
+  ^ super helpSpec addPairsFrom:#(
+
+#alignSelectionCenterVer
+'align selection vertical'
+
+#alignSelectionLeft
+'align selected components to the left edge of the
+dominant component ( underlined )'
+
+#alignSelectionRight
+'align selected components to the right edge of the
+dominant component ( underlined )'
+
+#alignSelectionLeftAndRight
+'align selected components to the right and left edge
+of the dominant component ( underlined )'
+
+#alignSelectionTop
+'align selected components to the top edge of the
+dominant component ( underlined )'
+
+#alignSelectionBottom
+'align selected components to the bottom edge of the
+dominant component ( underlined )'
+
+#alignSelectionTopAndBottom
+'align selected components to the top and bottom edge
+of the dominant component ( underlined )'
+
+#alignSelectionCenterVer
+'align selected components horizontal to the center of
+the dominant component ( underlined )'
+
+#alignSelectionCenterHor
+'align selected components vertical to the center of
+the dominant component ( underlined )'
+
+)
+
+
+
+
+! !
+
 !UIPainter class methodsFor:'icons'!
 
 iconAlignB
@@ -136,41 +186,49 @@
                         #'label:' 'align left'
                         #'value:' #alignSelectionLeft
                         #'labelImage:' #( ResourceRetriever nil iconAlignL )
+                        #'activeHelpKey:' #alignSelectionLeft
                  )
                 #(#MenuItem
                         #'label:' 'align right'
                         #'value:' #alignSelectionRight
                         #'labelImage:' #( ResourceRetriever nil iconAlignR )
+                        #'activeHelpKey:' #alignSelectionRight
                  )
                 #(#MenuItem
                         #'label:' 'align left & right'
                         #'value:' #alignSelectionLeftAndRight
                         #'labelImage:' #( ResourceRetriever nil iconAlignLR )
+                        #'activeHelpKey:' #alignSelectionLeftAndRight
                  )
                 #(#MenuItem
                         #'label:' 'align top'
                         #'value:' #alignSelectionTop
                         #'labelImage:' #( ResourceRetriever nil iconAlignT )
+                        #'activeHelpKey:' #alignSelectionTop
                  )
                 #(#MenuItem
                         #'label:' 'align bottom'
                         #'value:' #alignSelectionBottom
                         #'labelImage:' #( ResourceRetriever nil iconAlignB )
+                        #'activeHelpKey:' #alignSelectionBottom
                  )
                 #(#MenuItem
                         #'label:' 'align top & bottom'
                         #'value:' #alignSelectionTopAndBottom
                         #'labelImage:' #( ResourceRetriever nil iconAlignTB )
+                        #'activeHelpKey:' #alignSelectionTopAndBottom
                  )
                 #(#MenuItem
                         #'label:' 'align centered horizontal'
                         #'value:' #alignSelectionCenterHor
                         #'labelImage:' #( ResourceRetriever nil iconAlignCenterH )
+                        #'activeHelpKey:' #alignSelectionCenterHor
                  )
                 #(#MenuItem
                         #'label:' 'align centered vertical'
                         #'value:' #alignSelectionCenterVer
                         #'labelImage:' #( ResourceRetriever nil iconAlignCenterV )
+                        #'activeHelpKey:' #alignSelectionCenterVer
                  )
                 )
                #( 3 3 )