links to this page:    String aString asText aText asMorph

 String superclass ArrayedCollection 
 Text superclass ArrayedCollection 

 String selectors  size  314 
 Text selectors size  100 

txsel := Text selectors asSet.
stsel := String selectors asSet.

commonSelectors := stsel select: [:sel | txsel includes: sel].

commonSelectors size 42 

txsel := Text selectors asSet.
stsel := String selectors asSet.

stsel select: [:sel | txsel includes: sel] a Set(#storeOn: #asUrlRelativeTo: #withoutLeadingBlanks #edit 
#hash #asMorph #basicType #printOn: #asDisplayText #replaceFrom:to:with:startingAt: #lineCount
 #editWithLabel: #copyReplaceTokens:with: #asString #format: #asStringOrText
 #isoToSqueak #<=> #asUrl #asSymbol #asStringMorph #macToSqueak #findString:startingAt:
 #withSqueakLineEndings #applyLanguageInformation: #asNumber #findString:startingAt:caseSensitive:
 #squeakToMac #howManyMatch: #hashWithInitialHash: #asText #canonicalArgumentName #deepCopy 
#string #= #askIfAddStyle:req: #withNoLineLongerThan: #asParagraph #translated #jsonWriteOn: 
#withBlanksTrimmed #squeakToIso) 

 findString: subString startingAt: start 
	"Answer the index of subString within the receiver, starting at start. If 
	the receiver does not contain subString, answer 0."

	^self findString: subString startingAt: start caseSensitive: true

 findString: aString startingAt: start 
	"Answer the index of subString within the receiver, starting at index 
	start. If the receiver does not contain subString, answer 0."

	^string findString: aString asString startingAt: start

 withoutLeadingBlanks

	"Return a copy of the receiver from which leading blanks have been trimmed."

	| first |
	first := self findFirst: [:c | c isSeparator not ].
	first = 0 ifTrue: [^ ''].  	
	"no non-separator character"
	
	^ self copyFrom: first to: self size

	
		
	" '    abc  d' withoutLeadingBlanks"

 withoutLeadingBlanks
	"Return a copy of the receiver from which leading blanks have been trimmed."

	| first |
	first := string indexOfAnyOf: CharacterSet nonSeparators startingAt: 1.
	first = 0 ifTrue: [ ^'' ].  "no non-separator character"
	first = 1 ifTrue: [ ^self copy ].
	^self
		copyFrom: first
		to: self size