UIObjectView.st
changeset 3581 e8ae5a7267d8
parent 3555 1ac9575a6015
child 3647 7833be8fb641
equal deleted inserted replaced
3580:ab5cebe669d7 3581:e8ae5a7267d8
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1995 by eXept Software AG
     4  COPYRIGHT (c) 1995 by eXept Software AG
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   694     "Modified: / 20.7.1998 / 18:14:51 / cg"
   696     "Modified: / 20.7.1998 / 18:14:51 / cg"
   695     "Modified: / 30.3.1999 / 16:19:15 / stefan"
   697     "Modified: / 30.3.1999 / 16:19:15 / stefan"
   696 !
   698 !
   697 
   699 
   698 map
   700 map
   699     "make the view visible on the screen and in case of a none empty
   701     "make the view visible on the screen and in case of a non-empty
   700      selection the selection will be shown.
   702      selection the selection will be shown.
   701     "
   703     "
   702     super map.
   704     super map.
   703     self showSelection.
   705     self showSelection.
       
   706 
       
   707     "Modified (comment): / 29-07-2018 / 10:01:02 / Claus Gittinger"
   704 !
   708 !
   705 
   709 
   706 realize
   710 realize
   707     |windowGroup|
   711     |windowGroup|
   708 
   712 
   711     windowGroup  addPreEventHook:self.
   715     windowGroup  addPreEventHook:self.
   712     windowGroup addPostEventHook:(PostEventHandler new onView:self).
   716     windowGroup addPostEventHook:(PostEventHandler new onView:self).
   713 !
   717 !
   714 
   718 
   715 remap
   719 remap
   716     "make the view visible on the screen and in case of a none empty
   720     "make the view visible on the screen and in case of a non-empty
   717      selection the selection will be shown"
   721      selection the selection will be shown"
   718 
   722 
   719     self shouldNotImplement
   723     self shouldNotImplement
       
   724 
       
   725     "Modified (comment): / 29-07-2018 / 10:00:58 / Claus Gittinger"
   720 ! !
   726 ! !
   721 
   727 
   722 !UIObjectView methodsFor:'misc'!
   728 !UIObjectView methodsFor:'misc'!
   723 
   729 
   724 invertOutlineOf:something
   730 invertOutlineOf:something