gst-thunder/Interval.st at master · mathk/gst-thunder · GitHub

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Object subclass: Interval [

    Interval class >> named: aSymbol from: anInteger [

	^ self new
		name: aSymbol;
		from: anInteger;
		yourself
    ]

    Interval class >> named: aSymbol from: anInteger to: anInteger2 [

        ^ (self named: aSymbol from: anInteger)
				    to: anInteger2;
				    yourself
    ]

    | name from to |

    name: aSymbol [

	name := aSymbol
    ]

    name [

	^ name
    ]

    from: anInteger [

	from := anInteger
    ]

    from [

	^ from
    ]

    to: anInteger [

	to := anInteger
    ]

    to [

	^ to
    ]

    printOn: aStream [

	aStream
	    nextPutAll: name, ' from ', from displayString, ' to ', to displayString
    ]

]