Merge pull request #8 from tinchodias/7-Initialize-shared-pool-with-a-class-side-initialize

Initialize ZMQConstants in a class-side #initialize.

Author: LANDAISB

src/ZMQ/LibZMQ.class.st

@@ -28,7 +28,6 @@ LibZMQ class >> repositoryDirectory [
 ]
 
 { #category : #'accessing platform' }
-
 LibZMQ >> macLibraryName [
 
 	^ (self class repositoryDirectory / 'include' / 'libzmq.dylib')  asFileReference pathString

src/ZMQ/ZMQConstants.class.st

@@ -26,7 +26,7 @@ Class {
 }
 
 { #category : #'private - initialization' }
-ZMQConstants class >> initConstants [
+ZMQConstants class >> initialize [
 	"Available socket types"
 
 	ZMQ_PUB := 1.

src/ZMQ/ZMQSampleAbstract.class.st

@@ -85,8 +85,7 @@ ZMQSampleAbstract >> initialize [
 	threadIsWorking := false.
 	thread := nil.
 	topicSender := String new.
-	topicReceiver := OrderedCollection new.
-	ZMQConstants initConstants
+	topicReceiver := OrderedCollection new
 ]
 
 { #category : #accessing }

src/ZMQ/ZMQSampleAbstractTest.class.st

@@ -11,8 +11,7 @@ Class {
 ZMQSampleAbstractTest >> setUp [
 
 	super setUp.
-	serverOrClient := ZMQSampleAbstract new.
-	ZMQConstants initConstants
+	serverOrClient := ZMQSampleAbstract new
 ]
 
 { #category : #running }

src/ZMQ/ZMQSampleClientPUBSUBTest.class.st

@@ -9,9 +9,9 @@ Class {
 
 { #category : #running }
 ZMQSampleClientPUBSUBTest >> setUp [
+
 	super setUp.
-	client := ZMQSampleClientPUBSUB new.
-	ZMQConstants initConstants .
+	client := ZMQSampleClientPUBSUB new
 ]
 
 { #category : #running }

src/ZMQ/ZMQSampleReplyTest.class.st

@@ -11,8 +11,7 @@ Class {
 ZMQSampleReplyTest >> setUp [
 
 	super setUp.
-	reply := ZMQSampleReply new.
-	ZMQConstants initConstants
+	reply := ZMQSampleReply new
 ]
 
 { #category : #running }

src/ZMQ/ZMQSampleRequestTest.class.st

@@ -11,8 +11,7 @@ Class {
 ZMQSampleRequestTest >> setUp [
 
 	super setUp.
-	request := ZMQSampleRequest new.
-	ZMQConstants initConstants
+	request := ZMQSampleRequest new
 ]
 
 { #category : #running }

src/ZMQ/ZMQSampleServerPUBSUBTest.class.st

@@ -11,9 +11,7 @@ Class {
 ZMQSampleServerPUBSUBTest >> setUp [
 
 	super setUp.
-	server := ZMQSampleServerPUBSUB new.
-	ZMQConstants initConstants .
-	
+	server := ZMQSampleServerPUBSUB new
 ]
 
 { #category : #running }

src/ZMQ/ZMQSocket.class.st

@@ -60,8 +60,8 @@ ZMQSocket class >> context: aContext type: aSocketType [
 
 { #category : #'instance creation' }
 ZMQSocket class >> new: aSocketType [
-	ZMQConstants  initConstants .
-	^self type: aSocketType
+
+	^ self type: aSocketType
 ]
 
 { #category : #'instance creation' }