UIGalleryView.st
changeset 3313 dc9f18489a12
parent 3300 0df87ed0b795
child 3384 cfdf2bd0d738
child 3630 5e718e0a754e
equal deleted inserted replaced
3312:84084dd13f11 3313:dc9f18489a12
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
     4  COPYRIGHT (c) 1997 by Claus Gittinger / 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
   653 
   655 
   654     (shown and:[selection notNil and:[hiddenCounter == 0]]) ifTrue:[
   656     (shown and:[selection notNil and:[hiddenCounter == 0]]) ifTrue:[
   655         self clippedByChildren:false.
   657         self clippedByChildren:false.
   656 
   658 
   657         self handlesOf:selection do:[:aRectangle|
   659         self handlesOf:selection do:[:aRectangle|
   658             self paint:Color black.
   660             self paint:self blackColor.
   659             self fillRectangle:aRectangle.
   661             self fillRectangle:aRectangle.
   660 
   662 
   661             self paint:Color white.
   663             self paint:self whiteColor.
   662             self displayRectangle:(aRectangle insetBy:0).
   664             self displayRectangle:(aRectangle insetBy:0).
   663         ].
   665         ].
   664         self clippedByChildren:true.
   666         self clippedByChildren:true.
   665     ].
   667     ].
   666 !
   668 !
   701                     [:sv|
   703                     [:sv|
   702                         |absOrg absFrame|
   704                         |absOrg absFrame|
   703 
   705 
   704                         (sv bounds intersects:r) ifTrue:[   
   706                         (sv bounds intersects:r) ifTrue:[   
   705                             sv isView ifTrue:[
   707                             sv isView ifTrue:[
   706                                 sv borderColor:(Color white).           "/ kludge to force a redraw
   708                                 sv borderColor:(self whiteColor).           "/ kludge to force a redraw
   707                                 sv borderColor:(Color black).
   709                                 sv borderColor:(self blackColor).
   708 
   710 
   709                                 sv withAllSubViewsDo:[:v|
   711                                 sv withAllSubViewsDo:[:v|
   710                                     v realized ifTrue:[
   712                                     v realized ifTrue:[
   711                                         v fill:v viewBackground.
   713                                         v fill:v viewBackground.
   712                                         v exposeX:0 y:0 width:v width height:v height.
   714                                         v exposeX:0 y:0 width:v width height:v height.