The Trunk: Nebraska-ul.52.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Nebraska-ul.52.mcz

commits-2
Levente Uzonyi uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ul.52.mcz

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

Name: Nebraska-ul.52
Author: ul
Time: 22 January 2018, 12:52:51.341224 am
UUID: e116559d-9415-4aa7-95a3-3b2cdf0e375f
Ancestors: Nebraska-dtl.51

- removed #fixTemps sends

=============== Diff against Nebraska-dtl.51 ===============

Item was changed:
  ----- Method: NebraskaIncomingMessage class>>handleNewMorphFrom:sentBy:ipAddress: (in category 'handlers') -----
  handleNewMorphFrom: dataStream sentBy: senderName ipAddress: ipAddressString
 
  | newObject thumbForm targetWorld |
 
  newObject := self newObjectFromStream: dataStream.
  NebraskaCommunicatorMorph playArrivalSound.
  targetWorld := self currentWorld.
  (NebraskaMorphsWelcomeMorph morphsWelcomeInWorld: targetWorld) ifTrue: [
  newObject position: (
  newObject
  valueOfProperty: #positionInOriginatingWorld
  ifAbsent: [(targetWorld randomBoundsFor: newObject) topLeft]
  ).
  WorldState addDeferredUIMessage: [
  newObject openInWorld: targetWorld.
+ ].
- ] fixTemps.
  ^self
  ].
  thumbForm := newObject imageForm scaledToSize: 50@50.
  Smalltalk at: #SugarListenerMorph ifPresent: [:c |
  c addToGlobalIncomingQueue: {
  thumbForm. newObject. senderName. ipAddressString
  }.
  WorldState addDeferredUIMessage: [
  c ensureListenerInCurrentWorld
  ].
  ].!

Item was changed:
  ----- Method: NebraskaSenderMorph>>startNebraskaClient (in category 'as yet unclassified') -----
  startNebraskaClient
 
  | newMorph |
  [
  [
  newMorph := NetworkTerminalMorph connectTo: (self ipAddress copyUpTo: $:). "FIXME: get real port of Nebraska Server"
+ WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled].
- WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled] fixTemps.
  ]
  on: Error
  do: [ :ex |
  WorldState addDeferredUIMessage: [
  self inform: 'No connection to: ' translated. self ipAddress,' (',ex printString,')'
+ ]
- ] fixTemps
  ].
  ] fork
  !