Ticket #165: libtool_fix_1_of_1_rev_b5bcb51d114a_Issue__165__Not_all_spaces_are_created_equal.patch

AbstractSettingsApplication.st

@@ -122 +122 @@
                 showAcceptCancelBarInBrowser useCodeView2InTools
                 autoIndentInCodeView immediateCodeCompletion
                 codeCompletionOnControlKey codeCompletionOnTabKey
-                selectionExtensionMode'
+                selectionExtensionMode trimBlankLines'
         classVariableNames:''
         poolDictionaries:''
         privateIn:AbstractSettingsApplication
@@ -4824 +4824 @@
 
     ^ super flyByHelpSpec addPairsFrom:#(
 
-"/#resetToDefault
-"/'Reset fonts back to original default values (as specified in the window style-file and OS settings)'
-"/
-"/#changeToHighContrast
-"/'Change settings for higher contrast. Useful for presentations and outdor operation'
-"/
-"/#changeToBigFonts
-"/'Change settings for bigger fonts. Useful for presentations'
-"/
-"/#changeToHugeFonts
-"/'Change settings for huge fonts. Useful for presentations'
-"/
-"/#changeToSTXLook
-"/'Change settings for an ST/X-like look (fixed-width code fonts)'
-"/
-"/#changeToSqueakLook
-"/'Change settings for a Squeak-like look (variable fonts)'
-"/
-"/#changeToVisualAgeLook
-"/'Change settings for a VisualAge-like look (bold variable fonts)'
-
-#immediateCodeCompletion
-'Show code completion suggestions as you type.\This is an experimental feature, please disable it if you encounter problems.'
+#alwaysPasteFileContents
+'When pasting a file (from the Filebrowser or Explorer), always paste the file''s contents\without asking. If off, a dialog appears to ask the name or the contents of the file should be pasted'
+
+#autoIndentInCodeView
+'Automatically position the cursor to a reasonably indented position when pressing the return key.\This affects editors which show code'
 
 #codeCompletionOnControlKey
 'Show code completion suggestions when you hit the CTRL key, and the character before the cursor is non-blank.\This is an experimental feature, please disable it if you encounter problems.\(CTRL-Space still works as usual, even if this is disabled)'
@@ -4857 +4839 @@
 #codeCompletionViewKeyboardNavigationNeedsModifier
 'If on, cursor up/down are only passed to the floating completion view,\if a shift- or control modifier is pressed.\Check this, if you find it annoying, that cursor up/down is intercepted by a floating completion view.'
 
-#alwaysPasteFileContents
-'When pasting a file (from the Filebrowser or Explorer), always paste the file''s contents\without asking. If off, a dialog appears to ask the name or the contents of the file should be pasted'
-
-#autoIndentInCodeView
-'Automatically position the cursor to a reasonably indented position when pressing the return key.\This affects editors which show code'
-
 #extendedWordSelectMode
 'Controls if underlines will be treated as part of the word or not when selecting a word.\Many programming languages (including ST/X, but excluding Squeak and old ST80)\treat underline like a letter in identifiers'
 
+#immediateCodeCompletion
+'Show code completion suggestions as you type.\This is an experimental feature, please disable it if you encounter problems.'
+
 #searchBoxIsModal
 'If off, a text search box is non-modal, and can be left floating beside an editor to mix search and edit operations.\If modal, it behaves as usual, blocking interaction with the editor while open'
 
 #selectAllWhenClickingBeyondEnd
 'If on, a click beyond (i.e. below) the end of the text selects the whole text.\If off, use quadruple-click to select all (triple-click to select a full line)'
 
+#selectionExtensionModelStandard
+'Standard behavior - most text editors and text widgets behave like this.'
+
+#selectionExtensionModelTraditional
+'Traditional ST/X behavior (better but not standard).\Shift-End moves end of selection (if it is on the same line).\Shift-Home moves start of selection (if it is on the same line)'
+
 #showAcceptCancelBar
 'Display an green-red-yellow accept-cancel bar to the left of the text.\Press green to accept, red to cancel, and yellow to compare against the original version.'
 
