# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1541575322 -3600
# Node ID 2a79be9021d54bb3213e8a8eac81e3fd815232ae
# Parent  dd25bb9c82c474cbbf8077fac483be9779eedd94
#REFACTORING by cg
class: BrowserView
changed: #compressedCodeLinesFor:

diff -r dd25bb9c82c4 -r 2a79be9021d5 BrowserView.st
--- a/BrowserView.st	Tue Nov 06 12:25:17 2018 +0100
+++ b/BrowserView.st	Wed Nov 07 08:22:02 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -11052,22 +11054,25 @@
     |s|
 
     s := someCode asString string asCollectionOfLines copy.
-    [s last isEmpty] whileTrue:[s removeLast].
-    s := s collect:[:s | |t|
-			   s notNil ifTrue:[
-			      t := s withoutTrailingSeparators.
-			      t size == 0 ifTrue:[
-				  nil
-			      ] ifFalse:[
-				  t
-			      ].
-			   ] ifFalse:[
-			      s
-			   ]
-		     ].
+    [s size > 0 and:[s last isEmpty]] whileTrue:[s removeLast].
+    s := s collect:[:s | 
+            |t|
+
+            s notNil ifTrue:[
+               t := s withoutTrailingSeparators.
+               t size == 0 ifTrue:[
+                   nil
+               ] ifFalse:[
+                   t
+               ].
+            ] ifFalse:[
+               s
+            ]
+    ].
     ^ s
 
-    "Created: / 17.6.1998 / 16:48:03 / cg"
+    "Created: / 17-06-1998 / 16:48:03 / cg"
+    "Modified (format): / 07-11-2018 / 08:16:34 / Claus Gittinger"
 !
 
 instanceProtocol:aBoolean
@@ -12476,7 +12481,7 @@
 
 extractClassAndSelectorFromSelectionInto:aBlock
     "given a string which can be either 
-        'class>>sel', 'class » sel'  or 'class sel', 
+        'class>>sel', 'class » sel'  or 'class sel', 
     extract className and selector, 
     and call aBlock with the result."