mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-21 16:52:58 +02:00
Ensure we have Tcl/Tk 8.5 or newer.
This commit is contained in:
@@ -14,6 +14,13 @@
|
|||||||
# the next line restarts using wish \
|
# the next line restarts using wish \
|
||||||
exec wish "$0" "$@"
|
exec wish "$0" "$@"
|
||||||
|
|
||||||
|
# We need at least version 8.5 because of {*} list expansion operator
|
||||||
|
if {[catch {package require Tcl 8.5}]} {
|
||||||
|
puts "This program requires Tcl 8.5 or higher."
|
||||||
|
puts "You have version [info tclversion]"
|
||||||
|
exit 1
|
||||||
|
}
|
||||||
|
|
||||||
wm withdraw .
|
wm withdraw .
|
||||||
|
|
||||||
set Hostname [exec hostname]
|
set Hostname [exec hostname]
|
||||||
|
|||||||
Reference in New Issue
Block a user