merged in TheSUperChayan feature for displaying `Draw Wire` in status bar when in wiring mode.
This commit is contained in:
parent
bc293a1d8f
commit
95cbd80767
|
|
@ -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",
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue