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

RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro

[Bullock, H. A. <HBu...@ty...>]

Thanks for the help in understanding the issue. Now on to testing and
learning how use this module...

-----Original Message-----
From: Piske, Harald [mailto:Har...@bo...]
Sent: Tuesday, May 08, 2001 11:48 AM
To: 'per...@li...'
Subject: RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro


I can confirm the behavior, but the real problem is a bug in the script, not
in GUI:
*EVERY* GUI object needs a unique name. Add -name => options to both the
statusbar and the progressbar below it and the script starts up.

| -----Original Message-----
| From: Bullock, Howard A. [mailto:HBu...@ty...]
[...]
| The line shown below causes a fatal error and Perl closes.
| 
| $Status = new GUI::StatusBar($W,
|     -text => " ",
|     -width => $W->ScaleWidth,
| );

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

RE: [perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro

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

I can confirm the behavior, but the real problem is a bug in the script, not
in GUI:
*EVERY* GUI object needs a unique name. Add -name => options to both the
statusbar and the progressbar below it and the script starts up.

| -----Original Message-----
| From: Bullock, Howard A. [mailto:HBu...@ty...]
[...]
| The line shown below causes a fatal error and Perl closes.
| 
| $Status = new GUI::StatusBar($W,
|     -text => " ",
|     -width => $W->ScaleWidth,
| );

[perl-win32-gui-users] DrWatson build 623 mod:558 W2k Pro

[Bullock, H. A. <HBu...@ty...>]

I am attempting to use "Win32-GUI-PPM-5.6 0.0.558  January 31, 2001" from
 http://sourceforge.net/projects/perl-win32-gui on ActiveState Perl build
623.


In order to learn how to use it, I have attempted to execute a script found
on Jenda's site: http://jenda.krynicky.cz/perl/dbgrid.pl.txt.
 
The line shown below causes a fatal error and Perl closes.

$Status = new GUI::StatusBar($W,
    -text => " ",
    -width => $W->ScaleWidth,
);

Based on the DrWatson log,  strcpy seems to be problem function.

I remove the Win32-GUI listed above and reinstalled the package from
ActiveState's PPM repository. The script continues to generate the error.


Can anyone shed some light on this for me? Is this a known issue with this
this module version and build 623 or W2K?



Howard A. Bullock, MCSE
Global IT Infrastructure
Tyco Electronics

Voice: 717-810-3584

Re: [perl-win32-gui-users] Win32::Print ?

[<Fo...@ao...>]

Yup, probably a 95% chance that implementing OCX support is way too much tro=
uble for anyone to bother with in the immediate future... Your best bet is t=
o find a dll that does the equivilant.

Dave, the ever-wary of COM.

<< Danny wrote:
>     I see.. well the system that is being used in the OCX is more
>      flexible.. it offers the possibility to write or preformat your

Win32::OLE can do ActiveX/OLE stuff. But according to the POD it doesn't=20
yet support OCX-controls, so you may be out of luck. I think that's the=20
only existing module that does what you  need.


/J

--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...


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

Re: [perl-win32-gui-users] Win32::Print ?

[Johan L. <jp...@bo...>]

Danny wrote:
>     I see.. well the system that is being used in the OCX is more
>      flexible.. it offers the possibility to write or preformat your

Win32::OLE can do ActiveX/OLE stuff. But according to the POD it doesn't 
yet support OCX-controls, so you may be out of luck. I think that's the 
only existing module that does what you  need.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

Re[2]: [perl-win32-gui-users] Win32::Print ?

[Danny Z. <da...@be...>]

Dear Harald,

     I see.. well the system that is being used in the OCX is more
     flexible.. it offers the possibility to write or preformat your
     page in the spool memory by using simple commands, just like you
     are outputting it to the screen, you need to paramater x and y
     locations.  Afterwards it is printed to any (in windows
     installed) printer device.  Printing images (read :
     pre-formating) aren't giving any problems.

Best regards,
 Danny Zak                            mailto:da...@be...
  co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

-------------------------------------------------------------------
Monday, May 07, 2001, 7:15:47 PM, you wrote:

PH> |   I thought of a solution whereby you could preformat your text &
PH> |   images, and than output it to the printer spool.

PH> The only thing I can contribute to this is my rather unpleasant experience
PH> with printing graphical data in windows (GDI, not any specific language). I
PH> tried to open a bitmap (paper size in 300 dpi, 1 bps = 1 lousy MB), write
PH> and draw into it and then just give it to the printer driver. It turned out
PH> that most printer drivers just refuse to handle it. The ugly workaround was
PH> to convert the bitmap to PCL code and copy that file to the printer port,
PH> bypassing the driver. Which, of course, restricts you to PCL printers. I
PH> hated it.

PH> It seems that other programs slice the bitmap and pass several stripes to
PH> the printer driver, but I tried this and it still mangled up the picture.
PH> Having to keep a deadline, I just took the creepy hack with the PCL and
PH> never wanted to think about it again. I might ad that it was way back,
PH> Win3.1 and later Win95.

PH> My point is, it might not be as easy as you would like it to be.

PH> Have fun,
PH> Harald

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

RE: [perl-win32-gui-users] Win32::Print ?

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

|   I thought of a solution whereby you could preformat your text &
|   images, and than output it to the printer spool.

The only thing I can contribute to this is my rather unpleasant experience
with printing graphical data in windows (GDI, not any specific language). I
tried to open a bitmap (paper size in 300 dpi, 1 bps = 1 lousy MB), write
and draw into it and then just give it to the printer driver. It turned out
that most printer drivers just refuse to handle it. The ugly workaround was
to convert the bitmap to PCL code and copy that file to the printer port,
bypassing the driver. Which, of course, restricts you to PCL printers. I
hated it.

It seems that other programs slice the bitmap and pass several stripes to
the printer driver, but I tried this and it still mangled up the picture.
Having to keep a deadline, I just took the creepy hack with the PCL and
never wanted to think about it again. I might ad that it was way back,
Win3.1 and later Win95.

My point is, it might not be as easy as you would like it to be.

Have fun,
Harald

[perl-win32-gui-users] Win32::Print ?

[Danny Z. <da...@be...>]

Dear perl-win32-gui-users,

  i'm resending this since there wasn't any reply about this topic..
  althought it still would be interresting for many of our
  perlmongers.
  

  is there already any module for printing out graphical data..

  i'm trying to make a little catalog, and to print it out via
  win32::gui .. but i can't find a solid solution
  i'm NOT willing to export data to PDF or HTML and afterwards print
  it.

  I thought of a solution whereby you could preformat your text &
  images, and than output it to the printer spool.

  Although i have no idea to realize it :) I'm basing myself on the
  system that is being used by Waty Tierry is using in VB 5 or 6.
  Could we maybe port this to perl win32::gui or make use of his
  system ?

  as reference; the adress of the printpreview OCX..
  http://www.vbdiamond.com/Products/PrintPreview/PrintPreview.asp


