1 -*- slate -*-

2

3 (to (handle-event (e (mouse-button-down (events sdl))))

4 (let ((s2 (render-text-blended (system-font sdl)

5 "(click)"

6 (make (color sdl) 255 255 255))))

7 (blit s2

8 (nil (rect sdl))

9 (video-surface sdl)

10 (make (rect sdl) (x e) (y e) 0 0))

11 (free s2)

12 (flip (video-surface sdl))

13 (resend)))

14

15 [ counter:= 0 | ->. ^ counter. counter:= counter + 1 ]

16

17

18 [ -> a b. c = a + b. ^ c. ]

19

20 [ -> a b. ^ (a + b). ]

21

22

23 ! e@(SDL EventTraits MouseButtonDown) handle !

24

25 s2 = SDL SystemFont renderText: "(click)" color: (SDL Color White).

26 s2 blitOn: SDL VideoSurface location: (SDL Rectangle x:= e x y:= e y).

27 s2 free.

28 SDL VideoSurface flip.

29 ^ resend.

30 !!

31

32 addGlobal: #Counter value: (generator:= Nil).

33

34 ! c@Counter new !

35 generator = [ loop(count:= 0) { ->. ^ count. loop(count:= count + 1) } ].

36 ^ (c generator:= generator).

37 !!

38

39 ! c@Counter next !

40 ^ (c generator <- ).

41 !!

42

43

44 ! _@0 isEven ! ^ True. !!

45 ! _@0 isOdd ! ^ False. !!

46

47 ! i@(Integer traits) isEven ! ^ (i - 1) isOdd. !!

48 ! i@(Integer traits) isOdd ! ^ (i - 1) isEven. !!

49

50

51 {

52 x = y ifTrue: [

53 }

54

55

56 "---------------------------------------------------------------------------"

57

58 loop(count:= 0) [ ^ count. loop(count:= count + 1). ].

59

60 [ :a :b | c = a + b. ^ c. ]

61

62 [ :a :b | ^ (a + b). ]

63

64 addGlobal: #Counter value: (generator:= Nil).

65

66 ! c@Counter new !

67 generator = loop(count:= 0) [ ^ count. loop(count:= count + 1) ].

68 ^ (c generator:= generator).

69 !!

70

71 ! c@Counter next !

72 ^ (c generator value).

73 !!

74