1: ================================================================================
2:
3: Smalltalk defineClass: #MyFirstModel
4: superclass: #{UI.ApplicationModel}
5: indexedType: #none
6: private: false
7: instanceVariableNames: ''
8: classInstanceVariableNames: ''
9: imports: ''
10: category: ''
11:
12: ================================================================================
13:
14: MyFirstModel method for 'interface opening'
15:
16: displayView
17:
18: | aView |
19: aView := MyFirstView model: self.
20: aView controller: MyFirstController new.
21: ^aView
22:
23: ------------------------------------------------------------
24:
25: MyFirstModel method for 'interface opening'
26:
27: postBuildWith: aBuilder
28:
29: aBuilder keyboardProcessor keyboardHook:
30: [:event :controller |
31: (self controllerAt: #displayView)
32: ifNotNil: [:aController | aController processKeyboardEvent: event]].
33: super postBuildWith: aBuilder
34:
35: ================================================================================
36:
37: Smalltalk.MyFirstModel class
38: instanceVariableNames: ''
39:
40: ================================================================================
41:
42: MyFirstModel class method for 'examples'
43:
44: example1
45: "MyFirstModel example1."
46:
47: | aModel |
48: aModel := MyFirstModel new.
49: aModel open.
50: ^aModel
51:
52: ------------------------------------------------------------
53:
54: MyFirstModel class method for 'interface specs'
55:
56: windowSpec
57: "Tools.UIPainter new openOnClass: self andSelector: #windowSpec"
58:
59: <resource: #canvas>
60: ^#(#{UI.FullSpec}
61: #window:
62: #(#{UI.WindowSpec}
63: #label: '初めてのアプリケーション'
64: #min: #(#{Core.Point} 200 150 )
65: #max: #(#{Core.Point} 0 0 )
66: #bounds: #(#{Graphics.Rectangle} 1178 619 1578 919 ) )
67: #component:
68: #(#{UI.SpecCollection}
69: #collection: #(
70: #(#{UI.ArbitraryComponentSpec}
71: #layout: #(#{Graphics.LayoutFrame} 2 0 2 0 -2 1 -2 1 )
72: #name: #displayView
73: #component: #displayView ) ) ) )
74:
75: ================================================================================
This document was generated by KSU.TextDoclet on 2012/09/06 at 06:50:14.