The Trunk: Nebraska-nice.26.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-nice.26.mcz

commits-2
Nicolas Cellier uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-nice.26.mcz

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

Name: Nebraska-nice.26
Author: nice
Time: 8 February 2010, 7:57:55.966 pm
UUID: 60bd1769-1f1d-4001-8242-e70523841a92
Ancestors: Nebraska-nice.25

get rid of now useless fixTemps

=============== Diff against Nebraska-nice.25 ===============

Item was changed:
  ----- Method: CanvasEncoder>>purgeCache (in category 'drawing') -----
  purgeCache
 
  | spaceUsed spaceBefore s |
  spaceBefore := spaceUsed := self purgeCacheInner.
  spaceBefore > 8000000 ifTrue: [
  Smalltalk garbageCollect.
  spaceUsed := self purgeCacheInner.
  ].
  false ifTrue: [
  s := (spaceBefore // 1024) printString,'  ',(spaceUsed // 1024) printString,'  ',
  Time now printString,'     '.
+ WorldState addDeferredUIMessage: [s displayAt: 0@0.].
- WorldState addDeferredUIMessage: [s displayAt: 0@0.] fixTemps.
  ].
  ^spaceUsed
  !

Item was changed:
  ----- Method: EToyIncomingMessage classSide>>handleNewFridgeMorphFrom:sentBy:ipAddress: (in category 'handlers') -----
  handleNewFridgeMorphFrom: dataStream sentBy: senderName ipAddress: ipAddressString
 
  | newObject |
 
  newObject := self newObjectFromStream: dataStream.
  newObject
  setProperty: #fridgeSender toValue: senderName;
  setProperty: #fridgeIPAddress toValue: ipAddressString;
  setProperty: #fridgeDate toValue: Time dateAndTimeNow.
+ WorldState addDeferredUIMessage: [EToyFridgeMorph newItem: newObject].
- WorldState addDeferredUIMessage: [EToyFridgeMorph newItem: newObject] fixTemps.
  !

Item was changed:
  ----- Method: EToyIncomingMessage classSide>>handleNewMorphFrom:sentBy:ipAddress: (in category 'handlers') -----
  handleNewMorphFrom: dataStream sentBy: senderName ipAddress: ipAddressString
 
  | newObject thumbForm targetWorld |
 
  newObject := self newObjectFromStream: dataStream.
  EToyCommunicatorMorph playArrivalSound.
  targetWorld := self currentWorld.
  (EToyMorphsWelcomeMorph 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.
  EToyListenerMorph addToGlobalIncomingQueue: {
  thumbForm. newObject. senderName. ipAddressString
  }.
  WorldState addDeferredUIMessage: [
  EToyListenerMorph ensureListenerInCurrentWorld
+ ].
- ] fixTemps.
  !

Item was changed:
  ----- Method: EToySenderMorph>>startNebraskaClient (in category 'as yet unclassified') -----
  startNebraskaClient
 
 
  [
  [ | newMorph |
  newMorph := NetworkTerminalMorph connectTo: self ipAddress.
+ WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled].
- WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled] fixTemps.
  ]
  on: Error
  do: [ :ex |
  WorldState addDeferredUIMessage: [
  self inform: 'No connection to: '. self ipAddress,' (',ex printString,')'
+ ]
- ] fixTemps
  ].
  ] fork
  !