1: ================================================================================
2:
3: Smalltalk defineClass: #MyFirstController
4: superclass: #{UI.Controller}
5: indexedType: #none
6: private: false
7: instanceVariableNames: ''
8: classInstanceVariableNames: ''
9: imports: ''
10: category: ''
11:
12: ================================================================================
13:
14: MyFirstController method for 'events'
15:
16: mouseWheelEvent: event
17:
18: Transcript
19: cr;
20: show: event up printString.
21: ^nil
22:
23: ------------------------------------------------------------
24:
25: MyFirstController method for 'events'
26:
27: processKeyboardEvent: event
28:
29: Transcript
30: cr;
31: show: event keyValue printString.
32: ^nil
33:
34: ------------------------------------------------------------
35:
36: MyFirstController method for 'events'
37:
38: redButtonPressedEvent: event
39:
40: Transcript
41: cr;
42: show: event point printString.
43: ^nil
44:
45: ------------------------------------------------------------
46:
47: MyFirstController method for 'events'
48:
49: yellowButtonPressedEvent: event
50:
51: (Menu labelArray: #('aaa' 'bbb' 'ccc')) startUp.
52: ^nil
53:
54: ================================================================================
55:
56: Smalltalk.MyFirstController class
57: instanceVariableNames: ''
58:
59: ================================================================================
This document was generated by KSU.TextDoclet on 2012/09/06 at 06:50:14.