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

[perl-win32-gui-users] Characters in other languages than english?

[Octavian R. <ora...@gm...>]

Hi,

I know that Win32::GUI doesn't support UTF-8 characters and maybe it won't 
support it very soon, but is it possible to use characters in other european 
languages in a Win32::GUI program?

I just want to use the charset ISO-8859-2 instead of ISO-8859-1, or... the 
Windows1052/1050.

Is it possible to do that? I know that I could make a hack and use UTF-8 in 
a Richedit field, but I need to use special chars in menus, lists...

Thank you.

Octavian

Re: [perl-win32-gui-users] broken base-method calling mechanism -- Object won't search for Base methods

[demerphq <dem...@gm...>]

On 9/29/07, Linda W <per...@tl...> wrote:
> I've somehow broken Perl's OO mechanism.
> When calling through a blessed reference, it is not finding
> (nor, apparently, searching) methods in "Base" or ancestral
> classes....
>
> Not if this is "a" or "the" right forum or which would be better
> if this isn't a right place.
> I tried running it by perlmonks, but no luck in progressing
> there.  I'm using Tk on Win32(XP) cygwin. I seem to have
> some odd interplay with "Tk" event handlers and
> ancestor searching.
>
> I have an Object Oriented hierarchy, with multiple packages in
> one file.  It's structured like using package names (from most Base
> to most Derived) of "ONE", "TWO" "THREE", and "FOUR",
> where each builds (has an @ISA relation) on the previous class.
> I'm setting up two event - handlers, both were in package THREE
> and was on my way to splitting the 2nd to class "FOUR" when
> unexpected errors prompted me to temporarily disable the 2nd event
> (timer) altogether.  The first is an event handler for all
> keys in TK (bound to a "main window").
>
> The symptom I'm running into is that I setup the "key_handler"
> in package THREE, pointing to a "keybd handler" (also in
> THREE).  According to the man page, the event (key)
> handler in package "THREE" is called using the form:
> "$main_window_blessed_reference -> Tk_Event_Handler ( \
>     <extra programmer specified arguments to be passed>)"
>
> The handler is "bound" to the "main_win" in a package "THREE"
> method.  The package THREE method is passed $s ($self) in the
> first param (as "normal").  It is the "one" handle that is
> opened in "main" for the life of the program (i.e. most
> derived class is a singleton).
>
> When I bind the event handler, I ask for 3 parameters to be passed
> to the handling function (in addition to the "main_win" handle it is
> called through): the "singleton" handle and 2 key-id values:
>
> sub __bind_events_to_main_win ($) {
>   my ($s,$main_win) = @_;
>   my $retval;
>   $retval = $main_win -> bind('<Any-KeyPress>' =>
>               [\&__handle_key, $s, Ev('A'), Ev('K')]);
> }
>
> The handler uses the stored "blessed singleton handle" in "$s" (self)
> as the base for future object references.  However, as soon
> as a level "THREE" package tries to call a method in an ancestral
> class, I get a Tk:Error message along the lines of
> "THREE::<ancestral-method not found>" -- it doesn't seem to be
> searching ancestral class TWO or ONE for "ancestral-method".
>
> The pointer ($s) passed to "handler" is of the same "class" (ref)
> as the level it was bound and called in (same levels).  When I
> call through the pointer (in the handler routine), I'd "expect"
> perl would (1) see the Class of the reference I am calling
> through, look in the symbol-table for that Class for "@ISA()"
> and follow the chain back to find Base classes, but that's not
> what it is doing.  It seems to not look through any Base
> classes.
>
> Stack traceback in debugger shows my handler routine called
> by a "Tk" "eval", don't know if that is related ('theoretically
> shouldn't be)...
> Another minor, but perhaps salient point, is that all the packages
> are in one (1) file.  The separation of routines into
> different classes/packages is more for grouping & ordering
> the objects/levels conceptually than it is to split it into
> several files (which would be a detraction, actually).
>
> It might be that I'm simply confused about what I am doing and
> shouldn't expect Base classes to be called through a blessed
> reference, except the debugger (perl -d script.pl) is as confused
> as I am.
>
> I use the 'm' command in debug and on the blessed reference
> I am calling through. The debugger prints out all the
> methods for the current class (THREE) and then lists
> available methods in classes(packages) TWO and then ONE.
> It seems that the debugger thinks I am calling through a
> class pointer with two ancestral classes -- but if I try to
> single step or continue, it goes off to Tk::Error with the Warning
> "THREE:<ancestral class in ONE or TWO not found>" at
> <breakpoint I just continued from> instead of passing control
> to the package ONE or package TWO method.
>
> As if to "accentuate" the breakdown of perl's OO method, if I
> want to call a method in an ancestral class, I can provide
> the same named method (in THREE) and chain the call with SUPER.
> But this is [obviously], a *hack* for debug/testing purposes.
>
> How can a call through a blessed reference "NOT" look through
> Base classes?
>
> Am sorta stuck at this point, -- if I have to manually add
> "proxy" routines in "THREE" to call the parental methods, that
> really defeats the purpose of going "OO", no?  It appears
> perl's OO mechanism isn't working as expected.  Why doesn't it
> auto search the Base classes at exec time when it *does* show
> the methods (in the Base classes TWO and ONE) in debug?
>
> Anyone have any ideas why this might be happening? (known bug in
> Tk, or OO, or whatever....?)

