#!/bin/sh

# $Id: meniny.tcl,v 1.2 2002/02/04 15:05:02 host8 Exp $

#The next line restarts using wishx \
          exec wishx "$0" "$@"
#!/usr/bin/wishx 

##To write this script I was inspired from Slovak version of Windows 98 where
##when booting a small window with actual Name from calendar pops up.
##Add a script's name to your .xinitrc file.
##AUTHOR :       Karol Krska <kkrska@pobox.sk>
##REQUIREMENTS : Extended TclX 8.0
##DATE :         12.03.01
##VERSION :      0.2

#Here we are getting an actual date from a system.
set systemTime [clock seconds]
set day [clock format $systemTime -format {%d}]
set month [clock format $systemTime -format {%b}]

# The program wasn't working when it was eigth and nineth day in a month.
if {$day == "08" } { set day 8 }
if {$day == "09" } { set day 9 }

#setting parameters
set january { error Novy_rok,Den_vzniku_SR Alexandra Daniela Drahoslav Andrea
Antonia,Traja_krali Bohuslava Severin Alexej Dasa Malvina Ernest Rastislav
Radovan Dobroslav Kristina Natasa Bohdana Drahomira Dalibor Vincent Zora
Milos Timotej Gejza Tamara Bohus Alfonz Gaspar Ema Emil }
set february { error Tatiana Erik,Erika Blazej Veronika Agata Dorota Vanda Zoja
Zdenko Gabriela Dezider Perla Arpad Valentin,Den_zamilovanych Pravoslav Ida
Miloslava Jaromir Vlasta Livia Eleonora Etela Roman,Romana Matej
Frederik,Frederika Viktor Alexander Zlatica Radomir }
set march { error Albin Anezka Bohumil,Bohumila Kazimir Fridrich
Radoslav,Radoslava Tomas Alan,Alana Frantiska Branislav,Bruno
Angela,Angelika Gregor Vlastimil Matilda Svetlana Boleslav Lubica Eduard
Jozef Vitazoslav Blahoslav Benadik Adrian Gabriel Marian Emanuel Alena Sona
Miroslav Vieroslava Benjamin }
set april { error Hugo Zita Richard Izidor Miroslava Irena Zoltan Albert Milena 
Igor Julius Estera Ales Justina Fedor Dana,Danica Rudolf Valer Jela Marcel 
Ervin Slavomir Vojtech Juraj Marek Jaroslava Jaroslav Jarmila Lea Anastazia }
set may { error Sviatok_prace Zigmund Galina Florian Lesana,Lesia Hermina
Monika Ingrida,Den_vitazstva_nad_fasizmom Roland Viktoria Blazena Pankrac
Servac  Bonifac Zofia Svetozar Gizela Viola Gertruda Bernard Zina
Julia,Juliana Zelmira Ela Urban Dusan Iveta Viliam Vilma Ferdinand
Petronela,Petrana }
set june { error Zaneta Xenia Karolina Lenka Laura Norbert Robert Medard
Stanislava Margareta Dobroslava Zlatko Anton Vasil Vit Blanka Adolf
Vratislav Alfred Valeria Alojz Paulina Sidonia Jan Tadeas Adriana
Ladislav,Ladislava Beata Peter_a_Pavol,Petra Melania }
set july { error Diana Berta Miloslav Prokop Cyril_a_Metod Patrik,Patricia
Oliver Ivan Lujza Amalia Milota Nina Margita Kamil Henrich Drahomir Bohuslav
Kamila Dusana Ilja,Elias Daniel Magdalena Olga Vladimir Jakub Anna,Hana
Bozena Kristof Marta Libusa Ignac }
set august { error Bozidara Gustav Jergus Dominik,Dominika Hortenzia Jozefina
Stefania Oskar Lubomira Vavrinec Zuzana Darina Lubomir Mojmir Marcela
Leonard Milica Elena,Helena Lydia Anabela Jana Tichomir Filip Bartolomej
Ludovit Samuel Silvia Augustin Nikola Ruzena Nora }
set september { error Drahoslava,Den_ustavy_SR Linda Belo Rozalia Regina Alica
Marianna Miriama Martina Oleg Bystrik Maria Ctibor Ludomil Jolana Ludmila
Olympia Eugenia Konstantin Luboslav,Luboslava Matus Moric Zdenka Lubos,Lubor
Vladislav Edita Cyprian Vaclav Michal,Michaela Jarolim }
set october { error Arnold Levoslav Stela Frantisek Viera Natalia
Eliska Brigita Dionyz Slavomira Valentina Maximilian Koloman Boris Terezia
Vladimira Hedviga Lukas Kristian Vendelin Ursula Sergej Alojzia Kvetoslava
Aurel Demeter Sabina Dobromila Klara Simon,Simona Aurelia } 
set november { error Denis,Denisa Pamiatka_zosnulych Hubert Karol Imrich Renata
Rene Bohumir Teodor  Tibor Martin,Maros Svatopluk Stanislav Irma Leopold
Agnesa Klaudia Eugen Alzbeta Felix Elvira Cecilia Klement Emilia Katarina
Kornel Milan Henrieta Vratko Ondrej,Andrej }
set december { error Edmund Bibiana Oldrich Barbora Oto Mikulas Ambroz Marina
Izabela Raduz Hilda Otilia Lucia Branislava,Bronislava Ivica Albina Kornelia
Slava,Slavka Judita Dagmara Bohdan Adela Nadezda Adam_a_Eva,Stedry_den
1.sviatok_vianocny Stefan,2.sviatok_vianocny Filomena Ivana,Ivona Milada
David Silvester }

#testing parameters
switch -exact $month {
 Jan { set i [lindex $january $day] }
 Feb { set i [lindex $february $day] }
 Mar { set i [lindex $march $day] }
 Apr { set i [lindex $april $day] }
 May { set i [lindex $may $day] }
 Jun { set i [lindex $june $day] }
 Jul { set i [lindex $july $day] }
 Aug { set i [lindex $august $day] }
 Sep { set i [lindex $september $day] }
 Oct { set i [lindex $october $day] }
 Nov { set i [lindex $november $day] }
 Dec { set i [lindex $december $day] }
 default { set i Error}
}

incr day +1

switch -exact $month {
 Jan { set j [lindex $january $day] }
 Feb { set j [lindex $february $day] }
 Mar { set j [lindex $march $day] }
 Apr { set j [lindex $april $day] }
 May { set j [lindex $may $day] }
 Jun { set j [lindex $june $day] }
 Jul { set j [lindex $july $day] }
 Aug { set j [lindex $august $day] }
 Sep { set j [lindex $september $day] }
 Oct { set j [lindex $october $day] }
 Nov { set j [lindex $november $day] }
 Dec { set j [lindex $december $day] }
 default { set j Error}
}

 
sleep 1
button .b  -text  "Dnes ma meniny $i\nZajtra ma meniny $j" 
pack .b -side left -ipadx 2m -ipady 1m
after 15000 destroy .