If you have any questions, whatsoever, please feel free to contact us.
    
Best regards,
 Danny Zak                           mailto:da...@be...
 co-ceo 

Euro-Pictures/belGOnet.com
Princesse Elisabeth Square 9/11
1030 Brussels
Belgium

Tel : +32-(0)2-215.67.65
Fax : +32-(0)2-215.66.65

Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)

[<Fo...@ao...>]

In all likelihood, your best bet is to subclass the window you want it to ac=
cept the files, then filter for the appropriate message. I can dig up some M=
SKB articles on it if you'd like.

Dave

In a message dated Sun, 6 May 2001 11:47:29 PM Eastern Daylight Time, Johan=20=
Lindstrom <jp...@bo...> writes:

<< I wrote:
>Anyone have any idea of things I have to think about if I want to try to=20
>implement a drag-n-drop feature? I have already found the correct set of=20
>functions and messages in the Win32 Reference.

Ok, so I managed to tell a window to accept files dragged from the Explorer=20
with the DragAcceptFiles() function (from the shell32.dll).

When I drag the mouse over the window, the mouse pointer changes. When I=20
drop, the window is sent a WM_DROPFILES event.

My problem now is how I should capture this event.

Naive first try: timer which triggers really often. In the event handler I=20
call
   $myWindow->PeekMessage(WM_DROPFILES, WM_DROPFILES)
