equal
deleted
inserted
replaced
319 destroy |
319 destroy |
320 "the receiver is to be destroyed - look for partners and slaves" |
320 "the receiver is to be destroyed - look for partners and slaves" |
321 |
321 |
322 |wg dev| |
322 |wg dev| |
323 |
323 |
324 keyboardProcessor notNil ifTrue:[ |
|
325 keyboardProcessor release. |
|
326 keyboardProcessor := nil. |
|
327 ]. |
|
328 |
|
329 wg := windowGroup. "/ have to fetch windowGroup before; |
324 wg := windowGroup. "/ have to fetch windowGroup before; |
330 dev := device. "/ and device ... |
325 dev := device. "/ and device ... |
331 super destroy. "/ ... since destroy nils em |
326 super destroy. "/ ... since destroy nils em |
332 |
327 |
333 "/ dev notNil ifTrue:[ |
328 "/ dev notNil ifTrue:[ |
363 keyboardProcessor isNil ifTrue:[ |
358 keyboardProcessor isNil ifTrue:[ |
364 keyboardProcessor := KeyboardProcessor new. |
359 keyboardProcessor := KeyboardProcessor new. |
365 ]. |
360 ]. |
366 |
361 |
367 device realizedTopViewHookFor:self |
362 device realizedTopViewHookFor:self |
|
363 ! |
|
364 |
|
365 release |
|
366 keyboardProcessor notNil ifTrue:[ |
|
367 keyboardProcessor release. |
|
368 keyboardProcessor := nil. |
|
369 ]. |
|
370 super release |
368 ! ! |
371 ! ! |
369 |
372 |
370 !TopView methodsFor:'misc'! |
373 !TopView methodsFor:'misc'! |
371 |
374 |
372 raiseDeiconified |
375 raiseDeiconified |
776 ! ! |
779 ! ! |
777 |
780 |
778 !TopView class methodsFor:'documentation'! |
781 !TopView class methodsFor:'documentation'! |
779 |
782 |
780 version |
783 version |
781 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.74 2002-08-19 15:44:48 cg Exp $' |
784 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.75 2002-08-22 16:51:42 cg Exp $' |
782 ! ! |
785 ! ! |