File: smalltalk.st

package info (click to toggle)
editra 0.6.58-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 13,320 kB
  • sloc: python: 71,924; sql: 258; ansic: 242; sh: 187; php: 45; tcl: 38; lisp: 38; perl: 23; java: 22; pascal: 21; cpp: 20; haskell: 20; xml: 18; cs: 18; erlang: 17; ruby: 16; asm: 15; ada: 9; csh: 9; makefile: 9; ml: 9
file content (41 lines) | stat: -rw-r--r-- 926 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
" Syntax Highlighting Test File for Smalltalk "
" Comments are like this "
" Hello World in smalltalk "

" Heres helloworld doesnt get much easier that this "
'Hello World!'

" Heres a version in a window "
| window |
window := Window new.
window label: 'Hello World'.
window open.
 
" Character Definition"
| mychar |
mychar := $A

" Symbol Definition "
| mySym |
mySym := #foo

" Symbol Array "
mySym := #(1 2 3 4)

" Class Def "
Object subclass: #MessagePublisher
    instanceVariableNames: ''
    classVariableNames: ''
    poolDictionaries: ''
    category: 'Smalltalk Examples'

| rectangles aPoint|
rectangles := OrderedCollection 
  with: (Rectangle left: 0 right: 10 top: 100 bottom: 200)
  with: (Rectangle left: 10 right: 10 top: 110 bottom: 210).
aPoint := Point x: 20 y: 20.
collisions := rectangles select: [:aRect | aRect containsPoint: aPoint].

result := a > b
    ifTrue:[ 'greater' ]
    ifFalse:[ 'less' ]