diff -r 503bb9f8634a -r de6abd3c55d2 UIHelpTool.st
--- a/UIHelpTool.st	Fri Aug 29 20:31:23 2003 +0200
+++ b/UIHelpTool.st	Thu Sep 04 20:59:42 2003 +0200
@@ -174,102 +174,101 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-	#name: #windowSpec
-	#window: 
-       #(#WindowSpec
-	  #label: 'UIHelpTool'
-	  #name: 'UIHelpTool'
-	  #min: #(#Point 10 10)
-	  #max: #(#Point 1024 768)
-	  #bounds: #(#Rectangle 30 292 491 585)
-	)
-	#component: 
-       #(#SpecCollection
-	  #collection: #(
-	   #(#VariableVerticalPanelSpec
-	      #name: 'PanelVrt'
-	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-	      #component: 
-	     #(#SpecCollection
-		#collection: #(
-		 #(#VariableHorizontalPanelSpec
-		    #name: 'PanelHrz'
-		    #component: 
-		   #(#SpecCollection
-		      #collection: #(
-		       #(#HierarchicalListViewSpec
-			  #name: 'keyItemModel'
-			  #model: #keyItemModel
-			  #menu: #keyItemMenu
-			  #hasHorizontalScrollBar: true
-			  #hasVerticalScrollBar: true
-			  #miniScrollerHorizontal: true
-			  #miniScrollerVertical: false
-			  #listModel: #keyItemListHolder
-			  #useIndex: false
-			  #highlightMode: #label
-			  #showLines: false
-			  #showIndicators: false
-			  #showLeftIndicators: false
-			  #useDefaultIcons: false
-			  #autoScrollHorizontal: false
-			)
-		       #(#ViewSpec
-			  #name: 'classItemList'
-			  #component: 
-			 #(#SpecCollection
-			    #collection: #(
-			     #(#InputFieldSpec
-				#name: 'editModel'
-				#layout: #(#LayoutFrame 0 0.0 2 0 -1 1.0 25 0)
-				#activeHelpKey: #currentHelpTexts
-				#model: #editModel
-				#immediateAccept: true
-				#acceptOnReturn: false
-				#acceptOnTab: false
-				#acceptOnLostFocus: false
-				#acceptOnPointerLeave: false
-			      )
-			     #(#SelectionInListModelViewSpec
-				#name: 'classItemModel'
-				#layout: #(#LayoutFrame 0 0.0 27 0.0 0 1.0 0 1.0)
-				#model: #classItemModel
-				#hasHorizontalScrollBar: true
-				#hasVerticalScrollBar: true
-				#miniScrollerHorizontal: true
-				#miniScrollerVertical: true
-				#autoHideScrollBars: false
-				#listModel: #classItemListHolder
-				#useIndex: false
-				#highlightMode: #label
-			      )
-			     )
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UIHelpTool'
+          name: 'UIHelpTool'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 475 339)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (VariableVerticalPanelSpec
+              name: 'PanelVrt'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              component: 
+             (SpecCollection
+                collection: (
+                 (VariableHorizontalPanelSpec
+                    name: 'PanelHrz'
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (HierarchicalListViewSpec
+                          name: 'keyItemModel'
+                          model: keyItemModel
+                          menu: keyItemMenu
+                          hasHorizontalScrollBar: true
+                          hasVerticalScrollBar: true
+                          miniScrollerHorizontal: true
+                          miniScrollerVertical: false
+                          listModel: keyItemListHolder
+                          useIndex: false
+                          highlightMode: label
+                          showLines: false
+                          showIndicators: false
+                          showLeftIndicators: false
+                          useDefaultIcons: false
+                          autoScrollHorizontal: false
+                        )
+                       (ViewSpec
+                          name: 'classItemList'
+                          component: 
+                         (SpecCollection
+                            collection: (
+                             (InputFieldSpec
+                                name: 'editModel'
+                                layout: (LayoutFrame 0 0.0 2 0 -1 1.0 25 0)
+                                activeHelpKey: currentHelpTexts
+                                model: editModel
+                                immediateAccept: true
+                                acceptOnReturn: false
+                                acceptOnTab: false
+                                acceptOnLostFocus: false
+                                acceptOnPointerLeave: false
+                              )
+                             (SelectionInListModelViewSpec
+                                name: 'classItemModel'
+                                layout: (LayoutFrame 0 0.0 27 0.0 0 1.0 0 1.0)
+                                model: classItemModel
+                                hasHorizontalScrollBar: true
+                                hasVerticalScrollBar: true
+                                miniScrollerHorizontal: true
+                                miniScrollerVertical: true
+                                autoHideScrollBars: false
+                                listModel: classItemListHolder
+                                useIndex: false
+                                highlightMode: label
+                              )
+                             )
                            
-			  )
-			)
-		       )
+                          )
+                        )
+                       )
                      