and if it returns true, I call
   $myWindow->GetMessage(WM_DROPFILES, WM_DROPFILES)

That works like one in ten times or something. Clearly not the way to go.

So, any better way of detecting the WM_DROPFILES event?


/J

--
Johan Lindstr=F6m, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...


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

RE: [perl-win32-gui-users] Using GetOpenFileName

[Hedemann H. <Hen...@ic...>]

   
           Hello, Piet!
  You might try this subsequent code for your purpose. 
   I've taken one of the files of the examples and changed
   it for the purpose ot this widget.
            Henrik Hedemann
	



################################################
#              dirselect                       #
################################################
#   usage  $path=dirselect($title);            #
#   selects a directory from WinNT system and  #
#   returns it.                                #
#

sub dirselect {
    my $title=shift;
    my ($i,$ans,$drive,$hashkey);
    my (@drvs,@dirs);
    $Window = new GUI::Window(
			      -name   => "widgets::Window",
			      -title  => "Dirselect: $title",
			      -height => 430, 
			      -width  => 265,
			      -left   => 100, 
			      -top    => 100,
			      );
    $TV = $Window->AddTreeView(
			       -name => "widgets::Tree",
			       -text => "hello world!",
			       -width=> $Window->ScaleWidth, 
			       -height=> $Window->ScaleHeight-100,
			       -left      => 0, 
			       -top       => 0,
			       -lines     => 1, 
			       -rootlines => 1,
			       -buttons   => 1,
			       -visible   => 1,
			       );
    $Wlabel=$Window->AddLabel(-text=>"Selected:",
		      -left=>10,
		      -top=>350);
    $Wtext=$Window->AddTextfield(-name=>"widgets::Selected",
				 -left=>70,
				 -top=>350,
				 -height=>20,
				 -width=>260);
    $Waccept=$Window->AddButton(-text  =>"Accept",
				-left  =>10,
				-top   =>380,
				-height=>20,
				-name  =>"widgets::Wacc");
    $Wdismiss=$Window->AddButton(-text  =>"Dismiss",
				 -left  =>260,
				 -top   =>380,
				 -height=>20,
				 -name  =>"widgets::Wdis"); 
    $hashkey="\\";
    $tree{$hashkey} = $TV->
	InsertItem(-text  => "\\", 
		   -item  => 0, 
		   );
    $key[$tree{$hashkey}]=$hashkey;
    for($i=0;$i<=24;$i++){
	$ans=chr(ord('C')+$i);
	$drive=$ans.":\\";
	if (-d "$drive/"){
	    $tree{$drive}=
		$TV->InsertItem(-parent => $tree{"\\"}, 
				-text   => "$ans");
	    $key[$tree{$drive}]=$drive;
	    push(@drvs, $drive);
	}
    }
    foreach $drive (@drvs) {
	opendir(DIR, $drive);
	undef @dirs;
	foreach $i (readdir(DIR)) {
	    if ((-d "$drive/$i" )&&
		($i ne "..") &&
		($i ne ".")) {
		push (@dirs, $i);
	    }
	}
	closedir(DIR);
	foreach($i=0;$i<=$#dirs;$i++) {
	    $hashkey=$drive.$dirs[$i]."\\";
	    $tree{$hashkey}=$TV->
		InsertItem(-parent => $tree{$drive}, 
			   -text   => "$dirs[$i]");
	    $key[$tree{$hashkey}]=$hashkey;
	}
    }
    $Window->Show();
  Win32::GUI::Dialog();
    $path=$Wtext->Text();
    return $path;
}

