Trapped-Demo.st 755 B

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. Smalltalk current createPackage: 'Trapped-Demo' properties: #{}!
  2. TrappedFly subclass: #App
  3. instanceVariableNames: ''
  4. package: 'Trapped-Demo'!
  5. !App methodsFor: 'initialization'!
  6. initialize
  7. self payload: #{'items'->#('hello' 'world')}
  8. ! !
  9. Widget subclass: #AppView
  10. instanceVariableNames: ''
  11. package: 'Trapped-Demo'!
  12. !AppView methodsFor: 'rendering'!
  13. renderOn: html
  14. html h2: 'To-Do List'.
  15. html p trapShow: #('items')
  16. ! !
  17. TrappedFly subclass: #Name
  18. instanceVariableNames: ''
  19. package: 'Trapped-Demo'!
  20. !Name methodsFor: 'initialization'!
  21. initialize
  22. self payload: 'To-Do List'
  23. ! !
  24. Widget subclass: #NameView
  25. instanceVariableNames: ''
  26. package: 'Trapped-Demo'!
  27. !NameView methodsFor: 'rendering'!
  28. renderOn: html
  29. html root trapShow: #()
  30. ! !