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
|
# $Id: Save.pm,v 1.2 2001/02/03 16:22:54 muhri Exp $
# -*- perl -*-
package Pronto::Save;
use strict;
use File::Copy;
use SelfLoader;
1;
__DATA__
sub save_message_as {
my (@selection, $msgid, $filename,);
$msgid = &Pronto::MessageList::get_selected_msgid();
if (!$msgid) {
&main::err_dialog(_("Select the message You want to save!"));
return 1;
}
$filename = "message$msgid.txt";
my $msg_src = &Pronto::Data::Message::get_source($msgid);
&init_fs_window(undef,$filename,$msg_src,"message");
return 1;
}
sub save_attachment
{
my ($widget, $fs_window, $source) = @_;
my ($filename);
$filename = $fs_window->get_filename();
$fs_window->destroy;
copy($source,$filename);
return 1;
}
sub file_selection_ok {
my ($widget, $fs_window, $msg_src) = @_;
my ($filename);
$filename = $fs_window->get_filename();
$fs_window->destroy;
open(TMP,">$filename");
print TMP $msg_src;
close(TMP);
return 1;
}
sub init_fs_window {
my ($widget, $filename, $source, $message) = @_;
if (!$filename) { $filename=""; }
my ($fs_window);
$fs_window = new Gtk::FileSelection _("Save File...");
$fs_window->position(-mouse);
$fs_window->signal_connect("destroy", sub {$fs_window->destroy;});
$fs_window->signal_connect("delete_event" => \&Gtk::false);
if ($message && $message eq "message") {
$fs_window->ok_button->signal_connect("clicked", \&file_selection_ok, $fs_window, $source);
} else {
$fs_window->ok_button->signal_connect("clicked", \&save_attachment, $fs_window, $source);
}
$fs_window->cancel_button->signal_connect("clicked", sub {$fs_window->destroy;});
$fs_window->set_filename($filename);
$fs_window->show;
return 1;
}
|
