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

Re: [perl-win32-gui-users] iteminfo

[Sean H. <jal...@ho...>]

>is there any way for $ListView->ItemInfo to just print out the text rather
>than state and image as well. i have tried various things but nothing seems
>to work. thanx

my %info = $ListView->ItemInfo($item, $column);
print $info{-text};

OR

print $ListView->ItemInfo($item,$column)->{-text};

(I haven't actually tried this second version - the parser may not be able 
to handle it.)

The (0-based) $column is only necessary if you have more than one column.

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com

RE: [perl-win32-gui-users] Using a \t in a text of a treeview

[Sean H. <jal...@ho...>]

>I'm still trying to do to do two colums but no results. I also tryed to 
>count the length of the string and it works good on stdout but no in the 
>window ,


It might work in the window if you used a monospaceed font, but a better 
idea is probably to use a ListView with

-nocolumnheader => 1,

(this option is undocumented) and just put your text in two different 
columns.  The only problem is that ListView does not indent, so you'll have 
to prepend whitespace to your entries.  And if you want images, there may 
not be a way at all to indent the images.  (In that case, you'll probably 
have to use a monospaced font.)

If this works, please send me a copy of the successful code.  A multi-column 
treeview seems like something I'd want to have around.

_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com

[perl-win32-gui-users] iteminfo

[<ma...@mm...>]

is there any way for $ListView->ItemInfo to just print out the text rather
than state and image as well. i have tried various things but nothing seems
to work. thanx

RE: [perl-win32-gui-users] Using a \t in a text of a treeview

[Guillem C. W. <vac...@es...>]

I'm still triyng to do to do two colums but no results. I also tryed to =
count the length of the string and it works good on stdout but no in the =
window ,

any ideas ??

 $naaa =3D length($ref_bust->{Nom});
      $espaisblanc=3D " " x (50-$naaa);
      print "RESULTAT : $ref_bust->{Nom} ${espaisblanc} =
$ref_bust->{Info}[$dinspos]{Ultimacces} -----\n";
      $ref_bust->{Info}[$dinspos]{Arbre} =3D $TV->InsertItem(
               -parent=3D>$ref_assign->{Arbre}{$est_alu->{Nom}} ,
               -text=3D>"$ref_bust->{Nom} ${espaisblanc} =
$ref_bust->{Info}[$dinspos]{Ultimacces}",
                  -image         =3D> 0,=20
               -selected      =3D> 0,
               -checkboxes =3D> 0,);=20
  -----Mensaje original-----
  De: Guillem Cunillera Wefers <vac...@es...>
  Para: per...@li... =
<per...@li...>
  Fecha: dijous, 11 / abril / 2002 13:14
  Asunto: [perl-win32-gui-users] Using a \t in a text of a treeview


  Hi again,

  I'm using a TreeView and I would like to include a tab inside every =
branch to separate the text.

   $ref_bust->{Info}[$dinspos]{Arbre} =3D $TV->InsertItem(
                 -parent=3D>$ref_assign->{Arbre}{$est_alu->{Nom}} ,
                 =
-text=3D>$ref_bust->{Nom}."\t".$ref_bust->{Info}[$dinspos]{Dinsarray},
                    -image         =3D> 0,=20
                 -selected      =3D> 0,
                 -checkboxes =3D> 0,);=20

  Is not possible to use \t  ?

  Guillem Cunillera i Wefers

  Regards from Catalonia.

Re: [perl-win32-gui-users] application error referenced null pointer

[Johan L. <jo...@ba...>]

At 13:26 2002-04-11 +0100, ce...@pa... wrote:
>I'm trying to run a basic gui, but perl abort the script with an error 
>"instruction at 0x.... referenced memory 0x0"

Deja vu all over again :)

All controls need a -name option when using the 0.0.558 release. So the 
general advice is to always use a -name option no matter what.

This really needs to be mentioned in the FAQ.

http://www.jeb.ca/faq/Win32-GUI-FAQ.html


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Aftonbladet Sparka dig till ett bra självförtro..."
<http://www.aftonbladet.se/vss/halsa/story/0,2789,153107,00.html>
dmoz (1 of 8): .../Europa/Sverige/Nyheter_och_media/Dagstidningar

