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 ! |
Free forum by Nabble | Edit this page |