Disclaimer: Im not a Tk person in the slightest.

Its really hard from your description to say anything. Maybe TK is
being invoked before the class heirarchy you are working with is fully
defined and it is doing something like

  my $sub=$object->can('foo');

The fact that you say that you have a bunch of classes in a single
file suggests this is possible. Perl doesnt necessarily read and
compile a full file before executing any of its contents, in some
cases, such as with BEGIN or INIT blocks code is executed immediately
after it is recognized and before any further content in the file.

However there could be any number of reasons, maybe you spelled @ISA
incorrectly, maybe @isa instead, or whatever.

Anyway, the point is that Perls objected oriented method dispatch most
certainly does work. If it didnt every package that used Exporter (a
vast number) would fail. So would vast chunks of the published code
out there, not to mention most of the code used at my current company
and my previous company. Thus if there was an error of this sort its
highly likely that you wouldnt be the first one to report  it,
although its possible of course that somehow you have stumbled on some
bizzare edge case that nobody else has, its *extremely* unlikely.

Absent a small code snippet to demonstrate the problem its absolutely
impossible for us to identify what the problem is. The best we can do
is make vague suggestions and provide general guidance. In fact there
is one person on this list who used to like to respond to mails like
this with the response "i see it, the problem is on line 42" :-)

So please, first split up your class heriarchy into independent files,
use() them so they are forced to compile before any TK code executes,
and if the problem persists spend some time to produce a minimal
example of the problem and post it here or to Perlmonks or both.
Without code there really is nothing we can say beyond "Perl's OO
works just fine."

Cheers,
Yves




-- 
perl -Mre=debug -e "/just|another|perl|hacker/"

Re: [perl-win32-gui-users] broken base-method calling mechanism -- Object won't search for Base methods

[Linda W <per...@tl...>]

