I'm having two big problems with the Img package, and was wondering if
these are known bugs or problems with my installation.

The first problem is that it won't display png images--they just show
up blank.

The second is trying to take screen snapshot with "-data $window".
When I do, it's either blank or only about half the image.

I'm using Img 1.4 with ActiveState Tcl 8.5.8 on 64-bit Windows 7.

If this is an installation problem, how do I use teacup to replace it?

Thanks,
Keith

keithv <kvetter@gmail.com> writes:

> I'm having two big problems with the Img package, and was wondering if
> these are known bugs or problems with my installation.
>
> The first problem is that it won't display png images--they just show
> up blank.
>
> The second is trying to take screen snapshot with "-data $window".
> When I do, it's either blank or only about half the image.
>
> I'm using Img 1.4 with ActiveState Tcl 8.5.8 on 64-bit Windows 7.
>
> If this is an installation problem, how do I use teacup to replace it?

teacup help
=> teacup help cmds-by-group

|   Use 'help <commandname>' to get detailed help for a command.
|
|    == Package management - Use ==
|
|      teacup install     Get and install a package found in an archive or file
|      teacup remove      Remove installed packages

=> teacup help remove

After removal just reinstall.

Alternatively

teacup help install

should point the option --force, which will install the package even
if existing, overwriting whatever you have with whatever is in the
repository.


-- 
So long,
	Andreas Kupries <akupries@shaw.ca>
			<http://www.purl.org/NET/akupries/>
	Developer @	<http://www.activestate.com/>
-------------------------------------------------------------------------------

Hi Keith and *,

On Thu, 8 Jul 2010, Andreas Kupries wrote:

> keithv <kvetter@gmail.com> writes:
> 
> > I'm having two big problems with the Img package, and was wondering if
> > these are known bugs or problems with my installation.
> >
> > The first problem is that it won't display png images--they just show
> > up blank.

this sounds like the behavior I saw and described in my 
(huge!) ActiveTcl/Tablelist thread. 

> > The second is trying to take screen snapshot with "-data $window".
> > When I do, it's either blank or only about half the image.

....

> > I'm using Img 1.4 with ActiveState Tcl 8.5.8 on 64-bit Windows 7.
> >
> > If this is an installation problem, how do I use teacup to replace it?

....

Keith, could you please check if my test script (which I posted in my 
last message) works in your environment?

Here's the script again:
#################################################
puts "Tcl/Tk [package require Tk]"
puts "img::png [package require img::png]" 

set imgdata(png) "iVBORw0KGgoAAAANSUhEUgAAAA4AAAAKCAYAAACE2W/HAAAABHNCSVQICAgIfAhkiAAAAAlwSFlz\
	AAAN1wAADdcBQiibeAAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlLm9yZ5vuPBoAAAFkSURB\
	VCiRnY4/S1thGMV/z3vfXJNGUjs4SCgWweigxhauQaRFYhEEoYiLg5MgLiLo5tB+gw79EJ3chH6A\
	+Ae9Ri0p0q0UF7GICjai3uQ+r0sIgrh44Ezn/A5HnHMA5IPCu9akXVXn3qu677c1/VophyfDH0a/\
	3EXRZxo9AJtInNoG1NaSMBuzxWyq/03GrO+eLm79vhgDBj1rB5YX5u34x2ITnPg03WEAPCNzQ7k2\
	Mz3SYXLZNCtTXb4R6c4HhbcA1nr4vt80gAUQ4UXS95qLIoJvjQJJnNPS5rb29vSYKIrYPzhEVY3N\
	B4XXwMHm0bkEuZf0dWZYD//pTRRfAu5/tfptJ9xr+Vn5NWlEzupxvOac25GBYPgcIYODlC9eVIvF\
	84xGMYoDRP6g9YXWdHqpen09WymHN42rmknkZqyk2omBxmHjg9GrY+p/f7yqlMMSUOKBDM/Us0EL\
	QFyD+O5xqrUnwXsC0n5niE5C8QAAAABJRU5ErkJggg=="

set res [catch {image create photo pngimg -data $imgdata(png)} result]
puts "res=$res\nesult: $result\nerrorCode: $errorCode\nerrorInfo: $errorInfo"
pack [label .l -image pngimg]
#################################################

-- 
 Gerhard Reithofer
 Tech-EDV Support Forum - http://support.tech-edv.co.at