-		    )
-		    #handles: #(#Any 0.607375 1.0)
-		  )
-		 #(#ArbitraryComponentSpec
-		    #name: 'helpTextView'
-		    #hasHorizontalScrollBar: true
-		    #hasVerticalScrollBar: true
-		    #miniScrollerHorizontal: true
-		    #miniScrollerVertical: true
-		    #hasBorder: false
-		    #component: #helpTextView
-		  )
-		 )
+                    )
+                    handles: (Any 0.607375 1.0)
+                  )
+                 (ArbitraryComponentSpec
+                    name: 'helpTextView'
+                    hasHorizontalScrollBar: true
+                    hasVerticalScrollBar: true
+                    miniScrollerHorizontal: true
+                    miniScrollerVertical: true
+                    hasBorder: false
+                    component: helpTextView
+                  )
+                 )
                
-	      )
-	      #handles: #(#Any 0.679181 1.0)
-	    )
-	   )
+              )
+              handles: (Any 0.679181 1.0)
+            )
+           )
          
-	)
+        )
       )
 !
 
@@ -288,40 +287,39 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-	#name: #windowSpecForStandAlone
-	#window: 
-       #(#WindowSpec
-	  #label: 'Help Tool'
-	  #name: 'Help Tool'
-	  #min: #(#Point 300 300)
-	  #max: #(#Point 1152 900)
-	  #bounds: #(#Rectangle 11 332 509 761)
-	  #menu: #menu
-	)
-	#component: 
-       #(#SpecCollection
-	  #collection: #(
-	   #(#UISubSpecification
-	      #name: 'windowSpec'
-	      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
-	      #minorKey: #windowSpec
-	    )
-	   #(#UISubSpecification
-	      #name: 'windowSpecForCommit'
-	      #layout: #(#LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0)
-	      #majorKey: #ToolApplicationModel
-	      #minorKey: #windowSpecForCommit
-	    )
-	   #(#UISubSpecification
-	      #name: 'windowSpecForInfoBar'
-	      #layout: #(#LayoutFrame 0 0 -24 1 0 1 0 1)
-	      #majorKey: #ToolApplicationModel
-	      #minorKey: #windowSpecForInfoBar
-	    )
-	   )
+     #(FullSpec
+        name: windowSpecForStandAlone
+        window: 
+       (WindowSpec
+          label: 'Help Tool'
+          name: 'Help Tool'
+          min: (Point 300 300)
+          bounds: (Rectangle 14 46 512 475)
+          menu: menu
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (UISubSpecification
+              name: 'windowSpec'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
+              minorKey: windowSpec
+            )
+           (UISubSpecification
+              name: 'windowSpecForCommit'
+              layout: (LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0)
+              majorKey: ToolApplicationModel
+              minorKey: windowSpecForCommit
+            )
+           (UISubSpecification
+              name: 'windowSpecForInfoBar'
+              layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
+              majorKey: ToolApplicationModel
+              minorKey: windowSpecForInfoBar
+            )
+           )
          
-	)
+        )
       )
 ! !