Improved a few SVG images used in Tk library scripts.

1 files changed, 13 insertions, 24 deletions

diff --git a/library/icons.tcl b/library/icons.tcl
index cf8b525..94f1c8b 100644
--- a/library/icons.tcl
+++ b/library/icons.tcl
@@ -18,10 +18,11 @@ variable ::tk::svgFmt [list svg -scale [expr {[::tk::ScalingPct] / 100.0}]]
 
 image create photo ::tk::icons::error -format $::tk::svgFmt -data {
     <?xml version="1.0" encoding="UTF-8"?>
-    <svg width="32" height="32" version="1.1" viewBox="0 0 8.4669 8.4669" xmlns="http://www.w3.org/2000/svg">
-     <g transform="matrix(1.4545 0 0 1.4545 5.0036 -423.15)">
-      <rect transform="matrix(0,-1,-1,0,0,0)" x="-296.73" y="-2.381" width="5.821" height="5.821" rx="2.91" ry="2.91" fill="#d32f2f"/>
-      <path d="m-1.587 292.77 2.116 2.116m1e-3 -2.116-2.118 2.116" fill="none" stroke="#fff" stroke-linecap="square" stroke-width=".661"/>
+    <svg width="32" height="32" version="1.1" xmlns="http://www.w3.org/2000/svg">
+     <circle cx="16" cy="16" r="16" fill="#d32f2f"/>
+     <g transform="rotate(45,16,16)" fill="#ffffff">
+      <rect transform="rotate(-90)" x="-18" y="6" width="4" height="20"/>
+      <rect x="14" y="6" width="4" height="20"/>
      </g>
     </svg>
 }
@@ -29,37 +30,25 @@ image create photo ::tk::icons::error -format $::tk::svgFmt -data {
 image create photo ::tk::icons::warning -format $::tk::svgFmt -data {
     <?xml version="1.0" encoding="UTF-8"?>
     <svg width="32" height="32" version="1.1" xmlns="http://www.w3.org/2000/svg">
-     <style id="current-color-scheme" type="text/css">.ColorScheme-NeutralText {
-		color:#f67400;
-	    }
-	    .ColorScheme-Text {
-		color:#232629;
-	    }</style>
-     <g stroke-width="2">
-      <circle transform="scale(1,-1)" cx="16" cy="-16" r="16" fill="#f67400"/>
-      <circle cx="16" cy="24" r="2" fill="#fff"/>
-      <path d="m14 20h4v-14h-4z" fill="#fff" fill-rule="evenodd"/>
-     </g>
+     <circle cx="16" cy="16" r="16" fill="#f67400"/>
+     <circle cx="16" cy="24" r="2" fill="#fff"/>
+     <path d="m14 20h4v-14h-4z" fill="#fff"/>
     </svg>
 }
 
 image create photo ::tk::icons::information -format $::tk::svgFmt -data {
     <?xml version="1.0" encoding="UTF-8"?>
     <svg width="32" height="32" version="1.1" xmlns="http://www.w3.org/2000/svg">
-     <g stroke-width="2">
-      <circle transform="scale(1,-1)" cx="16" cy="-16" r="16" fill="#2091df"/>
-      <circle transform="scale(1,-1)" cx="16" cy="-8" r="2" fill="#fff"/>
-      <path d="m14 12h4v14h-4z" fill="#fff" fill-rule="evenodd"/>
-     </g>
+     <circle cx="16" cy="16" r="16" fill="#2091df"/>
+     <circle cx="16" cy="8" r="2" fill="#fff"/>
+     <path d="m14 12h4v14h-4z" fill="#fff" fill-rule="evenodd"/>
     </svg>
 }
 
 image create photo ::tk::icons::question -format $::tk::svgFmt -data {
     <?xml version="1.0" encoding="UTF-8"?>
     <svg width="32" height="32" version="1.1" xmlns="http://www.w3.org/2000/svg">
-     <g transform="matrix(.8 0 0 .8 -3.2 -3.2)">
-      <circle cx="24" cy="24" r="20" fill="#78c367"/>
-      <path d="m26 38h-4v-4h4zm4.14-15.5-1.8 1.84c-1.44 1.46-2.34 2.66-2.34 5.66h-4v-1c0-2.2 0.9-4.2 2.34-5.66l2.48-2.52a3.91 3.91 0 0 0 1.18-2.82c0-2.2-1.8-4-4-4s-4 1.8-4 4h-4c0-4.42 3.58-8 8-8s8 3.58 8 8c0 1.76-0.72 3.36-1.86 4.5z" fill="#fff"/>
-     </g>
+     <circle cx="16" cy="16" r="16" fill="#5c6bc0"/>
+     <path d="m17.6 27.2h-3.2v-3.2h3.2zm3.312-12.4-1.44 1.472c-1.152 1.168-1.872 2.128-1.872 4.528h-3.2v-0.8c0-1.76 0.72-3.36 1.872-4.528l1.984-2.016a3.128 3.128 0 0 0 0.944-2.256c0-1.76-1.44-3.2-3.2-3.2s-3.2 1.44-3.2 3.2h-3.2c0-3.536 2.864-6.4 6.4-6.4s6.4 2.864 6.4 6.4c0 1.408-0.576 2.688-1.488 3.6z" fill="#fff"/>
     </svg>
 }