--- 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."