'From etoys3.0 of 7 March 2008 [latest update: #2047] on 3 July 2008 at 8:37:28 pm'! "Change Set: nebraskaPorts-bf Date: 1 July 2008 Author: Bert Freudenberg Make Nebraska work on multiple ports"! !EToySenderMorph methodsFor: 'as yet unclassified' stamp: 'bf 7/3/2008 20:36'! startNebraskaClient | newMorph | [ [ newMorph _ NetworkTerminalMorph connectTo: (self ipAddress copyUpTo: $:). "FIXME: get real port of Nebraska Server" WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled] fixTemps. ] on: Error do: [ :ex | WorldState addDeferredUIMessage: [ self inform: 'No connection to: ' translated. self ipAddress,' (',ex printString,')' ] fixTemps ]. ] fork ! ! !NebraskaServer class methodsFor: 'as yet unclassified' stamp: 'bf 7/1/2008 18:31'! defaultPorts ^ 9091 to: 9099! ! !NebraskaServer class methodsFor: 'instance creation' stamp: 'bf 7/1/2008 19:49'! serveWorld: aWorld ^self serveWorld: aWorld onPort: self defaultPorts! ! !NebraskaServerMorph class methodsFor: 'as yet unclassified' stamp: 'bf 7/1/2008 19:49'! serveWorld: aWorld "Check to make sure things won't crash. See Mantis #0000519" aWorld isSafeToServe ifTrue:[ ^self serveWorld: aWorld onPort: NebraskaServer defaultPorts] ! ! !NetworkTerminalMorph class methodsFor: 'instance creation' stamp: 'bf 7/1/2008 19:42'! connectTo: hostAndPort | host port | host := hostAndPort copyUpTo: $:. port := (hostAndPort copyAfter: $:) asInteger. port ifNil: [port := NebraskaServer defaultPorts first]. ^self connectTo: host port:port ! ! NetworkTerminalMorph class removeSelector: #openAndConnectTo:! NetworkTerminalMorph class removeSelector: #openAndConnectTo:port:! NebraskaServer class removeSelector: #defaultPort!