From b31358a4689d79e55f534130ae20d9d19f4a4cae Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Wed, 25 Oct 2023 13:01:00 +0200
Subject: [PATCH] New thumbnails for tabs ctxmenu

---
 src/resources.tcl | 36 ++++++++++++++++++++++++++++++++++++
 src/xschem.tcl    | 12 +++++++-----
 2 files changed, 43 insertions(+), 5 deletions(-)

diff --git a/src/resources.tcl b/src/resources.tcl
index 9bfae5a6..904bf9f3 100644
--- a/src/resources.tcl
+++ b/src/resources.tcl
@@ -573,12 +573,48 @@ ABIALAAAAAAQABAAAAVCoCSOZGmeqBg5ixOlUgLMc4Iec2AE83ESAMVIUYMNZy+jhOdQSgyAhZMJ
 eziIgKTpgaABbKeu14fyfmGMAs2ZHpRCADs=
 "
 
+image create photo CtxmenuTerm
+CtxmenuTerm put "
+R0lGODlhEAAQAPUAAAAAADExMTIyMjMzMzQ0NDU1NTw8PD09PUJCQk9PT3x8fIeHh42NjZCQkKmp
+qaqqqqurq7W1tba2tri4uMbGxsjIyMnJycrKyszMzM3Nzc/Pz9DQ0NHR0dLS0tPT09TU1NXV1dbW
+1tfX1+zs7PT09P7+/v///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAACcALAAAAAAQABAAAAZzwIfw
+AYEMj0dJ5bOsaCrO5kfyqIyu2CyW8jAAvuAw2PAQABIKhnq9BgjK4M5pTj+ZAAX493El1e9vZggT
+YX9ucCYmDQsLD4ZvBQAmdZSADwGSlI+ImnSWmAtsogyHXmKnAAYQVlqtIxoQEkxQUR0UHbQSQQA7
+"
+
+image create photo CtxmenuSymbol
+CtxmenuSymbol put "
+R0lGODlhEAAQAPUAAAAAACgoKCkpKTQ0NDc3N1FRUVxcXGZmZnR0dHp6eouLi4yMjJSUlJubm6Ki
+oqioqKqqqrW1tba2tre3t7+/v8DAwMbGxsfHx8jIyMnJycrKyszMzM3Nzc/Pz9DQ0NHR0dPT09TU
+1NXV1dbW1tfX19jY2OXl5fPz8/r6+v39/f7+/gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAACsALAAAAAAQABAAAAaDQIhw
+SCwKJZhQEsPBMJehCYSzqlqvVgwEs0o1LuCK43T1bFcNgHoNUKSq2sRAAFiEGQMAolqCFNYQVykG
+ACUrWiGHABdYJgAHGBVnF4tYKWsCEImUjFeOkBJ+gIKEhnFzdXcEenBnaWxqC28rZlxeGGFjV1pU
+WL60EBJKThgexcdOEkEAOw==
+"
+
+image create photo CtxmenuSchematic
+CtxmenuSchematic put "
+R0lGODlhEAAQAPQAAAAAAAQEBBwcHB4eHkJCQkxMTGpqanNzc319fZGRkaioqKqqqq+vr7m5ucLC
+wsrKytjY2Nra2t/f3+Li4ubm5u7u7vDw8PPz8/n5+fz8/P///wAAAAAAAAAAAAAAAAAAACH5BAEA
+ABsALAAAAAAQABAAAAVO4CaOZGmKDqACyTkuK2C4Y6VK2tkU16apFRcB8IgIVBMh4KAKMEyOROKo
+QmBOMdWCFp2urLTNkAlw0oZFalLH8wHDo1ulF85GwlQVZRMCADs=
+"
+image create photo CtxmenuOpendir
+CtxmenuOpendir put "
+R0lGODlhEAAQAPMAAAAAAAICAg0NDTMzMzc3N0dHR3R0dHp6eoGBgY6Ojrm5ucjIyObm5vDw8Pr6
++gAAACH5BAEAAA8ALAAAAAAQABAAAARB8MlJ6zQgi2Zv/sIijuLznej3DGzrvg8iz3Rtpjhw5+hD
+8CfC4wD8HB6KYkbxYCgBjIfj6ZAIioJJoViYJIqJRwQAOw==
+"
+
 image create photo CtxmenuFlip
 CtxmenuFlip put "
 R0lGODlhEAAQAPMAAAAAAAQEBDc3N42NjaamptDQ0NHR0eTk5AAAAAAAAAAAAAAAAAAAAAAAAAAA
 AAAAACH5BAEAAAgALAAAAAAQABAAAAQvEMlJq7046807NgJwTAcgGBMIrAPhDquJBnFtAwGisi4B
 r6dUaCQpBT3IpHKJiAAAOw==
 "
