luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove reference to cadsnap_default in menu widget "View->Set snap value"

This commit is contained in:
stefan schippers 2023-08-08 11:19:48 +02:00
parent ac042ed21f
commit 163eaea672
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/xschem.tcl
View File

@ -5761,7 +5761,7 @@ proc build_widgets { {topwin {} } } {
global colors recentfile color_ps transparent_svg menu_debug_var enable_stretch global colors recentfile color_ps transparent_svg menu_debug_var enable_stretch
global netlist_show flat_netlist split_files tmp_bus_char compare_sch global netlist_show flat_netlist split_files tmp_bus_char compare_sch
global draw_grid big_grid_points sym_txt change_lw incr_hilight symbol_width global draw_grid big_grid_points sym_txt change_lw incr_hilight symbol_width
global cadgrid draw_window show_pin_net_names toolbar_visible hide_symbols undo_type global cadsnap cadgrid draw_window show_pin_net_names toolbar_visible hide_symbols undo_type
global disable_unique_names persistent_command autotrim_wires en_hilight_conn_inst global disable_unique_names persistent_command autotrim_wires en_hilight_conn_inst
global local_netlist_dir editor netlist_type netlist_dir spiceprefix initial_geometry global local_netlist_dir editor netlist_type netlist_dir spiceprefix initial_geometry
set mbg {} set mbg {}
@ -5907,10 +5907,10 @@ proc build_widgets { {topwin {} } } {
xschem redraw xschem redraw
} }
$topwin.menubar.option.menu add command -label "Half Snap Threshold" -accelerator G -command { $topwin.menubar.option.menu add command -label "Half Snap Threshold" -accelerator G -command {
xschem set cadsnap [expr {[xschem get cadsnap] / 2.0} ] xschem set cadsnap [expr {$cadsnap / 2.0} ]
} }
$topwin.menubar.option.menu add command -label "Double Snap Threshold" -accelerator Shift-G -command { $topwin.menubar.option.menu add command -label "Double Snap Threshold" -accelerator Shift-G -command {
xschem set cadsnap [expr {[xschem get cadsnap] * 2.0} ] xschem set cadsnap [expr {$cadsnap * 2.0} ]
} }
$topwin.menubar.option.menu add checkbutton -label "Variable grid point size" -variable big_grid_points \ $topwin.menubar.option.menu add checkbutton -label "Variable grid point size" -variable big_grid_points \
-command { xschem redraw } -command { xschem redraw }
@ -6007,8 +6007,7 @@ proc build_widgets { {topwin {} } } {
# toolbar_add ViewZoomBox "xschem zoom_box" "Zoom Box" $topwin # toolbar_add ViewZoomBox "xschem zoom_box" "Zoom Box" $topwin
$topwin.menubar.view.menu add command -label "Set snap value" \ $topwin.menubar.view.menu add command -label "Set snap value" \
-command { -command {
input_line "Enter snap value ( default: [xschem get cadsnap_default] current: [xschem get cadsnap])" \ input_line "Enter snap value (float):" "xschem set cadsnap" $cadsnap
"xschem set cadsnap" [xschem get cadsnap]
} }
$topwin.menubar.view.menu add command -label "Set grid spacing" \ $topwin.menubar.view.menu add command -label "Set grid spacing" \
-command { -command {