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: enterEvent: event
17:
18: Cursor crossHair show.
19: ^super enterEvent: event
20:
21: ------------------------------------------------------------
22:
23: MyFirstController method for 'events'
24:
25: exitEvent: event
26:
27: Cursor normal show.
28: ^super exitEvent: event
29:
30: ------------------------------------------------------------
31:
32: MyFirstController method for 'events'
33:
34: mouseMovedEvent: event
35:
36: self viewHasCursor ifTrue: [Cursor crossHair show] ifFalse: [Cursor normal show].
37: ^nil
38:
39: ------------------------------------------------------------
40:
41: MyFirstController method for 'events'
42:
43: mouseWheelEvent: event
44:
45: | amount scroller |
46: amount := 1.
47: event up ifFalse: [amount := amount negated].
48: scroller := self view container.
49: self sensor altDown
50: ifTrue: [scroller scrollBy: amount @ 0]
51: ifFalse: [scroller scrollBy: 0 @ amount].
52: ^nil
53:
54: ------------------------------------------------------------
55:
56: MyFirstController method for 'events'
57:
58: processKeyboardEvent: event
59:
60: | key amount scroller |
61: key := event keyValue.
62: amount := 1.
63: scroller := self view container.
64: key = #Up ifTrue: [scroller scrollBy: 0 @ amount negated].
65: key = #Down ifTrue: [scroller scrollBy: 0 @ amount].
66: key = #Left ifTrue: [scroller scrollBy: amount negated @ 0].
67: key = #Right ifTrue: [scroller scrollBy: amount @ 0].
68: ^nil
69:
70: ------------------------------------------------------------
71:
72: MyFirstController method for 'events'
73:
74: redButtonPressedEvent: event
75:
76: | aPoint aResult |
77: aPoint := self sensor cursorPoint.
78: aResult := nil.
79: self model rectangles with: (1 to: self model rectangles size)
80: do: [:aRectangle :anIndex | (aRectangle containsPoint: aPoint) ifTrue: [aResult := anIndex]].
81: self model selection: aResult.
82: ^nil
83:
84: ------------------------------------------------------------
85:
86: MyFirstController method for 'events'
87:
88: yellowButtonPressedEvent: event
89:
90: | aResult |
91: aResult := self model class menuBar startUp.
92: aResult = 0 ifFalse: [self model perform: aResult].
93: ^nil
94:
95: ================================================================================
96:
97: Smalltalk.MyFirstController class
98: instanceVariableNames: ''
99:
100: ================================================================================
This document was generated by KSU.TextDoclet on 2012/09/19 at 23:48:21.