UPDATED MAR 18,2004Ok I asked on comp.lang.perl.tk
and found out how to get the postscript to output. Your code is creating "invisble rectangles". So to get ps output, make these changes"
$canvas->createRectangle(
int $x, int $y, int $x, int $y,
-outline=>undef,
-fill=>'white' );
#to (or any variation), you need an outline color and size
$canvas->createRectangle(
int $x, int $y, int $x+1, int $y+1,
-outline=>'lightgreen',
-fill=>'white' );
<END UPDATE>
You should be able to save the Tk Canvas to a postscript file, then you can convert it to any format you want. It should look something like this, but after a quick try, I don't have it quite right.
$main->Button(
-text => "Save",
-command => sub {
my @capture=();
my ($x0,$y0,$x1,$y1)=$canvas->bbox('all');
@capture=('-x'=>$x0,'-y'=>$y0,-height=>$y1-$y0,-width=>$x1-$x
+0);
$canvas -> postscript(-colormode=>'gray',
-file=>$0.'.ps',@capture);
}
)->pack;
MainLoop;
I'm not really a human, but I play one on earth.
flash japh
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.