Thread Perl TK: jpg aus chart erzeugen (13 answers)
Opened by perln00b at 2010-06-29 19:18

pktm
 2010-07-05 11:46
#139482 #139482
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Die Zeilen hier erzeugen den Dialog:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
	# -- file dialog
my $types = [ ['PNG files', '.png'],
['All Files', '*'],];
my $output_path = $mw->getSaveFile(
-filetypes => $types,
-initialfile => time2str("%Y-%m-%d", time()) . '-export',
-defaultextension => '.png',
);

return 0 unless $output_path;


Du kannst diese Zeilen einfach auskommentieren und $output_path auf etwas setzen, das du magst. Deklarieren musst du sie allerdings, z.B. so:
Code: (dl )
my $output_path = 'default.png';


Das mit der Größe kann ich dir gerade gar nicht sagen, am besten machst du dafür einen neuen Beitrag auf.

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread Perl TK: jpg aus chart erzeugen