Eitan Schichmanter wrote:
> I admit I haven't read the email through and through but a thing that
> jumped is the fact you use events for a TK application. As far as my
> knowledge goes (and perhaps I'm reaching here), TK is NOT thread-safe
> whereas events are thread-driven.
> 
> If this is the case (your events "spawn" threads) it might explain most
> (if not all) of your issues.
----
	Only events coming in are Tk-called events.  I don't spawn any
processes or threads.  I presume Tk wouldn't call its event handers in an
unsafe manner -- if it did, I don't think it would be very usable as a GUI
toolbox.

	I can't see "why" it would, but would Tk fool around with how Base
class methods (unrelated to Tk) were called?

Re: [perl-win32-gui-users] broken base-method calling mechanism -- Object won't search for Base methods

[Eitan S. <Eit...@bi...>]

Hi,

I admit I haven't read the email through and through but a thing that
jumped is the fact you use events for a TK application. As far as my
knowledge goes (and perhaps I'm reaching here), TK is NOT thread-safe
whereas events are thread-driven.

If this is the case (your events "spawn" threads) it might explain most
(if not all) of your issues.

HTH,

Eitan.

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Linda W
Sent: Saturday, September 29, 2007 11:25 PM
To: per...@li...; p5p
Subject: [perl-win32-gui-users] broken base-method calling mechanism --
Object won't search for Base methods

I've somehow broken Perl's OO mechanism.
When calling through a blessed reference, it is not finding
(nor, apparently, searching) methods in "Base" or ancestral
classes....

Not if this is "a" or "the" right forum or which would be better
if this isn't a right place.
I tried running it by perlmonks, but no luck in progressing
there.  I'm using Tk on Win32(XP) cygwin. I seem to have
some odd interplay with "Tk" event handlers and
ancestor searching.

I have an Object Oriented hierarchy, with multiple packages in
one file.  It's structured like using package names (from most Base
to most Derived) of "ONE", "TWO" "THREE", and "FOUR",
where each builds (has an @ISA relation) on the previous class.=20
I'm setting up two event - handlers, both were in package THREE
and was on my way to splitting the 2nd to class "FOUR" when
unexpected errors prompted me to temporarily disable the 2nd event
(timer) altogether.  The first is an event handler for all
keys in TK (bound to a "main window").=20

The symptom I'm running into is that I setup the "key_handler"
in package THREE, pointing to a "keybd handler" (also in
THREE).  According to the man page, the event (key)
handler in package "THREE" is called using the form:
"$main_window_blessed_reference -> Tk_Event_Handler ( \
    <extra programmer specified arguments to be passed>)"

The handler is "bound" to the "main_win" in a package "THREE"
method.  The package THREE method is passed $s ($self) in the
first param (as "normal").  It is the "one" handle that is
opened in "main" for the life of the program (i.e. most
derived class is a singleton).

When I bind the event handler, I ask for 3 parameters to be passed
to the handling function (in addition to the "main_win" handle it is
called through): the "singleton" handle and 2 key-id values:

sub __bind_events_to_main_win ($) {
  my ($s,$main_win) =3D @_;
  my $retval;
  $retval =3D $main_win -> bind('<Any-KeyPress>' =3D>
              [\&__handle_key, $s, Ev('A'), Ev('K')]);
}

The handler uses the stored "blessed singleton handle" in "$s" (self)
as the base for future object references.  However, as soon
as a level "THREE" package tries to call a method in an ancestral
class, I get a Tk:Error message along the lines of
"THREE::<ancestral-method not found>" -- it doesn't seem to be
searching ancestral class TWO or ONE for "ancestral-method".

The pointer ($s) passed to "handler" is of the same "class" (ref)
as the level it was bound and called in (same levels).  When I
call through the pointer (in the handler routine), I'd "expect"
perl would (1) see the Class of the reference I am calling
through, look in the symbol-table for that Class for "@ISA()"
and follow the chain back to find Base classes, but that's not
what it is doing.  It seems to not look through any Base
classes.=20

Stack traceback in debugger shows my handler routine called
by a "Tk" "eval", don't know if that is related ('theoretically
shouldn't be)...
Another minor, but perhaps salient point, is that all the packages
are in one (1) file.  The separation of routines into
different classes/packages is more for grouping & ordering
the objects/levels conceptually than it is to split it into
several files (which would be a detraction, actually).

It might be that I'm simply confused about what I am doing and
shouldn't expect Base classes to be called through a blessed
reference, except the debugger (perl -d script.pl) is as confused
as I am.

I use the 'm' command in debug and on the blessed reference
I am calling through. The debugger prints out all the
methods for the current class (THREE) and then lists
available methods in classes(packages) TWO and then ONE.
It seems that the debugger thinks I am calling through a
class pointer with two ancestral classes -- but if I try to
single step or continue, it goes off to Tk::Error with the Warning
"THREE:<ancestral class in ONE or TWO not found>" at
<breakpoint I just continued from> instead of passing control
to the package ONE or package TWO method.

As if to "accentuate" the breakdown of perl's OO method, if I
want to call a method in an ancestral class, I can provide
the same named method (in THREE) and chain the call with SUPER.
But this is [obviously], a *hack* for debug/testing purposes.=20

How can a call through a blessed reference "NOT" look through
Base classes?

Am sorta stuck at this point, -- if I have to manually add
"proxy" routines in "THREE" to call the parental methods, that
really defeats the purpose of going "OO", no?  It appears
perl's OO mechanism isn't working as expected.  Why doesn't it
auto search the Base classes at exec time when it *does* show
the methods (in the Base classes TWO and ONE) in debug?

Anyone have any ideas why this might be happening? (known bug in
Tk, or OO, or whatever....?)

Tnx,
Linda


------------------------------------------------------------------------
-
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

[perl-win32-gui-users] broken base-method calling mechanism -- Object won't search for Base methods

[Linda W <per...@tl...>]

I've somehow broken Perl's OO mechanism.
When calling through a blessed reference, it is not finding
(nor, apparently, searching) methods in "Base" or ancestral
classes....

Not if this is "a" or "the" right forum or which would be better
if this isn't a right place.
I tried running it by perlmonks, but no luck in progressing
there.  I'm using Tk on Win32(XP) cygwin. I seem to have
some odd interplay with "Tk" event handlers and
ancestor searching.

I have an Object Oriented hierarchy, with multiple packages in
one file.  It's structured like using package names (from most Base
to most Derived) of "ONE", "TWO" "THREE", and "FOUR",
where each builds (has an @ISA relation) on the previous class. 
I'm setting up two event - handlers, both were in package THREE
and was on my way to splitting the 2nd to class "FOUR" when
unexpected errors prompted me to temporarily disable the 2nd event
(timer) altogether.  The first is an event handler for all
keys in TK (bound to a "main window"). 

The symptom I'm running into is that I setup the "key_handler"
in package THREE, pointing to a "keybd handler" (also in
THREE).  According to the man page, the event (key)
handler in package "THREE" is called using the form:
"$main_window_blessed_reference -> Tk_Event_Handler ( \
    <extra programmer specified arguments to be passed>)"

The handler is "bound" to the "main_win" in a package "THREE"
method.  The package THREE method is passed $s ($self) in the
first param (as "normal").  It is the "one" handle that is
opened in "main" for the life of the program (i.e. most
derived class is a singleton).

When I bind the event handler, I ask for 3 parameters to be passed
to the handling function (in addition to the "main_win" handle it is
called through): the "singleton" handle and 2 key-id values:

sub __bind_events_to_main_win ($) {
  my ($s,$main_win) = @_;
  my $retval;
  $retval = $main_win -> bind('<Any-KeyPress>' =>
              [\&__handle_key, $s, Ev('A'), Ev('K')]);
}

