PerlTk - Balloon on custom widgets

Author

Balloon on custom widgets

Bogdan £ukasiewicz

2004-08-27, 3:58 pm

This is a multi-part message in MIME format.

------=_NextPart_000_0001_01C48C40.2AFF3360
Content-Type: text/plain;
charset="iso-8859-2"
Content-Transfer-Encoding: 7bit

Hi all,
Can anybody help me, what I should to do to involve balloon effect on
created by me composite megawidgets which are embedded in canvas widget
by createWindow metod?

Any pointers will be greatly appreciated.

Bogdan

------=_NextPart_000_0001_01C48C40.2AFF3360
Content-Type: text/html;
charset="iso-8859-2"
Content-Transfer-Encoding: quoted-printable

<html xmlns:o=3D"urn:schemas-microsoft-com:office:office" xmlns:w=3D"urn:=
schemas-microsoft-com:office:word" xmlns=3D"http://www.w3.org/TR/REC-html=
40">

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; charset=3Diso-885=
9-2">

<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 10">
<meta name=3DOriginator content=3D"Microsoft Word 10">
<link rel=3DFile-List href=3D"cid:filelist.xml@01C48C40.2A5278A0">

<style>

</style>

</head>

<body lang=3DPL link=3Dblue vlink=3Dpurple style=3D'tab-interval:35.4pt'>

<div class=3DSection1>

Hi all,<o:p></o:p></spa=
n>

Can anybody help me, wh=
at I
should to do to involve balloon effect on created by me composite megawidgets which are embedded in canvas widget by =
createWindow metod?<o:p=
></o:p>

<o:p> </o:p></span=
>

Any pointers will be gr=
eatly appreciated.<o:p></o:p>

<o:p> </o:p></span=
>

<sp=
an lang=3DEN-US
style=3D'font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-US'>Bogd=
an<o:p></o:p>

<o:p> </o:p></span=
>

</div>

</body>

</html>
------=_NextPart_000_0001_01C48C40.2AFF3360--
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu

Jack D.

2004-08-27, 3:58 pm

> -----Original Message-----
> From: owner-ptk@lists.Stanford.EDU [mailto:owner-ptk@lists.Stanford.EDU]
> On Behalf Of Bogdan Lukasiewicz
> Sent: August 27, 2004 6:14 AM
> To: ptk@lists.Stanford.EDU
> Subject: Balloon on custom widgets
>
> Hi all,
> Can anybody help me, what I should to do to involve balloon effect on
> created by me composite megawidgets which are embedded in canvas widget by
> createWindow metod?
>
> Any pointers will be greatly appreciated.

Just attach the balloon to the widget itself instead of treating it like a
canvas item. The script below shows both.

## Example ##
use Tk;
use Tk::Balloon;
use strict;

my $mw=tkinit;
my $c=$mw->Canvas->pack;
my $l = $c->Label(-relief=>'sunken',-text=>'embedded window');
$c->create('window',50,50,-window=>$l);
$c->create('text', 50,100,-text=>"A Text Canvas Item",-tags=>'TESTTAG');
$b = $mw->Balloon(-background=>'yellow');

$b->attach($l,-initwait=>0,-balloonmsg=>'Attached to Widget');

$b->attach($c, -initwait=>0,
-balloonposition => 'mouse',
-msg=>{ 'TESTTAG'=>'A Canvas Item'}
);
MainLoop;

__END__

Jack
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu

Sponsored Links