Windows and mouse : WindowMaker behavior
Bergel Alexandre
bergel at iam.unibe.ch
Thu Aug 15 10:32:22 UTC 2002
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^
More information about the Squeak-dev
mailing list
|