The handler uses the stored "blessed singleton handle" in "$s" (self)
as the base for future object references.  However, as soon
as a level "THREE" package tries to call a method in an ancestral
class, I get a Tk:Error message along the lines of
"THREE::<ancestral-method not found>" -- it doesn't seem to be
searching ancestral class TWO or ONE for "ancestral-method".

The pointer ($s) passed to "handler" is of the same "class" (ref)
as the level it was bound and called in (same levels).  When I
call through the pointer (in the handler routine), I'd "expect"
perl would (1) see the Class of the reference I am calling
through, look in the symbol-table for that Class for "@ISA()"
and follow the chain back to find Base classes, but that's not
what it is doing.  It seems to not look through any Base
classes. 

Stack traceback in debugger shows my handler routine called
by a "Tk" "eval", don't know if that is related ('theoretically
shouldn't be)...
Another minor, but perhaps salient point, is that all the packages
are in one (1) file.  The separation of routines into
different classes/packages is more for grouping & ordering
the objects/levels conceptually than it is to split it into
several files (which would be a detraction, actually).

It might be that I'm simply confused about what I am doing and
shouldn't expect Base classes to be called through a blessed
reference, except the debugger (perl -d script.pl) is as confused
as I am.

I use the 'm' command in debug and on the blessed reference
I am calling through. The debugger prints out all the
methods for the current class (THREE) and then lists
available methods in classes(packages) TWO and then ONE.
It seems that the debugger thinks I am calling through a
class pointer with two ancestral classes -- but if I try to
single step or continue, it goes off to Tk::Error with the Warning
"THREE:<ancestral class in ONE or TWO not found>" at
<breakpoint I just continued from> instead of passing control
to the package ONE or package TWO method.

As if to "accentuate" the breakdown of perl's OO method, if I
want to call a method in an ancestral class, I can provide
the same named method (in THREE) and chain the call with SUPER.
But this is [obviously], a *hack* for debug/testing purposes. 

How can a call through a blessed reference "NOT" look through
Base classes?

Am sorta stuck at this point, -- if I have to manually add
"proxy" routines in "THREE" to call the parental methods, that
really defeats the purpose of going "OO", no?  It appears
perl's OO mechanism isn't working as expected.  Why doesn't it
auto search the Base classes at exec time when it *does* show
the methods (in the Base classes TWO and ONE) in debug?

Anyone have any ideas why this might be happening? (known bug in
Tk, or OO, or whatever....?)

Tnx,
Linda

Re: [perl-win32-gui-users] HIJACKING "screensaver with perl" (Rudeness or immaturity?)

[Linda W <per...@tl...>]

[rude?] a98...@gm... wrote:
Subject: Re: screensaver with perl: How to wait for a Dialogbox to
continue the	program?
 > Hi,
 >
 > I want to make an input with a dialogbox.
----------------------------------------------

[immature?] a98...@gm... wrote:
Subject: Re: screensaver with perl: my labels are only shown after
clicking an	them or resizing the window

 > hi,
 >
 > I've the problem that my labels are only shown after clicking on
 > them or after resizing the window.
 > do I have to implement a repainting or something?
-----------------------------------------------------------------------------
Maybe this is normal, but do people normally respond to a thread
("screensavers in perl") with completely unrelated topics?

It sorta defeats the idea of threads -- I looked at the "Re: Screensaver
with perl" thread looking to see if anyone _RESPONDED_ **>>TO THE SUBJECT<<**
and instead I find the above 'fluff' completely unrelated to the topic.

Isn't this this sorta childish and or immature?  Reminds me of slashdot.

