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
|
# $Id: GUI.pm,v 1.1.1.1 2001/01/16 10:37:30 muhri Exp $
package Pronto::Crypt::GUI;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
);
$VERSION = '0.01';
sub obtain_passphrase {
my $passwindow = new Gtk::Window(-toplevel);
$passwindow->set_title("Please enter your passphrase"); #" Dont ask.
my $hbox = new Gtk::HBox(0,0);
my $label = new Gtk::Label("Passphrase");
my $entry = new Gtk::Entry();
$entry->set_visibility(0);
my $button = new Gtk::Button("Submit");
$button->signal_connect('clicked', \&set_passphrase, [$entry, $passwindow]);
$hbox->pack_start($label,0,0,0);
$hbox->pack_start($entry,0,0,0);
$hbox->pack_start($button,0,0,0);
$passwindow->add($hbox);
$button->show;
$hbox->show;
$label->show;
$entry->show;
$passwindow->show;
return 1;
}
sub set_passphrase {
my $button = shift;
my $secondbit = shift;
my $passphrase = ($secondbit->[0])->get_text;
($secondbit->[1])->destroy;
return 1;
}
sub keyserver_search_window {
&main::wr_debug("Opening keyserver search window");
return 1;
}
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
Prontocrypt - Perl extension for blah blah blah
=head1 SYNOPSIS
use Prontocrypt;
blah blah blah
=head1 DESCRIPTION
Stub documentation for Prontocrypt was created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
=head1 AUTHOR
A. U. Thor, a.u.thor@a.galaxy.far.far.away
=head1 SEE ALSO
perl(1).
=cut
|