On Jul 9, 11:13=A0am, Gerhard Reithofer <gerhard.reitho...@tech-
edv.co.at> wrote:
> Hi Keith and *,
>
> On Thu, 8 Jul 2010, Andreas Kupries wrote:
> > keithv <kvet...@gmail.com> writes:
>
> > > I'm having two big problems with the Img package, and was wondering i=
f
> > > these are known bugs or problems with my installation.
>
> > > The first problem is that it won't display png images--they just show
> > > up blank.
>
> this sounds like the behavior I saw and described in my
> (huge!) ActiveTcl/Tablelist thread.
>
>
> Keith, could you please check if my test script (which I posted in my
> last message) works in your environment?
>
> Here's the script again:
> #################################################
> puts "Tcl/Tk [package require Tk]"
> puts "img::png [package require img::png]"
>
> set imgdata(png) "iVBORw0KGgoAAAANSUhEUgAAAA4AAAAKCAYAAACE2W/HAAAABHNCSVQ=
ICAgIfAhkiAAAAAlwSFlz\
> =A0 =A0 =A0 =A0 AAAN1wAADdcBQiibeAAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBlL=
m9yZ5vuPBoAAAFkSURB\
> =A0 =A0 =A0 =A0 VCiRnY4/S1thGMV/z3vfXJNGUjs4SCgWweigxhauQaRFYhEEoYiLg5MgL=
iLo5tB+gw79EJ3chH6A\
> =A0 =A0 =A0 =A0 +Ae9Ri0p0q0UF7GICjai3uQ+r0sIgrh44Ezn/A5HnHMA5IPCu9akXVXn3=
qu677c1/VophyfDH0a/\
> =A0 =A0 =A0 =A0 3EXRZxo9AJtInNoG1NaSMBuzxWyq/03GrO+eLm79vhgDBj1rB5YX5u34x=
2ITnPg03WEAPCNzQ7k2\
> =A0 =A0 =A0 =A0 Mz3SYXLZNCtTXb4R6c4HhbcA1nr4vt80gAUQ4UXS95qLIoJvjQJJnNPS5=
rb29vSYKIrYPzhEVY3N\
> =A0 =A0 =A0 =A0 B4XXwMHm0bkEuZf0dWZYD//pTRRfAu5/tfptJ9xr+Vn5NWlEzupxvOac2=
5GBYPgcIYODlC9eVIvF\
> =A0 =A0 =A0 =A0 84xGMYoDRP6g9YXWdHqpen09WymHN42rmknkZqyk2omBxmHjg9GrY+p/f=
7yqlMMSUOKBDM/Us0EL\
> =A0 =A0 =A0 =A0 QFyD+O5xqrUnwXsC0n5niE5C8QAAAABJRU5ErkJggg=3D=3D"
>
> set res [catch {image create photo pngimg -data $imgdata(png)} result]
> puts "res=3D$res\nesult: $result\nerrorCode: $errorCode\nerrorInfo: $erro=
rInfo"
> pack [label .l -image pngimg]
> #################################################

Yes, this fails for me also. Actually the image create doesn't
throw an error, it just doesn't create the image.

My work around, until I try Andreas solution, is that I installed
pixane and a simple 'package require pixane' makes img::png work.

Keith

On Jul 9, 12:58=A0pm, keithv <kvet...@gmail.com> wrote:
> On Jul 9, 11:13=A0am, Gerhard Reithofer <gerhard.reitho...@tech-
>
>
>
> edv.co.at> wrote:
> > Hi Keith and *,
>
> > On Thu, 8 Jul 2010, Andreas Kupries wrote:
> > > keithv <kvet...@gmail.com> writes:
>
> > > > I'm having two big problems with the Img package, and was wondering=
 if
