Merge c0509ae

src/GToolkit-Pharo-Coder-AddOns/GtDefineMethodFixItAction.class.st

@@ -70,7 +70,7 @@ GtDefineMethodFixItAction >> methodSource [
 				with: node arguments
 				do: [ :eachSelectorPart :arg | 
 					stream
-						nextPutAll: eachSelectorPart value;
+						nextPutAll: eachSelectorPart selector;
 						space.
 					baseName := arg isVariable
 						ifTrue: [ arg variableName ]

src/GToolkit-Pharo-Coder-AddOns/GtPharoZincStyler.class.st

@@ -0,0 +1,27 @@
+Class {
+	#name : #GtPharoZincStyler,
+	#superclass : #GtGenericPharoStyler,
+	#category : #'GToolkit-Pharo-Coder-AddOns-Zinc'
+}
+
+{ #category : #accessing }
+GtPharoZincStyler >> visitKeywordMessage: aMessage [
+	super visitKeywordMessage: aMessage.
+	(aMessage selector = #'username:password:'
+		and: [ aMessage arguments last isLiteral and: [ 
+			aMessage arguments last isString ] ] ) ifFalse: [ ^ self ].
+	self 
+		attribute: (BrTextReplacingAttribute new withCharacter: $*)
+		from: aMessage arguments last startPosition + 1
+		to: aMessage arguments last stopPosition - 1.
+	(text 
+		from: aMessage arguments last startPosition + 1
+		to: aMessage arguments last stopPosition - 1)
+		onCursorEnter: [ :aTextEditor :anEvent :aFromIndex :aToIndex | 
+			(aTextEditor text from: aFromIndex to: aToIndex) 
+				clearAttributesOfClass: BrTextReplacingAttribute ] 
+		leave: [ :aTextEditor :anEvent :aFromIndex :aToIndex | 
+			(aTextEditor text from: aFromIndex to: aToIndex) 
+				clearAttributesOfClass: BrTextReplacingAttribute;
+				attribute: (BrTextReplacingAttribute new withCharacter: $*) ]
+]

src/GToolkit-Pharo-Coder/GtPharoSourceCoder.class.st

@@ -619,3 +619,9 @@ GtPharoSourceCoder >> variableNodeToReferencesFilter: aVariableNode ifFound: aFo
 
 	^ aFoundBlock value: (self referencesFilterForLiteral: aVariableName asSymbol)
 ]
+
+{ #category : #accessing }
+GtPharoSourceCoder >> zincAddOnFor: anAST into: coderAddOns [
+	<gtAstCoderAddOns: 100>
+	coderAddOns addStyler: GtPharoZincStyler new
+]

src/GToolkit-Pharo-Parser/GtPharoLiteralNode.class.st

@@ -14,6 +14,11 @@ GtPharoLiteralNode >> isLiteral [
 	^ true
 ]
 
+{ #category : #testing }
+GtPharoLiteralNode >> isString [
+	^ false
+]
+
 { #category : #accessing }
 GtPharoLiteralNode >> literalValue [
 	^ self subclassResponsibility

src/GToolkit-Pharo-Parser/GtPharoStringLiteralNode.class.st

@@ -17,6 +17,11 @@ GtPharoStringLiteralNode >> guessType: completionStrategy [
 	^ String
 ]
 
+{ #category : #testing }
+GtPharoStringLiteralNode >> isString [
+	^ true
+]
+
 { #category : #accessing }
 GtPharoStringLiteralNode >> literalValue [
 	| aString |