| 123456789101112131415161718192021222324252627282930313233343536 |
- 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: '<li>jQuery append added me!!</li>'
- !
- 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
- ! !
|
