equal
deleted
inserted
replaced
529 ! ! |
529 ! ! |
530 |
530 |
531 !StandardSystemView methodsFor:'event handling'! |
531 !StandardSystemView methodsFor:'event handling'! |
532 |
532 |
533 focusIn |
533 focusIn |
534 "the view got the keyboard focus" |
534 "the view got the keyboard focus (via the window manager)" |
535 |
535 |
536 |v| |
536 |v| |
537 |
537 |
538 windowGroup notNil ifTrue:[ |
538 windowGroup notNil ifTrue:[ |
539 (v := windowGroup focusView) notNil ifTrue:[ |
539 (v := windowGroup focusView) notNil ifTrue:[ |
540 v showFocus |
540 v showFocus:false. |
|
541 ^ self |
541 ] |
542 ] |
542 ]. |
543 ]. |
|
544 delegate notNil ifTrue:[ |
|
545 delegate showFocus:false. |
|
546 ] |
543 ! |
547 ! |
544 |
548 |
545 focusOut |
549 focusOut |
546 "the view lost keyboard focus" |
550 "the view lost keyboard focus (via the window manager)" |
547 |
551 |
548 |v| |
552 |v| |
549 |
553 |
550 windowGroup notNil ifTrue:[ |
554 windowGroup notNil ifTrue:[ |
551 (v := windowGroup focusView) notNil ifTrue:[ |
555 (v := windowGroup focusView) notNil ifTrue:[ |
552 v showNoFocus |
556 v showNoFocus:false. |
|
557 ^ self |
553 ] |
558 ] |
554 ]. |
559 ]. |
|
560 delegate notNil ifTrue:[ |
|
561 delegate showNoFocus:false. |
|
562 ] |
555 ! |
563 ! |
556 |
564 |
557 mapped |
565 mapped |
558 "the view got mapped" |
566 "the view got mapped" |
559 |
567 |
575 windowEventsForApplication := collectionOfEventSymbols |
583 windowEventsForApplication := collectionOfEventSymbols |
576 ! |
584 ! |
577 |
585 |
578 showActivity:someMessage |
586 showActivity:someMessage |
579 application notNil ifTrue:[ |
587 application notNil ifTrue:[ |
580 application showActivity:someMessage |
588 application showActivity:someMessage |
581 ] |
589 ] |
582 |
590 |
583 "Created: 16.12.1995 / 18:40:44 / cg" |
591 "Created: 16.12.1995 / 18:40:44 / cg" |
584 ! ! |
592 ! ! |
585 |
593 |
934 ! ! |
942 ! ! |
935 |
943 |
936 !StandardSystemView class methodsFor:'documentation'! |
944 !StandardSystemView class methodsFor:'documentation'! |
937 |
945 |
938 version |
946 version |
939 ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.39 1995-12-16 17:43:19 cg Exp $' |
947 ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.40 1996-01-27 15:35:07 cg Exp $' |
940 ! ! |
948 ! ! |