Fixing bug that made it so the protocol was added even if the user cancelled the creation of it.

This change was proposed in #1082 by Jesisc, applying it here to avoid conflicts.

Author: SebastianLorenzano

Diff for: src/NewTools-Core/StProtocolNameChooserPresenter.class.st

@@ -63,6 +63,7 @@ StProtocolNameChooserPresenter class >> requestProtocolNameConfiguring: aBlock [
 	presenter selectProtocolName.
 	dialog open.
 
+	dialog cancelled ifTrue: [ CmCommandAborted signal ].
 	protocolName := presenter selectedProtocolName ifNil: [ CmCommandAborted signal ].	
 	(protocolName beginsWith: '*') ifTrue: [
 		UIManager default inform: 'Star is forbidden for protocol name since this is used for method extensions.'.