From 95cbd80767562cc21b0548fa3a2291a79d7758e2 Mon Sep 17 00:00:00 2001 From: stefan schippers Date: Wed, 12 Feb 2025 16:25:46 +0100 Subject: [PATCH] merged in TheSUperChayan feature for displaying `Draw Wire` in status bar when in wiring mode. --- src/callback.c | 6 ++++++ src/xschem.tcl | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/src/callback.c b/src/callback.c index 814b79ba..fdf5b81e 100644 --- a/src/callback.c +++ b/src/callback.c @@ -4503,6 +4503,12 @@ int wire_draw_active = (xctx->ui_state & STARTWIRE) || } #endif + if(wire_draw_active) { + tclvareval(xctx->top_path, ".statusbar.10 configure -state active -text {DRAW WIRE! }", NULL); + } else { + tclvareval(xctx->top_path, ".statusbar.10 configure -state normal -text { }", NULL); + } + tclvareval(xctx->top_path, ".statusbar.7 configure -text $netlist_type", NULL); tclvareval(xctx->top_path, ".statusbar.3 delete 0 end;", xctx->top_path, ".statusbar.3 insert 0 $cadsnap", diff --git a/src/xschem.tcl b/src/xschem.tcl index 41fd2800..217a2452 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -8057,6 +8057,7 @@ proc pack_widgets { { topwin {} } } { pack $topwin.statusbar.6 -side left pack $topwin.statusbar.7 -side left pack $topwin.statusbar.10 -side left + pack $topwin.statusbar.11 -side left pack $topwin.statusbar.9 -side left pack $topwin.statusbar.8 -side left pack $topwin.statusbar.1 -side left -fill x @@ -8797,7 +8798,8 @@ tclcommand=\"xschem raw_read \$netlist_dir/[file tail [file rootname [xschem get entry_replace_selection $topwin.statusbar.5 label $topwin.statusbar.6 -text "MODE:" label $topwin.statusbar.7 -width 7 - label $topwin.statusbar.10 -text {Stretch:} + label $topwin.statusbar.11 -text {Stretch:} + label $topwin.statusbar.10 -activebackground green -text {} label $topwin.statusbar.9 -textvariable enable_stretch label $topwin.statusbar.8 -activebackground red -text {} add_toolbuttons $topwin