avoid tk_messageBox in reload schematic warning message (blocks event loop). Avoid using xschem specific XSCHEM_SHAREDIR in utile/utile (can be used standalone)

This commit is contained in:
stefan schippers 2023-11-30 20:52:28 +01:00
parent b507276fa0
commit 4090011a64
2 changed files with 18 additions and 11 deletions

View File

@ -3,6 +3,15 @@
# 10/01/2000 - all architecture-dependent paths ar set here after!
# Schippers Stefan
export PATH="$XSCHEM_SHAREDIR/utile:$PATH"
export UTILE3_PATH="${XSCHEM_SHAREDIR}/utile"
UTILEDIR=$(dirname "$0")
export PATH="$UTILEDIR:$PATH"
export UTILE3_PATH="${UTILEDIR}"
# export PATH="$XSCHEM_SHAREDIR/utile:$PATH"
# export UTILE3_PATH="${XSCHEM_SHAREDIR}/utile"
preprocess.awk $@ | expand_alias.awk | param.awk | clock.awk | stimuli.awk

View File

@ -5038,7 +5038,7 @@ proc alert_ {txtlabel {position +200+300} {nowait {0}} {yesno 0}} {
pack .alert.b1 -side left -fill x -expand yes
if {$yesno} {pack .alert.b2 -side left -fill x -expand yes}
tkwait visibility .alert
grab set .alert
# grab set .alert
focus .alert.b1
bind .alert <Return> { destroy .alert }
bind .alert <Escape> { destroy .alert }
@ -6875,16 +6875,14 @@ proc build_widgets { {topwin {} } } {
# toolbar_add FileMerge "xschem merge" "Merge File" $topwin
$topwin.menubar.file.menu add command -label "Reload" -accelerator {Alt+S} \
-command {
if { [string compare [tk_messageBox -type okcancel -parent [xschem get topwindow] \
-message {Are you sure you want to reload?}] ok]==0 } {
xschem reload
}
if {[alert_ "Are you sure you want to reload?" {} 0 1] == 1} {
xschem reload
}
}
toolbar_add FileReload {
if { [string compare [tk_messageBox -type okcancel -parent [xschem get topwindow] \
-message {Are you sure you want to reload?}] ok]==0 } {
xschem reload
}
if {[alert_ "Are you sure you want to reload?" {} 0 1] == 1} {
xschem reload
}
} "Reload File" $topwin
$topwin.menubar.file.menu add command -label "Save as" -command "xschem saveas" -accelerator {Ctrl+Shift+S}
$topwin.menubar.file.menu add command -label "Save as symbol" \