On Thursday 15 August 2002 03:32 am, Bergel Alexandre wrote:
> [ |ws| [ws _ ((World allMorphs select: [:m|m isKindOf:
> SystemWindow] ) select: [:w| w bounds containsPoint: (InputSensor
> default mousePoint)]). (ws isEmpty not & (InputSensor default
> mouseButtons =0 )) ifTrue: [ws first activate]. (Delay
> forMilliseconds: 100) wait. true] whileTrue] fork

Good idea!

Though this will create garbage at the rate of almost 10 Delays per 
second; better to create the Delay outside the loop.

-- 
Ned Konz
http://bike-nomad.com
GPG key ID: BEEA7EFE