equal
deleted
inserted
replaced
48 self stop. |
48 self stop. |
49 ^ true |
49 ^ true |
50 ! |
50 ! |
51 |
51 |
52 keyPress:key x:x y:y view:aView |
52 keyPress:key x:x y:y view:aView |
53 |obj action| |
53 |obj action lcKey| |
54 |
54 |
55 key == #Escape ifTrue:[ |
55 key == #Escape ifTrue:[ |
56 self stop. |
56 self stop. |
57 ^ true |
57 ^ true |
58 ]. |
58 ]. |
59 |
59 |
60 key asLowercase == $a ifTrue:[ |
60 key == $? ifTrue:[ |
61 obj := lastApplication |
61 [ |
|
62 WindowTreeView openOn:(lastView topView) initialSelection:lastView. |
|
63 ] fork. |
|
64 self stop. |
|
65 ^ true. |
62 ]. |
66 ]. |
63 key asLowercase == $o ifTrue:[ |
67 |
64 obj := lastView model |
68 key isCharacter ifTrue:[ |
65 ]. |
69 lcKey := key asLowercase. |
66 key asLowercase == $m ifTrue:[ |
70 |
67 obj := lastApplication masterApplication |
71 lcKey == $a ifTrue:[ |
68 ]. |
72 obj := lastApplication |
69 key asLowercase == $v ifTrue:[ |
|
70 obj := lastView |
|
71 ]. |
|
72 key asLowercase == $t ifTrue:[ |
|
73 obj := lastView topView |
|
74 ]. |
|
75 obj notNil ifTrue:[ |
|
76 key isLowercase ifTrue:[ |
|
77 action := [ obj inspect ]. |
|
78 ] ifFalse:[ |
|
79 action := [ obj browse ]. |
|
80 ]. |
73 ]. |
81 action forkAt:8. |
74 lcKey == $o ifTrue:[ |
|
75 obj := lastView model |
|
76 ]. |
|
77 lcKey == $m ifTrue:[ |
|
78 obj := lastApplication masterApplication |
|
79 ]. |
|
80 lcKey == $v ifTrue:[ |
|
81 obj := lastView |
|
82 ]. |
|
83 lcKey == $t ifTrue:[ |
|
84 obj := lastView topView |
|
85 ]. |
|
86 obj notNil ifTrue:[ |
|
87 key isLowercase ifTrue:[ |
|
88 action := [ obj inspect ]. |
|
89 ] ifFalse:[ |
|
90 action := [ obj browse ]. |
|
91 ]. |
|
92 action forkAt:8. |
|
93 ]. |
82 ]. |
94 ]. |
83 |
95 |
84 ^ true |
96 ^ true |
85 ! ! |
97 ! ! |
86 |
98 |
123 s nextPutLine:('Masterapplication: ' , masterApplicationToInspect class name). |
135 s nextPutLine:('Masterapplication: ' , masterApplicationToInspect class name). |
124 ]. |
136 ]. |
125 |
137 |
126 s cr. |
138 s cr. |
127 s nextPutLine:'Press:'. |
139 s nextPutLine:'Press:'. |
|
140 s nextPutLine:' ? to show the viewtree'. |
128 s nextPutLine:' v to inspect view (V to browse)'. |
141 s nextPutLine:' v to inspect view (V to browse)'. |
129 modelToInspect notNil ifTrue:[ |
142 modelToInspect notNil ifTrue:[ |
130 s nextPutLine:' o to inspect model (O to browse)'. |
143 s nextPutLine:' o to inspect model (O to browse)'. |
131 ]. |
144 ]. |
132 topViewToInspect notNil ifTrue:[ |
145 topViewToInspect notNil ifTrue:[ |