:-(

[perl-win32-gui-users] Help on input

[Ned C. <Ned...@mo...>]

Hi all,

=20

I have what I think is a simple question on what should be a common use
fro Win32::GUI.

=20

I want to build a screen that will display an input "Enter foo:"

=20

Then will display another input "Enter bar:"

=20

=20

All I want to do is be able to press enter or click ok for each input.

=20

When I press enter, $bar has the first input $foo as its data?

=20

It seems to me that this should be documented somewhere? And even some
sample code?

=20

Is this module dead?

=20

=20

Thankx

=20

Ned Cunningham

=20

Monro Muffler Brake, Inc.

(585) 784-3310

 <mailto:ned...@mo...> =20

=20

[perl-win32-gui-users] my labels are only shown after clicking an them or resizing the window

[<a98...@gm...>]

hi,

I've the problem that my labels are only shown after clicking on them or after resizing the window.
do I have to implement a repainting or something?

my script:

[snip]
  $cfg_window=Win32::GUI::Window->new(
  	-name  => "configwin",
  	-title => "$cfg{name} - Configuration",
        -left => CW_USEDEFAULT,
  	-size  => [ 600, 450 ],
  	-parent => $main,
    -vscroll => 1,
    -hscroll => 1,
    -helpbutton  => 0,
    -dialogui    => 1,
    -resizable   => 1,
    -onTerminate => sub { do_animation($cfg_window); 0; },
  );
  
  my $ncw = $cfg_window->ScaleWidth();
  my $nch = 20;
  
  $cfg_window->AddButton(
    -name => "CFGOK",
    -text => "OK",
    -pos  => [ 30, $nch ],
  );
  $cfg_window->AddButton(
    -name => "CFGCANCEL",
    -text => "CANCEL",
    -pos  => [ 70, $nch ],
  );

  my $count = 0;
  my $padding = 10;

  $cfg_window->AddGroupbox(
  	-name  => "CFGX",
  	-title => "Configuration",
  	-left  => 25,
  	-top   => 10,
  	-width => 400,
	-group  => 1,
  );
  
  foreach my $xx (sort(keys %config))
  {
    $count = $count + 1;
    $cfg_window->AddTextfield(
      -name => "${xx}_name",
      -text => "$config{$xx}",
      -left => 35,
      -prompt => [ "$xx:" , 150 ],
      -height => 20,
      -width => 200,
	    -top   => 25 + ($count * 20),
	    -width => $cfg_window->CFGX->Width() - (2 * 20),
	    -tabstop => 1,
    );
  }
  
  $cfg_window->CFGX->Height(350);
  $cfg_window->CFGX->Width(550);
  
  do_animation($cfg_window);
  $cfg_window->SetRedraw(1);

[/snip]

thx
juergen

-- 
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail

[perl-win32-gui-users] How to wait for a Dialogbox to continue the program?

[<a98...@gm...>]

Hi,

I want to make an input with a dialogbox.
but I've the problem that the program continues while the dialogbox is open.

how can i make the script waiting for closing the dialogbox?

thx
juergen


my script:
[snip]
do_something...
ask_filename();
do_the_rest...

sub ask_filename {
# Create Find DialogBox
my $filenameDlg = new Win32::GUI::DialogBox(
              -name  => "FileDlg",
              -title => "Filename",
              -pos   => [ 150, 150 ],
              -size  => [ 360, 115 ],
      );

  # Filename
  $filenameDlg->AddTextfield (
                -name  => "FileDlg_Text",              
                -pos   => [10, 12],
                -size  => [220, 21],              
                -prompt  => [ "Filename: ", 45],
                -tabstop => 1,
        );
        
  $filenameDlg->AddButton (
                -name  => "FileDlg_OK",
                -text  => "&OK",
                -pos   => [270, 10],
                -size  => [75 , 21],
                -onClick => sub {  $filenameDlg->Hide(); $filename=$filenameDlg->FileDlg_Text->Text; return 0; },
                -group => 1,
                -tabstop => 1,
        );
  
  # Cancel Button
  $filenameDlg->AddButton (
                -name  => "FileDlg_Cancel",
                -text  => "C&ancel",
                -pos   => [270, 40],
                -size  => [75 , 21],
                -onClick => sub { $filenameDlg->Hide(); 0; },
                -tabstop => 1,
      );
  $filenameDlg->FileDlg_Text->SetFocus();
  $filenameDlg->Show();
  return 0;
}
[/snip]
-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

[perl-win32-gui-users] screensaver with perl

[Alex L. <sim...@gm...>]

Hi all:
Lately Ive been searching for a simple screensaver that can display
time and date with BIG text. Windows has a text version but it only
displays time. Since PERL is so robust I am wondering if there is a
simple way to write and compile a simple screensaver with PERL?
Nothing fancy just displays time and date with big bright fonts.

thanks!
Alex

Re: [perl-win32-gui-users] Listview mental block

[Jason P. <jp...@da...>]

Hi Brian,

 

1)       Selection will contain -1 when there are no selections, I believe
(this is from memory and from 1.02/1.03 so, check)

2)       With all those mentions of fleece, are writing financial software?

3)       ItemClick indeed would likely be the better choice over this

4)       In the Loft, specify that the list is a single selection list, as
it appears our code seems to be entirely single selection.

 

  _____  

From: per...@li...
[mailto:per...@li...] On Behalf Of
Brian Rowlands (Greymouth High School)
Sent: Wednesday, September 19, 2007 4:58 AM
To: per...@li...
Subject: [perl-win32-gui-users] Listview mental block

 

Hi all 
Enjoy reading all the help emails generated by this group so thought I'd ask
for some help please with listview. 

I've used TheLoft to create a gui interface for a program I'm writing. A
button I click is meant to read a selected line from a listview pane and
display the results in a selection of tf / cb controls:

    # determine which rows have been selected 
    my @selection = $win-> lvwFleece-> SelectedItems(); 
    
    my $size    = @selection;   # determine how many rows have been selected

    my %temp;                        # hash for reading listview data 
    my $field;                           # field name to match column
heading 

    if ((@selection) and ($size == 1)) { 
        # display the one row selected 
        foreach my $c (0..$max_fleece-1) { 
            %temp = $win-> lvwFleece-> GetItem($selection[0],$c); 
            $field = $fleece_fields[$c]; 
            $win-> $field-> Text("$temp{-text}"); 
        } 
    } 

The code works and produces the required output but I have some queries that
puzzle me. 

1. @selection contains the index values of the rows selected. However, if no
rows are selected I was expecting it to be return a () array but printing
its size in such a case shows a value of 1. Why would that be?

