handles fixed
authorClaus Gittinger <cg@exept.de>
Wed, 10 Jun 2009 21:33:24 +0200
changeset 2561e5a66f3365d6
parent 2560 efad0ef440c7
child 2562 fc0a53ce6152
handles fixed
UIGalleryView.st
     1.1 --- a/UIGalleryView.st	Wed Jun 10 19:31:23 2009 +0200
     1.2 +++ b/UIGalleryView.st	Wed Jun 10 21:33:24 2009 +0200
     1.3 @@ -631,17 +631,17 @@
     1.4  
     1.5      |ext|
     1.6  
     1.7 -    ext := 6@6.
     1.8 +    ext := 8@8.
     1.9  
    1.10      aComponent notNil ifTrue:[
    1.11 -        aOneArgBlock value:(aComponent origin       - (2@2) extent:ext).
    1.12 -        aOneArgBlock value:(aComponent corner       - (1@1) extent:ext).
    1.13 -        aOneArgBlock value:(aComponent topRight     - (1@2) extent:ext).
    1.14 -        aOneArgBlock value:(aComponent bottomLeft   - (2@1) extent:ext).
    1.15 -        aOneArgBlock value:(aComponent leftCenter rounded   - (2@0) extent:ext).
    1.16 -        aOneArgBlock value:(aComponent rightCenter rounded  - (1@0) extent:ext).
    1.17 -        aOneArgBlock value:(aComponent topCenter rounded    - (0@2) extent:ext).
    1.18 -        aOneArgBlock value:(aComponent bottomCenter rounded - (0@1) extent:ext).
    1.19 +        aOneArgBlock value:(aComponent origin       - (3@3) extent:ext).
    1.20 +        aOneArgBlock value:(aComponent corner       - (2@2) extent:ext).
    1.21 +        aOneArgBlock value:(aComponent topRight     - (2@3) extent:ext).
    1.22 +        aOneArgBlock value:(aComponent bottomLeft   - (3@2) extent:ext).
    1.23 +        aOneArgBlock value:(aComponent leftCenter rounded   - (3@0) extent:ext).
    1.24 +        aOneArgBlock value:(aComponent rightCenter rounded  - (2@0) extent:ext).
    1.25 +        aOneArgBlock value:(aComponent topCenter rounded    - (0@3) extent:ext).
    1.26 +        aOneArgBlock value:(aComponent bottomCenter rounded - (0@2) extent:ext).
    1.27      ]
    1.28  !
    1.29  
    1.30 @@ -656,7 +656,7 @@
    1.31              self fillRectangle:aRectangle.
    1.32  
    1.33              self paint:Color white.
    1.34 -            self displayRectangle:(aRectangle insetBy:-1).
    1.35 +            self displayRectangle:(aRectangle insetBy:0).
    1.36          ].
    1.37          self clippedByChildren:true.
    1.38      ].