[perl-win32-gui-users] application error referenced null pointer

[<ce...@pa...>]

Hi

I'm trying to run a basic gui, but perl abort the script with an error "instruction at 0x.... referenced memory 0x0"

Perl version = ActiveState 5.6.1 Build 630
OS = W2K SP2
Win32::GUI = 0.558

I have run it using the debugger and it stops working at the STORE with execution of the AddLabel = foreground [255,0,0]

Script: 
#!perl
use Win32::GUI;

$text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world";

    $main = Win32::GUI::Window->new(
		-name => 'Main',
		-text => 'Perl',
	);
    $font = Win32::GUI::Font->new(
		-name => "Comic Sans MS", 
		-size => 24,
	);
    $label = $main->AddLabel(
		-text => $text,
		-font => $font,
		-foreground => [255, 0, 0],
	);
    $ncw = $main->Width() -  $main->ScaleWidth();
    $nch = $main->Height() - $main->ScaleHeight();
    $w = $label->Width()  + $ncw;
    $h = $label->Height() + $nch;
    $desk = Win32::GUI::GetDesktopWindow();
    $dw = Win32::GUI::Width($desk);
    $dh = Win32::GUI::Height($desk);
    $x = ($dw - $w) / 2;
    $y = ($dh - $h) / 2;
    $main->Change(-minsize => [$w, $h]);
    $main->Move($x, $y);
    $main->Show();
    Win32::GUI::Dialog();
    sub Main_Terminate {
	-1;
    }

sub Main_Resize {
        my $w = $main->ScaleWidth();
        my $h = $main->ScaleHeight();
        my $lw = $label->Width();
        my $lh = $label->Height();
		$label->Left(int(($w - $lw) / 2));
		$label->Top(int(($h - $lh) / 2));
}

[perl-win32-gui-users] Using a \t in a text of a treeview

[Guillem C. W. <vac...@es...>]

Hi again,

I'm using a TreeView and I would like to include a tab inside every =
branch to separate the text.

 $ref_bust->{Info}[$dinspos]{Arbre} =3D $TV->InsertItem(
               -parent=3D>$ref_assign->{Arbre}{$est_alu->{Nom}} ,
               =
-text=3D>$ref_bust->{Nom}."\t".$ref_bust->{Info}[$dinspos]{Dinsarray},
                  -image         =3D> 0,=20
               -selected      =3D> 0,
               -checkboxes =3D> 0,);=20

Is not possible to use \t  ?

Guillem Cunillera i Wefers

Regards from Catalonia.

RE: [perl-win32-gui-users] terminating popup window

[Rogers, J. <rog...@oc...>]

Hi,
If its a gui loft window _Terminate (clicking X)will return -1 by default,
thus destroying your window object. override it by adding return 0; to the
Window2 _Terminate sub
eg
 sub Window2_Terminate {
     $Window2->Hide();
	return 0;
 }


JohnR

> -----Original Message-----
> From: ma...@mm... [mailto:ma...@mm...]
> Sent: Thursday, 11 April 2002 10:08
> To: per...@li...
> Subject: [perl-win32-gui-users] terminating popup window
> 
> 
> hi. i've got a weird problem with my popup window. if i close it by
> clicking on the x the window closes fine but if i click on 
> the button to
> open it again, it won't open. however if i click on save and 
> exit in the
> popup window, when i click on the button the open the window 
> again it works
> fine. any ideas?
> 
> this is for the popup window:
> 
> sub Settings_Click {
>     open SETTINGS, "settings.dat";
>     while (<SETTINGS>) {
>      ($list_dun,$store_entry) = split /,/;
>     }
>     $Window2->DunBox->Change(-text => $list_dun);
>     $Window2->StoreField->Change(-text => $store_entry);
>     close SETTINGS;
> 
>     $Window2->Show();
> }
> 
> this is for the button in the window:
> 
> sub SaveAndExit_Click {
>     open SETTINGS, ">settings.dat";
>     $dun_list = $Window2->DunBox->Text();
>     $store_entry = $Window2->StoreField->Text();
>     print SETTINGS "$dun_list,$store_entry";
>     close SETTINGS;
>     $Window2->Hide();
> }
> 
> and then.....
> 
> sub Window2_Terminate {
>     $Window2->Hide();
> }
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] terminating popup window