> > > > these are known bugs or problems with my installation.
>
> > > > The first problem is that it won't display png images--they just sh=
ow
> > > > up blank.
>
> > this sounds like the behavior I saw and described in my
> > (huge!) ActiveTcl/Tablelist thread.
>
> > Keith, could you please check if my test script (which I posted in my
> > last message) works in your environment?
>
> > Here's the script again:
> > #################################################
> > puts "Tcl/Tk [package require Tk]"
> > puts "img::png [package require img::png]"
>
> > set imgdata(png) "iVBORw0KGgoAAAANSUhEUgAAAA4AAAAKCAYAAACE2W/HAAAABHNCS=
VQICAgIfAhkiAAAAAlwSFlz\
> > =A0 =A0 =A0 =A0 AAAN1wAADdcBQiibeAAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXB=
lLm9yZ5vuPBoAAAFkSURB\
> > =A0 =A0 =A0 =A0 VCiRnY4/S1thGMV/z3vfXJNGUjs4SCgWweigxhauQaRFYhEEoYiLg5M=
gLiLo5tB+gw79EJ3chH6A\
> > =A0 =A0 =A0 =A0 +Ae9Ri0p0q0UF7GICjai3uQ+r0sIgrh44Ezn/A5HnHMA5IPCu9akXVX=
n3qu677c1/VophyfDH0a/\
> > =A0 =A0 =A0 =A0 3EXRZxo9AJtInNoG1NaSMBuzxWyq/03GrO+eLm79vhgDBj1rB5YX5u3=
4x2ITnPg03WEAPCNzQ7k2\
> > =A0 =A0 =A0 =A0 Mz3SYXLZNCtTXb4R6c4HhbcA1nr4vt80gAUQ4UXS95qLIoJvjQJJnNP=
S5rb29vSYKIrYPzhEVY3N\
> > =A0 =A0 =A0 =A0 B4XXwMHm0bkEuZf0dWZYD//pTRRfAu5/tfptJ9xr+Vn5NWlEzupxvOa=
c25GBYPgcIYODlC9eVIvF\
> > =A0 =A0 =A0 =A0 84xGMYoDRP6g9YXWdHqpen09WymHN42rmknkZqyk2omBxmHjg9GrY+p=
/f7yqlMMSUOKBDM/Us0EL\
> > =A0 =A0 =A0 =A0 QFyD+O5xqrUnwXsC0n5niE5C8QAAAABJRU5ErkJggg=3D=3D"
>
> > set res [catch {image create photo pngimg -data $imgdata(png)} result]
> > puts "res=3D$res\nesult: $result\nerrorCode: $errorCode\nerrorInfo: $er=
rorInfo"
> > pack [label .l -image pngimg]
> > #################################################
>
> Yes, this fails for me also. Actually the image create doesn't
> throw an error, it just doesn't create the image.
>
> My work around, until I try Andreas solution, is that I installed
> pixane and a simple 'package require pixane' makes img::png work.

I just fixed the png problem with:
 teacup remove Img
 teacup remove img::png
 teacup install img::png
 teacup install Img

Still can't get screen snapshot with "-data $window"
working. I tried reinstalling img::window but that
didn't work.

Keith

On Jul 2, 7:59=A0am, keithv <kvet...@gmail.com> wrote:
> I'm having two big problems with the Img package, and was wondering if
> these are known bugs or problems with my installation.
>
> The first problem is that it won't display png images--they just show
> up blank.
>
> The second is trying to take screen snapshot with "-data $window".
> When I do, it's either blank or only about half the image.
>

I haven't tried taking a screen snapshot. However, I have found that I
have problems creating an image using the -data flag but if I use the -
file flag, it works for me.

Hi Keith,

On Fri, 9 Jul 2010, keithv wrote:
> On Jul 9, 11:13=A0am, Gerhard Reithofer <gerhard.reitho...@tech-
> edv.co.at> wrote:
> > Hi Keith and *,
> >
> > On Thu, 8 Jul 2010, Andreas Kupries wrote:
> > > keithv <kvet...@gmail.com> writes:
> >
> > > > I'm having two big problems with the Img package, and was wondering=
 if
> > > > these are known bugs or problems with my installation.
> >
> > > > The first problem is that it won't display png images--they just sh=
ow
> > > > up blank.
> >
> > this sounds like the behavior I saw and described in my
> > (huge!) ActiveTcl/Tablelist thread.
> >
> > Keith, could you please check if my test script (which I posted in my
> > last message) works in your environment?

=2E..

> Yes, this fails for me also. Actually the image create doesn't
> throw an error, it just doesn't create the image.

yes, that's the strange behavior which occupied much of my time.

If you [catch] it it returns 1, errorCode is set to NONE, errorInfo=20
is set to "image create photo pngimg -data $imgdata(png)" (in my case) and=
=20
no image is created.

I've repeated it several times:
  Install ActiveTcl - no error
  teacup update - now the error is present

Tested on 32- and 64-bit Linux.=20

