diff --git a/IPADispatcher.st b/IPADispatcher.st index 260eecf..a521c62 100644 --- a/IPADispatcher.st +++ b/IPADispatcher.st @@ -22,8 +22,15 @@ Object subclass: IPADispatcher [ + IPADispatcher class >> new [ + + ^ super new + initialize; + yourself + ] + initialize [ - + handlers := Dictionary new. ] diff --git a/contrib/Test.st b/contrib/Test.st index d2bedee..634ded3 100644 --- a/contrib/Test.st +++ b/contrib/Test.st @@ -31,7 +31,6 @@ Eval [ muxer := IPAMuxer initOn: socket. dispatcher := IPADispatcher new. - dispatcher initialize. ipa := IPAProtoHandler new. dispatcher addHandler: IPAConstants protocolIPA on: ipa with: #handleMsg:.