[<ma...@mm...>]

hi. i've got a weird problem with my popup window. if i close it by
clicking on the x the window closes fine but if i click on the button to
open it again, it won't open. however if i click on save and exit in the
popup window, when i click on the button the open the window again it works
fine. any ideas?

this is for the popup window:

sub Settings_Click {
    open SETTINGS, "settings.dat";
    while (<SETTINGS>) {
     ($list_dun,$store_entry) = split /,/;
    }
    $Window2->DunBox->Change(-text => $list_dun);
    $Window2->StoreField->Change(-text => $store_entry);
    close SETTINGS;

    $Window2->Show();
}

this is for the button in the window:

sub SaveAndExit_Click {
    open SETTINGS, ">settings.dat";
    $dun_list = $Window2->DunBox->Text();
    $store_entry = $Window2->StoreField->Text();
    print SETTINGS "$dun_list,$store_entry";
    close SETTINGS;
    $Window2->Hide();
}

and then.....

sub Window2_Terminate {
    $Window2->Hide();
}

Re: [perl-win32-gui-users] popup window

[<Kev...@al...>]

Make the second window a dialog window and use the -parent option when you
create it  Example code below.

Cheers,

Kev.

use Win32::GUI;

$Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 300,
      -name   => "Win",
      -text   => "Window Title"
      );

$Win->Show();

$Win->AddButton(
       -text    => "Click Me",
       -name    => "Button_1",
       -left    => 117,
       -top     => 113,
       -width   => 57,
       -height  => 21,
       -foreground    => 0,
      );

$Win2 = new Win32::GUI::DialogBox(
      -left   => 341,
      -top    => 218,
      -width  => 100,
      -height => 100,
      -name   => "Dialog",
      -text   => "Dialog Box",
      -parent => $Win,
      );
$Win2->AddButton(
       -text    => "Click Me",
       -name    => "DButton_1",
       -left    => 20,
       -top     => 20,
       -width   => 57,
       -height  => 21,
       -foreground   => 0,
      );

Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub Button_1_Click {
 $Win->Disable();
 $Win2->Show();
}

sub DButton_1_Click {
  $Win2->Hide();
  $Win->Enable();
}


|---------+------------------------------------------------>
|         |           ma...@mm...                     |
|         |           Sent by:                             |
|         |           per...@li...ur|
|         |           ceforge.net                          |
|         |                                                |
|         |                                                |
|         |           10/04/2002 08:01                     |
|         |                                                |
|---------+------------------------------------------------>
  >----------------------------------------------------------------------------------------------|
  |                                                                                              |
  |       To:       per...@li...                                   |
  |       cc:                                                                                    |
  |       Subject:  [perl-win32-gui-users] popup window                                          |
  >----------------------------------------------------------------------------------------------|




hi. is there any way of stopping a second window from creating an instance
of itself in the taskbar?

thanx


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] popup window

[Rogers, J. <rog...@oc...>]

Mark,
just dont show it untill your ready,
read the docs about $windowobject->Show() and $windowobject->Hide();
JohnR
> -----Original Message-----
> From:	ma...@mm... [SMTP:ma...@mm...]
> Sent:	Wednesday, April 10, 2002 5:01 PM
> To:	per...@li...
> Subject:	[perl-win32-gui-users] popup window
> 
> hi. is there any way of stopping a second window from creating an instance
> of itself in the taskbar?
> 
> thanx
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] popup window

[Johan L. <jo...@ba...>]

At 07:01 2002-04-10 +0000, ma...@mm... wrote:
>hi. is there any way of stopping a second window from creating an instance
>of itself in the taskbar?

Use the
-parent => $yourparentwindow,

option when creating the popup window.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "PostNuke.com  Rogue Content Management"
http://www.postnuke.com/index.php
dmoz (1 of 9): ...nguages/PHP/Scripts/Content_Management/PostNuke

[perl-win32-gui-users] popup window