2. I really need some better way to determine if the listview has been
clicked. The event ItemClick(ITEM) in the package description for listview
looks as though it could be a better option for me. Can someone kindly help
me to construct the line to determine if the listview has had a line
selected please? I'm still learning perl and I'm puzzled how to do this
simple task.

Thanks 
Brian Rowlands 
We must accept finite disappointment, but we must never lose infinite hope.
 <file:///\\quotes\k\martinlutherking\> Martin Luther King Jr.

 

[perl-win32-gui-users] Listview mental block

[Brian R. (G. H. School) <Row...@gr...>]

Hi all
Enjoy reading all the help emails generated by this group so thought I'd
ask for some help please with listview.

I've used TheLoft to create a gui interface for a program I'm writing. A
button I click is meant to read a selected line from a listview pane and
display the results in a selection of tf / cb controls:

    # determine which rows have been selected
    my @selection =3D $win-> lvwFleece-> SelectedItems();
   =20
    my $size    =3D @selection;   # determine how many rows have been
selected
    my %temp;                        # hash for reading listview data
    my $field;                           # field name to match column
heading

    if ((@selection) and ($size =3D=3D 1)) {
        # display the one row selected
        foreach my $c (0..$max_fleece-1) {
            %temp =3D $win-> lvwFleece-> GetItem($selection[0],$c);
            $field =3D $fleece_fields[$c];
            $win-> $field-> Text("$temp{-text}");
        }
    }

The code works and produces the required output but I have some queries
that puzzle me.

1. @selection contains the index values of the rows selected. However,
if no rows are selected I was expecting it to be return a () array but
printing its size in such a case shows a value of 1. Why would that be?

2. I really need some better way to determine if the listview has been
clicked. The event ItemClick(ITEM) in the package description for
listview looks as though it could be a better option for me. Can someone
kindly help me to construct the line to determine if the listview has
had a line selected please? I'm still learning perl and I'm puzzled how
to do this simple task.

Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/> =20

Re: [perl-win32-gui-users] gui before windows logon

[Quatmann <and...@we...>]

I discussed with 2 guys offline, and came to the result, that there seems to
be no other way to display a gui before windows logon except designing a new
Windows GINA.dll ...
cause I don't wanna deal with this kind of things, I'll think about saving
the SIM PIN in a file, which will be dirty and unsecure but enables my users
to fully use their UMTS-Cards ..

If s.o. out there has got a better idea, I would be glad if you contact me!
-- 
View this message in context: http://www.nabble.com/gui-before-windows-logon-tf4378138.html#a12735909
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] GUI performance problem ..

[<jez...@ho...>]

Hi,

You will have to use a threaded approach. One thread deals with the GUI while the other thread does the work.

Cheers,

Jeremy.

-----Original Message-----
From: "Maxmelbin Neson (RBIN/EMT1)" <Max...@in...>
To: "per...@li..." <per...@li...>
Sent: 12/09/07 13:12
Subject: [perl-win32-gui-users] GUI performance problem ..


Hello All,

I am using the Win 32 GUI for one of  my applications .

I have a small performance problem.
During the processing of the application , if any dialog box pops up
(non Win 32 Gui popups) , the area of the this popup which overlaps with
the Window frame become shaded ... they clear only when that particular
processes is completed. This also happens if we minimise the window
during the processing,  when we maximise the window again , the whole
windows is shaded till the process is over. How to overcome this .. I
cannot live with this , because users may think that the application has
frozen and they may end it .

Note - by processing , I mean some actions that the script is doing ...

Thanks and Regards
Maxmelbin Neson
------------------------------------------------------------------------
-----------------------------------------
Robert Bosch India Limited
Engineering Services - DS - Methods and Tools (RBIN/EMT1)
123 Industrial Layout  -  Hosur Road -  Bangalore 560 095  -  INDIA
Telephone: +91 80 6657-4532	 Fax: +91 80 6657-1404
max...@in...
www.bosch.com

[perl-win32-gui-users] GUI performance problem ..

[Maxmelbin N. (RBIN/EMT1) <Max...@in...>]

Hello All,

I am using the Win 32 GUI for one of  my applications .

I have a small performance problem.
During the processing of the application , if any dialog box pops up
(non Win 32 Gui popups) , the area of the this popup which overlaps with
the Window frame become shaded ... they clear only when that particular
processes is completed. This also happens if we minimise the window
during the processing,  when we maximise the window again , the whole
windows is shaded till the process is over. How to overcome this .. I
cannot live with this , because users may think that the application has
frozen and they may end it .

Note - by processing , I mean some actions that the script is doing ...

Thanks and Regards
Maxmelbin Neson
------------------------------------------------------------------------
-----------------------------------------
Robert Bosch India Limited
Engineering Services - DS - Methods and Tools (RBIN/EMT1)
123 Industrial Layout  -  Hosur Road -  Bangalore 560 095  -  INDIA
Telephone: +91 80 6657-4532	 Fax: +91 80 6657-1404
max...@in...
www.bosch.com

