Trapped-Demo.st 576 B

123456789101112131415161718192021222324252627282930
  1. Smalltalk current createPackage: 'Trapped-Demo' properties: #{}!
  2. TrappedFly subclass: #App
  3. instanceVariableNames: ''
  4. package: 'Trapped-Demo'!
  5. Widget subclass: #AppView
  6. instanceVariableNames: ''
  7. package: 'Trapped-Demo'!
  8. !AppView methodsFor: 'rendering'!
  9. renderOn: html
  10. html h2: 'To-Do List'.
  11. html p trapShow: #('items')
  12. ! !
  13. TrappedFly subclass: #Name
  14. instanceVariableNames: ''
  15. package: 'Trapped-Demo'!
  16. Widget subclass: #NameView
  17. instanceVariableNames: ''
  18. package: 'Trapped-Demo'!
  19. !NameView methodsFor: 'rendering'!
  20. renderOn: html
  21. html root trapShow: #()
  22. ! !