[<ma...@mm...>]

hi. is there any way of stopping a second window from creating an instance
of itself in the taskbar?

thanx

Re: [perl-win32-gui-users] -style => WS_VISIBLE | 2 | WS_NOTIFY,

[Aldo C. <dad...@al...>]

NAHUM Marc wrote:
> hye,
> 
> where can i find a doc on the stlyle like this one :
>  -style   => WS_VISIBLE | 2 | WS_NOTIFY,

http://msdn.microsoft.com/library


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

RE: [perl-win32-gui-users] -style => WS_VISIBLE | 2 | WS_NOTIFY ,

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

In short, in the header files of a C-compiler installation.
C:\Program Files\Microsoft Visual Studio\VC98\Include
for VS6.

In even shorter, on MSDN.
The WS_ flags are covered in
Platform SDK Documentation 
	-> User Interface Services 
	-> Windows User Interface
	-> Windowing
	-> Windows
	-> Windows Reference
	-> Window Styles

As you can see, you would probably never find something on MSDN if you do
not already know exactly what you're looking for. Searching the MSDN for
WS_NOTIFY gives no result, searching for WS_VISIBLE (or, beware, just WS_)
gives you half a zillion results.

Have fun,
Harald


> -----Original Message-----
> From: NAHUM Marc [mailto:mar...@re...]
> Sent: Tuesday, April 09, 2002 08:40
> To: per...@li...
> Subject: [perl-win32-gui-users] -style => WS_VISIBLE | 2 | WS_NOTIFY,
> 
> 
> hye,
> 
> where can i find a doc on the stlyle like this one :
>  -style   => WS_VISIBLE | 2 | WS_NOTIFY,
> 
> thanks,

[perl-win32-gui-users] -style => WS_VISIBLE | 2 | WS_NOTIFY,

[NAHUM M. <mar...@re...>]

hye,

where can i find a doc on the stlyle like this one :
 -style   => WS_VISIBLE | 2 | WS_NOTIFY,

thanks,


----- Original Message -----
From: <ma...@mm...>
To: <per...@li...>
Sent: Tuesday, April 09, 2002 3:41 AM
Subject: [perl-win32-gui-users] textfields and combobox's


> hi. how can get the value of whatevers in a textfield? and is there a way
> to insert an entry into a combobox so it will display it in the first
line.
> i'm opening up a settings window and it reads the previously saved
settings
> from a file, one of which is their dun connection and i'd like that to be
> displayed when the settings windows opens.
>
> thanx
>
>
> Sponsored by http://www.ThinkGeek.com/
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

FW: [perl-win32-gui-users] textfields and combobox's

[Rogers, J. <rog...@oc...>]

> Mark,
> Its Something like,
> get a text string,
> $string=$WindowObject->nameofbox->Text();
> set an text string
> $WindowObject->nameofbox->Text($string);
> 
> JohnR
> -----Original Message-----
> From:	ma...@mm... [SMTP:ma...@mm...]
> Sent:	Tuesday, April 09, 2002 11:41 AM
> To:	per...@li...
> Subject:	[perl-win32-gui-users] textfields and combobox's
> 
> hi. how can get the value of whatevers in a textfield? and is there a way
> to insert an entry into a combobox so it will display it in the first
> line.
> i'm opening up a settings window and it reads the previously saved
> settings
> from a file, one of which is their dun connection and i'd like that to be
> displayed when the settings windows opens.
> 
> thanx
> 
> 
> Sponsored by http://www.ThinkGeek.com/
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] textfields and combobox's

[<ma...@mm...>]

hi. how can get the value of whatevers in a textfield? and is there a way
to insert an entry into a combobox so it will display it in the first line.
i'm opening up a settings window and it reads the previously saved settings
from a file, one of which is their dun connection and i'd like that to be
displayed when the settings windows opens.

thanx

RE: [perl-win32-gui-users] sticky widgets (was: problems with com bobox)

[Johan L. <jo...@ba...>]

Harald wrote:
>Note, this is by far not an equivalent to the Tk pack manager. You still
>have to design your initial window pixel by pixel - but there's a cool thing
>out there Johan made:
>http://www.bahnhof.se/~johanl/perl/Loft/

