Re: using Tkx to access Tcl variable

--===============0415793208==
Content-Type: multipart/alternative; boundary=f46d0438906357fb0b050e209c8e

--f46d0438906357fb0b050e209c8e
Content-Type: text/plain; charset=UTF-8

The answer to that question is:

Tkx::set("tcl_platform($key)")

However if you are using this for windowing system information, you should
instead use:

Tkx::tk("windowingsystem")
or
Tkx::tk_windowingsystem()

which returns win32, aqua or x11.



On Mon, Feb 2, 2015 at 7:57 AM, Mike Ignatoski <[email protected]>
wrote:

> (Hopefully) simple question:
>
> In my Tkx perl app, I'm trying to access the Tcl "tcl_platform"
> variable, but I can't manage to get it working.
>
> Any help or direction is appreciated.
>
> Thanks,
> Mike
>
> _______________________________________________
> ActivePerl mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

--f46d0438906357fb0b050e209c8e
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div class=3D"gmail_default" style=3D"font-family:arial,he=
lvetica,sans-serif">The answer to that question is:</div><div class=3D"gmai=
l_default" style=3D"font-family:arial,helvetica,sans-serif"><br></div><div =
class=3D"gmail_default" style=3D"font-family:arial,helvetica,sans-serif">Tk=
x::set(&quot;tcl_platform($key)&quot;)</div><div class=3D"gmail_default" st=
yle=3D"font-family:arial,helvetica,sans-serif"><br></div><div class=3D"gmai=
l_default" style=3D"font-family:arial,helvetica,sans-serif">However if you =
are using this for windowing system information, you should instead use:</d=
iv><div class=3D"gmail_default" style=3D"font-family:arial,helvetica,sans-s=
erif"><br></div><div class=3D"gmail_default" style=3D"font-family:arial,hel=
vetica,sans-serif">Tkx::tk(&quot;windowingsystem&quot;)</div><div class=3D"=
gmail_default" style=3D"font-family:arial,helvetica,sans-serif">or</div><di=
v class=3D"gmail_default" style=3D"font-family:arial,helvetica,sans-serif">=
Tkx::tk_windowingsystem()</div><div class=3D"gmail_default" style=3D"font-f=
amily:arial,helvetica,sans-serif"><br></div><div class=3D"gmail_default" st=
yle=3D"font-family:arial,helvetica,sans-serif">which returns win32, aqua or=
 x11.</div><div class=3D"gmail_default" style=3D"font-family:arial,helvetic=
a,sans-serif"><br></div><div class=3D"gmail_default" style=3D"font-family:a=
rial,helvetica,sans-serif"><br></div></div><div class=3D"gmail_extra"><br><=
div class=3D"gmail_quote">On Mon, Feb 2, 2015 at 7:57 AM, Mike Ignatoski <s=
pan dir=3D"ltr">&lt;<a href=3D"mailto:[email protected]" target=3D"_b=
lank">[email protected]</a>&gt;</span> wrote:<br><blockquote class=3D=
"gmail_quote" style=3D"margin:0 0 0 .8ex;border-left:1px #ccc solid;padding=
-left:1ex">(Hopefully) simple question:<br>
<br>
In my Tkx perl app, I&#39;m trying to access the Tcl &quot;tcl_platform&quo=
t;<br>
variable, but I can&#39;t manage to get it working.<br>
<br>
Any help or direction is appreciated.<br>
<br>
Thanks,<br>
Mike<br>
<br>
_______________________________________________<br>
ActivePerl mailing list<br>
<a href=3D"mailto:[email protected]">ActivePerl@listserv.=
ActiveState.com</a><br>
To unsubscribe: <a href=3D"http://listserv.ActiveState.com/mailman/mysubs" =
target=3D"_blank">http://listserv.ActiveState.com/mailman/mysubs</a><br>
</blockquote></div><br></div>

--f46d0438906357fb0b050e209c8e--

--===============0415793208==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0415793208==--