1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#!/usr/bin/perl -w
# $Id: bday,v 1.7 2013/07/17 18:38:10 tom Exp $
#
# Purpose:
# To demonstrate the Perl5 Cdk Calendar Widget
use strict;
# Set some global variables.
my %birthdays = ();
my %appointments = ();
my %anniversay = ();
# Initialize Cdk.
use Cdk;
Cdk::init();
# Create the calendar object.
my $calendar = new Cdk::Calendar(
'Dattrib' => "</32/B>",
'Mattrib' => "</5/B>",
'Yattrib' => "</24/B>",
'Highlight' => "</R>"
);
# Create the scrolling window.
my $swindow = new Cdk::Swindow(
'Title' => "<C></B/5>Date Information",
'Lines' => 300,
'Height' => 4,
'Width' => 50,
'Ypos' => "BOTTOM"
);
# Set the key binding for the calendar widget.
$calendar->bind( 'Key' => "m", 'Function' => sub { setMarkerCB($calendar); } );
# Set the post-process function for the calendar widget.
$calendar->postProcess( 'Function' => sub { checkDatePP($calendar); } );
# Draw the scrolling window.
$swindow->draw();
# Let the user play.
for ( ; ; ) {
# Activate the object.
my ( $day, $month, $year ) = $calendar->activate();
last if not defined $day;
last if not defined $month;
last if not defined $year;
my $msg = sprintf "day %2d, month %2d, year %4d", $day, $month, $year;
$swindow->addline( 'Info' => $msg );
}
# Exit Cdk.
Cdk::end();
#
# This checks if the current date has a marker set on it.
#
sub checkDatePP {
my $calendar = shift;
}
#
# This allows the user to create a marker.
#
sub setMarkerCB {
my $calendar = shift;
my @mesg = ("<C></B/5>What type of a marker is it?");
my @buttons =
( "</B/3>Birthday", "</B/5>Anniversary", "</B/30>Appointment" );
# Get the current date the marker is at.
my ( $day, $month, $year ) = $calendar->getDate();
# Ask the user what type of marker to add.
my $dialog = new Cdk::Dialog( 'Message' => \@mesg, 'Buttons' => \@buttons );
my $choice = $dialog->activate();
undef $dialog;
# If they hit escape, tell them...
if ( !defined $choice ) {
popupLabel( ["Escape Hit. No marker set."] );
$calendar->draw();
return 1;
}
# Check the choice.
if ( $choice == 0 ) {
addBirthdayMarker( $day, $month, $year );
}
elsif ( $choice == 1 ) {
addAnniversaryMarker( $day, $month, $year );
}
elsif ( $choice == 2 ) {
addAppointmentMarker( $day, $month, $year );
}
return 1;
}
#
#
#
sub addBirthdayMarker {
my ( $day, $month, $year ) = @_;
}
#
#
#
sub addAnniversaryMarker {
my ( $day, $month, $year ) = @_;
}
#
#
#
sub addAppointmentMarker {
my ( $day, $month, $year ) = @_;
}
|
