perl-win32-gui-users — Using the Win32::GUI Perl extension

RE: [perl-win32-gui-users] Status Bar properties

[Anufriyenko,Igor,SOLON,ITSS <igo...@us...>]

	Works as seen on TV :)
	Do you know if borders between controls added to the Status Bar are
made by offsetting -left value ( -left => $W->	Width() / 3 + 3) or there is
a specific  extended style to make it look 3D-like?
	Thanks

       Igor Anufriyenko
        
       E-mail:igo...@us...  


-----Original Message-----
From: Eric Hansen [mailto:Ha...@sw...]
Sent: Tuesday, June 25, 2002 3:27 PM
To: per...@li...;
igo...@us...
Subject: [perl-win32-gui-users] Status Bar properties


Yes you can devide a status bar.   The below code shows how I use half the
status bar for text and half for a progress bar.

$Status = $W->AddStatusBar(
    -name => "Status",
    -text => " ",
    -font => $SFont,
);

$Progress = new Win32::GUI::ProgressBar($Status,
    -name   => "Progress",
    -width  => $Status->Width/2,
    -height => $Status->Height-3,
    -left   => $Status->Width/2,
    -top    => 2,
);


Regards,
Eric 
Garland, Texas USA

[perl-win32-gui-users] Status Bar properties

[Eric H. <Ha...@sw...>]

Yes you can devide a status bar.   The below code shows how I use half the =
status bar for text and half for a progress bar.

$Status =3D $W->AddStatusBar(
    -name =3D> "Status",
    -text =3D> " ",
    -font =3D> $SFont,
);

$Progress =3D new Win32::GUI::ProgressBar($Status,
    -name   =3D> "Progress",
    -width  =3D> $Status->Width/2,
    -height =3D> $Status->Height-3,
    -left   =3D> $Status->Width/2,
    -top    =3D> 2,
);


Regards,
Eric=20
Garland, Texas USA

[perl-win32-gui-users] Status Bar properties

[Anufriyenko,Igor,SOLON,ITSS <igo...@us...>]

	Hello,

	Is there a way to divide status bar into sections?
	i.e. ***Section with local time***separator***Section with column #
*** Separator, etc..

	Thanks.

       Igor Anufriyenko
       

[perl-win32-gui-users] ListBox positioning and splitter

[Hassan N. <hn...@is...>]

Hi everyone
I have two listbox separated by a splitter but that splitter
doesn't appear , so it doesn't work 8-(
can anybody help me 
another question how to change the alignment in the listbox -
i:e to make it right or centeral - ?
Thanx for those will replay and those will ignore me 8-)
thanx
__________________________

Visit IslamWay Radio Online
http://www.islamway.com
--------------------------------------
Get your free email @ISLAMWAY.NET
http://bareedy.islamway.com
-> 15 Mbytes free space
-> POP & SMTP support
-> Full Arabic Support

[perl-win32-gui-users] Unselect a selected item in a listview

[Jonathan S. <jso...@al...>]

I know you can force a selection in a listview with 
$MainWindow->Listview->Select($idx).  I thought issuing the command again 
would force an unselection but it doesn't.

Does anyone know how to force an item in a listview to be unselected once 
it has bee selected?

Jonathan

RE: [perl-win32-gui-users] DoEvents can crash

[Chris I. <ch...@sp...>]

	I won't profess to be an expert on the guts of the GUI module either, but
what I can tell you is that 9 times out of 10, when I have a segmentation
fault being generated somewhere in my code that mysteriously goes away in a
debugger, it's an uninitialized pointer (some debuggers -notably gdb,
conveniently set them all to null values initially).  Guess that probably
doesn't help you much though. :(


-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Piske, Harald
Sent: Thursday, June 20, 2002 6:53 PM
To: per...@li...
Subject: [perl-win32-gui-users] DoEvents can crash


OK, this is killing me. I need help from someone with GUI.xs eyes ... Aldo?
In a very busy loop, I keep calling
    return -1 if Win32::GUI::DoEvents () < 0;
To be able to click and have the program react (especially to Abort_Click or
Alt+F4)

Every once in a blue moon, I get the infamous "the memory could not be read"
fatal crash, terminating my program and making me really happy because I can
start all over. Debugging the phenomenon is not possible because in the
debugger the problem mysteriously vanishes. Examining variable values after
the crash in the END sub is not possible because the program crashes too
hard, bypassing END. Periodically displaying a counter so that I know when
exactly it occurs is not helping because "print" is enough to avoid the
crash.

I don't have a real solution, just an even more mysterious work-around that
I hope and pray, will actually avoid the crash and not just make it less
frequent. Here's what I found:

- The crash did happen in a sub that got a hash ref as 1st and a string as
2nd parameter. That's not the only spot where it hit me, but the one where I
could at least reproduce it.
- When I added a dummy parameter as #3, it did not crash
- When I changed one of the other parameter's types, it did not crash (even
though my program did not work anymore, obviously)
- When I preceded the DoEvents() call with any of the following, the crash
still occured:
0;
42;
$dummy;
- When I preceded the DoEvents() call with any of the following, the crash
did NOT occur:
0 + 42;
$dummy = 0;
print "rats";
/dummy/;
local $_ = $_[0];

My dirty approach to not crashing my script is now to actually have
/pleasedonotcrash/;
before every DoEvents() call which is much like digital superstition :-s

Now, I know it's not gonna work, because after making some additions
elsewhere in the program and then trying again, I noticed that now some of
the previously operative remedies (namely 0+42 and $_=$_[0]) do NO LONGER
prevent the crash at this point in my script. It appears that DoEvent really
does what the error message suggests, read from memory that does not belong
to it. Does anybody have an idea where to look? All I can see in the
DoEvents function in GUI.xs is
	PeekMessage(&msg, hwnd, 0, 0, PM_REMOVE);
	TranslateMessage(&msg);
	DispatchMessage(&msg);