+
 image create photo CtxmenuAbort
 CtxmenuAbort put "
 R0lGODlhEAAQAPUAAAAAAAQEBAkJCQ0NDRISEhcXFx4eHicnJygoKC4uLjIyMjg4ODw8PE5OTlFR
diff --git a/src/xschem.tcl b/src/xschem.tcl
index bdfe541c..b466ceaf 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -5628,9 +5628,11 @@ proc tab_context_menu {tab_but} {
   if {$filetype eq {SCHEMATIC}} {
     set counterpart [abs_sym_path $filename .sym]
     set msg {Open symbol}
+    set img CtxmenuSymbol
   } elseif {$filetype eq {SYMBOL}} {
     set counterpart [abs_sym_path $filename .sch]
     set msg {Open schematic}
+    set img CtxmenuSchematic
   } else {
     set counterpart {}
     set msg {}
@@ -5651,20 +5653,20 @@ proc tab_context_menu {tab_but} {
   button .ctxmenu.b0 -text {Tab menu} -padx 3 -pady 0 -anchor w -activebackground grey50 \
      -bg white -highlightthickness 0 -state disabled -disabledforeground black -font [subst $font]
   button .ctxmenu.b1 -text {Copy filename} -padx 3 -pady 0 -anchor w -activebackground grey50 \
-     -highlightthickness 0 -image CtxmenuEdit -compound left \
+     -highlightthickness 0 -image CtxmenuCopy -compound left \
     -font [subst $font] -command "set retval 1; tab_ctx_cmd $tab_but copy; destroy .ctxmenu"
   button .ctxmenu.b2 -text {Open directory} -padx 3 -pady 0 -anchor w -activebackground grey50 \
-     -highlightthickness 0 -image CtxmenuEdit -compound left \
+     -highlightthickness 0 -image CtxmenuOpendir -compound left \
     -font [subst $font] -command "set retval 2; tab_ctx_cmd $tab_but dir; destroy .ctxmenu"
   button .ctxmenu.b3 -text {Open terminal} -padx 3 -pady 0 -anchor w -activebackground grey50 \
-     -highlightthickness 0 -image CtxmenuEdit -compound left \
+     -highlightthickness 0 -image CtxmenuTerm -compound left \
     -font [subst $font] -command "set retval 3; tab_ctx_cmd $tab_but term; destroy .ctxmenu"
   button .ctxmenu.b4 -text {Edit file} -padx 3 -pady 0 -anchor w -activebackground grey50 \
      -highlightthickness 0 -image CtxmenuEdit -compound left \
     -font [subst $font] -command "set retval 4; tab_ctx_cmd $tab_but edit; destroy .ctxmenu"
   if {$counterpart ne {}} {
     button .ctxmenu.b6 -text $msg -padx 3 -pady 0 -anchor w -activebackground grey50 \
-       -highlightthickness 0 -image CtxmenuEdit -compound left \
+       -highlightthickness 0 -image $img -compound left \
       -font [subst $font] \
       -command "
          set retval 6
@@ -5678,7 +5680,7 @@ proc tab_context_menu {tab_but} {
       -font [subst $font] -command "set retval 5; tab_ctx_cmd $tab_but netlist; destroy .ctxmenu"
   }
   button .ctxmenu.b7 -text {Close tab} -padx 3 -pady 0 -anchor w -activebackground grey50 \
-     -highlightthickness 0 -image CtxmenuEdit -compound left \
+     -highlightthickness 0 -image CtxmenuDelete -compound left \
     -font [subst $font] -command "set retval 7; tab_ctx_cmd $tab_but close; destroy .ctxmenu"
 
   pack .ctxmenu.b0 -fill x -expand true