Код IT
← Каталог

SmallPong на Morphic — практикум — 8.1. События клавиатуры

Фрагмент из «SmallPong на Morphic — практикум»: 8.1. События клавиатуры.

smalltalk smalltalkencyclopedia31 embed URL статья в энциклопедии
Smalltalk main.st 
handlesKeyboard: evt
	^ true

handleKeyDown: anEvent
	| keyName |
	keyName := anEvent keyName.
	pressedKeys add: keyName.
	keyName = ' ' ifTrue: [ game togglePause ].
	self syncInput

handleKeyUp: anEvent
	pressedKeys remove: anEvent keyName ifAbsent: [].
	self syncInput

keydown: anEvent
	self handleKeyDown: anEvent

keyup: anEvent
	self handleKeyUp: anEvent

syncInput
	game
		leftUp: ((pressedKeys includes: 'W') or: [ pressedKeys includes: 'w' ]);
		leftDown: ((pressedKeys includes: 'S') or: [ pressedKeys includes: 's' ]);
		rightUp: (pressedKeys includes: 'ArrowUp');
		rightDown: (pressedKeys includes: 'ArrowDown')
handlesKeyboard: evt
	^ true

handleKeyDown: anEvent
	| keyName |
	keyName := anEvent keyName.
	pressedKeys add: keyName.
	keyName = ' ' ifTrue: [ game togglePause ].
	self syncInput

handleKeyUp: anEvent
	pressedKeys remove: anEvent keyName ifAbsent: [].
	self syncInput

keydown: anEvent
	self handleKeyDown: anEvent

keyup: anEvent
	self handleKeyUp: anEvent

syncInput
	game
		leftUp: ((pressedKeys includes: 'W') or: [ pressedKeys includes: 'w' ]);
		leftDown: ((pressedKeys includes: 'S') or: [ pressedKeys includes: 's' ]);
		rightUp: (pressedKeys includes: 'ArrowUp');
		rightDown: (pressedKeys includes: 'ArrowDown')