@@ -4881 +4866 @@
 #st80EditMode
 'Enable the ST-80 line-end/text-end cursor behavior.\There, the cursor cannot be positioned beyond the end of text, and cursor movement leads to the next/previous line.\This is similar to the behavior of other editors, such as "vi" or "emacs".\If off, the page is treated like a piece of paper, where any position can be reached immediately ("Rand-Editor" behavior)'
 
-
 #startTextDragWithCTRL
 'Press CTRL to drag the selected text into another view'
 
 #tabStops4
 'Controls if tab stops are multiples of 4 or 8 while editing.\Notice that this only affects the cursor positioning while editing, and that tabs are never part of the text internally.\The external (file-) representation always uses tab stops in multiples of 8.\Thus, when saving, one leading tab is generated for every 8 leading spaces,\and when reading a file, each tab is replaced by 8 spaces.\For ST/X, using multiple of 4 is recommended (the whole system was written in this style)'
 
+#trimBlankLines
+'Trims all the white-spaces at the line (when no other character is present).\An example: If true, and have one line with all white-spaces and go to one line below it and press backspace.\It will delete all the white-spaces above.'
+
 #useNewCodeView2
 'Use the new advanced CodeView2, which supports line numbers, advanced variable and selector highlighting,\and other useful programmer features'
 
 #whitespaceWordSelectMode
 'Controls if non-whitespace separators (such as fullstop, parentheses etc.) are treated as separator when selecting a word via double-click.\If off, only whitespace is treated as such. Useful when editing plain text, or code written in Lisp or Scheme'
 
-#selectionExtensionModelStandard
-'Standard behavior - most text editors and text widgets behave like this.'
-
-#selectionExtensionModelTraditional
-'Traditional ST/X behavior (better but not standard).\Shift-End moves end of selection (if it is on the same line).\Shift-Home moves start of selection (if it is on the same line)'
-
 )
-
-    "Created: / 17-03-2012 / 11:37:51 / cg"
-    "Modified: / 27-03-2014 / 10:19:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
@@ -4940 +4918 @@
          name: 'Editor Settings'
          flags: 1
          min: (Point 10 10)
-         bounds: (Rectangle 0 0 658 543)
+         bounds: (Rectangle 0 0 658 803)
        )
        component: 
       (SpecCollection
@@ -4948 +4926 @@
           (VerticalPanelViewSpec
              name: 'VerticalPanel1'
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+             activeHelpKey: trimBlankLines
              horizontalLayout: fit
              verticalLayout: top
              horizontalSpace: 3
@@ -5078 +5057 @@
                    translateLabel: true
                    extent: (Point 658 30)
                  )
+                (CheckBoxSpec
+                   label: 'Trim blank lines (removes all white spaces at once)'
+                   name: 'trimBlankLines'
+                   activeHelpKey: trimBlankLines
+                   model: trimBlankLines
+                   translateLabel: true
+                   extent: (Point 658 22)
+                 )
                 (DividerSpec
                    name: 'Separator3'
                    extent: (Point 658 4)
@@ -5199 +5186 @@
          #codeCompletionOnTabKey
          #codeCompletionViewKeyboardNavigationNeedsModifier
          #selectionExtensionMode
+         #trimBlankLines      
     )
 
     "Modified: / 07-03-2012 / 14:33:40 / cg"
     "Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-09-2017 / 14:45:24 / svestkap"
 ! !
 
 !AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
@@ -5223 +5212 @@
          #codeCompletionOnTabKey
          #codeCompletionViewKeyboardNavigationNeedsModifier
          #selectionExtensionMode
+         #trimBlankLines
     )
 
     "Modified: / 07-03-2012 / 14:33:40 / cg"
     "Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-09-2017 / 13:45:23 / svestkap"
 !
 
 autoIndentInCodeView
@@ -5354 +5345 @@
     ^ tabsIs4.
 !
 
+trimBlankLines
+    trimBlankLines isNil ifTrue:[
+        trimBlankLines := true asValue.
+        trimBlankLines onChangeSend:#updateModifiedChannel to:self.
+    ].
+    ^ trimBlankLines
+
+    "Modified: / 05-09-2017 / 14:44:04 / svestkap"
+!
+
 useCodeView2InTools
     useCodeView2InTools isNil ifTrue:[
         useCodeView2InTools := ValueHolder new.