The GUI Loft will help you manage the resizing stuff, yes. It does that by 
using the module Win32::GUI::Resizer, which can be used in itself (although 
the details are boring and error prone to get right manually).

Basically, it lets you define relationships, like "when the window gets 
larger, the OK-button should move along", or "the text field should get wider".

If you'd like to try it out, I think the most recent version is in the TGL 
source distro:
http://www.bahnhof.se/~johanl/perl/Loft/

or possibly here:
http://www.bahnhof.se/~johanl/perl/Win32GUI/


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "TextCat Language Guesser"
http://odur.let.rug.nl/~vannoord/TextCat/
dmoz (1 of 2): ...erlands/Regionaal/Nederland/Groningen/Onderwijs

[perl-win32-gui-users] Lost Properties Windows in TGL (was: sticky widgets (was: problems with com bobox))

[Johan L. <jo...@ba...>]

Mark wrote:
>i've taken a look at the gui loft but i could never figure how to view the
>widget properties......

If you have a low screen resolution, the default location of the properties 
window may fall outside the screen. If that is the case, replace the file 
resource/window.xml with the one named window_640x480.xml (or something) 
and start The GUI Loft again.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "TextCat Language Guesser"
http://odur.let.rug.nl/~vannoord/TextCat/
dmoz (1 of 2): ...erlands/Regionaal/Nederland/Groningen/Onderwijs

RE: [perl-win32-gui-users] sticky widgets (was: problems with com bobox)

[Marcus <li...@wo...>]

On 08.04.02 at 01:41 ma...@mm... wrote:
>i've taken a look at the gui loft but i could never figure how to view
the
>widget properties......

They are displayed in a separate window to the right (default). Don't
you get a properties window?

Marcus

RE: [perl-win32-gui-users] sticky widgets (was: problems with com bobox)

[<ma...@mm...>]

i've taken a look at the gui loft but i could never figure how to view the
widget properties......

RE: [perl-win32-gui-users] sticky widgets (was: problems with com bobox)

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

> sticky mainly refers to which sides the widgets should "stick" to when
> resized. so if i have a listview which is -sticky => 'ew' 
> then when it gets
> resized it should stretch to fit across the screen (as in 
> east and west,
> left and right) but the vertical size would stay relative to 
> how much the
> window was resized. i hope thats a good enough explanation.
I know Tk and when I did my first 'real' Win32-GUI project, I made a fairly
sophisticated module to accomplish this. It's WinSize.pm on
http://www.fairymails.com/perl/. It also takes care of putting the last size
and position into the registry for re-use the next time the same program
starts up. I hate it when I have to squeeze and strain a window each time
around.

I didn't get it to work with 665 yet, there's an issue with the main window
not reacting to dragging it's edges. I don't know if that's my fault, I have
no time right now to look at it.

Note, this is by far not an equivalent to the Tk pack manager. You still
have to design your initial window pixel by pixel - but there's a cool thing
out there Johan made:
http://www.bahnhof.se/~johanl/perl/Loft/

Re: [perl-win32-gui-users] problems with combobox

[<ma...@mm...>]

>> and (i think this is the last one) is it possible to make the widgets
>>sticky
>> like in tk?

>dunno what it means...


sticky mainly refers to which sides the widgets should "stick" to when
resized. so if i have a listview which is -sticky => 'ew' then when it gets
resized it should stretch to fit across the screen (as in east and west,
left and right) but the vertical size would stay relative to how much the
window was resized. i hope thats a good enough explanation.

RE: [perl-win32-gui-users] Newbie to GUI -- Busy Window?

[Sean H. <jal...@ho...>]

>One question, did you do ppm remove Win32-GUI before you installed the new
>version ? If not it may be a good idea to remove the module (via ppm 
>remove) and
>then re-install it. Unfortunately I don't have a 95 box to test the code 
>on. I
>do have an ME test box so if I get time this weekend I'll try it there and 
>see
>if it works.

It worked.  I didn't have to remove 0.0.502 when I installed 0.0.558, but I 
guess I do for this one.  Anyway, if it works on 95, it should work on ME as 
well.

_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com