CodeMirror 2: Smalltalk mode

        html anchor callback: [ count := count + 1 ]; with: '++'.
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
" 
    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'
 

Simple Smalltalk mode.

MIME types defined: text/x-stsrc.