Smalltalk createPackage: 'MiniMVP'! (Smalltalk packageAt: 'MiniMVP' ifAbsent: [ self error: 'Package not created: MiniMVP' ]) imports: {'amber/web/Web'. 'amber/web/Web-JQuery'. 'silk/Silk'}! Object subclass: #MiniMVP slots: {} package: 'MiniMVP'! !MiniMVP methodsFor: 'action'! alert: aString after: aNumberOfMilliseconds [ Terminal alert: aString ] valueWithTimeout: aNumberOfMilliseconds ! doAmberWith '#output-list' asBrush with: [ :html | html li: 'Amber Web #with: added me!!' ] ! doConsoleLog | greeting target | greeting := 'Hello'. target := 'world'. console log: #{ #greeting -> greeting. #target -> target. #callback -> [ console log: greeting, ', ', target, '!!' ] } ! doInspectStatus (self getApi: '/status') then: {#json. #inspect} catch: [ :err | Terminal alert: err ] ! doJQueryAppend '#output-list' asJQuery append: '