equal
deleted
inserted
replaced
106 [exBegin] |
106 [exBegin] |
107 |top field forwarder catcher| |
107 |top field forwarder catcher| |
108 |
108 |
109 catcher := Plug new. |
109 catcher := Plug new. |
110 catcher respondTo:#keyPress:x:y:view: |
110 catcher respondTo:#keyPress:x:y:view: |
111 with:[:key :x :y :view | Transcript showCR:'cought keyPress: ' , key printString.]. |
111 with:[:key :x :y :view | Transcript showCR:'caught keyPress: ' , key printString.]. |
112 catcher respondTo:#keyRelease:x:y:view: |
112 catcher respondTo:#keyRelease:x:y:view: |
113 with:[:key :x :y :view | Transcript showCR:'cought keyRelease: ' , key printString.]. |
113 with:[:key :x :y :view | Transcript showCR:'caught keyRelease: ' , key printString.]. |
114 |
114 |
115 top := StandardSystemView new. |
115 top := StandardSystemView new. |
116 top extent:200@200. |
116 top extent:200@200. |
117 |
117 |
118 field := EditField in:top. |
118 field := EditField in:top. |
129 [exBegin] |
129 [exBegin] |
130 |top field forwarder catcher| |
130 |top field forwarder catcher| |
131 |
131 |
132 catcher := Plug new. |
132 catcher := Plug new. |
133 catcher respondTo:#keyPress:x:y:view: |
133 catcher respondTo:#keyPress:x:y:view: |
134 with:[:key :x :y :view | Transcript showCR:'cought return']. |
134 with:[:key :x :y :view | Transcript showCR:'caught return']. |
135 |
135 |
136 top := StandardSystemView new. |
136 top := StandardSystemView new. |
137 top extent:200@200. |
137 top extent:200@200. |
138 |
138 |
139 field := EditField in:top. |
139 field := EditField in:top. |
456 ! ! |
456 ! ! |
457 |
457 |
458 !KeyboardForwarder class methodsFor:'documentation'! |
458 !KeyboardForwarder class methodsFor:'documentation'! |
459 |
459 |
460 version |
460 version |
461 ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.19 1997-05-01 15:46:34 cg Exp $' |
461 ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.20 1997-06-16 18:23:55 cg Exp $' |
462 ! ! |
462 ! ! |