With some scary things in between, like if(SvMAGICAL(self)) mg_get(*tempsv);
I know there has been an issue with PeekMessage if it was passed the message
parameter, but that is the public method PeekMessage (i.e. perl), not the
Windows funtion call ... that's it, I give up. I'm at a loss.



-------------------------------------------------------
Sponsored by:
ThinkGeek at http://www.ThinkGeek.com/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] DoEvents can crash

[Piske, H. <Har...@bo...>]

Well ... I just tried it. I replaced my
/pleasedonotcrash/;
before the DoEvents() call with
Win32::GUI::PeekMessage (0, 0, 0);
and guess what ... it crashes.

Like I said, there IS a bug in the xs somewhere and when the circumstances
are right (nah ... wrong!) then it will crash the script and tear the
interpreter along with it. What exactly triggers this to happen, I can not
say - consequently, I can not say for sure what will prevent it. I can give
you my script, all you need to do is click on File, Save and baboom.

Oh, btw, I use Perl 618 and GUI 558 under Win2k.
I'm gonna try to run it under different OSses and Perl versions, but that is
still only serving to record the history and add to the confusion and will
not reveal what's going wrong and where.

Re: [perl-win32-gui-users] DoEvents can crash

[Morbus I. <mo...@di...>]

>In a very busy loop, I keep calling
>    return -1 if Win32::GUI::DoEvents () < 0;

Harald, I profess to know nothing, but I use a tight, infinite
while loop that calls "gui_listen" each iteration. gui_listen is just:

  sub gui_listen {

     # anyone there?
     Win32::GUI::PeekMessage(0,0,0);
     Win32::GUI::DoEvents();

     return 1;

  }

I also have gui_listen's sprinkled throughout various other timely-ish
functions so, ultimately, gui_listen is called at the minimum of once per
iteration, with a max of about three or four times. I've yet to see crashes
like you're having.

I doubt this helps, but :) ...

-- 
Morbus Iff ( strive for mediocrity )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Tech: http://www.oreillynet.com/pub/au/779 - articles and weblog
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus

[perl-win32-gui-users] DoEvents can crash

[Piske, H. <Har...@bo...>]

OK, this is killing me. I need help from someone with GUI.xs eyes ... Aldo?
In a very busy loop, I keep calling
    return -1 if Win32::GUI::DoEvents () < 0;
To be able to click and have the program react (especially to Abort_Click or
Alt+F4)

Every once in a blue moon, I get the infamous "the memory could not be read"
fatal crash, terminating my program and making me really happy because I can
start all over. Debugging the phenomenon is not possible because in the
debugger the problem mysteriously vanishes. Examining variable values after
the crash in the END sub is not possible because the program crashes too
hard, bypassing END. Periodically displaying a counter so that I know when
exactly it occurs is not helping because "print" is enough to avoid the
crash.

I don't have a real solution, just an even more mysterious work-around that
I hope and pray, will actually avoid the crash and not just make it less
frequent. Here's what I found:

- The crash did happen in a sub that got a hash ref as 1st and a string as
2nd parameter. That's not the only spot where it hit me, but the one where I
could at least reproduce it.
- When I added a dummy parameter as #3, it did not crash
- When I changed one of the other parameter's types, it did not crash (even
though my program did not work anymore, obviously)
- When I preceded the DoEvents() call with any of the following, the crash
still occured:
0;
42;
$dummy;
- When I preceded the DoEvents() call with any of the following, the crash
did NOT occur:
0 + 42;
$dummy = 0;
print "rats";
/dummy/;
local $_ = $_[0];

My dirty approach to not crashing my script is now to actually have
/pleasedonotcrash/;
before every DoEvents() call which is much like digital superstition :-s

Now, I know it's not gonna work, because after making some additions
elsewhere in the program and then trying again, I noticed that now some of
the previously operative remedies (namely 0+42 and $_=$_[0]) do NO LONGER
prevent the crash at this point in my script. It appears that DoEvent really
does what the error message suggests, read from memory that does not belong
to it. Does anybody have an idea where to look? All I can see in the
DoEvents function in GUI.xs is
	PeekMessage(&msg, hwnd, 0, 0, PM_REMOVE);
	TranslateMessage(&msg);
	DispatchMessage(&msg);
With some scary things in between, like if(SvMAGICAL(self)) mg_get(*tempsv);
I know there has been an issue with PeekMessage if it was passed the message
parameter, but that is the public method PeekMessage (i.e. perl), not the
Windows funtion call ... that's it, I give up. I'm at a loss.

RE: [perl-win32-gui-users] Using Win32::GUI and Win32::OLE togeth er to connect to MSExcel

[Piske, H. <Har...@bo...>]

If all you want to do is read the whole excel sheet, here's how I go about
it without OLE.
The only thing that keeps annoying me is that even though I specify
FIRSTROWHASNAMES=0,
with my Excel drivers, it still won't return the topmost row. But reading
huge files is
not an issue - all it takes is the "... $db->Data() while $db->FetchRow ();"
bit in
the second-to-last line. The rest is preparation.



$excelfile = "c:\\my documents\\testfile.xls";

use Win32::ODBC;
$XLDrv = "";
END {
  Win32::ODBC::ConfigDSN (ODBC_REMOVE_DSN, $XLDrv, "DSN=$dsn")
    if $XLDrv;
}