sub Wacc_Click {
    undef(@tree);
    undef(@key);
    $Window->Hide();
    return -1;
}

sub Wdis_Click {
    undef(@tree);
    undef(@key);
    $Window->Hide();
    $path="";
    return -1;
}

sub Window_Terminate {
    undef(@key);
    undef(@tree);
    $Window->Hide();
    $Wtext->Text("");
    $Window->PostQuitMessage(0);
}

sub Window_Resize {
    my $w=$Window->ScaleWidth;
    my $h=$Window->ScaleHeight;
    $TV->Resize($w,$h-100);
    $Wlabel->Move(10,$h-70);
    $Wtext->Move(70,$h-70);
    $Wtext->Resize($w-90,20);
    $Waccept->Move(10,$h-40);
    $Wdismiss->Move($w-90,$h-40);
}

sub Tree_NodeClick {
    my %node = $TV->GetItem($_[0]);
    $path=$key[$_[0]];
    if ($path ne "\\") {
	$Wtext->Text($path);
    }else {
	$Wtext->Text("");
    }	
    return 1;
}

sub Tree_Expand {
    my %node = $TV->GetItem($_[0]);
    my ($hk,$sd);
    my @sds;
    $path=$key[$_[0]];
    if ($path ne "\\") {
	opendir(DIR, $path);
	foreach $i (readdir(DIR)) {
	    if ((-d $path.$i )&&
		($i ne "..") &&
		($i ne ".")) {
		$sd=$path.$i."\\";
		opendir(SDIR, $sd);
		undef @sds;
		foreach $j (readdir(SDIR)) {
		    if ((-d $sd.$j )&&
			($j ne "..") &&
			($j ne ".")) {
			push (@sds, $j);
		    }
		}
		closedir(SDIR);
		for($j=0;$j<=$#sds;$j++) {
		    $hk=$sd.$sds[$j]."\\";
		    if (!($key[$tree{$hk}])) {
			$tree{$hk}=$TV->
			    InsertItem(-parent =>$tree{$sd}, 
				       -text  =>"$sds[$j]");
			$key[$tree{$hk}]=$hk;
		    }
		}   
	    }
	}
	closedir(DIR);
    }
    return 1;
}

sub Tree_Collapse {
    my %node = $TV->GetItem($_[0]);
    $path=$key[$_[0]];
    return 1;
}

################################################
#             end: dirselect                   #
################################################

> -----Original Message-----
> From:	Piet De Jong [SMTP:pi...@te...]
> Sent:	Thursday, May 03, 2001 10:52 PM
> To:	'per...@li...'
> Subject:	[perl-win32-gui-users] Using GetOpenFileName
> 
> 
> Hi 
> I want to be able to show a dialog box with just a directory listing. 
> 
> Can I pass any parameters to the function GetOpenFileName to only show information relative to directories 
> return the selected directory ? 
> 
> Or is there a different function that I need to use ? 
> 
> Many thanks, 
> Piet 
> 

Re: [perl-win32-gui-users] Model-View-Controller (MVC) with Win32::GUI?

[Johan L. <jp...@bo...>]

Peter wrote:
>has anyone an approach how to use Win32::GUI with the Model-View-Controller
>(MVC) principle? Or if that would be impossible: What would be the best way
>to separate business code and gui?

In a previous Win32::GUI app I provided both a CLI and a GUI interface.

I used one class for the actual application/business logic, one base class 
for the abstract UI and one subclass each for the CLI and the GUI interface 
(that is basically a variation of the Model-View-Controller pattern with 
the View and Controller merged).

The interfaces between the app/GUI-classes had to evolve a lot during 
implementation since I didn't anticipate many of the interactions between 
the app and the UI. An interesting observation is that the actual business 
logic was kind of small compared to the UI code.

