The Trunk: MorphicExtras-fbs.95.mcz

> David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
> http://source.squeak.org/trunk/MorphicExtras-fbs.95.mcz
>
> ==================== Summary ====================
>
> Name: MorphicExtras-fbs.95
> Author: fbs
> Time: 4 December 2010, 8:06:58.744 pm
> UUID: 29fdd44c-e506-b349-955c-c02d8c371e4b
> Ancestors: MorphicExtras-ul.94
>
> Attempting to open a telemorphic user when you have no network connection results in a dialog asking you to Retry a name lookup (as a network check) or Give Up. If you Give Up, your image will spew out a never-ending stream of debuggers. This change allows the user to see that she needs to make a network connection, but also allows her to abort the operation. See http://bugs.squeak.org/view.php?id=7578.
>
> =============== Diff against MorphicExtras-ul.94 ===============
>
> Item was changed:
>    ----- Method: RemoteHandMorph class>>ensureNetworkConnected (in category 'utilities') -----
>    ensureNetworkConnected
> + "Try to ensure that an intermittent network connection, such as a dialup or ISDN line, is actually connected. This is necessary to make sure a server is visible in order to accept an incoming connection. If the network connection does not work - the user has given up - return false. Otherwise, return true."
> - "Try to ensure that an intermittent network connection, such as a dialup or ISDN line, is actually connected. This is necessary to make sure a server is visible in order to accept an incoming connection."
>     "RemoteHandMorph ensureNetworkConnected"
> + | address |
> -
>     Utilities
> + informUser: 'Ensuring your network connection works...'
> - informUser: 'Contacting domain name server...'
>     during: [
> + address := (NetNameResolver
> - NetNameResolver
>     addressForName: 'squeak.org'
> + timeout: 30)].
> + ^ address notNil.!
> - timeout: 30].
> - !