| 1234567891011121314151617181920212223242526272829303132333435363738 |
- Smalltalk current createPackage: 'Examples' properties: #{}!
- Widget subclass: #Counter
- instanceVariableNames: 'count header'
- package: 'Examples'!
- !Counter methodsFor: 'actions'!
- decrease
- count := count - 1.
- header contents: [:html | html with: count asString]
- !
- increase
- count := count + 1.
- header contents: [:html | html with: count asString]
- ! !
- !Counter methodsFor: 'initialization'!
- initialize
- super initialize.
- count := 0
- ! !
- !Counter methodsFor: 'rendering'!
- renderOn: html
- header := html h1
- with: count asString;
- yourself.
- html button
- with: '++';
- onClick: [self increase].
- html button
- with: '--';
- onClick: [self decrease]
- ! !
|
