]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/gadgets/buttons/buttons.factor
Fix conflict
[factor.git] / basis / ui / gadgets / buttons / buttons.factor
index c2fe483d35f00d5f3a8d3984bb067e5d32787f47..ffc0aa63c40a838186808738d38aba71ef023952 100644 (file)
@@ -7,7 +7,6 @@ ui.gadgets.borders ui.gadgets.labels ui.gadgets.theme
 ui.gadgets.tracks ui.gadgets.packs ui.gadgets.worlds ui.gestures
 ui.render math.geometry.rect locals alien.c-types
 specialized-arrays.float ;
-
 IN: ui.gadgets.buttons
 
 TUPLE: button < border pressed? selected? quot ;
@@ -112,10 +111,10 @@ TUPLE: checkmark-paint < caching-pen color last-vertices ;
 
 : checkmark-points ( dim -- points )
     {
-        [ { 0 0 } v* { 0 1 } v+ ]
-        [ { 1 1 } v* { 0 1 } v+ ]
-        [ { 0 1 } v* ]
-        [ { 1 0 } v* ]
+        [ { 0 0 } v* { 0.5 0.5 } v+ ]
+        [ { 1 1 } v* { 0.5 0.5 } v+ ]
+        [ { 1 0 } v* { -0.3 0.5 } v+ ]
+        [ { 0 1 } v* { -0.3 0.5 } v+ ]
     } cleave 4array ;
 
 : checkmark-vertices ( dim -- vertices )