Hi All,
I am doing this activity on Perl/TK.
I have to build my project, once the project(file) is
created. Problem I am facing here is, the size of the created project file
is showing as 0, and content is nill, which avoiding me to to build the
project.
If I close the wideget then I can see the file with file size and data
content.
Let me update you all, I have different buttons like Create, Update and
Build.
Build button calles the above functions, which "saves" and "build" the
project.
sub Compile_M3 {
$Filename = $filename . "\_" . "CPU" . "\." . "pjt";
chomp($Filename);
$info = "Saving '$Filename'";
open (FH, ">$Filename");
print FH $x->get("1.0", "end");
$info = "Saved.";
## Script to build by project ( Here I am giving some dummy command to avoid
any conflict with the organization norms.
#system("/View/Vobs>tools/Perl/bin/perl tools/Compile tools/Perl/bin/perl
tools/pjtCompile.pm /View/Vobs/$Filename");
}
--
--
Regards,
Mujju
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
