ProtoObjectObjectWAPresenterWAComponentWACounter
| count |
| instance | class |
|---|---|
| as yet unclassified | as yet unclassified |
| count |
|---|
| as yet unclassified |
|---|
| count |
^ count |
| decrease |
count _ count - 1 |
| increase |
count _ count + 1 |
| initialize |
self session registerObjectForBacktracking: self. count _ 0 |
| renderContentOn: html |
html heading: count. html anchorWithAction: [self increase] text: '++'. html space. html anchorWithAction: [self decrease] text: '--' |
| as yet unclassified |
|---|
| canBeRoot |
^ true |
| example |
^ self new |
| initialize |
(self registerAsApplication: 'counter') |