diff -r 7e97352b1f95 -r 011f40f4ece3 TextView.st
--- a/TextView.st	Sat Sep 14 12:20:51 2013 +0200
+++ b/TextView.st	Sat Sep 14 12:21:13 2013 +0200
@@ -368,192 +368,192 @@
     <resource: #canvas>
 
     ^ 
-     #(FullSpec
-        name: searchDialogSpec
-        window: 
-       (WindowSpec
-          label: 'String search'
-          name: 'String search'
-          min: (Point 10 10)
-          max: (Point 1280 1024)
-          bounds: (Rectangle 0 0 302 242)
-        )
-        component: 
-       (SpecCollection
-          collection: (
-           (LabelSpec
-              label: 'SearchPattern:'
-              name: 'label'
-              layout: (LayoutFrame 1 0.0 3 0 -1 1.0 20 0)
-              level: 0
-              translateLabel: true
-              adjust: left
-            )
-           (ComboBoxSpec
-              name: 'patternComboBox'
-              layout: (LayoutFrame 2 0.0 26 0 -2 1.0 48 0)
-              activeHelpKey: searchPattern
-              tabable: true
-              model: searchPattern
-              immediateAccept: false
-              acceptOnLeave: true
-              acceptOnReturn: true
-              acceptOnTab: true
-              acceptOnLostFocus: true
-              acceptOnPointerLeave: false
-              autoSelectInitialText: true
-              comboList: patternList
-            )
-           (VerticalPanelViewSpec
-              name: 'VerticalPanel1'
-              layout: (LayoutFrame 0 0.0 52 0 0 1.0 -30 1)
-              horizontalLayout: fit
-              verticalLayout: top
-              component: 
-             (SpecCollection
-                collection: (
-                 (CheckBoxSpec
-                    label: 'Case Sensitive'
-                    name: 'ignoreCaseCheckBox'
-                    activeHelpKey: searchCaseSensitive
-                    level: 0
-                    tabable: true
-                    model: caseSensitive
-                    translateLabel: true
-                    extent: (Point 302 24)
-                  )
-                 (CheckBoxSpec
-                    label: 'Match (forward only)'
-                    name: 'matchCheckBox'
-                    activeHelpKey: matchSearch
-                    level: 0
-                    tabable: true
-                    model: match
-                    translateLabel: true
-                    extent: (Point 302 24)
-                  )
-                 (CheckBoxSpec
-                    label: 'Search Full Words'
-                    name: 'CheckBox2'
-                    activeHelpKey: searchFullWord
-                    level: 0
-                    enableChannel: searchFullWordEnabled
-                    tabable: true
-                    model: searchFullWord
-                    translateLabel: true
-                    extent: (Point 302 24)
-                  )
-                 (CheckBoxSpec
-                    label: 'Variable Only'
-                    name: 'CheckBox1'
-                    activeHelpKey: searchVariable
-                    level: 0
-                    visibilityChannel: searchVariableVisible
-                    enableChannel: searchVariableEnabled
-                    tabable: true
-                    model: searchVariable
-                    translateLabel: true
-                    labelChannel: stringWithVariableUnderCursorHolder
-                    extent: (Point 302 24)
-                  )
-                 (CheckBoxSpec
-                    label: 'Select Lines'
-                    name: 'CheckBox3'
-                    activeHelpKey: selectLines
-                    level: 0
-                    initiallyInvisible: true
-                    tabable: true
-                    model: selectLines
-                    translateLabel: true
-                    extent: (Point 302 24)
-                  )
-                 (ViewSpec
-                    name: 'Box1'
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (CheckBoxSpec
-                          label: 'Global Replace With:'
-                          name: 'CheckBox4'
-                          layout: (LayoutFrame 0 0 0 0 149 0 23 0)
-                          activeHelpKey: replaceText
-                          level: 0
-                          enableChannel: replaceEnabled
-                          tabable: true
-                          model: replaceBoolean
-                          translateLabel: true
-                        )
-                       (InputFieldSpec
-                          name: 'EntryField1'
-                          layout: (LayoutFrame 150 0 0 0 -2 1 22 0)
-                          activeHelpKey: replaceText
-                          visibilityChannel: replaceBoolean
-                          enableChannel: replaceBoolean
-                          model: replaceTextHolder
-                          acceptOnReturn: true
-                          acceptOnTab: true
-                          acceptOnPointerLeave: true
-                        )
+    #(FullSpec
+       name: searchDialogSpec
+       window: 
+      (WindowSpec
+         label: 'String search'
+         name: 'String search'
+         min: (Point 10 10)
+         max: (Point 1280 1024)
+         bounds: (Rectangle 0 0 302 242)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (LabelSpec
+             label: 'SearchPattern:'
+             name: 'label'
+             layout: (LayoutFrame 1 0.0 3 0 -1 1.0 20 0)
+             level: 0
+             translateLabel: true
+             adjust: left
+           )
+          (ComboBoxSpec
+             name: 'patternComboBox'
+             layout: (LayoutFrame 2 0.0 26 0 -2 1.0 48 0)
+             activeHelpKey: searchPattern
+             tabable: true
+             model: searchPattern
+             immediateAccept: false
+             acceptOnLeave: true
+             acceptOnReturn: true
+             acceptOnTab: true
+             acceptOnLostFocus: true
+             acceptOnPointerLeave: false
+             autoSelectInitialText: true
+             comboList: patternList
+           )
+          (VerticalPanelViewSpec
+             name: 'VerticalPanel1'
+             layout: (LayoutFrame 0 0.0 52 0 0 1.0 -30 1)
+             horizontalLayout: fit
+             verticalLayout: top
+             component: 
+            (SpecCollection
+               collection: (
+                (CheckBoxSpec
+                   label: 'Case Sensitive'
+                   name: 'ignoreCaseCheckBox'
+                   activeHelpKey: searchCaseSensitive
+                   level: 0
+                   tabable: true
+                   model: caseSensitive
+                   translateLabel: true
+                   extent: (Point 302 24)
+                 )
+                (CheckBoxSpec
+                   label: 'Match (forward only)'
+                   name: 'matchCheckBox'
+                   activeHelpKey: matchSearch
+                   level: 0
+                   tabable: true
+                   model: match
+                   translateLabel: true
+                   extent: (Point 302 24)
+                 )
+                (CheckBoxSpec
+                   label: 'Search Full Words'
+                   name: 'CheckBox2'
+                   activeHelpKey: searchFullWord
+                   level: 0
+                   enableChannel: searchFullWordEnabled
+                   tabable: true
+                   model: searchFullWord
+                   translateLabel: true
+                   extent: (Point 302 24)
+                 )
+                (CheckBoxSpec
+                   label: 'Variable Only'
+                   name: 'CheckBox1'
+                   activeHelpKey: searchVariable
+                   level: 0
+                   visibilityChannel: searchVariableVisible
+                   enableChannel: searchVariableEnabled
+                   tabable: true
+                   model: searchVariable
+                   translateLabel: true
+                   labelChannel: stringWithVariableUnderCursorHolder
+                   extent: (Point 302 24)
+                 )
+                (CheckBoxSpec
+                   label: 'Select Lines'
+                   name: 'CheckBox3'
+                   activeHelpKey: selectLines
+                   level: 0
+                   initiallyInvisible: true
+                   tabable: true
+                   model: selectLines
+                   translateLabel: true
+                   extent: (Point 302 24)
+                 )
+                (ViewSpec
+                   name: 'Box1'
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (CheckBoxSpec
+                         label: 'Global Replace With:'
+                         name: 'CheckBox4'
+                         layout: (LayoutFrame 0 0 0 0 162 0 23 0)
+                         activeHelpKey: replaceText
+                         level: 0
+                         enableChannel: replaceEnabled
+                         tabable: true
+                         model: replaceBoolean
+                         translateLabel: true
                        )
-                     
-                    )
-                    extent: (Point 302 24)
-                  )
+                      (InputFieldSpec
+                         name: 'EntryField1'
+                         layout: (LayoutFrame 164 0 0 0 -2 1 22 0)
+                         activeHelpKey: replaceText
+                         visibilityChannel: replaceBoolean
+                         enableChannel: replaceBoolean
+                         model: replaceTextHolder
+                         acceptOnReturn: true
+                         acceptOnTab: true
+                         acceptOnPointerLeave: true
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 302 24)
                  )
-               
-              )
-            )
-           (HorizontalPanelViewSpec
-              name: 'horizontalPanelView'
-              layout: (LayoutFrame 0 0.0 -30 1.0 -16 1.0 0 1.0)
-              level: 0
-              horizontalLayout: fitSpace
-              verticalLayout: center
-              horizontalSpace: 3
-              verticalSpace: 3
-              ignoreInvisibleComponents: true
-              reverseOrderIfOKAtLeft: true
-              component: 
-             (SpecCollection
-                collection: (
-                 (ActionButtonSpec
-                    label: 'Cancel'
-                    name: 'cancelButton'
-                    level: 2
-                    translateLabel: true
-                    tabable: true
-                    model: cancel
-                    extent: (Point 91 21)
-                  )
-                 (ActionButtonSpec
-                    label: 'Prev'
-                    name: 'prevButton'
-                    level: 2
-                    translateLabel: true
-                    tabable: true
-                    model: prevAction
-                    extent: (Point 91 21)
-                  )
-                 (ActionButtonSpec
-                    label: 'Next'
-                    name: 'nextButton'
-                    level: 2
-                    borderWidth: 1
-                    translateLabel: true
-                    tabable: true
-                    model: nextAction
-                    isDefault: true
-                    extent: (Point 90 21)
-                  )
+                )
+              
+             )
+           )
+          (HorizontalPanelViewSpec
+             name: 'horizontalPanelView'
+             layout: (LayoutFrame 0 0.0 -30 1.0 -16 1.0 0 1.0)
+             level: 0
+             horizontalLayout: fitSpace
+             verticalLayout: center
+             horizontalSpace: 3
+             verticalSpace: 3
+             ignoreInvisibleComponents: true
+             reverseOrderIfOKAtLeft: true
+             component: 
+            (SpecCollection
+               collection: (
+                (ActionButtonSpec
+                   label: 'Cancel'
+                   name: 'cancelButton'
+                   level: 2
+                   translateLabel: true
+                   tabable: true
+                   model: cancel
+                   extent: (Point 91 21)
                  )
-               
-              )
-              keepSpaceForOSXResizeHandleH: true
-            )
+                (ActionButtonSpec
+                   label: 'Prev'
+                   name: 'prevButton'
+                   level: 2
+                   translateLabel: true
+                   tabable: true
+                   model: prevAction
+                   extent: (Point 91 21)
+                 )
+                (ActionButtonSpec
+                   label: 'Next'
+                   name: 'nextButton'
+                   level: 2
+                   borderWidth: 1
+                   translateLabel: true
+                   tabable: true
+                   model: nextAction
+                   isDefault: true
+                   extent: (Point 90 21)
+                 )
+                )
+              
+             )
+             keepSpaceForOSXResizeHandleH: true
            )
-         
-        )
-      )
+          )
+        
+       )
+     )
 ! !
 
 !TextView class methodsFor:'startup'!
@@ -4843,11 +4843,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.362 2013-09-08 12:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.363 2013-09-14 10:21:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.362 2013-09-08 12:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.363 2013-09-14 10:21:13 cg Exp $'
 ! !