Re: [perl-win32-gui-users] Handling click event for labels

[Geoffrey S. <geo...@gm...>]

By default Labels don't respond to any events; you need to specify the
-notify option explicitly to get events.



On 9/7/07, Micah Wilson <top...@gm...> wrote:
> Hello everyone, just getting started with Win32::GUI and I'm having an issue
> getting the _Click event from a label. With a button, you can name a sub
> 'button_name_Click' and that will fire when the button is clicked,
> unfortunately this doesn't work with labels :(
>
> The documentation for label only says:
>
> "
> EVENTS
>
> Common events apply to most windows and controls.
> Click
>
> Click()
>
> [TBD]
>
> "Not much to go on here. :-/
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems?  Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >>  http://get.splunk.com/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Geoffrey Spear
http://www.geoffreyspear.com/

[perl-win32-gui-users] Handling click event for labels

[Micah W. <top...@gm...>]

Hello everyone, just getting started with Win32::GUI and I'm having an issue
getting the _Click event from a label. With a button, you can name a sub
'button_name_Click' and that will fire when the button is clicked,
unfortunately this doesn't work with labels :(

The documentation for label only says:

"
EVENTS

Common events<http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-events>apply
to most windows and controls.
Click

Click()

[TBD]

"
Not much to go on here. :-/

[perl-win32-gui-users] Kbd Fires Click Twice for Radiobuttons, Why?

[Veli-Pekka <vt...@ma...>]

Hi list,
I think I might have found a bug in the event handling of Radio Buttons,
or else have just somehow misunderstood how their event handling works.
EIther way, I'd appreciate any comments and clarifications.

Issue:

if I create two radio buttons in a dialog, set them up in the tab order,
and then use the arrows to select one of the buttons, the onClick event
is fired twice when the arrows are used to select another radio button.
In contrast, if I use the mouse or click the button programmatically,
the event is fired only once. I would have expected the latter behavior
in keyboard usage, too. What causes the refiring of the onClick event?

version info:

This is perl, v5.8.8 built for MSWin32-x86-multi-thread
Documentation for Win32::GUI v1.05 created 05 Nov 2006

Sample code:

use strict; use warnings;
use Win32::GUI qw||; use Win32::GUI::GridLayout;

my($width, $height) = qw|4 4|;
my $win = Win32::GUI::DialogBox->new
( 
   -name => 'win', -size => [40 * $width, 40 * $height],
   -text => 'radios' -onTerminate => sub { -1 },
);

my $grid = Win32::GUI::GridLayout->apply
(
   $win, $width, $height,
   0, 0
);

my @buttons;
for my $i (1 .. $width)
{ # Ad some radio buttons.
   my $radio = Win32::GUI::RadioButton->new
   (
      $win, -name => "b$i", -tabstop => 1 , -text => $i,
      -onClick => sub
      {
         print "Click ", (shift)->UserData() . "\n";
         1
    }
   );
   $radio->UserData($i);
   $grid->add($radio, $i, $height / 2);
   push @buttons, $radio;
} # for 
my $first = $buttons[0];
$first->SetFocus();
$first->Click();
$grid->recalc();
$win->Show();
Win32::GUI::Dialog();

-- 
With kind regards Veli-Pekka Tätilä (vt...@ma...)
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila

[perl-win32-gui-users] HighRes Timing and Sleep in GUI MIDI Apps

[Veli-Pekka <vt...@ma...>]

Hi,
How good is the Win32::GUI timer for semi realtime applications? I've
codedd a drum machine, minus some final tweaks and testing, in Perl
using Win32::GUI as the GUI lib and Win32::MIDI for MIDI. I generate my
own note off events (note on velocity 0) so that Win32::MIDI does not
have to sleep. As I want the ability to operate the GUI while the thing
plays back stuff, I use Win32::GUI::Timer as the heart beat for my step
sequencer. I need the ability to time pretty exactly 32th notes from 50
to 250 bpm (150 to 30 ms), since I want to be able to quantize the
user's input to the closest 16th note (step). I'd also need a pretty
exact sleep for generating lag for swing, at max one 32th note and
possibly much smaller values, too. I'm using Win32::Sleep for the swing,
at the moment.

Timing seems surprisingly stable and even though I use large amounts of
objects (each step is one) and hash lookups Perl's CPU usage shows 0,
even when playing simultaneously 12 parts at 250 bpm. However, at some
pretty normal tempo ranges like 130 to 140 BPM, changing the tempo does
seem to have very little effect. However, if I export the data as MIDi
at 960 PPQ, I use the MIDI Perl modules for that, the tempo does change.

This has left me wondering whether Perl is the right tool for this job,
though the programmer convenience of Win32::GUI, Storable, Archive::Zip
and  MIDI Perl is huge over C and the Win32 API (without GUI builders). 