I designed the UI subclass for Win32::GUI as a singleton to avoid all the 
global vars. Ideally I would like to see the option of subclassing e.g. 
Win32::GUI::Window and have the event methods called as methods on that 
object instead; the singleton is really just a workaround for that.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)

[Johan L. <jp...@bo...>]

I wrote:
>Anyone have any idea of things I have to think about if I want to try to 
>implement a drag-n-drop feature? I have already found the correct set of 
>functions and messages in the Win32 Reference.

Ok, so I managed to tell a window to accept files dragged from the Explorer 
with the DragAcceptFiles() function (from the shell32.dll).

When I drag the mouse over the window, the mouse pointer changes. When I 
drop, the window is sent a WM_DROPFILES event.

My problem now is how I should capture this event.

Naive first try: timer which triggers really often. In the event handler I 
call
   $myWindow->PeekMessage(WM_DROPFILES, WM_DROPFILES)
and if it returns true, I call
   $myWindow->GetMessage(WM_DROPFILES, WM_DROPFILES)

That works like one in ten times or something. Clearly not the way to go.

So, any better way of detecting the WM_DROPFILES event?


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

Re: [perl-win32-gui-users] Using GetOpenFileName

[Erick B. <er...@je...>]

Using GetOpenFileName$dir_path = Win32::GUI::BrowseForFolder(
     -title => "Choose a directory:",
               );

Piet De Jong  wrote:

| Hi
| I want to be able to show a dialog box with just a directory listing.
| Can I pass any parameters to the function GetOpenFileName to only show
information relative to directories
| return the selected directory ?
| Or is there a different function that I need to use ?
 | Many thanks,
| Piet

Re: [perl-win32-gui-users] MIME::Base64 nmake install problems

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

ppm install MIME-Base64


On Sat, 05 May 2001 21:09:43 -0700
Jeremy Aiyadurai <bc...@te...> wrote:

> Hello all,
> 
> thank you for your help in the past
> 
> I want to use www.Jeb.ca's win32::gui::bitmapinline module, but it say's i
> need
> MIME-Base64.
> 
> I have activestate perl version 5.6.
> 
> I get the following error on the nmake install.
> 
> ##
> E:\productivity\perl\MIME-Base64-2.12.tar\MIME-Base64-2.12\MIME-Base64-2.12>
> nmak
> e install
> 
> Microsoft (R) Program Maintenance Utility   Version 1.50
> Copyright (c) Microsoft Corp 1988-94. All rights reserved.
> 
>         cl -c  -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
> -DHAVE_DES_FCRYPT
>  -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1 -MD
> -DNDE
> BUG      -DVERSION=\"2.12\"  -DXS_VERSION=\"2.12\"
> -IE:\productivity\perl\lib\C
> ORE  Base64.c
> 'cl' is not recognized as an internal or external command,
> operable program or batch file.
> NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
> Stop.
> ##
> 
> your help is always appreciated
> 
> Jeremy A
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

-- 
Anthony George <ag...@em...>

[perl-win32-gui-users] Model-View-Controller (MVC) with Win32::GUI?

[<pko...@me...>]

Hello,

has anyone an approach how to use Win32::GUI with the Model-View-Controller
(MVC) principle? Or if that would be impossible: What would be the best way
to separate business code and gui?

Sincerely
Peter

[perl-win32-gui-users] MIME::Base64 nmake install problems

[Jeremy A. <bc...@te...>]

Hello all,

thank you for your help in the past

I want to use www.Jeb.ca's win32::gui::bitmapinline module, but it say's i
need
MIME-Base64.

I have activestate perl version 5.6.

I get the following error on the nmake install.

##
E:\productivity\perl\MIME-Base64-2.12.tar\MIME-Base64-2.12\MIME-Base64-2.12>
nmak
e install

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

        cl -c  -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT
 -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -O1 -MD
