--- a/Tools__HierarchicalLintRuleList.st	Sat May 14 16:48:09 2016 +0200
+++ b/Tools__HierarchicalLintRuleList.st	Sat May 14 16:48:12 2016 +0200
@@ -82,45 +82,69 @@
     <resource: #canvas>
 
     ^ 
-     #(FullSpec
-        name: windowSpec
-        window: 
-       (WindowSpec
-          label: 'SmallLintRuleList'
-          name: 'SmallLintRuleList'
-          min: (Point 10 10)
-          bounds: (Rectangle 0 0 300 300)
-        )
-        component: 
-       (SpecCollection
-          collection: (
-           (HierarchicalListViewSpec
-              name: 'RuleList'
-              layout: (LayoutFrame 0 0 23 0 0 1 0 1)
-              model: listSelection
-              hasHorizontalScrollBar: true
-              hasVerticalScrollBar: true
-              listModel: listHolder
-              useIndex: false
-              highlightMode: line
-              showLines: false
-              useDefaultIcons: false
-              postBuildCallback: postBuildList:
-            )
-           (InputFieldSpec
-              name: 'RuleFilter'
-              layout: (LayoutFrame 0 0 0 0 0 1 22 0)
-              model: filterHolder
-              immediateAccept: true
-              acceptOnReturn: true
-              acceptOnTab: true
-              acceptOnPointerLeave: true
-              emptyFieldReplacementText: 'Rule Search'
-            )
+    #(FullSpec
+       name: windowSpec
+       window: 
+      (WindowSpec
+         label: 'SmallLintRuleList'
+         name: 'SmallLintRuleList'
+         min: (Point 10 10)
+         bounds: (Rectangle 0 0 300 300)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (InputFieldSpec
+             name: 'RuleFilter'
+             layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+             model: filterHolder
+             immediateAccept: true
+             acceptOnReturn: true
+             acceptOnTab: true
+             acceptOnPointerLeave: true
+             emptyFieldReplacementText: 'Rule Search'
            )
-         
-        )
-      )
+          (HierarchicalListViewSpec
+             name: 'RuleList'
+             layout: (LayoutFrame 0 0 30 0 0 1 0 1)
+             model: listSelection
+             hasHorizontalScrollBar: true
+             hasVerticalScrollBar: true
+             listModel: listHolder
+             useIndex: false
+             highlightMode: line
+             showLines: false
+             useDefaultIcons: false
+             postBuildCallback: postBuildList:
+           )
+          )
+        
+       )
+     )
+! !
+
+!HierarchicalLintRuleList class methodsFor:'plugIn spec'!
+
+aspectSelectors
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this. If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "Return a description of exported aspects;
+     these can be connected to aspects of an embedding application
+     (if this app is embedded in a subCanvas)."
+
+    ^ #(
+        #environmentHolder
+        #inGeneratorHolder
+        #listSelection
+        #modeHolder
+        #outGeneratorHolder
+        #selectionHolder
+      ).
+
 ! !
 
 !HierarchicalLintRuleList methodsFor:'aspects'!
@@ -180,10 +204,10 @@
 !HierarchicalLintRuleList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.8 2014-11-19 21:40:20 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: Tools__HierarchicalLintRuleList.st,v 1.8 2014-11-19 21:40:20 cg Exp $'
+    ^ '$Id$'
 ! !