Re: PAR question about packages

[the.noonings]

This does not answer your question, but, I put in some debug print statments
so that at least you can tell where it is bombing.  Per the log file output,
it is getting past only the first four debug statements.
DEBUG_01
DEBUG_02
DEBUG_03
DEBUG_04

That means your "output = $mw->Scrolled" is not being liked.

sub Scrolled is in widget.pm, so I tried adding
     -M full_path_to_widget.pm
to the command line and it still did not work.

That is about as far
---------------------------------------paste code
use strict;
use warnings;

use Win32::Console;
my $aafile = "aa.txt";

use Tk;

use DBI;
Win32::Console::Free;

# needed for PAR to make EXE file
use Encode::Unicode;

my ($mw, $lbl_userid, $output, $userid, $email);
my ($dbh, $sth,);

my $uid = "rpts";
my $pwd = "rpts";
my $dbname = "LIMSRPTS";

my %attr = (PrintError => 0, RaiseError => 1, AutoCommit => 0);

# create the main window
$mw = MainWindow->new( -title => 'Ticket Tracker');

$mw->geometry('+250+250');

$mw->resizable(0,0);

$mw->raise;

# menubar
$mw->configure(-menu => my $menubar = $mw->Menu,);

my $file = $menubar->cascade(-label => '~File', -tearoff => 0);

my $edit = $menubar->cascade(-label => '~Edit', -tearoff => 0);

my $help = $menubar->cascade(-label => '~Help', -tearoff => 0);
open (FH, ">>$aafile"); print FH ("DEBUG_01\n"); close (FH);

my $new = $file->command(
    -label => "Quit",
    -accelerator => 'Ctrl-q',
    -underline => 0,
    -command     => \&exit,
);
open (FH, ">>$aafile"); print FH ("DEBUG_02\n"); close (FH);


# create a toolbar
$mw->Button(
    -text => "Connect",
    -width => 10,
    -command => sub{
        $dbh = DBI->connect("dbi:Oracle:$dbname", $uid, $pwd, \%attr)
            or print STDOUT;
        $userid = uc($userid);
        $sth = $dbh->prepare( "select * from USER where NAME = ?");
        $sth->execute && print STDOUT;
        $dbh->commit;
        $dbh->disconnect;
        print "Update completed...\n";
    }
)->grid(-row => 0, -column => 0, -padx => 2, -pady => 2, -sticky => 'w');
open (FH, ">>$aafile"); print FH ("DEBUG_03\n"); close (FH);


# create a toolbar
$mw->Button(
    -text => "Exit",
    -width => 10,
    -command => sub{exit}
)->grid(-row => 0, -column => 1, -padx => 2, -pady => 2, -sticky => 'w');

open (FH, ">>$aafile"); print FH ("DEBUG_04\n"); close (FH);


# output for SQL etc.
$output = $mw->Scrolled(
    'Text',
    -scrollbars => 'e',
    -width => '35',
    -height => '3',
    -wrap => 'word',
    -relief => 'groove',
)->grid(-row => '1', -column => '0', -columnspan => '3', -sticky => 'news');

open (FH, ">>$aafile"); print FH ("DEBUG_05\n"); close (FH);


# send errors to text box
$SIG{'__WARN__'} = sub { print STDERR @_ };

tie(*STDOUT, 'Tk::Text', $output);

tie(*STDERR, 'Tk::Text', $output);

MainLoop;

open (FH, ">>$aafile"); print FH ("DEBUG_10\n"); close (FH);


----- Original Message ----- 
From: "Robert" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 02, 2004 12:24 PM
Subject: Re: PAR question about packages


> ActiveState Perl 5.8.3
> PAR .83
> Windows XP w/SP1
>
> using: pp -g ticketron.pl -o ticketron.exe
>
> == CODE ==
>
> use strict;
> use warnings;
> use Win32::Console;
> use Tk;
> use DBI;
>
> Win32::Console::Free;
>
> # needed for PAR to make EXE file
> use Encode::Unicode;
>
> my ($mw, $lbl_userid, $output, $userid, $email);
> my ($dbh, $sth,);
>
> my $uid = "rpts";
> my $pwd = "rpts";
> my $dbname = "LIMSRPTS";
>
> my %attr = (PrintError => 0, RaiseError => 1, AutoCommit => 0);
>
> # create the main window
> $mw = MainWindow->new( -title => 'Ticket Tracker');
> $mw->geometry('+250+250');
> $mw->resizable(0,0);
> $mw->raise;
>
> # menubar
> $mw->configure(-menu => my $menubar = $mw->Menu,);
> my $file = $menubar->cascade(-label => '~File', -tearoff => 0);
> my $edit = $menubar->cascade(-label => '~Edit', -tearoff => 0);
> my $help = $menubar->cascade(-label => '~Help', -tearoff => 0);
>
> my $new = $file->command(
>     -label => "Quit",
>     -accelerator => 'Ctrl-q',
>     -underline => 0,
>     -command     => \&exit,
> );
>
> # create a toolbar
> $mw->Button(
>     -text => "Connect",
>     -width => 10,
>     -command => sub{
>         $dbh = DBI->connect("dbi:Oracle:$dbname", $uid, $pwd, \%attr)
>             or print STDOUT;
>         $userid = uc($userid);
>         $sth = $dbh->prepare( "select * from USER where NAME = ?");
>         $sth->execute && print STDOUT;
>         $dbh->commit;
>         $dbh->disconnect;
>         print "Update completed...\n";
>     }
> )->grid(-row => 0, -column => 0, -padx => 2, -pady => 2, -sticky => 'w');
>
> # create a toolbar
> $mw->Button(
>     -text => "Exit",
>     -width => 10,
>     -command => sub{exit}
> )->grid(-row => 0, -column => 1, -padx => 2, -pady => 2, -sticky => 'w');
>
> # output for SQL etc.
> $output = $mw->Scrolled(
>     'Text',
>     -scrollbars => 'e',
>     -width => '35',
>     -height => '3',
>     -wrap => 'word',
>     -relief => 'groove',
> )->grid(-row => '1', -column => '0', -columnspan => '3', -sticky =>
'news');
>
> # send errors to text box
> $SIG{'__WARN__'} = sub { print STDERR @_ };
> tie(*STDOUT, 'Tk::Text', $output);
> tie(*STDERR, 'Tk::Text', $output);
>
> MainLoop;
>
>
>
>