move all images to code

2025-12-06 10:40:45 -08:00 · 2022-06-30 16:53:00 -04:00 · 2022-06-30 16:53:00 -04:00 · f3555d374f
commit f3555d374f
parent 598c667015
3 changed files with 163 additions and 28 deletions
--- a/clog.asd
+++ b/clog.asd
@ -55,4 +55,5 @@
 	       (:file "clog-templates")
 	       (:file "clog-new-app")
 	       (:file "clog-builder")
-	       (:file "image-to-data")))
+	       (:file "image-to-data")
+	       (:file "clog-builder-images")))
--- a/tools/clog-builder-images.lisp
+++ b/tools/clog-builder-images.lisp
@ -0,0 +1,133 @@
+(in-package :clog-tools)
+
+(defparameter img-clog-icon "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAMAAABF0y+mAAABf2lDQ1BzUkdCIElFQzYxOTY2LTIu
+MQAAKJF1kc8rRFEUxz8zgxEjioVkMQkbM2LUxEYZCSVNY5TBZuaZH2p+vN4bSbbKdooSG78W/AVs
+lbVSREqWsiY26DnXqJHMvd17Pvd7zzmdey7Yw2ktY1b0QCabN0KjAfdMZNbtfKSKFhxAV1Qz9aFg
+cIKy4+0Gm7JXXpWrvN+/o3YhbmpgqxYe1HQjLzwmPLGc1xVvCjdpqeiC8LGwx5ACha+VHivyk+Jk
+kT8UG+HQMNgbhN3JXxz7xVrKyAjLy2nPpJe0n3rUS1zx7PSU2DZZrZiEGCWAm3FGGMZPLwOy+/Hi
+o1tOlInv+Y6fJCexmuw6KxgskiRFHo+oS5I9LjYhelxmmhXV/799NRN9vmJ2VwAqHyzrpQOcG/BZ
+sKz3fcv6PADHPZxlS/G5Peh/Fb1Q0tp3oX4NTs5LWmwLTteh+U6PGtFvSf28PZGA5yOoi0DjJdTM
+FXv2c8/hLYRX5asuYHsHOsW/fv4LI2xnxwFcS14AAADkUExURQcFAEEwASwgAD4uAU05AVZAAiEY
+AKuABJJuBOeuB/2+CAwIADYoAayBBP6/CGBIA1A8AfS4CFA7AR4WAGtPAigeATUnAfm7COCpB6p/
+BOWsB3VYBA8LAD0uAtWgByQbARkTAcmXBpJtBAgFAN6nB6B4BZBsBYFhBHJWBGNLA1U/Av/ACAQD
+AF9IA8KSBu+0B553BRsUAVE9A86bBrKGBgkHAKZ9BZ12Bfe6CNahBxMOAQMCAHdaBOatB5t1BQAA
+ANymBwsIAMWUBsqYBr+QBl5HAzcpAvK2CNKeB8+cBumvByZFyZjjEKMAAABMdFJOU///////////
+////////////////////////////////////////////////////////////////////////////
+/////////////wCejeTMAAAACXBIWXMAAC4jAAAuIwF4pT92AAAA40lEQVQokYWSyQ6CMBCG56Sh
+hxoORoJ7oqJWFEXcoe4aef/3scViZavfhdIv07T/DIQKQC41EqHlSEy+4JTUSQL9VyKSAkmZccJC
+9kx5Mpc/WzXju/xIeU+z3qBNU94ZZGHLBsrodHFcCqHW6w+s4WhcpQJw4jQgbE1oGns6i0ohdDKO
+M1+4XC5zJaXejMlugaQrJo0iuWZyUyS3/Ck78bNPuoPPQwhK/DHtsn60vNicKmci4kP+5bphgWHz
+FpXfgwcW8cngMUKPp+u+2BeTbMui7UTLlM1Wj4l6wNSj+Weo83gDWkirJ693IE0AAAAASUVORK5C
+YII=")
+
+(defparameter img-btn-copy  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAmklEQVRYw+3UMRKAMAgEQPilvlB/
+GTsnQcIBVkauZWYLuIQbETFNc2xkhwEABQggAQNAuIGmTc8dCjbgEACABQRAAQJIwAAQHIAteABT
+UIHI24gCDyEMSCEOCGEKaEtlRcgAg5ACeiEMHKITYaCJVsUB0csEMAoZYBByV+hu8Qag9j1AW2gB
+BRRQwIoAKR/mn4DZsIACPFkEuAC6TOkBlDGd7QAAAABJRU5ErkJggg==")
+
+(defparameter img-btn-paste "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAsUlEQVRYw2P8z4Ad3OvZdZdB2a1E
+iQE/YMRhQHUblFHVSpYBpmfgTJPTZBgAt5+wG7AacE8ZSLh36jNcLN8JZN1VItWArOlwl4P8kjmN
+VANU7jIwLI8AM1dEMjAo3yHVAEaEu8G++U/IAEYsEv+RDMMlN9wMQKYZcAQsNjXD0QB8YCQYQAwY
+aQYQFagjwACCmWvUgFEDRg0YNWDUgFEDhqkB+CrQkWAAvgYVUQ2MoW0AAHFG7gFDTC63AAAAAElF
+TkSuQmCC")
+
+(defparameter img-btn-cut   "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAABmklEQVRYw63XS7WDMBRA0WMBDVjA
+AxKehliIA5SgAAUYqAEcxANvkJamJPdDKSN6B6ebT7Ja9psHreFja03X5A7E0JqOszvQ0yCs/HkD
+D2gQRkjOQISasAKzMzDQIIzQvIZWYKImrFwQpK4mjEDvfgo1QQS0AzVBBLQDFUEGCIHUAfH9OYgA
+IbBPQHe8N5sMkAKpAyYHQAp8EDSAGCgJGkAMFAQVIAfeBBUgBw6CDlACL4IOUAJPggHQAplgALRA
+JhgANZA6wACogbwodYAeyIR+/zqQCfONQKBclNcDG3zsC5cDId/E6dtABhgEDEDfGQQMwDwZBAzA
+aXe8EngtQ4OAAdgtAhbAImABLAImwCBgAgwCNkAnYAN0Ag6ASsABUAl4ABoBD0Aj4AIohCqwhb61
+FT836LAZgRSfuxAxeebnQBo4jiEJcy0QKY5oz8+BDWBY9n0ZPn5pPoR5FQiHPA3lV53mQQz0wJJP
+l/JJSPMqAHDl/PeB25cg3Sz3TZQe4+Z9jLdfpPyPr/XKel/l4ruiby4s58ayleb/LPFOTlmptyoA
+AAAASUVORK5CYII=")
+
+(defparameter img-btn-del   "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAArElEQVRYw+2X0QmEMBBEJ8c1YC/p
+JdXYR8pKIUkN64+Cibtkj4MTvJmfQJh56CyIC9FUEjqlIpag5hcMWspHgISLkgUIcjUjKHeaDwDe
+xn0XCLD1wpe6HxBk8o6zjp7SwTFr8QQG3wM6IMD4HhyzHk+WSAABBBBAAAH/+38gxskSfwFoc38z
+ARHAOiW0dbeeZr4r+586q6tvjd58rPru7CX0+fPyXbMDEXOflw0jXPyICXO3dgAAAABJRU5ErkJg
+gg==")
+
+(defparameter img-btn-undo  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAABaklEQVRYw9WVXZmDMBBFY6EaYgEP
+kYCGWMBBHeAABVWAgRjAQTzMdkn3+2iZO3PDU/e+JufATP6CvBKekY+UOac0pJSmuQhIgIKSb+GQ
+OG1dgpLCKXmjBXUKaqbKCcrQ5t/Ged1zH/8KKYxgbcXH5TCvLrE5F1+w6DPlpVg8QePHc7VSs2I4
+CRo/64u+D96KJWhTHmjb7MOxYoHyCcUwQYHLi+x92ICg1W/yUn/XIgOBtkx6ERsWeLxIfOvCp8Dn
+91+IRgmHgC68NeqCQMbjTrsiuB+bcEWwPofSSdCR7xAM/7sEfRk7om8kPmAr8wGHic+gH2c6D3Ch
+0B1AVxobeKl2dFC/1jt4/WHhefC00Tx6XC/yPQKV7xDoPC8APC1APCuAPCnAPCcweEpg8YzA5AmB
+zfsCh3cFHu8JXN4R+LwtIHhTwPCWgOINAcdjAclDAcsjAc0DAc/rgpXnwR9kmkc9yCwPV2Flr/sf
+kDutVKnBxucAAAAASUVORK5CYII=")
+
+(defparameter img-btn-redo  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAABY0lEQVRYw8XWXXWEMBCG4dcCGrCA
+BySsBizEwTrAAQqqIAZiAAd4+HrBdstZSGa6057OFScwDyF/A6pEmdM4DuM4TnN5vQfwvL7MXlPP
+Ibqp/AhYJ04xFjewJS4jbT6gfHX+ds8555znW7c3DMUDLPvT/bIdG3e0yzawPNJ17S4WsOdP23lg
+t9tBqAKlO7zmNeZvoQZsfSNf+njyNSA18w8drAArwCTZQgWYgH5TU9jH4RpYjQ84TNM1kIBe8gpn
+oHd04CCcgAJQGYGrvXUCZuCmAJCAewQYgfxXQCt+Dxj+vQdhoDWNLqC1kFxAaym7AO9mqgMJGCLA
+CvARADxHWhuwD1UDMI91EzAKiw20S5sHeJyYy/vAGwIKCigooKCAggIKCigooKCAggIKCigooKCA
+ggIKCigooKCAggIKChZgCiZgCTZgCA6gLXiApuACHkJ+H9BSrbtOQEutbnsB1X4BPwGfFq1UtMYX
+2wAAAABJRU5ErkJggg==")
+
+(defparameter img-btn-test  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAA1UlEQVRYw+3X0RHCIBCE4b8XW6Ap
+O6ID27EBOrCH9QHGjJGYg/XJ4Qr4ZjYhywWZwwL+Ani4QE65WEABHAMlcAyUaTNnoMI2EwZqGWYN
+tGWYMtBbhnED7TMMGqiTYcRA/QxhAx1miBnoW4aAgU4ynBm1DxLMGhXIBOfTqEAhPjujVVqCSaMB
+mcF5GaFSLbfr5cgIt3IXSbm4wP1XEeyH6L5G+yDZR9n9mOzP2S4Ut9LsUrVr3b1Y7KvNvlzd691e
+MOwVx12y7DXPXjTtVXf9LyxgAZKkJ4F6zhMpFSjAAAAAAElFTkSuQmCC")
+
+(defparameter img-btn-rndr  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAgklEQVRYw+3VMQ6AMAxD0X//E/QG
+PmYYQMCAYtouqMRDNz8pQ1IiIhhIHGEhIDpSQAEFFFDA+sDf/8aZLA9Ic4BAM4DAC5i+FXB9J2D7
+RsD3c4EX/VQg6et8EoGkv18eIzwC7ajsayuA1j2Crtun7hEimu7Hs2lwF95c6wIKKOArwAZYB98h
+JND6pAAAAABJRU5ErkJggg==")
+
+(defparameter img-btn-save  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAgUlEQVRYw+3XsQ3AIAwEwF+B6Twi
+63ijpEmIiRQS3k1k/A0NXGEh0GNzBlEAFUxH9AK0gEjRBgioSANApgPsOhzabW8CCSSQQGTg82Ma
+FJj6VBMIDbxdoFWA0dBWAp4O/BioXuAUKKAagQKswAFGIIFDYAsHK/S1r3oBQghVfR3ZAfx4mpHp
+xQL+AAAAAElFTkSuQmCC")
+
+(defparameter img-btn-load  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAvElEQVRYw+3XSxKEMAgE0FyXk/Ux
+caOJMZChMxs/sM8rpQy0RVW1/C6oUyUIuEIY8IQ44AgV0EnNBAYwBQqwhDAARwgD6ghxwBEIwBYY
+wBQowBI4wBBIYBRYYBC4L9G4WatAeRgwa2oCCXwZoGfiDQHgPwDsTBzPN2EBQDeXeQD9ZKcBXHYD
+C+C6XUgAw37igH0xnjMTBdRDp8xEAXI8dstMwr2C7I2rmUnYJgq6zCQ5ExNIYOHHswXMlwEbA/cn
+p86hgYMAAAAASUVORK5CYII=")
+
+(defparameter img-btn-sim   "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAACDElEQVRYw72XXbGEMAyFj4VqwEI9
+IAENWMABDuogClCAAQzgoB64D/QXkm66O3P7xHTIN6Q9yQm4muuYB2CYD/kNtML9grAW/w3AW6Rl
+/ReABcVa+gEHANjtujYLAEc3YE5f7i2AuRswANjuxw3A0A0AAO75/wA/p/DzIT6u8ewBeJoG1KtH
+SH41eC2nBrDhAEgHkMJFAvhws1bSdzKhAlAKfxYviYQKYITwFgFP8bLhDcILIPYuKs7TOi8C8nEa
+kgm5xfGA+zbMpSCwgHAb5pWFeUuTBYR4yoF1OucMwDYAz9swz/P3+bREgH/UdUXQAF5CLghek0Kx
+PbK15fQANr55jTVgB2BIiNcAVgDTtZkOKdeAsdHQVICGswrV6CvAzolaAFgAsy9vOaqAdADHdfET
+TULdVNNMY1X9kOnKkbCXNUg9vuBuRF2DpPaFaOXjI3dS+kIS3pIbGPX4QhLeVgx51OELSU1neSOk
+94XYfkwEuc8EcP4xBQUPVRSxnRrcZLQGVc7Xm/ARYIOMpqDnkqABpEocYhEXBA1gD4VQlHTOXQNY
+w0QY9VjlrgGM4XPXcrLrAZiQ+pjn3C5AkpEpZ9MOAIXUj2q67gBEGUU9dgNsSD2CugHR2KMevwX4
+ekJg/UJO4eUMwi4LYJ1B2OWFxDpD/gd+/wFD+F+u3+R3+X7gnQXsc2C+dx0zB/8ByzzjO/698fwA
+AAAASUVORK5CYII=")
+
+(defparameter img-btn-exp   "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAk0lEQVRYw+3WyQ2AMAxE0WmBqtIi
+HbgQGqAQeoAbJBYX+yMkkH3PUxYv0Q5DBRRQwGeB1QFN0hJYbzIEmDQKQWCb5IToDlYvhO/AC2HA
+C3HACQlgFDLAIKSAXsgBnZAELuEEmjJhFJBRYH7uCPgS331Gmkg0lWkx0XKmDYW2NNpUeVung+Vm
+tOHhWj+UAgoo4D/AAbZ5MUzjJov0AAAAAElFTkSuQmCC")
+
+(defparameter img-btn-cons  "data:image/png;base64,
+iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAACf0lEQVRYw92XUcG0KhCGnwpmsAId
+iLAZrGCDr4ENSGACCljABnSYcyHCgODq/neHK91lHofhnRlA/nHwPwds0wjjtP0ICDNxzOEXQDCk
+YcIPgBk15j7ADYNrrh/ArCKrAejGgQFoEabkeTDAdAtoEUZgPR5XYOwvgTYBoPV8DeKFsC2f4Qjd
+M0BByMY8XYIkQmnM0yBKIjTGk20UEXHFl4fPsr0QkojIUBvXUh6/SPliXCVTP4QKsGy9dAbYvwP6
+37B5Qx8AwjqbSpgz8PcMEOYYuEFPWQH7DGDTZugp++0KC0DSz3ZJzO0VoMrND7C8AlSEv6+5oAFF
+bn6mTUT8t2wUgCASgKI+jNEw/t8HGGAKYTo8yYRTgwbwd4BF5Z0owllU7qREnXiiCGciuxspUaeu
+KALRcKu1de1MYTFgsuRc6dLQlxKdUp4Je9S4ewfIBHcvpS4gFco5Ssm8Bch2EIycEnsLEH+4EH4G
+yB9kjb5ZwnlmCLpf5IRe/TfAAEPILqRQnFXWfgNwaj+7oE5JvsisLqB0wYaizNsHgMoFV+6NbwJc
+Aaii4HSfUS5Q2Q+5Nh4u1HUyisNfAaqUoVyo62TsHfYC0JNQLlR10p8O+Qqg7Z3uT1WdtIC1ygU6
+9oMOaJ5wbIHeCDrfdxUg/jwe31YuICKyDxd7qQG5wvhCC6SDeWl/BZwEe+6FzYAxJVvZVJp10pdy
+bLnppA0Qk5eeXEiT9oYWKoAOfnpOJxOzxw7npAfQ259eLkddpzKzrIZlGp5vSHE4yklnLtXQlh0y
+vsbeGAnq+rTU1dC3TuM+54KFcdpbt75YzWwLYB/cG6O9b18I/N3NdTFgliB9B8D+ByJz09HLAsms
+AAAAAElFTkSuQmCC")
--- a/tools/clog-builder.lisp
+++ b/tools/clog-builder.lisp
@ -1103,16 +1103,16 @@ of controls and double click to select control."
                                       :top-height 33 :bottom-height 0))
         (tool-bar  (create-div (top-panel box) :class "w3-center"))
 	 (btn-class "w3-button w3-white w3-border w3-border-black w3-ripple")
-         (btn-copy  (create-img tool-bar :alt-text "copy" :url-src "/img/icons/copy.png" :class btn-class))
-         (btn-paste (create-img tool-bar :alt-text "paste" :url-src "/img/icons/paste.png" :class btn-class))
-         (btn-cut   (create-img tool-bar :alt-text "cut" :url-src "/img/icons/cut.png" :class btn-class))
-         (btn-del   (create-img tool-bar :alt-text "delete" :url-src "/img/icons/delete.png" :class btn-class))
-         (btn-undo  (create-img tool-bar :alt-text "undo" :url-src "/img/icons/undo.png" :class btn-class))
-         (btn-redo  (create-img tool-bar :alt-text "undo" :url-src "/img/icons/redo.png" :class btn-class))
-         (btn-test  (create-img tool-bar :alt-text "test" :url-src "/img/icons/run.png" :class btn-class))
-         (btn-rndr  (create-img tool-bar :alt-text "render" :url-src "/img/icons/rndr.png" :class btn-class))
-         (btn-save  (create-img tool-bar :alt-text "save" :url-src "/img/icons/save.png" :class btn-class))
-         (btn-load  (create-img tool-bar :alt-text "load" :url-src "/img/icons/open.png" :class btn-class))
+         (btn-copy  (create-img tool-bar :alt-text "copy"     :url-src img-btn-copy  :class btn-class))
+         (btn-paste (create-img tool-bar :alt-text "paste"    :url-src img-btn-paste :class btn-class))
+         (btn-cut   (create-img tool-bar :alt-text "cut"      :url-src img-btn-cut   :class btn-class))
+         (btn-del   (create-img tool-bar :alt-text "delete"   :url-src img-btn-del   :class btn-class))
+         (btn-undo  (create-img tool-bar :alt-text "undo"     :url-src img-btn-undo  :class btn-class))
+         (btn-redo  (create-img tool-bar :alt-text "redo"     :url-src img-btn-redo  :class btn-class))
+         (btn-test  (create-img tool-bar :alt-text "test"     :url-src img-btn-test  :class btn-class))
+         (btn-rndr  (create-img tool-bar :alt-text "render"   :url-src img-btn-rndr  :class btn-class))
+         (btn-save  (create-img tool-bar :alt-text "save"     :url-src img-btn-save  :class btn-class))
+         (btn-load  (create-img tool-bar :alt-text "load"     :url-src img-btn-load  :class btn-class))
         (content   (center-panel box))
         (in-simulation    nil)
 	 (undo-chain       nil)
@ -1383,18 +1383,18 @@ of controls and double click to select control."
                                         :top-height 33 :bottom-height 0))
           (tool-bar  (create-div (top-panel pbox) :class "w3-center"))
 	   (btn-class "w3-button w3-white w3-border w3-border-black w3-ripple")
-           (btn-copy  (create-img tool-bar :alt-text "copy" :url-src "/img/icons/copy.png" :class btn-class))
-           (btn-paste (create-img tool-bar :alt-text "paste" :url-src "/img/icons/paste.png" :class btn-class))
-           (btn-cut   (create-img tool-bar :alt-text "cut" :url-src "/img/icons/cut.png" :class btn-class))
-           (btn-del   (create-img tool-bar :alt-text "delete" :url-src "/img/icons/delete.png" :class btn-class))
-           (btn-undo  (create-img tool-bar :alt-text "delete" :url-src "/img/icons/undo.png" :class btn-class))
-           (btn-redo  (create-img tool-bar :alt-text "delete" :url-src "/img/icons/redo.png" :class btn-class))
-           (btn-sim   (create-img tool-bar :alt-text "simulate" :url-src "/img/icons/walk.png" :class btn-class))
-           (btn-test  (create-img tool-bar :alt-text "test" :url-src "/img/icons/run.png" :class btn-class))
-           (btn-rndr  (create-img tool-bar :alt-text "render" :url-src "/img/icons/rndr.png" :class btn-class))
-           (btn-save  (create-img tool-bar :alt-text "save" :url-src "/img/icons/save.png" :class btn-class))
-           (btn-load  (create-img tool-bar :alt-text "load" :url-src "/img/icons/open.png" :class btn-class))
-           (btn-exp   (create-img tool-bar :alt-text "export" :url-src "/img/icons/export.png" :class btn-class))
+           (btn-copy  (create-img tool-bar :alt-text "copy"     :url-src img-btn-copy  :class btn-class))
+           (btn-paste (create-img tool-bar :alt-text "paste"    :url-src img-btn-paste :class btn-class))
+           (btn-cut   (create-img tool-bar :alt-text "cut"      :url-src img-btn-cut   :class btn-class))
+           (btn-del   (create-img tool-bar :alt-text "delete"   :url-src img-btn-del   :class btn-class))
+           (btn-undo  (create-img tool-bar :alt-text "undo"     :url-src img-btn-undo  :class btn-class))
+           (btn-redo  (create-img tool-bar :alt-text "redo"     :url-src img-btn-redo  :class btn-class))
+           (btn-sim   (create-img tool-bar :alt-text "simulate" :url-src img-btn-sim   :class btn-class))
+           (btn-test  (create-img tool-bar :alt-text "test"     :url-src img-btn-test  :class btn-class))
+           (btn-rndr  (create-img tool-bar :alt-text "render"   :url-src img-btn-rndr  :class btn-class))
+           (btn-save  (create-img tool-bar :alt-text "save"     :url-src img-btn-save  :class btn-class))
+           (btn-load  (create-img tool-bar :alt-text "load"     :url-src img-btn-load  :class btn-class))
+           (btn-exp   (create-img tool-bar :alt-text "export"   :url-src img-btn-exp   :class btn-class))
           (wcontent  (center-panel pbox)))
      (setf (background-color (top-panel pbox)) :black)
      (setf (height btn-copy) "12px")
@ -1499,14 +1499,14 @@ of controls and double click to select control."
      (set-on-click btn-sim (lambda (obj)
                              (declare (ignore obj))
                              (cond (in-simulation
-                                     (setf (url-src btn-sim) "/img/icons/walk.png")
+                                     (setf (url-src btn-sim) img-btn-sim)
                                     (setf in-simulation nil)
                                     (maphash (lambda (html-id control)
                                                (declare (ignore html-id))
                                                (setf (hiddenp (get-placer control)) nil))
                                              (get-control-list app panel-id)))
                                    (t
-                                     (setf (url-src btn-sim) "/img/icons/construction.png")
+                                     (setf (url-src btn-sim) img-btn-cons)
                                     (deselect-current-control app)
                                     (on-populate-control-properties-win content :win win)
                                     (setf in-simulation t)
@ -1658,14 +1658,15 @@ of controls and double click to select control."
  "Open about box"
  (let ((about (create-gui-window obj
                                  :title   "About"
-                                  :content "<div class='w3-black'>
-                                         <center><img src='/img/icons/clog-icon.png'></center>
+                                  :content (format nil "<div class='w3-black'>
+                                         <center><img src='~A'></center>
                                         <center>CLOG</center>
                                         <center>The Common Lisp Omnificent GUI</center></div>
                                         <div><p><center>
                                           <a target=_blank href='https://github.com/sponsors/rabbibotton'>CLOG Builder</a>
                                           </center>
                                         <center>(c) 2022 - David Botton</center></p></div>"
+						   img-clog-icon)
                                  :width   200
                                  :height  215
                                  :hidden  t)))
@ -1735,7 +1736,7 @@ of controls and double click to select control."
                                      :content (format nil "static-root: ~A" clog::*static-root*)))
          -9999)
    (let* ((menu  (create-gui-menu-bar body))
-           (icon  (create-gui-menu-icon menu :image-url "/img/icons/clog-icon.png"
+           (icon  (create-gui-menu-icon menu :image-url img-clog-icon
 					     :on-click  #'on-help-about-builder))
           (file  (create-gui-menu-drop-down menu :content "Builder"))
           (tools (create-gui-menu-drop-down menu :content "Tools"))