| changeset 3467 | 66a720085cd7 |
| parent 3464 | 3688d9eb93f2 |
| child 3468 | b7e913629327 |
| 3466:cb696c6871be | 3467:66a720085cd7 |
|---|---|
8230 ! |
8230 ! |
8231 |
8231 |
8232 ungrabKeyboard |
8232 ungrabKeyboard |
8233 "release the keyboard" |
8233 "release the keyboard" |
8234 |
8234 |
8235 activeKeyboardGrab ifNotNil:[ |
8235 activeKeyboardGrab notNil ifTrue:[ |
8236 activeKeyboardGrab := nil. |
8236 activeKeyboardGrab := nil. |
8237 self primUngrabKeyboard. |
8237 self primUngrabKeyboard. |
8238 ] |
8238 ] |
8239 ! |
8239 ! |
8240 |
8240 |
8241 ungrabPointer |
8241 ungrabPointer |
8242 "release the pointer" |
8242 "release the pointer" |
8243 |
8243 |
8244 activePointerGrab ifNotNil:[ |
8244 activePointerGrab notNil ifTrue:[ |
8245 activePointerGrab := nil. |
8245 activePointerGrab := nil. |
8246 self primUngrabPointer. |
8246 self primUngrabPointer. |
8247 ] |
8247 ] |
8248 ! ! |
8248 ! ! |
8249 |
8249 |
8250 !XWorkstation methodsFor:'graphic context stuff'! |
8250 !XWorkstation methodsFor:'graphic context stuff'! |
8251 |
8251 |
11572 ! ! |
11572 ! ! |
11573 |
11573 |
11574 !XWorkstation class methodsFor:'documentation'! |
11574 !XWorkstation class methodsFor:'documentation'! |
11575 |
11575 |
11576 version |
11576 version |
11577 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.393 2001-08-15 16:40:52 cg Exp $' |
11577 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.394 2001-08-17 12:45:36 cg Exp $' |
11578 ! ! |
11578 ! ! |
11579 XWorkstation initialize! |
11579 XWorkstation initialize! |