name.st 740 B

12345678910111213141516171819202122232425262728293031
  1. Smalltalk createPackage: '{%= name %}'!
  2. (Smalltalk packageAt: '{%= name %}') imports: {'amber/jquery/Wrappers-JQuery'. 'amber/web/Web'}!
  3. Object subclass: #{%= name %}
  4. instanceVariableNames: ''
  5. package: '{%= name %}'!
  6. !{%= name %} methodsFor: 'action'!
  7. doAmberWith
  8. | tag |
  9. tag := (HTMLCanvas onJQuery: '#output-list' asJQuery) root.
  10. tag with: [ :html | html li with: 'Amber Web #with: added me!!' ]
  11. !
  12. doJQueryAppend
  13. '#output-list' asJQuery append: '<li>jQuery append added me!!</li>'
  14. ! !
  15. !{%= name %} methodsFor: 'starting'!
  16. augmentPage
  17. '#amber-with' asJQuery click: [ self doAmberWith ].
  18. '#jquery-append' asJQuery click: [ self doJQueryAppend ]
  19. ! !
  20. !{%= name %} class methodsFor: 'starting'!
  21. start
  22. self new augmentPage
  23. ! !