equal
deleted
inserted
replaced
231 self requestGlobalAutoAccept ifFalse:[^ true]. |
231 self requestGlobalAutoAccept ifFalse:[^ true]. |
232 |
232 |
233 "/ only care for RETURN and ESC if the window is the |
233 "/ only care for RETURN and ESC if the window is the |
234 "/ apps topView (not if its a popup or dialog of it) |
234 "/ apps topView (not if its a popup or dialog of it) |
235 (app notNil and:[app window == topView]) ifTrue:[ |
235 (app notNil and:[app window == topView]) ifTrue:[ |
236 app doAccept. |
236 app doAcceptByReturnKey. |
237 ] ifFalse:[ |
237 ] ifFalse:[ |
238 "/ oldStyle modalBox - for now, let Box handle it itself |
238 "/ oldStyle modalBox - for now, let Box handle it itself |
239 ^ false |
239 ^ false |
240 ]. |
240 ]. |
241 ^ true |
241 ^ true |
243 ]. |
243 ]. |
244 (key == #Escape and:[escapeIsCancelInDialog ? true]) ifTrue:[ |
244 (key == #Escape and:[escapeIsCancelInDialog ? true]) ifTrue:[ |
245 "/ only care for RETURN and ESC if the window is the |
245 "/ only care for RETURN and ESC if the window is the |
246 "/ apps topView (not if its a popup or dialog of it) |
246 "/ apps topView (not if its a popup or dialog of it) |
247 (app notNil and:[app window == topView]) ifTrue:[ |
247 (app notNil and:[app window == topView]) ifTrue:[ |
248 app doCancel. |
248 app doCancelByEscapeKey. |
249 ] ifFalse:[ |
249 ] ifFalse:[ |
250 "/ oldStyle modalBox - for now, let Box handle it itself |
250 "/ oldStyle modalBox - for now, let Box handle it itself |
251 ^ false |
251 ^ false |
252 ]. |
252 ]. |
253 ^ true |
253 ^ true |
315 ! ! |
315 ! ! |
316 |
316 |
317 !KeyboardProcessor class methodsFor:'documentation'! |
317 !KeyboardProcessor class methodsFor:'documentation'! |
318 |
318 |
319 version |
319 version |
320 ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.31 2003-05-07 14:30:03 cg Exp $' |
320 ^ '$Header: /cvs/stx/stx/libview2/KeyboardProcessor.st,v 1.32 2003-08-19 17:56:50 cg Exp $' |
321 ! ! |
321 ! ! |