Код IT Загрузка примера кода…

Smalltalk main.st 
leftUp: aBoolean
	leftUp := aBoolean

leftDown: aBoolean
	leftDown := aBoolean

rightUp: aBoolean
	rightUp := aBoolean

rightDown: aBoolean
	rightDown := aBoolean

togglePause
	paused := paused not
leftUp: aBoolean
	leftUp := aBoolean

leftDown: aBoolean
	leftDown := aBoolean

rightUp: aBoolean
	rightUp := aBoolean

rightDown: aBoolean
	rightDown := aBoolean

togglePause
	paused := paused not