The Trunk: MorphicExtras-ar.89.mcz

Andreas Raab uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ar.89.mcz

==================== Summary ====================

Name: MorphicExtras-ar.89
Author: ar
Time: 10 July 2010, 1:39:59.258 pm
UUID: e9af7347-fcaa-cd46-925b-41e1579e3e6a
Ancestors: MorphicExtras-cmm.88

Don't use OldSockets.

=============== Diff against MorphicExtras-cmm.88 ===============

Item was changed:
  ----- Method: RemoteHandMorph>>startTransmittingEventsTo: (in category 'connections') -----
  startTransmittingEventsTo: remoteAddr
  "Attempt to broadcast events from this hand to a remote hand on the host with the given address. This method just creates the new socket and initiates a connection; it does not wait for the other end to answer."
  remoteAddress := remoteAddr.
  (sendSocket notNil and:[sendSocket isConnected]) ifTrue:[^self].
  Transcript
  show: 'Connecting to remote WorldMorph at ';
  show: (NetNameResolver stringFromAddress: self remoteHostAddress), ' ...'; cr.
+ sendSocket := Socket newTCP.
- sendSocket := OldSimpleClientSocket new.
  sendSocket connectTo: self remoteHostAddress port: 54323.
  sendState := #opening.
  owner primaryHand addEventListener: self.!

Item was changed:
  ----- Method: RemoteHandMorph>>startTransmittingEvents (in category 'connections') -----
  startTransmittingEvents
  "Attempt to broadcast events from this hand to a remote hand on the host with the given address. This method just creates the new socket and initiates a connection; it does not wait for the other end to answer."
  (sendSocket notNil and:[sendSocket isConnected]) ifTrue:[^self].
  Transcript
  show: 'Connecting to remote WorldMorph at ';
  show: (NetNameResolver stringFromAddress: self remoteHostAddress), ' ...'; cr.
+ sendSocket := Socket newTCP.
- sendSocket := OldSimpleClientSocket new.
  sendSocket connectTo: self remoteHostAddress port: 54323.
  sendState := #opening.
  owner primaryHand addEventListener: self.!