-DNDE
BUG      -DVERSION=\"2.12\"  -DXS_VERSION=\"2.12\"
-IE:\productivity\perl\lib\C
ORE  Base64.c
'cl' is not recognized as an internal or external command,
operable program or batch file.
NMAKE : fatal error U1077: 'C:\WINNT\system32\cmd.exe' : return code '0x1'
Stop.
##

your help is always appreciated

Jeremy A

Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)

[<Fo...@ao...>]

This is the 128 message:
#define WS_EX_TOOLWINDOW        0x00000080L

(This is documented in the Win32 Programmer's Reference help file and in 
the winuser.h file from Visual C++)

Yup. Didn't have my VC++ install at work, though...

> 
> 
> And this would be _so_ neat to use:
> 
> WS_EX_ACCEPTFILES -- Specifies that a window created with this style 
> accepts drag-drop files.
> 
> Anyone have any idea of things I have to think about if I want to try to 
> implement a drag-n-drop feature? I have already found the correct set of 
> functions and messages in the Win32 Reference.
> 

Eh, I forget exactly how it works, but in VB you had to subclass some message 
or another... wasn't too bad. If you have the exact procedure down, it's 
pretty simple.

Dave

[perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)

[Johan L. <jp...@bo...>]

Dave wrote:
>$window->SetWindowLong(-20, 128); #-20 = GWL_EXSTYLE. 128 = 
>WS_EX_sometoolbarconstantorother.

Ahh...

This is the 128 message:
#define WS_EX_TOOLWINDOW        0x00000080L

(This is documented in the Win32 Programmer's Reference help file and in 
the winuser.h file from Visual C++)


And this would be _so_ neat to use:

WS_EX_ACCEPTFILES -- Specifies that a window created with this style 
accepts drag-drop files.

Anyone have any idea of things I have to think about if I want to try to 
implement a drag-n-drop feature? I have already found the correct set of 
functions and messages in the Win32 Reference.


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

Re: [perl-win32-gui-users] Show In Taskbar

[<Fo...@ao...>]

Alrighty, I'll take a look at that.

With regards to the other bit, there are two types of window styles: regular, win3.1 era, and extended, i.e. 95+. Both affect how the window is drawn in different ways. Try this:

$window->SetWindowLong(-20, 128); #-20 = GWL_EXSTYLE. 128 = WS_EX_sometoolbarconstantorother.

It's setting the extended style bits - that's what the -20 is for - and it can probably be done via a property, but I'm too lazy to figure out how, and this is easier. BTW, you have to hide and reshow the form if you want to change these bits whilst the form is visible.

Dave

Re: [perl-win32-gui-users] Show In Taskbar

[Johan L. <jp...@bo...>]

Dave wrote:
>I'm trying to get a window to not display in the taskbar, and I'm unable 
>to do so without negative side effects. (i.e. the window not properly 
>redrawing, or the window becoming a toolbar-esque window.) Anyone know how 
>I could get around this? I've been using, of course, SetWindowLong with 
>the appropriate constants.

This was discussed some time ago on the list. What we figured out then was 
that creating a window with a -parent => $winParent will make the new 
window a child window. It will stay on top of the parent window and it will 
not be displayed in the task bar.

I'm not sure how to do it without having a window already, but maybe it's 
possible to make it a child of e.g. the desktop hwind or something else. 
Just a thought.


BTW, how did you go about for getting a toolbar-esque window? Because 
that's something I'm doing right now :)  My current solution is to create a 
window like this:

         $hOption{-style} =
                         0x00C00000 |            #WS_CAPTION
                         0x80000000 |            #WS_POPUP
                         0x00800000 |            #WS_BORDER
                         0;
         Win32::GUI::Window->new(%hOption);


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...

[perl-win32-gui-users] Show In Taskbar

[<Fo...@ao...>]

I'm trying to get a window to not display in the taskbar, and I'm unable to do so without negative side effects. (i.e. the window not properly redrawing, or the window becoming a toolbar-esque window.) Anyone know how I could get around this? I've been using, of course, SetWindowLong with the appropriate constants.

