Moka-Controllers.st 915 B

12345678910111213141516171819202122232425262728293031323334353637
  1. Smalltalk current createPackage: 'Moka-Controllers'!
  2. MKAspectController subclass: #MKButtonController
  3. instanceVariableNames: ''
  4. package: 'Moka-Controllers'!
  5. !MKButtonController commentStamp!
  6. I am the default controller for `MKButtonView`.!
  7. !MKButtonController methodsFor: 'actions'!
  8. onPressed
  9. self performAction
  10. ! !
  11. MKAspectController subclass: #MKCheckboxController
  12. instanceVariableNames: ''
  13. package: 'Moka-Controllers'!
  14. !MKCheckboxController commentStamp!
  15. I am the default controller for `MKCheckboxView`.!
  16. !MKCheckboxController methodsFor: 'actions'!
  17. onToggled: aBoolean
  18. self performActionWith: aBoolean
  19. ! !
  20. MKAspectController subclass: #MKInputController
  21. instanceVariableNames: ''
  22. package: 'Moka-Controllers'!
  23. !MKInputController commentStamp!
  24. I am the default controller for `MKInputView`.!
  25. !MKInputController methodsFor: 'actions'!
  26. onEnterPressed: aString
  27. self performActionWith: aString
  28. ! !