perl-win32-gui-users

[perl-win32-gui-users] File Save with Vista

[John W. <jo...@jo...>]

I have a program that uses Win32::GUI::GetSaveFileName to open a "Save As"
dialog window.  In win98 and XP it works fine.  With Vista the "File Name"
and "Save As Type" text fields are missing and do not appear in the dialog
window.  Any ideas on how to get these to appear with Vista?  Using Vista
Home Premium version.  Here's my code that fails with Vista...

  # Set up directory and file name
  my $file = "Untitled\0" . ' ' x 256;;
  my $directory = $cnst_graphics_directory ;

  # Save as file dialog box, show files with *.txt extension, in messages
folder
  $file = GUI::GetSaveFileName
  (
    -owner     =>  $window_graphics ,
    -title     =>  'Save As' ,
    -directory =>  $directory ,
    -filter    =>  [ 'Text files' , '*.txt' , 'All files' , '*.*' ] ,
    -file      =>  $file
  ) ;

Many thanks in advance for your help.

John
jo...@jo...
801 815 9265

Re: [perl-win32-gui-users] File Save with Vista

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

Hi,

What version of Win32::GUI and what version of Perl?

Cheers,

Jeremy.

> From: jo...@jo...
> To: per...@li...
> Date: Fri, 7 Mar 2008 10:59:32 -0800
> Subject: [perl-win32-gui-users] File Save with Vista
> 
> I have a program that uses Win32::GUI::GetSaveFileName to open a "Save As"
> dialog window.  In win98 and XP it works fine.  With Vista the "File Name"
> and "Save As Type" text fields are missing and do not appear in the dialog
> window.  Any ideas on how to get these to appear with Vista?  Using Vista
> Home Premium version.  Here's my code that fails with Vista...
> 
>   # Set up directory and file name
>   my $file = "Untitled\0" . ' ' x 256;;
>   my $directory = $cnst_graphics_directory ;
> 
>   # Save as file dialog box, show files with *.txt extension, in messages
> folder
>   $file = GUI::GetSaveFileName
>   (
>     -owner     =>  $window_graphics ,
>     -title     =>  'Save As' ,
>     -directory =>  $directory ,
>     -filter    =>  [ 'Text files' , '*.txt' , 'All files' , '*.*' ] ,
>     -file      =>  $file
>   ) ;
> 
> Many thanks in advance for your help.
> 
> John
> jo...@jo...
> 801 815 9265
> 
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> 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/

_________________________________________________________________
Telly addicts unite!
http://www.searchgamesbox.com/tvtown.shtml

Re: [perl-win32-gui-users] File Save with Vista

[M2U G. <m2u...@un...>]

Hi John,

first of all it must be
   $file = Win32::GUI::GetSaveFileName(...);
instead of
   $file = GUI::GetSaveFileName(...);

Further I'm not really understanding what you're trying to do with the line
   my $file = "Untitled\0" . ' ' x 256;;
Perhaps it's just a typo but it crashes the interpreter.

I modified these lines and added some basic stuff in the following sample 
code:

# --- SAMPLE START ---

#!/usr/bin/perl

use strict;
use warnings;

use Win32::GUI qw();

my $window_main = Win32::GUI::Window->new(
 -name  => 'window_main',
 -size  => [320, 240],
 -title => 'CmnDlg - Save As',
);

$window_main->Show();

my $file = 'dummy.txt';
my $directory = 'C:/';

# Save as file dialog box, show files with *.txt extension, in messages 
folder

$file = Win32::GUI::GetSaveFileName(
 -owner     =>  $window_main,
 -title     =>  'Save As',
 -directory =>  $directory,
 -filter    =>  ['Text files', '*.txt', 'All files', '*.*'],
 -file      =>  $file,
);

# --- SAMPLE END ---

On my machine (Windows Vista 6.0.6000) it looks perfectly fine with all 
usual fields and controls.

I hope this helps to fix your code, otherwise posting a little more of your 
code could help to find the problem...

Best regards,
Matthias