Re: Custom Widgets
[email protected] (Christopher Chavez) Sun, 12 Aug 2018 00:17:37 +0000 (UTC)
| Newsgroups | perl.tcltk |
|---|---|
| Message-ID | <A591B6720AC059B5.C5820B05-A3A9-4728-B73B-514F2177EE1F@mail.outlook.com> |
------=_Part_7683_1396454731.1534033057902
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
=20
=20
=20
=20
=09Hi Sandy,
I see you recently posted about this on PerlMonks: https://www.perlmonks.or=
g/?node_id=3D1219968
As mentioned by https://www.perlmonks.org/?node_id=3D1220185 : if you inten=
d to keep using the widgets from Perl, you might be able to use them with T=
cl::pTk with little to no change, if you haven't already tried that. It tri=
es to allow unmodified Perl/Tk programs and pure-perl custom widgets to wor=
k with Tcl/Tk.=20
Otherwise, as others have said it is possible to use Tcl/Tk syntax from Tcl=
::Tk or Tkx.
I haven't found exactly what you might be looking for, but one source that =
might help with using Tcl/Tk syntax is TkDocs, but the way they do this fro=
m Perl is using Tkx, which many find a drastic change from Perl/Tk syntax. =
Tcl::Tk allows both Tcl/Tk syntax and some Perl/Tk syntax where possible, b=
ut is still a light wrapper like Tkx. Tcl::pTk tries to then cover any case=
s not covered by Tcl::Tk to allow running existing Perl/Tk programs.=20
There's also this document with a few sections on the differences between T=
cl/Tk and Perl/Tk: http://phaseit.net/claird/comp.lang.perl.tk/ptkFAQ.html
Hope this helps.
=09
=09
=09Christopher Chavez
=20
=20
On Sat, Aug 11, 2018 at 5:44 PM -0500, "Sandy L Bultena" <sandy.bultena@sym=
patico.ca> wrote:
Hi,
I am currently trying to port some of my old Perl/Tk programs to Tcl/Tk. =
=C2=A0
I have many pure-perl custom widgets. =C2=A0I am trying online to find a de=
cent tutorial(s) on how to create custom widgets using perl Tcl/Tk.
Can you recommend anything? =C2=A0Any examples?=C2=A0
Thank you for your time.
Sandy
"If at first you don=E2=80=99t succeed, that=E2=80=99s one data point" -htt=
p://www.xkcd.com/1154/
------=_Part_7683_1396454731.1534033057902
Content-Type: text/html; charset=utf-8
Content-Transfer-Encoding: quoted-printable
<html><head></head><body><!-- This file has been automatically generated. S=
ee web/README.md -->
=20
=20
=20
<div>
=09<div><div style=3D"direction: ltr;">Hi Sandy,</div><div><br></div><d=
iv style=3D"direction: ltr;">I see you recently posted about this on PerlMo=
nks: https://www.perlmonks.org/?node_id=3D1219968</div><div><br></div><div =
style=3D"direction: ltr;">As mentioned by https://www.perlmonks.org/?node_i=
d=3D1220185 : if you intend to keep using the widgets from Perl, you might =
be able to use them with Tcl::pTk with little to no change, if you haven't =
already tried that. It tries to allow unmodified Perl/Tk programs and pure-=
perl custom widgets to work with Tcl/Tk. </div><div><br></div><div style=3D=
"direction: ltr;">Otherwise, as others have said it is possible to use Tcl/=
Tk syntax from Tcl::Tk or Tkx.</div><div><br></div><div style=3D"direction:=
ltr;">I haven't found exactly what you might be looking for, but one sourc=
e that might help with using Tcl/Tk syntax is TkDocs, but the way they do t=
his from Perl is using Tkx, which many find a drastic change from Perl/Tk s=
yntax. Tcl::Tk allows both Tcl/Tk syntax and some Perl/Tk syntax where poss=
ible, but is still a light wrapper like Tkx. Tcl::pTk tries to then cover a=
ny cases not covered by Tcl::Tk to allow running existing Perl/Tk programs.=
</div><div><br></div><div style=3D"direction: ltr;">There's also this docu=
ment with a few sections on the differences between Tcl/Tk and Perl/Tk: htt=
p://phaseit.net/claird/comp.lang.perl.tk/ptkFAQ.html</div><div><br></div><d=
iv><br></div><div style=3D"direction: ltr;">Hope this helps.</div></div>
=09
=09<div><br></div>
=09<div class=3D"ms-outlook-ios-signature"><div style=3D"direction: ltr=
;">Christopher Chavez</div></div>
</div>
=20
<br><br><br>
<div class=3D"gmail_quote">On Sat, Aug 11, 2018 at 5:44 PM -0500, "Sandy L =
Bultena" <span dir=3D"ltr"><<a href=3D"mailto:[email protected]=
" target=3D"_blank">[email protected]</a>></span> wrote:<br>
<br>
<blockquote class=3D"gmail_quote" style=3D"margin:0 0 0 .8ex;border-left:1p=
x #ccc solid;padding-left:1ex">
<div dir=3D"3D"ltr"">
<meta http-equiv=3D"Content-Type" content=3D"text/html charset=3Dutf-8">Hi,=
<div class=3D""><br class=3D""></div><div class=3D"">I am currently trying =
to port some of my old Perl/Tk programs to Tcl/Tk. </div><div class=
=3D""><br class=3D""></div><div class=3D"">I have many pure-perl custom wid=
gets. I am trying online to find a decent tutorial(s) on how to creat=
e custom widgets using perl Tcl/Tk.</div><div class=3D""><br class=3D""></d=
iv><div class=3D"">Can you recommend anything? Any examples? </d=
iv><div class=3D""><br class=3D""></div><div class=3D"">Thank you for your =
time.</div><div class=3D""><br class=3D""></div><div class=3D""><br class=
=3D""><div class=3D"">
<div style=3D"color: rgb(0, 0, 0); font-variant: normal; letter-spacing: no=
rmal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-inden=
t: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing:=
0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; word-=
wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white=
-space; " class=3D""><div style=3D"color: rgb(0, 0, 0); font-variant: norma=
l; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -we=
bkit-auto; text-indent: 0px; text-transform: none; white-space: normal; wid=
ows: 2; word-spacing: 0px; -webkit-text-size-adjust: auto; -webkit-text-str=
oke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-li=
ne-break: after-white-space; " class=3D""><div class=3D""><font face=3D"Zap=
fino" class=3D""><span style=3D"font-size: 24px; " class=3D""><i class=3D""=
>Sandy</i></span></font></div><div style=3D"font-family: Zapfino; font-wei=
ght: normal; font-style: normal; " class=3D""><p dir=3D"LTR" class=3D""><fo=
nt face=3D"American Typewriter" class=3D""><span style=3D"font-size: 14px; =
" class=3D""><span lang=3D"en-us" class=3D""></span><span lang=3D"en-ca" cl=
ass=3D""><font color=3D"#0000FF" class=3D"">"If at first you don=E2=80=99t =
succeed, that=E2=80=99s one data point" -<a href=3D"http://www.xkcd.com/115=
4/" class=3D"">http://www.xkcd.com/1154/</a></font></span></span></font></p=
></div><div style=3D"font-family: Papyrus; font-weight: normal; font-style=
: normal; " class=3D""><br class=3D""></div></div><br class=3D"Apple-interc=
hange-newline"></div><br class=3D"Apple-interchange-newline"><br class=3D"A=
pple-interchange-newline">
</div>
<br class=3D""></div>
</div>
</blockquote>
</div>
</body></html>
------=_Part_7683_1396454731.1534033057902--