$excelfile =~ /((?<!:)\\)?([^\\]+)$/;
$path = $`;		# path without trailing backslash except if root
(x:\)
$dsn = $2;		# filename without path - used as dsn

# create a temp DSN
%Drivers = Win32::ODBC::Drivers()
	or die "can\'t get list of ODBC drivers - aborting\n";
($XLDrv) = grep /excel/i, keys %Drivers;
die "don't have an ODBC driver for Excel files - aborting\n"
	unless $XLDrv;
Win32::ODBC::ConfigDSN (ODBC_REMOVE_DSN, $XLDrv, "DSN=$dsn");
Win32::ODBC::ConfigDSN (ODBC_ADD_DSN, $XLDrv,
	("DSN=$dsn", "Description=$dsn", "DBQ=$dsn", "DEFAULTDIR=$path",
	 "FIRSTROWHASNAMES=0", "UID=", "PWD="))
	or die "can't create ODBC DSN for $dsn - aborting\n";
$db = new Win32::ODBC ($dsn)
	or die "cannot access $dsn\n";

# read "table" name of current sheet
$db->Catalog ("", "", "%", "");
$db->FetchRow ();
%Data = $db->DataHash ();
$Data{'TABLE_NAME'} =~ /([^']+)/;

# select data
# need [] around table name because it's like "Sheet1$"
$db->Sql ($_ = "select * from [$1]")
	and die "'$_' returned ", $db->Error, "\n";

# retrieve data
print join "; ", $db->FieldNames (), "\n";
print join "; ", $db->Data(), "\n" while $db->FetchRow ();
$db->Close ();

[perl-win32-gui-users] Using Win32::GUI and Win32::OLE together to connect to MSExcel

[Eric H. <Ha...@sw...>]

I am finding that MS-Excel does not shut down if I read my entire =
spreadsheet of 4550 rows with Win32::OLE.  But if I read 500 rows and then =
close Excel and reopen it and read the next 500 rows (keeping track of =
where I left off) and continue this way to the end, then Excel closes down =
fine. Not sure why so I made a workaround as explained above. Must be a =
big memory overhead to read more than 500 rows without shutting down Excel =
when using Win32::OLE.   It could be something to do with running in =
conjunction with Win32::GUI.  Anybody had similar problems with OLE alone, =
or OLE and GUI  combined applications?
Thanks,
Eric
Garland, Texas USA


# This application transfers data from an Excel spreadsheet straight into =
an Access database.  Excel is shutdown
# after each read of 500 rows from the spreadsheet and restarted to read =
the next 500 rows and continued
# till all rows are read. The program keeps track of last record read in =
spreadsheet so knows where to begin
# reading of next 500 rows.

use Win32;
use Win32::GUI;
use Win32::ODBC;
use Win32::OLE;
use File::Copy;

$PWD=3DWin32::GetCwd();  # save application directory so ODBC knows where =
to look for MSAccess FILEDSN=20
$FILEDSN=3D"FILEDSN=3D$PWD\\MyAccessDB.dsn";

$M =3D new Win32::GUI::Menu(
    "&File"     =3D> "File",
    " > &Port"  =3D> "Port",
    " > E&xit"  =3D> "Exit",
    "&Help"     =3D> "Help",
    " > &About - Excel port to Access"  =3D> "About",
);

$W =3D new Win32::GUI::Window(
    -title    =3D> "Excel port to Access",
    -left     =3D> 100,=20
    -top      =3D> 100,=20
    -width    =3D> 500,=20
    -height   =3D> 200,
    -menu     =3D> $M,
    -style    =3D> ws_sysmenu,
    -name     =3D> "Window",
);

$B =3D new Win32::GUI::Bitmap("$PWD\\Logo.bmp");=20

$BITMAP =3D $W->AddLabel(
    -left =3D> 0,=20
    -top =3D> 0,
    -style =3D> 14 | WS_VISIBLE,
    -name =3D> "Bitmap",
);
$BITMAP->SetImage($B);

$SFont =3D new Win32::GUI::Font(
    -name =3D> "Courier New",
    -size =3D> 8,
    -weight =3D> 700,
    -height =3D> -11,
);

$Status =3D $W->AddStatusBar(
    -name =3D> "Status",
    -text =3D> "Select menu option File->Port to begin.",
    -font =3D> $SFont,
);

$W->Show();
$W->BringWindowToTop();

 #-------------------------------#
#     Event Handler=20
#-------------------------------#
Win32::GUI::Dialog();

END {
   $db->Close;
   undef $db;
   $sheet->Close;
   undef $sheet;
   $book->Close;
   undef $book;
   $Excel->Quit;
   undef $Excel;
}

#------------------------------------#
#         Event Subroutines
#------------------------------------#

sub Exit_Click {
    return -1;   # exits the Win32 GUI Event Handler Win32::GUI::Dialog();
}

sub About_Click {
   $msg=3D"";
   $msg=3D$msg . "Program:  Excel port to Access\n";
   $msg=3D$msg . " Version:  1.0\n";
   $msg=3D$msg . "     Date:   June 2002\n";
   $msg=3D$msg . "        By:  Eric Hansen\n";
    Win32::GUI::MessageBox($W,"$msg",
      "About -  Excel port to Access",64,);
}

sub Port_Click {
      =20
    # Open File DialogBox showing files with=20
    # *.xls extension starting in application directory
    $file =3D "*.xls\0" . " " x 256;
    $file =3D Win32::GUI::GetOpenFileName(
        -owner =3D> $W,
        -directory =3D> $PWD,
        -title =3D> "Select MS-Excel file to port to MS-Access",=20
        -file =3D> $file,
    );

    # if file is not valid, or contains no data, then return
    if (! -s $file) {
       Win32::GUI::MessageBox($W,"Microsoft Excel file notfound or is =
empty",
              "Excel port to Access - Error & Abort",16,);
       return -1;
    }
       =20
    $M->{'Exit'}->Enabled(0);  #-- Disable menu option
    $M->{'Port'}->Enabled(0);  #-- Disable menu option

    $Status->Text("Connecting.  Please wait...");
    $Status->Update();   =20
     =20
    $stat=3Dcopy("$PWD\\CopyOfMyAccessDB.mdb","$PWD\\MyAccessDB.mdb");  =
#-- File::Copy=20
    if ($stat !=3D 1) {
       $msg=3D"Cannot COPY empty database file:\n" .
            "$PWD\\CopyOfMyAccessDB.mdb\n" .
            "to file:\n" .
            "$PWD\\MyAccessDB.mdb\n";=20
       Win32::GUI::MessageBox($W,$msg,
           "Excel port to Access - Error & Abort",16,);
       return -1;
    }      =20
             =20
    # connect to the MS-Access database     =20
    $db =3D new Win32::ODBC($FILEDSN); =20
    if (! $db) {
        $error=3DWin32::ODBC::Error();
        Win32::GUI::MessageBox($W,
          "Can't Establish Database Connection using file DSN:\n$FILEDSN\n$=
error",=20
          "Excel port to Access - Error & Abort",16,);
        return -1;
    }
       =20
    $exitwhileloop=3D"N";  =20
    $cnt=3D0;=20
    $j=3D1;
      =20
    # 500 times 130 =3D 65,000 which is max rows in an Excel spreadsheet =
worksheet.
    # We have to close Excel after each read of 500 records and restart =
Excel
    # otherwise Excel won't shutdown.  Some kind of memory problem =
develops.=20
   =20
    while ($j <=3D 130) {
             =20
       if ($j > 1) {
          $sheet->Close;
          undef $sheet;=20
          $book->Close;
          undef $book;
          $Excel->Quit;
          undef $Excel;
          $Excel =3D Win32::OLE->new('Excel.Application');
          $book  =3D $Excel->Workbooks->Open($file);
          $sheet =3D $book->Worksheets(1);
          $start=3D($stop + 1);
          $i=3D$start;
          $stop=3D($start + 499);
       } else {
          $Excel =3D Win32::OLE->new('Excel.Application');
          $book  =3D $Excel->Workbooks->Open($file);
          $sheet =3D $book->Worksheets(1);
          $i=3D2;
          $start=3D2;
          $stop=3D500;
       }
          =20
       for ($i=3D$start;$i<=3D$stop;$i++) {
            =20
         # build the sql insert statement
         $sqltxt=3D"INSERT INTO MyAccessTBL VALUES (";   =20
       =20
         $cell=3D"A" . $i;
         $market=3D$sheet->Range($cell)->{Value};
         $market=3D~s/\'/\"/g;
         $sqltxt=3D$sqltxt . "'" . $market . "'";
                 =20
         $cell=3D"B" . $i;
         $custnbr=3D$sheet->Range($cell)->{Value};
         $custnbr=3D~s/\'/\"/g;
         $sqltxt=3D$sqltxt . ",'" . $custnbr . "'";
        =20
         $cell=3D"C" . $i;
         $custname=3D$sheet->Range($cell)->{Value};
         $custname=3D~s/\'/\"/g;
         $sqltxt=3D$sqltxt . ",'" . $custname . "'";
               =20
         $cell=3D"F" . $i;
         $current=3Dsprintf("%9.2f",($sheet->Range($cell)->{Value}));
         $sqltxt=3D$sqltxt . "," . $balance;

        if ($market eq "" || $market eq " ") {
             # this check tells us when we are at the end of our data =
since we know in this case
             # that market field should not be blank.  Otherwise we would =
continue reading to the
             # 65,000th row in the spreadsheet which is a waste of time. =
=20
             $exitwhileloop=3D"Y";
             last;
         }
                     =20
         #######################################################     =20
         # execute the insert statement and get return status
         #######################################################
         $ret=3D$db->Sql($sqltxt); =20
         if ($ret) {
             $error=3D$db->Error;  # capture the sql error message
             	                 =20
             Win32::GUI::MessageBox($W,"$error\n$sqltxt",
                   "Excel port to Access - SQL Error($ret)",16,);
             return -1; =20
         }

         $cnt++;
        =20
         $Status->Text($cnt);
         $Status->Update();
        =20
         Win32::GUI::DoEvents();  # keep screen refreshed
        =20
       } # end of for loop
      =20
       if ($exitwhileloop eq "Y") {
           last;
       }
      =20
       $j++;
      =20
    } # end of while loop
   =20
     =20
    Win32::GUI::MessageBox($W,"There were $cnt records ported to MS-Access.=
",=20
            "Excel port to Access - Process Complete.",64,);
         =20
    $Status->Text("Exiting Program  - Please wait ...");
    $Status->Update();
    sleep 3;
  =20
    return -1;       =20
  =20
}  # Port_Click event


# End Script

Re: [perl-win32-gui-users] Clear a TreeView

[Andrea M. <mae...@fr...>]

"Piske, Harald" wrote:
> 
> This is not a question, I just wanted to share a solution. When you have a
> treeview with a lot of entries (a hundred base nodes with dozens of branches
> each) and do a $Main->Tree->Clear (), this can clog up the CPU for a
> considerable time. Here's what's much faster 

Very elegant solution! :)

Mine is to hide the TreeView that I have to clear and in the
meantime, show another TreeView with some text that explains
that the computer is working. Then I hide this one and show the
primary TreeView...

not very elegant but it works and it is fast :)

-- 
$_=q,6;-16;-1;-8;0;7;-13;-12;-9;-3;13#4A75737420616E6F74686572,,($_,$b)=
split?#?;@b=split?;?;map{$c.=$_,$d.=chr$b[$e++]+ord}split??,pack'H24',$b
;chop$d,print$c.chr(32).$d

[perl-win32-gui-users] ListView question

[Jonathan S. <jso...@al...>]

I know I can select items based on their index with 
$MainWindow->Listview->Select($index) but how do I unselect it (without 
clicking on it)?

Jonathan

[perl-win32-gui-users] Clear a TreeView

[Piske, H. <Har...@bo...>]

This is not a question, I just wanted to share a solution. When you have a
treeview with a lot of entries (a hundred base nodes with dozens of branches
each) and do a $Main->Tree->Clear (), this can clog up the CPU for a
considerable time. Here's what's much faster (up to 100 times, depending on
the size and depth of the tree):

	@tv = ($key = $Main->Tree->GetChild (0));
	push @tv, $key while $key = $Main->Tree->GetNextSibling ($key);
	$Main->Tree->DeleteItem ($_) while $_ = pop @tv;

Note using the keys in reverse order (pop @tv instead of shift @tv) does the
trick.

RE: [perl-win32-gui-users] iipc.pm

[Anthony G. <AG...@em...>]

I have an archive of Win32::Iproc and Win32::Isync I can mail privately 
if you like...

<sig>  Anthony George <ag...@em...> Systems Engineer.
Do your technical services need medical attention?  We can help.  EMSTS, 
LLC.  800-304-8269   231-720-1600   http://www.emsts.com  2516 Glade 
Muskegon,MI 49444</sig>


-----Original Message-----
From: Kamalesh Kumar <kk...@vc...>
To: "'Piske, Harald'" <Har...@bo...>,  "'perl-win32-gui-
us...@li...'" <per...@li...>
Date: Wed, 19 Jun 2002 11:15:57 -0700
Subject: RE: [perl-win32-gui-users] iipc.pm

> Hi Piske, 
> 
> Thanks allot for helping. 
> But I did get yet where from I have to find iipc.pm. 
> 
> Thanks 
> Kamalesh 
> 
> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Wednesday, June 19, 2002 10:57 AM
> To: 'Kamalesh Kumar'; 'per...@li...'
> Subject: RE: [perl-win32-gui-users] iipc.pm
> 
> 
> How to install it seems to be said here
> http://safari.oreilly.com/main.asp?bookname=perlsysadm&snode=37
> 
> but about where to get it, the links seem outdated.
> http://www.generation.net/~aminer/Perl/ is empty (or not browsable)
> 
> The guy's email address, listed on 
> http://idnopheq.perlmonk.org/perl/packages/ppm-index.html
> as "Amine Moulay Ramdane (am...@ge...)"
> is apparently also down, according to
> http://jenda.krynicky.cz/perl/Win32-MemMap.htm
> where it says "Email : current unknown, used to be
> am...@ge..."
> 
> 
> 
> > -----Original Message-----
> > From: Kamalesh Kumar [mailto:kk...@vc...]
> > Sent: Wednesday, June 19, 2002 10:12
> > To: 'per...@li...'
> > Cc: Kamalesh Kumar
> > Subject: [perl-win32-gui-users] iipc.pm
> > 
> > 
> > Hi All, 
> > 
> > How are you ? 
> > Here ,Kamalesh Kumar from VCommerce. I am working as EDI/Perl 
> > consultant.
> > Some body can suggest me where I can find iipc.pm and how do 
> > I install it. 
> > 
> > Thanks 
> > Kamalesh 
> > 
> > --------------------------------------------------------------
> > --------------
> >                    Bringing you mounds of caffeinated joy
> >                    >>>     http://thinkgeek.com/sf    <<<
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> 
> -----------------------------------------------------------------------
> -----
>                    Bringing you mounds of caffeinated joy
>                    >>>     http://thinkgeek.com/sf    <<<
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] iipc.pm

[Kamalesh K. <kk...@vc...>]

Hi Piske, 

Thanks allot for helping. 
But I did get yet where from I have to find iipc.pm. 

Thanks 
Kamalesh 

-----Original Message-----
From: Piske, Harald [mailto:Har...@bo...]
Sent: Wednesday, June 19, 2002 10:57 AM
To: 'Kamalesh Kumar'; 'per...@li...'
Subject: RE: [perl-win32-gui-users] iipc.pm


How to install it seems to be said here
http://safari.oreilly.com/main.asp?bookname=perlsysadm&snode=37

but about where to get it, the links seem outdated.
http://www.generation.net/~aminer/Perl/ is empty (or not browsable)

The guy's email address, listed on 
http://idnopheq.perlmonk.org/perl/packages/ppm-index.html
as "Amine Moulay Ramdane (am...@ge...)"
is apparently also down, according to
http://jenda.krynicky.cz/perl/Win32-MemMap.htm
where it says "Email : current unknown, used to be am...@ge..."



> -----Original Message-----
> From: Kamalesh Kumar [mailto:kk...@vc...]
> Sent: Wednesday, June 19, 2002 10:12
> To: 'per...@li...'
> Cc: Kamalesh Kumar
> Subject: [perl-win32-gui-users] iipc.pm
> 
> 
> Hi All, 
> 
> How are you ? 
> Here ,Kamalesh Kumar from VCommerce. I am working as EDI/Perl 
> consultant.
> Some body can suggest me where I can find iipc.pm and how do 
> I install it. 
> 
> Thanks 
> Kamalesh 
> 
> --------------------------------------------------------------
> --------------
>                    Bringing you mounds of caffeinated joy
>                    >>>     http://thinkgeek.com/sf    <<<
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] iipc.pm

[Piske, H. <Har...@bo...>]

How to install it seems to be said here
http://safari.oreilly.com/main.asp?bookname=perlsysadm&snode=37

but about where to get it, the links seem outdated.
http://www.generation.net/~aminer/Perl/ is empty (or not browsable)

The guy's email address, listed on 
http://idnopheq.perlmonk.org/perl/packages/ppm-index.html
as "Amine Moulay Ramdane (am...@ge...)"
is apparently also down, according to
http://jenda.krynicky.cz/perl/Win32-MemMap.htm
where it says "Email : current unknown, used to be am...@ge..."



> -----Original Message-----
> From: Kamalesh Kumar [mailto:kk...@vc...]
> Sent: Wednesday, June 19, 2002 10:12
> To: 'per...@li...'
> Cc: Kamalesh Kumar
> Subject: [perl-win32-gui-users] iipc.pm
> 
> 
> Hi All, 
> 
> How are you ? 
> Here ,Kamalesh Kumar from VCommerce. I am working as EDI/Perl 
> consultant.
> Some body can suggest me where I can find iipc.pm and how do 
> I install it. 
> 
> Thanks 
> Kamalesh 
> 
> --------------------------------------------------------------
> --------------
>                    Bringing you mounds of caffeinated joy
>                    >>>     http://thinkgeek.com/sf    <<<
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

RE: [perl-win32-gui-users] Re: Perl-Win32-GUI-Users digest, Vol 1 #425 - 3 msgs

[Piske, H. <Har...@bo...>]

Yep, that works fine. ${something} is the same as $something, except that
the {} seperates the variable name "something" from whatever follows. Both
your solutions do the same. That's the beauty and curse of Perl, there are
always 1001 ways to do it.

> -----Original Message-----
> From: Ceres [mailto:ce...@ce...]
> Sent: Wednesday, June 19, 2002 10:35
> To: per...@li...
> Subject: [perl-win32-gui-users] Re: Perl-Win32-GUI-Users digest, Vol 1
> #425 - 3 msgs
> 
> 
> 
> ##                 ______         ##
> ## $subname = "Menu${key}_Click"; ##
> ##                 ^^^^^^         ##
> 
> is this working  ?
> scalar $key is a string and has a value
> but does ${key} have the same value then?
> isn't it interpated as a hash in stead of a scalar?
> 
> i mostly use:
>   $subname = "Menu$key\_Click";
> or
>   $subname = "Menu$key"."_Click";
> 
> Grretings
>   Ceres
> 
> *********** REPLY SEPARATOR  ***********
> 
> On 18-6-2002 at 12:11 
> per...@li... wrote:
> 
>  > Today's Topics:
>  > 
>  >    1. Creating menu's "on-the-fly" (Jonathan Southwick)
>  >    2. Fwd: Re: [perl-win32-gui-users] Creating menu's 
> "on-the-fly" (Jonathan Southwick)
>  >    3. Re: Creating menu's "on-the-fly" (Jonathan Southwick)
>  > 
>  > --__--__--
>  > 
>  > Message: 1
>  > From: Jonathan Southwick <jso...@al...>
>  > Subject: [perl-win32-gui-users] Creating menu's "on-the-fly"
>  >
>  > Can anyone see anything I  am doing wrong?
>  > 
>  > # define main menu
>  > my $MainMenu = new Win32::GUI::Menu(
>  >      "&File" => "File",
>  >      "   >   E&xit" => "FileExit",
>  >      "&Message" => "Message",
>  >      "   >   &Add New" => "AddMessage",
>  >      "   >   &Edit" => "EditMessage",
>  >      "   >   &Delete" => "DeleteMessage",
>  >      "   >   -" => 0,
>  >      @MENUDEF,
>  >      "&Tools" => "Tools",
>  >      "   >   &Setup" => "Setup",
>  >      "   >   -" => 0,
>  >      "   >   Change &Password" => "ChangePassword",
>  >      "&Help" => "Help",
>  >      "   >   &About" => "About",
>  > );
>  > 
>  > 
>  > ### I call this routine *before* I create my menu.
>  > sub getMessageList {
>  >   ### stuff deleted, this section just read in the file 
> and created the has
>  >   ### now I want to use the values in the hash for my menu.
>  >     @MENUDEF = ();
>  >     foreach $key (keys (%MESSAGE)) {
>  >        print "$key is text: $MESSAGE{$key}\n";
>  >      ## this is only for testing purposes to make
>  >      ## sure I have the right information
>  >        push(@MENUDEF," > $key");
>  >        push(@MENUDEF,"Menu$key");
>  >        $subname = "Menu${key}_Click";
>  >        *$subname = eval(qq(
>  >           sub {
>  >              print "got a click\n"; ## this is for 
> testing, but I don't get a click
>  >              $MainWindow->Message->Text($MESSAGE{$key});
>  >              return;
>  >           }
>  >        ));
>  >     }
>  >     return;
>  > }
>  > 
>  > 
>  > Jonathan
> 
> 
> 
> --------------------------------------------------------------
> --------------
>                    Bringing you mounds of caffeinated joy
>                    >>>     http://thinkgeek.com/sf    <<<
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Re: Perl-Win32-GUI-Users digest, Vol 1 #425 - 3 msgs

[Ceres <ce...@ce...>]

##                 ______         ##
## $subname =3D "Menu${key}_Click"; ##
##                 ^^^^^^         ##

is this working  ?
scalar $key is a string and has a value
but does ${key} have the same value then?
isn't it interpated as a hash in stead of a scalar?

i mostly use:
  $subname =3D "Menu$key\_Click";
or
  $subname =3D "Menu$key"."_Click";

Grretings
  Ceres

*********** REPLY SEPARATOR  ***********

On 18-6-2002 at 12:11 per...@li...=
 wrote:

 > Today's Topics:
 > 
 >    1. Creating menu's "on-the-fly" (Jonathan Southwick)
 >    2. Fwd: Re: [perl-win32-gui-users] Creating menu's "on-the-fly"=
 (Jonathan Southwick)
 >    3. Re: Creating menu's "on-the-fly" (Jonathan Southwick)
 > 
 > --__--__--
 > 
 > Message: 1
 > From: Jonathan Southwick <jso...@al...>
 > Subject: [perl-win32-gui-users] Creating menu's "on-the-fly"
 >
 > Can anyone see anything I  am doing wrong?
 > 
 > # define main menu
 > my $MainMenu =3D new Win32::GUI::Menu(
 >      "&File" =3D> "File",
 >      "   >   E&xit" =3D> "FileExit",
 >      "&Message" =3D> "Message",
 >      "   >   &Add New" =3D> "AddMessage",
 >      "   >   &Edit" =3D> "EditMessage",
 >      "   >   &Delete" =3D> "DeleteMessage",
 >      "   >   -" =3D> 0,
 >      @MENUDEF,
 >      "&Tools" =3D> "Tools",
 >      "   >   &Setup" =3D> "Setup",
 >      "   >   -" =3D> 0,
 >      "   >   Change &Password" =3D> "ChangePassword",
 >      "&Help" =3D> "Help",
 >      "   >   &About" =3D> "About",
 > );
 > 
 > 
 > ### I call this routine *before* I create my menu.
 > sub getMessageList {
 >   ### stuff deleted, this section just read in the file and created the=
 has
 >   ### now I want to use the values in the hash for my menu.
 >     @MENUDEF =3D ();
 >     foreach $key (keys (%MESSAGE)) {
 >        print "$key is text: $MESSAGE{$key}\n";
 >      ## this is only for testing purposes to make
 >      ## sure I have the right information
 >        push(@MENUDEF," > $key");
 >        push(@MENUDEF,"Menu$key");
 >        $subname =3D "Menu${key}_Click";
 >        *$subname =3D eval(qq(
 >           sub {
 >              print "got a click\n"; ## this is for testing, but I don't=
 get a click
 >              $MainWindow->Message->Text($MESSAGE{$key});
 >              return;
 >           }
 >        ));
 >     }
 >     return;
 > }
 > 
 > 
 > Jonathan

[perl-win32-gui-users] Perl-Win32-GUI-Users - Event bugs in Win32-GUI-0.0.665

[Ceres <ce...@ce...>]

Hello Folks,

look in the file Win32-GUI-0.0.665.tar.gz for the text file BUGS and you=
 see the anser for almost all problems :
> - various :-)

Here are several known Event problems i have:

	  When making a menu in an empty window object the menu events are working=
 perfectly..
	  but when putting a TreeView object in the same Window object the sub=
 routine names
        of the menu events are lost (error msg is like ">> &main:: << not=
 found as subroutine")

	  When putting a TreeView object as a single object inside a Window object
        the events of the TreeView object are working perfectly..
	  But when putting the TreeView object inside a TabStrip object
        the events of the TreeView object are never fired..

	  When adding 2 TabStrip objects and a TextEdit in the last TabStrip=
 object,
        (a TextEdit in a TabStrip in a TabStrip in a Window)
        then there is the same error with the menu event.
        (error msg is like ">> &main:: << not found as subroutine")

	  When putting a RichEdit object inside a TabStrip object
        the events of the RichEdit object are never fired..
	  Gladly the TextEdit object inside a TabStrip object does fire its=
 events..:)

so this new Win32-GUI-0.0.665 version still contains various bugs..;-)

Greetings
  Ceres

ps .. Dada, you did a great job, but this new version does have his=
 problems ;-P
      it's verry hard to make working application without events working at=
 alltimes..
      I keep looking for the best way for every object i want to use,
      thats a hard way to make application and take mutch time i realy can=
 use for better things..
	So i hope these kind of bugs are history soon..

[perl-win32-gui-users] iipc.pm

[Kamalesh K. <kk...@vc...>]

Hi All, 

How are you ? 
Here ,Kamalesh Kumar from VCommerce. I am working as EDI/Perl consultant.
Some body can suggest me where I can find iipc.pm and how do I install it. 

Thanks 
Kamalesh 

RE: [perl-win32-gui-users] another menu question

[Jonathan S. <jso...@al...>]

Pete,

Yes! Thank you!  I didn't realize it would be that easy.

Thanks,

Jonathan

At 6/19/2002 12:31 PM, you wrote:

>Try this... is this what you mean?
>
>-Pete
>##########################
>#!perl -w
>
>use Win32::GUI;
>use strict;
>
>my $counter=1;
>
>my $Menu = new Win32::GUI::Menu(
>  "&File" => "File",
>  "   >   &Counter $counter..." => "Counter",
>);
>
>my $MW = new Win32::GUI::Window(
>     -title   => 'menu.pl',
>     -left    => 100,
>     -top     => 100,
>     -width   => 150,
>     -height  => 100,
>     -name    => 'MainWindow',
>     -visible => 1,
>     -menu    => $Menu,
>);
>
>$MW->AddButton(
>     -text    => 'change menu',
>     -name    => 'menu',
>     -left    => 25,
>     -top     => 25,
>);
>
>Win32::GUI::Dialog();
>
>
>sub MainWindow_Terminate
>{
>  return -1;
>}
>
>sub menu_Click
>{
>  &counteradd();
>}
>
>sub Counter_Click
>{
>  &counteradd();
>}
>
>sub counteradd
>{
>  $counter++;
>  print "DEBUG: counter = $counter\n";
>
>  my $Menu = new Win32::GUI::Menu(
>   "&File" => "File",
>   "   >   &Counter $counter..." => "Counter",
>  );
>  $MW->Change(-menu => $Menu);
>}
>
>### END
>
>
>-----Original Message-----
>From: Jonathan Southwick 
>[<mailto:jso...@al...>mailto:jso...@al...]
>Sent: Wednesday, June 19, 2002 10:04
>To: per...@li...
>Subject: RE: [perl-win32-gui-users] another menu question
>
>I meant I want them to be able to access the NEW menu items without 
>restarting the script.
>
>Jonathan
>
>At 6/19/2002 09:59 AM, you wrote:
>
>The results are already stored to the ini file so that when they run the 
>script the next time they will have the menu items available to them.  The 
>ini file is read in and the 'Message' section of the menu is created on 
>startup of the script.
>
>I want them to be able to access the menu items without having to restart 
>the script.  Is it possible to do this?
>
>Jonathan
>
>At 6/19/2002 09:35 AM, you wrote:
>
>Depends on what you want to happen. Do you want their changes to be saved 
>to the .ini file or should the changes only last for that session. My 
>suggestion is that you localize the building of the menu after they've 
>made their edit (maybe a button event?) and store the shortcut/description 
>relationship in a hash and write (or don't write) it to the .ini after the 
>edit.
>
>Another way to do it would be the brute force method, where they make the 
>changes, save to .ini, and then restart the script (exec script.pl).

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

RE: [perl-win32-gui-users] another menu question

[Peter E. <Pet...@at...>]

Try this... is this what you mean?

-Pete
##########################
#!perl -w

use Win32::GUI;
use strict;

my $counter=1;


my $Menu = new Win32::GUI::Menu(
 "&File" => "File",
 "   >   &Counter $counter..." => "Counter",
);


my $MW = new Win32::GUI::Window(
    -title   => 'menu.pl',
    -left    => 100,
    -top     => 100,
    -width   => 150,
    -height  => 100,
    -name    => 'MainWindow',
    -visible => 1,
    -menu    => $Menu,
);


$MW->AddButton(
    -text    => 'change menu',
    -name    => 'menu',
    -left    => 25,
    -top     => 25,
);

Win32::GUI::Dialog();



sub MainWindow_Terminate
{
 return -1;
}


sub menu_Click 
{
 &counteradd();
}


sub Counter_Click
{
 &counteradd();
}


sub counteradd
{
 $counter++;
 print "DEBUG: counter = $counter\n";

 my $Menu = new Win32::GUI::Menu(
  "&File" => "File",
  "   >   &Counter $counter..." => "Counter",
 );
 $MW->Change(-menu => $Menu);
}

### END



-----Original Message-----
From: Jonathan Southwick [mailto:jso...@al...]
Sent: Wednesday, June 19, 2002 10:04
To: per...@li...
Subject: RE: [perl-win32-gui-users] another menu question


I meant I want them to be able to access the NEW menu items without
restarting the script.

Jonathan

At 6/19/2002 09:59 AM, you wrote:

The results are already stored to the ini file so that when they run the
script the next time they will have the menu items available to them.  The
ini file is read in and the 'Message' section of the menu is created on
startup of the script.

I want them to be able to access the menu items without having to restart
the script.  Is it possible to do this?

Jonathan

At 6/19/2002 09:35 AM, you wrote:

Depends on what you want to happen. Do you want their changes to be saved to
the .ini file or should the changes only last for that session. My
suggestion is that you localize the building of the menu after they've made
their edit (maybe a button event?) and store the shortcut/description
relationship in a hash and write (or don't write) it to the .ini after the
edit.

Another way to do it would be the brute force method, where they make the
changes, save to .ini, and then restart the script (exec script.pl).

RE: [perl-win32-gui-users] another menu question

[Jonathan S. <jso...@al...>]

I meant I want them to be able to access the NEW menu items without 
restarting the script.

Jonathan

At 6/19/2002 09:59 AM, you wrote:
>The results are already stored to the ini file so that when they run the 
>script the next time they will have the menu items available to them.  The 
>ini file is read in and the 'Message' section of the menu is created on 
>startup of the script.
>
>I want them to be able to access the menu items without having to restart 
>the script.  Is it possible to do this?
>
>Jonathan
>
>At 6/19/2002 09:35 AM, you wrote:
>>Depends on what you want to happen. Do you want their changes to be saved 
>>to the .ini file or should the changes only last for that session. My 
>>suggestion is that you localize the building of the menu after they've 
>>made their edit (maybe a button event?) and store the 
>>shortcut/description relationship in a hash and write (or don't write) it 
>>to the .ini after the edit.
>>
>>Another way to do it would be the brute force method, where they make the 
>>changes, save to .ini, and then restart the script (exec script.pl).

RE: [perl-win32-gui-users] another menu question

[Jonathan S. <jso...@al...>]

The results are already stored to the ini file so that when they run the 
script the next time they will have the menu items available to them.  The 
ini file is read in and the 'Message' section of the menu is created on 
startup of the script.

I want them to be able to access the menu items without having to restart 
the script.  Is it possible to do this?

Jonathan

At 6/19/2002 09:35 AM, you wrote:
>Depends on what you want to happen. Do you want their changes to be saved 
>to the .ini file or should the changes only last for that session. My 
>suggestion is that you localize the building of the menu after they've 
>made their edit (maybe a button event?) and store the shortcut/description 
>relationship in a hash and write (or don't write) it to the .ini after the 
>edit.
>
>Another way to do it would be the brute force method, where they make the 
>changes, save to .ini, and then restart the script (exec script.pl).