Smalltalk createPackage: '{%= name %}'! (Smalltalk packageAt: '{%= name %}' ifAbsent: [ self error: 'Package not created: {%= name %}' ]) imports: {'amber/jquery/Wrappers-JQuery'. 'amber/web/Web'. 'silk/Silk'}! Object subclass: #{%= name %} instanceVariableNames: '' package: '{%= name %}'! !{%= name %} methodsFor: 'action'! doAmberWith | tag | tag := (HTMLCanvas onJQuery: '#output-list' asJQuery) root. tag with: [ :html | html li with: 'Amber Web #with: added me!!' ] ! doJQueryAppend '#output-list' asJQuery append: '
  • jQuery append added me!!
  • ' ! doSilkTAG '#output-list' asSilk LI: 'Silk TAG: added me!!' ! ! !{%= name %} methodsFor: 'starting'! augmentPage '#amber-with' asJQuery click: [ self doAmberWith ]. '#silk-tag' asSilk on: #click bind: [ self doSilkTAG ]. '#jquery-append' asJQuery click: [ self doJQueryAppend ] ! ! !{%= name %} class methodsFor: 'starting'! start self new augmentPage ! !