Smalltalk mode " This is a test of the Smalltalk code " Seaside.WAComponent subclass: #MyCounter [ | count | MyCounter class >> canBeRoot [ ^true ] initialize [ super initialize. count := 0. ] states [ ^{ self } ] renderContentOn: html [ html heading: count. html anchor callback: [ count := count + 1 ]; with: '++'. html space. html anchor callback: [ count := count - 1 ]; with: '--'. ] ] MyCounter registerAsApplication: 'mycounter' 1" 2 This is a test of the Smalltalk code3"4Seaside.WAComponent subclass: #MyCounter [5 | count |6 MyCounter class >> canBeRoot [ ^true ]78 initialize [9 super initialize.10 count := 0.11 ]12 states [ ^{ self } ]13 renderContentOn: html [14 html heading: count.15 html anchor callback: [ count := count + 1 ]; with: '++'.16 html space.17 html anchor callback: [ count := count - 1 ]; with: '--'.18 ]19]2021MyCounter registerAsApplication: 'mycounter'22 Simple Smalltalk mode. MIME types defined: text/x-stsrc.
