[squeak-dev] The Trunk: Nebraska-ar.18.mcz

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

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

Name: Nebraska-ar.18
Author: ar
Time: 7 September 2009, 3:11:29 am
UUID: 07835b8a-a139-6d48-a999-09074a55c9f0
Ancestors: Nebraska-ar.17

Fix users of CustomMenu in Morphic and replace them with proper MenuMorph usage.

=============== Diff against Nebraska-ar.17 ===============

Item was changed:
  ObjectSocket subclass: #StringSocket
  instanceVariableNames: 'numStringsInNextArray stringsForNextArray nextStringSize files startTime stringCounter socketWriterProcess outputQueue bytesInOutputQueue extraUnsentBytes transmissionError readBuffer'
+ classVariableNames: 'MaxRatesSeen RecentSendHistory RunningSendCount'
- classVariableNames: 'MaxRatesSeen RunningSendCount RecentSendHistory'
  poolDictionaries: ''
  category: 'Nebraska-Network-ObjectSocket'!
 
  !StringSocket commentStamp: 'ls 8/4/2004 15:15' prior: 0!
  This is a socket which sends arrays of strings back and forth.  This is less convenient than ObjectSockets, but it is more secure and it makes it easier to reason about updates to the protocol.
 
  An array of strings is represented on the network as:
 
  4-bytes number of strings in the array
  4-byte number of bytes in the first string
  n1-bytes characters in the first string
  4-bytes number of bytes in the second string
  n2-bytes characters in the second string
  ...
 
  !

Item was changed:
  EToyCommunicatorMorph subclass: #EToyListenerMorph
  instanceVariableNames: 'listener updateCounter'
+ classVariableNames: 'GlobalIncomingQueue GlobalListener QueueSemaphore UpdateCounter WasListeningAtShutdown'
- classVariableNames: 'QueueSemaphore GlobalIncomingQueue UpdateCounter GlobalListener WasListeningAtShutdown'
  poolDictionaries: ''
  category: 'Nebraska-Morphic-Collaborative'!
 
  !EToyListenerMorph commentStamp: '<historical>' prior: 0!
  EToyListenerMorph new open
  EToyListenerMorph startListening.
  EToyListenerMorph stopListening.
 
  "
  EToyListenerMorph listens for messgaes from other EToy communicators. You need one of these open to receive messages from elsewhere.
  - Received Morphs are shown in a list. Items can be grabbed (a copy) or deleted.
  - Chat messages are sent to an appropriate EToyChatMorph (created if necessary)
  "
 
  !

Item was changed:
  ----- Method: EToyListenerMorph>>mouseDownEvent:for: (in category 'as yet unclassified') -----
  mouseDownEvent: event for: aMorph
+ | menu depictedObject |
- | menu selection depictedObject |
  depictedObject := aMorph firstSubmorph valueOfProperty: #depictedObject.
+ menu := MenuMorph new.
- menu := CustomMenu new.
  menu
  add: 'Grab' action: [event hand attachMorph: depictedObject veryDeepCopy];
  add: 'Delete'
  action:
  [self class removeFromGlobalIncomingQueue: depictedObject.
  self rebuild].
+ menu title: 'Morph from ' , (aMorph submorphs second) firstSubmorph contents.
+ menu invokeModal.!
- selection := menu build startUpCenteredWithCaption: 'Morph from '
- , (aMorph submorphs second) firstSubmorph contents.
- selection ifNil: [^self].
- selection value!

Item was changed:
  EToyCommunicatorMorph subclass: #AudioChatGUI
  instanceVariableNames: 'mycodec myrecorder mytargetip myalert playOnArrival theConnectButton soundBlockNumber soundMessageID queueForMultipleSends transmitWhileRecording theTalkButton handsFreeTalking handsFreeTalkingFlashTime'
+ classVariableNames: 'DebugLog LiveMessages NewAudioMessages PlayOnArrival'
- classVariableNames: 'PlayOnArrival LiveMessages DebugLog NewAudioMessages'
  poolDictionaries: ''
  category: 'Nebraska-Morphic-Collaborative'!

Item was changed:
  EToyCommunicatorMorph subclass: #EToyGateKeeperMorph
  instanceVariableNames: 'counter'
+ classVariableNames: 'KnownIPAddresses UpdateCounter'
- classVariableNames: 'UpdateCounter KnownIPAddresses'
  poolDictionaries: ''
  category: 'Nebraska-Morphic-Experimental'!
 
  !EToyGateKeeperMorph commentStamp: '<historical>' prior: 0!
  EToyGateKeeperMorph new open
 
  "
  I am used to control the types of connections a user is willing to allow.
  "!

Item was changed:
  EToyCommunicatorMorph subclass: #EToyFridgeMorph
  instanceVariableNames: 'recipients incomingRow recipientRow updateCounter groupMode'
+ classVariableNames: 'FridgeRecipients NewItems TheFridgeForm UpdateCounter'
- classVariableNames: 'UpdateCounter TheFridgeForm FridgeRecipients NewItems'
  poolDictionaries: ''
  category: 'Nebraska-Morphic-Collaborative'!
 
  !EToyFridgeMorph commentStamp: '<historical>' prior: 0!
  EToyFridgeMorph new openInWorld!