Hello,

Use this snippet of code for have a behavior a la WindowsMaker.

-=-=-=-=-=-=-=-=-=-=-=-=
[ |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
-=-=-=-=-=-=-=-=-=-=-=-=

Cheers,
Alexandre

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._
Bergel Alexandre  http://www.iam.unibe.ch/~bergel
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^