hi
i have stumbled on a good perl/tk gui designer (for ms windows) with the same spirit as visual basic 6, it is the freeware TikiArtist from
http://www.18rabbit.com/products/tikiartist.htm
alas the site is closed, but you can download a copy using the
http://web.archive.org or from
here
the available widgets: is BrowseEntry, Button, Canvas, CheckButton, Entry, Frame, Label, Listbox, RadioButton, ScrollBar, Text .
the program is not complete, but it is okay, even you can bind events to widgets; a note regarding the iconfile for the Form, it must be a small gif or bmp; then the program will convert it to inline picture.
a picture of the program
here
a sample of the code produced as the picture above is below; everything produced from within the program; i just added the: sub hello {...}
a note: when you click project->Run it will generate the code below the screen, you can copy to a perl file
changing a property of a widget: suppose you want to change the background color of a button, click on the background property then choose the color or gradient of a color you want, now the button color will change if you click on another property, but not if you press Enter or click on the form.
best wishes
#!/usr/bin/perl -w
#-------------------- Package Definition --------------------
#----------------------- Dependencies -----------------------
use Tk;
#---------------- User Defined Declarations -----------------
#------------------------ Main Window -----------------------
my $mw = MainWindow->new( -height => 213, -width => 318);
$mw_imageptr = $mw->Photo( -data => ImageResource1());
$mw->Icon( -image => $mw_imageptr);
#---------- Adding Button
my $Button0 = $mw->Button(
-text => "Run Me",
-relief => "raised",
-background => "#F75037"
);
$Button0->place( -x => 7, -y => 10, -height => 40, -width => 50);
$Button0->bind( "<Button>", \&hello);
#---------- Adding Text
my $Text1 = $mw->Scrolled( 'Text', -scrollbars => 'e'
,
-background => "
+#E88B46"
);
$Text1->place( -x => 71, -y => 8, -height => 72, -width => 152);
#---------- Adding Canvas
my $Canvas2 = $mw->Scrolled( 'Canvas', -scrollbars => 'se'
,
-relief =>
+"raised",
-background
+ => "#7378BB"
);
$Canvas2->place( -x => 72, -y => 88, -height => 112, -width => 152);
#------------------------ Main Menu -------------------------
#-------------------- Sizing Main Window --------------------
$mw->geometry('318x213');
#---------------------- User Load Code ----------------------
MainLoop;
#------------------------ Main Body -------------------------
#---------------------- Image Resources ---------------------
sub hello {$Text1 -> insert('end',"Hello, perl/TK");}
sub ImageResource1
{
my $d = "
R0lGODlhKAAoAPcAAAQCBASGBJSyjMzexBSyHOTq5GSCZIzShFSuVCSSJDRCN
MzyxKzSpCSiJFTKVKTipOT25MTqxDSuPExmTHzChCQmBASaBFx2XNTy1LTWtP
T29Cw2JC+aNASWBGjObKHCnNXi1GyybDGiNECiRDnCPCS6LNrq1LzitFxuXCO
aJCwuBGzSbJS2lMrmxPTy9KfapOn+5Nz+1BSSFLTqtCyuLOfy5IzejEy2VETG
RHSOdMz6xFpuVJzClByqHGJ+XLzetPr+9BQSBCCqJBwiFBSaFJ/KnCyqNMDiv
M7ezERSPO327NTqzITKhOHy3DU+NEy+TNzq3CqaLJy+lBmSHCS2LA+OFOzq7H
SGdJTWlGSyZFVqVLzWvPz2/DiePHzGfGzCbDiiPFSqVHzSfLLarBceFBKiFFy
uXCeWLDxCPNPyzLTSrCmiLGTSZEyuTIzGjGR6ZDQ+LOTm3ESqRBwiHAqODIS+
hGyGbDlGNFzKXOj65MvuxDS2PFNqTIzGhGB6XNv21LfatCwuFKTenGS6ZHnCf
ExeRHjKdIzajESuRDy+RCy6NFy2XKzOpJzSnJS6jDQ2BHyWdJTKlBwaBITOfA
SiBGy6bCKyJM7mzPH+7MPqvO3y7GV+ZCyqLKC+nDC2NKzmrCkqDC06LAiSDGR
yZHTSdOH63CyuNEzGTNH6zByaHCwyHIS+fJTelL3evPz+/DSqPIzKjBseHEyq
TIzSjMjixOXu5GyGZFCyVCGWJKTWpB+mJITGhPb69DKeNKLGnNrm1DSmNESmR
Nnu1LjmtGByXCSeJJi6lKzepBGWFFxyVCQmFJzOnMLmvM7izOz67NDuzNz23E
nCTOHu3CueLBqWHO/u7HyKdDymPKzerNT2zK7WrBwmHFjOXJzinETCRDC+NKT
WnASWDOT+3DSyNNT+zBieHAQGBASKBJS2jMz2xDSyPCw6JGzWbCyyLHSSdLza
vPz6/HzWfFyyXFy6XHTWdEzKTGyCZDxCNOz25MzqxFRmTITChGR2XNzy1LzWt
Pz29CH5BAAAAAAALAAAAAAoACgABwj/AB+pkASgoMGDCBMqTBikwqMKoFSFuq
MADpxQGJ2EgqOxY6iOFzVivJhRwT04GwJVCDIkySZ3kOz42GTPQM2aNnPe1Gn
AwEwfPuy4y7GpkKogAIZoETBGmy9jxqR04iHlg5SqV61K3ar1KlRfDBiw2ASn
YKw3jHSQy/QD0IkTP97Glfu2Lty3R1ocAfQjU7p0DHI4MXuBEbkY2VoozpevB
WPGER47zseMWaYWJoQJa0Erkw7A7gYDiLWDx4JsS5rRasaZVotLrlW/5gw776
VLJn41G9BiQSZfdsoCIKOFxbDUA5AgabacebPn0Js3AwFiwDtA7wY0M2GilTE
foQoS/0eXl5byX+jTq4/z61KzXwWsWGkG7hCWVrX+4TuCzs8G8TsYM4welyDx
Sy0I1lCDNLXUkKA0ENbgAjwaHCGGAys8UIMrriwhhQ/rACgFM8+08F4NSqSoh
CYoKoFPijW8CA88NXSDxzfeiNGCEs7k82F4wwWYSQTmHYiPJi/WoIkSCqL4Dx
fwKIHBJ6QkYkk7NxAyxhE/SGGPcKQZQ2ILBkrTZJNMNoHijLxg0A073ozDyRr
TgLHIAS98cIVoZAiph4m/tOgiiy4qqAQXvNTwyQrfWCLENGdMkQAihoDzgTVo
FDRHgAOaB4USvMz4D4tKaqKBBkoI80k83lhSBjIJnP9xRheLzJKLnnwGyAyRS
EChAYczuqAmPlxwocEz3axwyh66EEFHFVGEQUEuw5wghQFAkjaiHuaZoAkv4D
KpoAYzNvEAGyRQMWcCVVAjixu0OAODj+ABaEwmGJgAHS1HkCiMkxr0MwyrBJS
Ryhm4RCELIa386sozxvgR4nB8GJNPKTWAsEUkhHzhgQ0zNAHPPxg8QE80e/SA
DB1TcGDGLj/UAo8rmPjon3gV6wFDDQP4ksU1PbRTjw3P8KLJoiS0w8k0U9DhL
iwtkPuPM9Aw82NBSt2bBi1FhDCCDB1QUsIKn2AQwSHeFFwMwmfIwbASHGrSRB
pWb5ItClKccAwTZoz/EAU1HVggRDRisMIKG3uU0UEVCXSBwC6ASMOLK/DIncY
RUtit6ShSHDPJLVEknMLoDYwTDTfcPGFKCnTQgQsCkdCCIi//rAhBP1bXC8Ac
o3RyjCGI4DJFCtNwcEYvwHjyTQmmiCA8Lm4fMXmUDiJZdeZAzoH3MVgM4ncKu
CTAQS8i0CBED+VQIz4CWm7oSqIMIvlH7hNra1kudYTBdBW49HLNK5wohyigFY
ZIHKEG4DJak6xXNyCRIWfQEIY/6iCLFFCDeOTrRQqmQI1g7IIWkzOampakCQZ
mbmIPdIQe8pAxNezjFiKIQiqmQMP+LWwM7oOfmVYUoz9gTnPD0YIx/yLQDyjo
phXLqMQ1ZBCAAFShF2aAxQ+koQQKMSlCSorR9TaBQj/R4kBKMEEj5JGCcwQAG
bKAxSXgxgt8ZFFBECihJiAwP+yZJUAnyEQrQOACyrUAFgjoxTQW9gO4vW9BLS
rhiqz3w4kpBR0/YEYrkFCNGRXgHZGgAAUikYFfcIFyGkBQLeRYQhdUQwn9aEV
/HLgDdJyAV3HQhAs0UQsTgGA7UFDSqUpYDVL2cpaawMARvoNCFHzgNEu4xC+a
AAFQAcEVz3SGEiAAgRo080X4gMCLVoSPPIhDD76wRbbewIAYxAAV+XgGBkpRC
kwA4ZlAwAQMSgGNP7DznvRkJzSgAZ0DcZCDAaExCznJQY4FMOOVEdDDM9Kw0G
c8Qw8RGFImIJrQiEKUGb0h6BgCmhR9CIAB2uABC9ABFWM44qQnNWlJV+qIkrJ
gpB9gBCME8IbwSGIId9DCG/xADC3oQwt84MMEhkrUoAL1qHxAqlD1kYwL+EEL
SVCFJFQAClAMYRtzIINWt8rVrnr1q0OYwxCGAAoVCIQgC0mrWhnikIAAADs=
";
return $d;
}