Dave

[perl-win32-gui-users] Using GetOpenFileName

[Piet De J. <pi...@te...>]

Hi 
I want to be able to show a dialog box with just a directory listing.

Can I pass any parameters to the function GetOpenFileName to only show
information relative to directories 
return the selected directory ?

Or is there a different function that I need to use ?

Many thanks,
Piet

Re: [perl-win32-gui-users] Windows freezing

[Aldo C. <da...@pe...>]

ex...@se... wrote:
> I do not think it is a problem of LWP but  Win32::GUI. because
> when I used to run very similar procedure as a CGI script under 
> Apache web server, that is without Win32::GUI ,there were not 
> such problems.

woah! this is, perhaps, the most pure nonsense since the epoch ;-)
CGI programming and GUI (or even 'proper') programming are two very
different beasts. you just can't compare them.

your CGI script did indeed 'freeze' just as your Win32::GUI script
does, but you were on the other side of an HTTP connection, so
you didn't noticed this (in fact, staring at the browser waiting
for data to come is the CGI equivalent of 'freezing' :-).
but in this case, there is no 'other side', so your whole program
is blocking (thus no UI -- user interaction) while LWP is working.

this is not a problem of LWP, neither a Win32::GUI one. the real
'problem' here is in the programming approach. you need to perform two
tasks in parallel (UI and LWP fetching its stuff), so guess what you
need? multithreading!

try this:
perldoc -f fork
perldoc perlfork

not the easiest thing in the world, but this is the right way.

cheers,
Aldo

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

Re: [perl-win32-gui-users] Windows freezing

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

At 10:54 AM 5/3/01, ex...@se... wrote:
 >Dear  Morbus,
 >Thank you for your email.
 >> In essence, LWP uses a blocking call to do whatever it's trying to do.
 >> Meaning that while LWP is running, Win32::GUI isn't listening to
 >> events, which is why the window appears to freeze (it's really just
 >> not listening to your mouseclicks or your window focus).
 >
 >I do not think it is a problem of LWP but  Win32::GUI. because
 >when I used to run very similar procedure as a CGI script under
 >Apache web server, that is without Win32::GUI ,there were not
 >such problems.

Right - that's my point. When you were running your CGI script through 
Apache, you weren't using Win32::GUI. Apache spawns your CGI script as a 
new process, so LWP can take as long as it wants without interfering with 
everything else.

As soon as you run Win32::GUI, you've got to have one stream of 
consciousness listening to all the events happening in Windows. It has to 
listen to mouseclicks, focus events, window grabs, and all that crap. This 
is a constant "all the time" process.

LWP, on the other hand, takes over totally. It becomes the "all the time" 
process the moment it runs. You can't (easily) have two "all the time" 
processes running at the same time, so LWP "wins" since it's the 
latest/newest one.

With LWP being the "all the time", Win32::GUI can't listen to all the crap 
that's going on, so it doesn't know that it's supposed to refresh the 
screen or listen to your mouseclicks or so forth.

It's not a problem with Win32::GUI or LWP really. Both are doing what 
they're supposed to do. And they conflict because of that. If you want your 
window to stop freezing, you have to figure out how to have Win32::GUI and 
LWP listen "all the time" at the same time.

Morbus Iff
.sig on other machine.
http://www.disobey.com/
http://www.gamegrene.com/

Re: [perl-win32-gui-users] Windows freezing

[<ex...@se...>]

Dear  Morbus,
Thank you for your email.
> In essence, LWP uses a blocking call to do whatever it's trying to do.
> Meaning that while LWP is running, Win32::GUI isn't listening to
> events, which is why the window appears to freeze (it's really just
> not listening to your mouseclicks or your window focus).

I do not think it is a problem of LWP but  Win32::GUI. because 
when I used to run very similar procedure as a CGI script under 
Apache web server, that is without Win32::GUI ,there were not 
such problems.

Ladislav