Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
handles fixed
authorClaus Gittinger <cg@exept.de>
Wed, 10 Jun 2009 21:33:24 +0200
changeset 2561 e5a66f3365d6
parent 2560 efad0ef440c7
child 2562 fc0a53ce6152
handles fixed
UIGalleryView.st file | annotate | diff | comparison | revisions 
--- a/UIGalleryView.st	Wed Jun 10 19:31:23 2009 +0200
+++ b/UIGalleryView.st	Wed Jun 10 21:33:24 2009 +0200
@@ -631,17 +631,17 @@
 
     |ext|
 
-    ext := 6@6.
+    ext := 8@8.
 
     aComponent notNil ifTrue:[
-        aOneArgBlock value:(aComponent origin       - (2@2) extent:ext).
-        aOneArgBlock value:(aComponent corner       - (1@1) extent:ext).
-        aOneArgBlock value:(aComponent topRight     - (1@2) extent:ext).
-        aOneArgBlock value:(aComponent bottomLeft   - (2@1) extent:ext).
-        aOneArgBlock value:(aComponent leftCenter rounded   - (2@0) extent:ext).
-        aOneArgBlock value:(aComponent rightCenter rounded  - (1@0) extent:ext).
-        aOneArgBlock value:(aComponent topCenter rounded    - (0@2) extent:ext).
-        aOneArgBlock value:(aComponent bottomCenter rounded - (0@1) extent:ext).
+        aOneArgBlock value:(aComponent origin       - (3@3) extent:ext).
+        aOneArgBlock value:(aComponent corner       - (2@2) extent:ext).
+        aOneArgBlock value:(aComponent topRight     - (2@3) extent:ext).
+        aOneArgBlock value:(aComponent bottomLeft   - (3@2) extent:ext).
+        aOneArgBlock value:(aComponent leftCenter rounded   - (3@0) extent:ext).
+        aOneArgBlock value:(aComponent rightCenter rounded  - (2@0) extent:ext).
+        aOneArgBlock value:(aComponent topCenter rounded    - (0@3) extent:ext).
+        aOneArgBlock value:(aComponent bottomCenter rounded - (0@2) extent:ext).
     ]
 !
 
@@ -656,7 +656,7 @@
             self fillRectangle:aRectangle.
 
             self paint:Color white.
-            self displayRectangle:(aRectangle insetBy:-1).
+            self displayRectangle:(aRectangle insetBy:0).
         ].
         self clippedByChildren:true.
     ].
hg/stx-libtool2