Hola:
Fijate como registras los eventos, te paso un ejemplo, que no es un
pattern ya que tenes que fijarte como te conviene registrar los
eventos. El ejemplo es una prueba de que funciona como uno espera.
"Filed out from Dolphin Smalltalk X6"!
Presenter subclass: #KeyLogPresenter
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!
KeyLogPresenter guid: (GUID fromString:
'{DBB65D0B-D25E-46CE-AE7A-AB0DB35F908D}')!
KeyLogPresenter comment: ''!
!KeyLogPresenter categoriesForClass!MVP-Presenters! !
!KeyLogPresenter methodsFor!
onViewKeyPressed: keyEvent
Transcript print: keyEvent; cr!
onViewOpened
super onViewOpened.
self topShell when: #keyPressed: send: #onViewKeyPressed: to: self! !
!KeyLogPresenter categoriesFor: #onViewKeyPressed:!public! !
!KeyLogPresenter categoriesFor: #onViewOpened!public! !
--~--~---------~--~----~------------~-------~--~----~
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
http://www.clubSmalltalk.org
-~----------~----~----~----~------~----~------~--~---
