From d387bb911dff9c28f889744b335ba5dc9a642d92 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 10 Oct 2024 14:28:36 +0200
Subject: [PATCH] add commented example for custom radiobutton menu entries in
 add_custom_menu.tcl

---
 src/add_custom_menu.tcl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/src/add_custom_menu.tcl b/src/add_custom_menu.tcl
index db9f51b8..7eaf3176 100644
--- a/src/add_custom_menu.tcl
+++ b/src/add_custom_menu.tcl
@@ -27,3 +27,41 @@ pack .menubar.test -side left
 # button .menubar.test -pady 0 -highlightthickness 0 -text Test -command {puts Test}
 # pack  .menubar.test -side left
 
+
+## create a menu 'PDK' with radiobutton entries
+#  proc menupdk {} {
+#    global libptr dark_gui_colorscheme
+#    if { $dark_gui_colorscheme} {
+#      set selectcolor white
+#    } else {
+#      set selectcolor black
+#    }
+#
+#    ## Create a menu entry 'Test'.  '.menubar' is xschem's main menu frame.
+#    menubutton .menubar.pdk -text "PDK" -menu .menubar.pdk.menu -padx 3 -pady 0
+#    menu .menubar.pdk.menu -tearoff 0
+#
+#    .menubar.pdk.menu add radiobutton -selectcolor $selectcolor -variable libptr \
+#        -value gf180mcu -label "GF180MCU" -command {
+#        set_env gf180mcu
+#    }
+#
+#    .menubar.pdk.menu add radiobutton -selectcolor $selectcolor -variable libptr \
+#        -value sky130 -label "SKY130" -command {
+#        set_env sky130
+#    }
+#
+#    .menubar.pdk.menu add radiobutton -selectcolor $selectcolor -variable libptr \
+#        -value repo -label "xschem repo" -command {
+#        set_env repo
+#    }
+#    ## make the menu appear in xschem window
+#    pack .menubar.pdk -side left
+#    ## or place it before some other menu entry:
+#    # pack .menubar.pdk -before .menubar.file -side left
+#
+#    ## To remove the menu without destroying it:
+#    # pack forget .menubar.pdk
+#  }
+#  menupdk
+