From 25724211620cb026dd791eded428cad75c835488 Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Mon, 17 Feb 2020 15:13:54 -0500
Subject: [PATCH] Added new option setting Opts(toolsize) that makes the
 toolbar icons scale with the given size (default 16).  This can be put in the
 site.def or .magicrc file as, e.g., "set Opts(toolsize) 32".  This is the
 first part of an attempt to get everything to scale properly on ultra-high-
 resolution monitors.

---
 tcltk/wrapper.tcl | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/tcltk/wrapper.tcl b/tcltk/wrapper.tcl
index 49936c8c..3252fea0 100644
--- a/tcltk/wrapper.tcl
+++ b/tcltk/wrapper.tcl
@@ -537,6 +537,7 @@ set Opts(crosshair) 0
 set Opts(hidelocked) 0
 set Opts(hidespecial) 0
 set Opts(toolbar) 0
+set Opts(toolsize) 16
 set Opts(drc) 1
 set Opts(autobuttontext) 1
 
@@ -720,18 +721,21 @@ proc magic::toolupdate {win {yesno "yes"} {layerlist "none"}} {
 # Generate the toolbar images for a technology
 
 proc magic::maketoolimages {} {
+   global Opts
+
+   set tsize $Opts(toolsize)
 
    # Generate a layer image for "space" that will be used when layers are
    # invisible.
 
-   image create layer img_space -name none
+   image create layer img_space -name none -width $tsize -height $tsize
 
    set all_layers [concat {errors labels subcell} [magic::tech layer "*"]]
 
    foreach layername $all_layers {
-      image create layer img_$layername -name $layername
+      image create layer img_$layername -name $layername -width $tsize -height $tsize
       image create layer pale_$layername -name $layername \
-		-disabled true -icon 23
+		-disabled true -icon 23 -width $tsize -height $tsize
     }
 }