add commented example for custom radiobutton menu entries in add_custom_menu.tcl

This commit is contained in:
stefan schippers 2024-10-10 14:28:36 +02:00
parent baad052431
commit d387bb911d
1 changed files with 38 additions and 0 deletions

View File

@ -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