My question is, is there a tighter timing module available than what
Win32::GUI::Timer offers such that it doesn't freeze the GUI? What do
the pros use, i.e. old Windows apps like ReBirth or early versions of
Cakewalk for Windows. I'd also like to know about the Win32::GUI::Timer
how it quantizes values on a Windows NT system (XP SP2 and high res
timers  in hardware in my case). I've heard about some multimedia
timers, so can I use them in Perl and how? Howabout even more high res
sleeping, is that feasible?  Since I send MIDI on the wire lagging the
input deliberately is about the only way to implement a simplistic swing
function, as in most step and MIDI sequencers. Maybe polling would be
more exact than sleeping. MIDI Export is another story, though.

-- 
With kind regards Veli-Pekka Tätilä (vt...@ma...)
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila

Re: [perl-win32-gui-users] Modify the behavior of Win32::GUI::BitmapInline

[Quatmann <and...@we...>]

no recompiling is needed, just change the module .. 
but, to have your script act equal on other systems, where bitmapinline.pm
is not patched, just change the working directory in your script to s.th.
writeable for everyone before the construction of bitmapinline (I did it
that way and it works fine)

i.e.:
chdir("c:\\temp");
return newIcon Win32::GUI::BitmapInline( q( /<ICONCODE>/ ) );
-- 
View this message in context: http://www.nabble.com/Modify-the-behavior-of-Win32%3A%3AGUI%3A%3ABitmapInline-tf3983848.html#a12479900
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

[perl-win32-gui-users] gui before windows logon

[Quatmann <and...@we...>]

Hi!

I've written a perl-win32-GUI to do some initialization stuff on an umts
modem and then ask for a password (the SIM PIN). Everything works absolutely
fine if executed in user context.

Next I tried to do this initialization and password-GUI-interaction in
system context and start it before windows logon as a local service. This is
because I want to enable my users to do a real windows domain logon over
UMTS (and a VPN-Tunnel behind it..). I installed the program as a service
via the MS Program srvany.exe and a short pl-script i found somewhere else
(File "run_as_service.pl").

Here comes the problem:
The services starts correctly at boot time (my logs with timestamps told me
so), but the GUI does'nt show up on the desktop, so I can't fill in the
password. When logging in to the system, the whole GUI appears, I can fill
in the password and the programs does what it's supposed to be.

But without setting the SIM PIN before logon, which is not possible because
the windows does not appear, my aim is far away from being reached.

Any suggestions, how I can display the perl-win32-gui before a normal user
logs in??

thx,
Gonzo

http://www.nabble.com/file/p12479638/run_as_service.pl run_as_service.pl 
-- 
View this message in context: http://www.nabble.com/gui-before-windows-logon-tf4378138.html#a12479638
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] Scrollbar articles

[Robert M. <rob...@us...>]

On 30/08/07, Robert May <rob...@us...> wrote:
> Part 1: http://blog.robmay.me.uk/2007/08/scrolbars-part-1-scratch-program.html
> Part 2: http://blog.robmay.me.uk/2007/08/scrolbars-part-2-adding-large-control.html
> part 3: http://blog.robmay.me.uk/2007/08/scrollbars-part-3-adding-scrollbars.html
> part 4: http://blog.robmay.me.uk/2007/08/scrollbars-part-4-scroll-event.html

And now parts 5,6 and 7 which get us as far as a working set of scrollbars:
http://blog.robmay.me.uk/2007/09/scrollbars-part-5-setting-dscroll-range.html
http://blog.robmay.me.uk/2007/09/scrollbars-part-6-setting-page-size.html
http://blog.robmay.me.uk/2007/09/scrollbars-part-7-processing-scroll.html

Part 8 will simplify the code somewhat;  Part 9 will show one way to
scroll multiple controls (as requested by the OP) and Part 10 will add
keyboard support for scrolling.

Regards,
Rob.

Re: [perl-win32-gui-users] Scrollbar articles

[Robert M. <rob...@us...>]

> Part 1: http://blog.robmay.me.uk/2007/08/scrolbars-part-1-scratch-program.html
> Part 2: http://blog.robmay.me.uk/2007/08/scrolbars-part-2-adding-large-control.html
> part 3: http://blog.robmay.me.uk/2007/08/scrollbars-part-3-adding-scrollbars.html

And now part 4:
http://blog.robmay.me.uk/2007/08/scrollbars-part-4-scroll-event.html

Regards,
Rob.

Re: [perl-win32-gui-users] How to dynamically combine bitmaps in toolbar

[Waldemar B. <wb...@sa...>]

Ed,

It does help!

thank you!

Waldemar

[perl-win32-gui-users] Scrollbar articles [Was: how to have scrollbars in the main-window if it is too small?]

[Robert M. <rob...@us...>]

> > The first article (which only starts to set the scene) can be found at:
> > http://blog.robmay.me.uk/2007/08/scrolbars-part-1-scratch-program.html
> >
> Part 2 is now available at:
> http://blog.robmay.me.uk/2007/08/scrolbars-part-2-adding-large-control.html

And now part 3 at:
http://blog.robmay.me.uk/2007/08/scrollbars-part-3-adding-scrollbars.html

which gets us to about the position the OP's code snippet.

Regards,
Rob.