You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
1.7 KiB
74 lines
1.7 KiB
#!/usr/bin/env tclsh |
|
|
|
# Copyright (C) 2021, Maxim Lihachev, <envrm@yandex.ru> |
|
# |
|
# This program is free software: you can redistribute it and/or modify it |
|
# under the terms of the GNU General Public License as published by the Free |
|
# Software Foundation, version 3. |
|
# |
|
# This program is distributed in the hope that it will be useful, but WITHOUT |
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
|
# more details. |
|
# |
|
# You should have received a copy of the GNU General Public License along with |
|
# this program. If not, see <https://www.gnu.org/licenses/>. |
|
|
|
# |
|
# Simple pop-up calendar widget. |
|
# |
|
# NB: Window geometry is hardcoded. |
|
# |
|
|
|
package require Tk |
|
package require widget |
|
package require widget::calendar |
|
|
|
proc showCalendar {} { |
|
wm title . "TCalendar" |
|
set t [widget::calendar .t -font "Helvetica 13" -dateformat "%Y-%m-%d" -language ru] |
|
|
|
set w 321 |
|
set h 185 |
|
|
|
set x [ expr {([winfo vrootwidth .] - $w)}] |
|
set y 21 |
|
|
|
wm geometry . ${w}x${h}+${x}+${y} |
|
|
|
pack $t -fill x -expand 1 |
|
|
|
bind . <KeyPress-Control_L><KeyPress-q> exit |
|
bind . <KeyPress-Control_R><KeyPress-q> exit |
|
bind . <KeyPress-q> exit |
|
bind . <Escape> exit |
|
} |
|
|
|
# Close calendar if exists. |
|
proc closeCalendar {} { |
|
set cmd [file tail $::argv0] |
|
|
|
# user 23192 30619 0 14:45 pts/8 00:00:00 tclsh tcalendar |
|
lassign [exec ps -ef | grep -E "\[t\]clsh.*$cmd"] uid pid ppid c stime tty time cmd |
|
|
|
puts [pid] |
|
|
|
puts $pid |
|
puts "$pid != {} || $pid != [pid]" |
|
|
|
if {$pid != {} && $pid != [pid]} { |
|
exec kill $pid |
|
return 0 |
|
} else { |
|
return 1 |
|
} |
|
} |
|
|
|
set newCalendar [closeCalendar] |
|
|
|
if {$newCalendar} { |
|
showCalendar |
|
} else { |
|
exit |
|
} |
|
|
|
|