Hi there.

This should work: 

| capsLockFilter |
capsLockFilter := PluggableEventFilter on: [:keyboardEvent |
	(keyboardEvent isKeystroke
		and: [keyboardEvent keyCharacter isUppercase
		and: [keyboardEvent shiftPressed not]])
			ifTrue: [self inform: 'CAPS LOCK ON'].
	keyboardEvent].
self currentHand addKeyboardCaptureFilter: capsLockFilter.

Be sure to find a safe place for that capsLockFilter so that it won't be
garbage collected. :-) Maybe that "inform:" is too noisy for you. I don't
know.

Best,
Marcel


Squeak - Dev mailing list wrote
> Hi folks.
> 
> 
> 
> Ignore as appropriate.
> 
> 
> 
> Fat-finger me hits caps-lock by accident quite a bit and copy-n-paste does
> not work in morphic when that happens.
> 
> 
> 
> A not-so-subtle indicator that "caps lock is on" would be helpful.
> 
> 
> 
> cheers and thanks.





--
Sent from: http://forum.world.st/Squeak-Dev-f45488.html