[Pkg] The Trunk: Nebraska-nice.26.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 8 18:58:08 UTC 2010
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 at 0.].
- WorldState addDeferredUIMessage: [s displayAt: 0 at 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 at 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
!
More information about the Packages
mailing list