feenkcom
diff --git a/‎src/GToolkit-Pharo-Coder-Method/GtSmalltalkSourceCoder.class.st
Lines changed: 10 additions & 2 deletions b/‎src/GToolkit-Pharo-Coder-Method/GtSmalltalkSourceCoder.class.st
Lines changed: 10 additions & 2 deletions
@@ -23,8 +23,16 @@ GtSmalltalkSourceCoder class >> doubleClickClassifier: anObject [
 
 { #category : #initialization }
 GtSmalltalkSourceCoder class >> initialize [
-	WordMovementClassifier := BrTextEditorModel smalltalkWordClassifier.
-	DoubleClickClassifier := BrTextEditorModel smalltalkWordClassifier
+	WordMovementClassifier := self smalltalkWordClassifier.
+	DoubleClickClassifier := self smalltalkWordClassifier
+]
+
+{ #category : #private }
+GtSmalltalkSourceCoder class >> smalltalkWordClassifier [
+	^ [ :c1 :c2 | 
+	c1 isSeparator ~= c2 isSeparator
+		or: [ ((c1 isAlphaNumeric | (c1 = $_)) not and: [ c2 isAlphaNumeric | (c2 = $_) ])
+				or: [ c1 isAlphaNumeric | (c1 = $_) and: [ c2 tokenish not ] ] ] ]
 ]
 
 { #category : #accessing }