<?xml version="1.0" encoding="windows-1252"?>
<node id="697789" title="How do you make Tk look good?" created="2008-07-15 16:01:57" updated="2008-07-15 12:01:57">
<type id="115">
perlquestion</type>
<author id="180961">
Limbic~Region</author>
<data>
<field name="doctext">
All,
&lt;br /&gt;
After about 4 years, I have finally crossed "learn [cpan://Tk]" off my to-do list.  I was commenting in freenode's #perl that it looked horrible and I would be moving to another framework when [Khisanth] asked why don't I use one of the Win32 themes using [http://tktable.sourceforge.net/tile/|Tile] widgets.  The screen shots were impressive, so I figured I would give it a try.
&lt;p&gt;
I contacted the author of [cpan://Tk] and received a quick reply that Tile support is scheduled for the next release but that there was no timetable for that.  I searched a bit and read something where [cpan://Tkx] provided access to more Tk/tcl stuff and I decided to give it a try.  Once I read through the [cpan://Tkx::Tutorial|tutorial] and the glaze on my eyes wore off, I emailed the author.  Though I received a timely response, miscommunication on my part didn't result in the answer I was hoping for.
&lt;/p&gt;
&lt;p&gt;
I pressed on without the first clue what I was doing and came up with the following:
&lt;/p&gt;
&lt;c&gt;
#!/usr/bin/perl
use strict;
use warnings;
use Tkx;
Tkx::package_require('tile');
Tkx::tile__setTheme('xpnative');

my $mw = Tkx::widget-&gt;new(".");

$mw-&gt;new_ttk__button(
    -text =&gt; 'Hello, world',
    -command =&gt; sub { $mw-&gt;g_destroy; },
)-&gt;g_pack;

Tkx::MainLoop();
&lt;/c&gt;
&lt;p&gt;
Yay!  It works and looks good on Win32.  Unfortunately, it seems like almost none of the knowledge I gained while learning [cpan://Tk] is transferrable to [cpan://Tkx].
&lt;/p&gt;
&lt;p&gt;
Does anyone have any hints on making Tk on Win32 both easy &lt;b&gt;and&lt;/b&gt; pretty?  I plan on learning other cross-platform frameworks such as [cpan://Wx] in the future so suggesting them here is not useful (to me).
&lt;/p&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-180961"&gt;
&lt;p&gt;
Cheers - [Limbic~Region|L~R]
&lt;/p&gt;
&lt;/div&gt;&lt;/div&gt;</field>
</data>
</node>