In my tests the png shared library was not changed, thus there will be a=20
combination of several libraries/files which fail.

> My work around, until I try Andreas solution, is that I installed
> pixane and a simple 'package require pixane' makes img::png work.
>=20
> Keith

--=20
 Gerhard Reithofer
 Tech-EDV Support Forum - http://support.tech-edv.co.at

Hi Larry,
thanks also to your answer in my other thread "ActiveTCL/Tablelist=20
broken".

On Fri, 9 Jul 2010, Larry W. Virden wrote:

> On Jul 2, 7:59=A0am, keithv <kvet...@gmail.com> wrote:
> > I'm having two big problems with the Img package, and was wondering if
> > these are known bugs or problems with my installation.
> >
> > The first problem is that it won't display png images--they just show
> > up blank.
> >
> > The second is trying to take screen snapshot with "-data $window".
> > When I do, it's either blank or only about half the image.
> >
>=20
> I haven't tried taking a screen snapshot. However, I have found that I
> have problems creating an image using the -data flag but if I use the -
> file flag, it works for me.

In the meantime I can reproduce the bug:
  1. Install ActiveTcl new -> script works
  2. Do a: teacup update -> script fails

As I always use the same test script, therfore I don't think that a data=20
error exists in my script (see case 1. above).

Also the  flag "-file" always worked for me.

As the "teacup update" did not update img::png (at least the shared lib)=20
I'm unsure if it is a PNG-package problem (alone?). =20

--=20
 Gerhard Reithofer
 Tech-EDV Support Forum - http://support.tech-edv.co.at

Gerhard Reithofer <gerhard.reithofer@tech-edv.co.at> writes:

> Hi Larry,
> thanks also to your answer in my other thread "ActiveTCL/Tablelist 
> broken".
>
> On Fri, 9 Jul 2010, Larry W. Virden wrote:
>
>> On Jul 2, 7:59 am, keithv <kvet...@gmail.com> wrote:
>> > I'm having two big problems with the Img package, and was wondering if
>> > these are known bugs or problems with my installation.
>> >
>> > The first problem is that it won't display png images--they just show
>> > up blank.
>> >
>> > The second is trying to take screen snapshot with "-data $window".
>> > When I do, it's either blank or only about half the image.
>> >
>> 
>> I haven't tried taking a screen snapshot. However, I have found that I
>> have problems creating an image using the -data flag but if I use the -
>> file flag, it works for me.
>
> In the meantime I can reproduce the bug:
>   1. Install ActiveTcl new -> script works
>   2. Do a: teacup update -> script fails
>
> As I always use the same test script, therfore I don't think that a data 
> error exists in my script (see case 1. above).
>
> Also the  flag "-file" always worked for me.

> As the "teacup update" did not update img::png (at least the shared lib) 
> I'm unsure if it is a PNG-package problem (alone?).  

If the update renweded something like pngtcl, and/or zlibtcl, but not
img::png then this can be a mismatch there.

cc'd myself in the office now, to look into this monday morning
immediately.

Gerhard, can you send me your test script as well ?

-- 
So long,
	Andreas Kupries <akupries@shaw.ca>
			<http://www.purl.org/NET/akupries/>
	Developer @	<http://www.activestate.com/>
-------------------------------------------------------------------------------

Hi all,
information for people which may detect the same problem.

On Fri, 9 Jul 2010, Andreas Kupries wrote:

> Gerhard Reithofer <gerhard.reithofer@tech-edv.co.at> writes:
>=20
> > Hi Larry,
> > thanks also to your answer in my other thread "ActiveTCL/Tablelist=20
> > broken".
> >
> > On Fri, 9 Jul 2010, Larry W. Virden wrote:
> >
> >> On Jul 2, 7:59=C2=A0am, keithv <kvet...@gmail.com> wrote:
> >> > I'm having two big problems with the Img package, and was wondering =
if
> >> > these are known bugs or problems with my installation.

=2E..

> > As the "teacup update" did not update img::png (at least the shared lib=
)=20
> > I'm unsure if it is a PNG-package problem (alone?). =20

With Andreas's help I found a workaround which worked for me on Windows=20
and Linux:=20
   teacup install --force Img

made the tests running on my machines.=20

=2E..

--=20
 Gerhard Reithofer
 Tech-EDV Support Forum - http://support.tech-edv.co.at