steps

[Robin]

What would some of the steps be to design modules for perl that are a
way people can do gui programming on windows?
I don't exactly know where to start and would like some human input.

Thank you,
-robin

 

[Dr.Ruud]

What would some of the steps be to design modules for perl that are a
way people can do gui programming on windows?
I don't exactly know where to start and would like some human input.

It's already been done, so you can find out how.

For example: wxperl
http://en.wikipedia.org/wiki/WxPerl

 

[smallpond]

What would some of the steps be to design modules for perl that are a
way people can do gui programming on windows?
I don't exactly know where to start and would like some human input.

Here is a GUI for some steps:

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;
my ($num);

sub steps {
my ($ix, $x, $y, $size);
my $c = $mw->Canvas(-width=>150, -height=>150, -background=>'Green')-

grid();

$size=150 / ($num + 1);
$x=$y=$size/2;
my @segs=($x,$y);
for ($ix=0; $ix<$num; $ix++) {
$y+=$size; push @segs,$x,$y;
$x+=$size; push @segs,$x,$y;
}
$c->createLine(@segs, -width=>3);
}

$mw->Label(-text=>'Number of steps')->grid(
$mw->Entry(-width=>6, -textvariable=>\$num));
$mw->Button(-text=>'Enter', -command=>\&steps)->grid(
$mw->Button(-text=>'Quit', -command=> sub {$mw->destroy}));

$mw->MainLoop;

 

[Robin]

Here is a GUI for some steps:

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;
my ($num);

sub steps {
my ($ix, $x, $y, $size);
my $c = $mw->Canvas(-width=>150, -height=>150, -background=>'Green')-
$size=150 / ($num + 1);
$x=$y=$size/2;
my @segs=($x,$y);
for ($ix=0; $ix<$num; $ix++) {
$y+=$size; push @segs,$x,$y;
$x+=$size; push @segs,$x,$y;
}
$c->createLine(@segs, -width=>3);
}

$mw->Label(-text=>'Number of steps')->grid(
$mw->Entry(-width=>6, -textvariable=>\$num));
$mw->Button(-text=>'Enter', -command=>\&steps)->grid(
$mw->Button(-text=>'Quit', -command=> sub {$mw->destroy}));

$mw->MainLoop;

thanks for the advice.... I really appreciate your post.

I didn't realize it was that simply to create 'em.



-Robin

 

[Robin]

Here is a GUI for some steps:

#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;
my ($num);

sub steps {
my ($ix, $x, $y, $size);
my $c = $mw->Canvas(-width=>150, -height=>150, -background=>'Green')-
$size=150 / ($num + 1);
$x=$y=$size/2;
my @segs=($x,$y);
for ($ix=0; $ix<$num; $ix++) {
$y+=$size; push @segs,$x,$y;
$x+=$size; push @segs,$x,$y;
}
$c->createLine(@segs, -width=>3);
}

$mw->Label(-text=>'Number of steps')->grid(
$mw->Entry(-width=>6, -textvariable=>\$num));
$mw->Button(-text=>'Enter', -command=>\&steps)->grid(
$mw->Button(-text=>'Quit', -command=> sub {$mw->destroy}));

$mw->MainLoop;