Menu
▾
▴
perl-win32-gui-cvscommit — Send-only list for receiving email when commits are made to project CVS
You can subscribe to this list here.
| 2005 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(6) |
Nov
(31) |
Dec
(6) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2006 |
Jan
(6) |
Feb
|
Mar
(17) |
Apr
(17) |
May
(27) |
Jun
(67) |
Jul
(26) |
Aug
(15) |
Sep
(2) |
Oct
(24) |
Nov
(6) |
Dec
|
| 2007 |
Jan
(4) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
(28) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2008 |
Jan
(21) |
Feb
(45) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
|
Feb
(3) |
Mar
|
Apr
(3) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
(1) |
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| S | M | T | W | T | F | S |
|---|---|---|---|---|---|---|
|
|
|
|
|
|
|
1
|
|
2
|
3
(1) |
4
|
5
(3) |
6
(1) |
7
|
8
|
|
9
|
10
|
11
|
12
|
13
|
14
|
15
|
|
16
(1) |
17
|
18
|
19
|
20
|
21
|
22
|
|
23
|
24
|
25
|
26
|
27
|
28
|
29
|
|
30
|
31
|
|
|
|
|
|
|
From: jw <jw...@us...> - 2005-10-16 08:03:28
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15843 Modified Files: CHANGELOG Combobox.xs Listbox.xs Log Message: Bug fix - not enough space malloc'ed for strings Index: Combobox.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Combobox.xs,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Combobox.xs 26 Jun 2005 16:40:59 -0000 1.6 --- Combobox.xs 16 Oct 2005 08:03:20 -0000 1.7 *************** *** 399,403 **** cbString = SendMessage(handle, CB_GETLBTEXTLEN, index, 0); if(cbString != LB_ERR) { ! szString = (char *) safemalloc(cbString); if(SendMessage(handle, CB_GETLBTEXT, index, (LPARAM) (LPCTSTR) szString) != LB_ERR) { --- 399,403 ---- cbString = SendMessage(handle, CB_GETLBTEXTLEN, index, 0); if(cbString != LB_ERR) { ! szString = (char *) safemalloc(cbString+1); if(SendMessage(handle, CB_GETLBTEXT, index, (LPARAM) (LPCTSTR) szString) != LB_ERR) { Index: Listbox.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Listbox.xs,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Listbox.xs 4 Apr 2004 18:01:34 -0000 1.3 --- Listbox.xs 16 Oct 2005 08:03:20 -0000 1.4 *************** *** 404,408 **** cbString = SendMessage(handle, LB_GETTEXTLEN, index, 0); if(cbString != LB_ERR) { ! szString = (char *) safemalloc(cbString); if(SendMessage(handle, LB_GETTEXT, index, (LPARAM) (LPCTSTR) szString) != LB_ERR) { EXTEND(SP, 1); --- 404,408 ---- cbString = SendMessage(handle, LB_GETTEXTLEN, index, 0); if(cbString != LB_ERR) { ! szString = (char *) safemalloc(cbString+1); if(SendMessage(handle, LB_GETTEXT, index, (LPARAM) (LPCTSTR) szString) != LB_ERR) { EXTEND(SP, 1); Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.64 retrieving revision 1.65 diff -C2 -d -r1.64 -r1.65 *** CHANGELOG 5 Oct 2005 22:20:48 -0000 1.64 --- CHANGELOG 16 Oct 2005 08:03:19 -0000 1.65 *************** *** 6,9 **** --- 6,12 ---- Win32-GUI ChangeLog =================== + + [Jeremy White] : Bug fix - not enough space malloc'ed for strings + - Combobox.xs: added 1 to safemalloc + - Listbox.xs: added 1 to safemalloc + [Robert May] : 4 Oct 2005 - Bug fixes and preparing for 1.03 release |
|
From: Robert M. <rob...@us...> - 2005-10-06 21:27:50
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22305 Modified Files: GUI.h Log Message: Fixed problem with logic for determining MinGW win32api version Index: GUI.h =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.h,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** GUI.h 5 Oct 2005 22:20:48 -0000 1.20 --- GUI.h 6 Oct 2005 21:27:40 -0000 1.21 *************** *** 694,698 **** // version 3.2 and higher: #include <w32api.h> // to get w32api package version ! #if (__W32API_MAJOR_VERSION < 3) && (__W32API_MINOR_VERSION < 2) #define W32G_BROKENW32API #endif --- 694,698 ---- // version 3.2 and higher: #include <w32api.h> // to get w32api package version ! #if (__W32API_MAJOR_VERSION < 3) || ((__W32API_MAJOR_VERSION == 3) && (__W32API_MINOR_VERSION < 2)) #define W32G_BROKENW32API #endif *************** *** 758,762 **** #define TBSTATE_ELLIPSES 0x40 #endif ! HIMAGELIST WINAPI ImageList_Duplicate(HIMAGELIST himl); #ifndef MCM_GETUNICODEFORMAT #define MCM_GETUNICODEFORMAT CCM_GETUNICODEFORMAT --- 758,762 ---- #define TBSTATE_ELLIPSES 0x40 #endif ! HIMAGELIST WINAPI ImageList_Duplicate(HIMAGELIST himl); //TODO: remove? #ifndef MCM_GETUNICODEFORMAT #define MCM_GETUNICODEFORMAT CCM_GETUNICODEFORMAT |
|
From: Robert M. <rob...@us...> - 2005-10-05 22:20:59
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30555/docs/GUI/Tutorial Modified Files: Part1.pod Part3.pod Part4.pod Part5.pod Part9.pod Log Message: Bug fixes, update tutorial, add tutorial samples Index: Part9.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part9.pod,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Part9.pod 26 Jun 2005 16:41:01 -0000 1.1 --- Part9.pod 5 Oct 2005 22:20:49 -0000 1.2 *************** *** 17,29 **** =item * ! Enter the command "perl MyApp.plx" from a Windows console window. =item * ! Enter the command "perl MyApp.plx" in the Windows "Run" box. =item * ! Double click on the file "MyApp.plx" (assuming you have .plx files associated with the perl.exe application). --- 17,29 ---- =item * ! Enter the command "perl MyApp.pl" from a Windows console window. =item * ! Enter the command "perl MyApp.pl" in the Windows "Run" box. =item * ! Double click on the file "MyApp.pl" (assuming you have .pl files associated with the perl.exe application). *************** *** 46,51 **** editbin /subsystem:windows perlw.exe ! There is also an all-perl way to achieve the same result on Jenda's site: ! L<http://jenda.krynicky.cz/perl/GUIscripts.html> If you can't (or don't want to) create a perlw.exe, then a compromise is to hide --- 46,52 ---- editbin /subsystem:windows perlw.exe ! ActiveState Perl comes with an executable called wperl.exe (you'll find it ! n the same place as your perl.exe). This is an executable with exactly ! this change already made to it. If you can't (or don't want to) create a perlw.exe, then a compromise is to hide *************** *** 59,62 **** --- 60,67 ---- Win32::GUI::Hide($DOS); + Note that C<GetPerlWindow()> returns a windows handle, not a C<Win32::GUI::Window> + object, so we have to use the static call to C<Win32::GUI::Hide()> as discussed + in part 1 of the tutorial. + Do this as early as possible. Obviously, if we hide the console, we must show it when we finish (otherwise, someone who runs your program from a command Index: Part4.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part4.pod,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Part4.pod 26 Jun 2005 16:41:01 -0000 1.1 --- Part4.pod 5 Oct 2005 22:20:49 -0000 1.2 *************** *** 151,165 **** =item * ! There is a small bug in this program. The tray icon does not disappear ! immediately when the program terminates. Instead, it remains in the system ! tray until you point the mouse cursor at it, when it disappears. This is a bug ! in Win32::GUI - when you close your program, you should explicitly remove any ! system tray icons you still have displayed. Referring to the example above, ! you should place this line after the Win32::GUI::Dialog() call: $main->NI->Delete(-id => 1); - Hopefully, this will be fixed in a later version. - =back --- 151,159 ---- =item * ! If you want to remove the tray icon before the end of your program ! you can use this line: $main->NI->Delete(-id => 1); =back Index: Part3.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part3.pod,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Part3.pod 26 Jun 2005 16:41:01 -0000 1.1 --- Part3.pod 5 Oct 2005 22:20:49 -0000 1.2 *************** *** 59,70 **** To make the return key work as expected, you need to give one of your dialog's ! buttons the C<< -default => 1 >> option. When the return key is pressed, it is translated into a click event on the default button. The default button is ! also highlighted differently from the other buttons (it has a dark border). ! B<Note:> There is a related option, C<< -ok => 1 >>, which has a similar ! effect as C<-default>. However, the two seem to conflict in their effects. I ! would recommend that if your default button has the caption C<"OK">, you ! should set both the C<-ok> and C<-default> options. Otherwise, stick with just ! C<-default>. =back --- 59,69 ---- To make the return key work as expected, you need to give one of your dialog's ! buttons the C<< -ok => 1 >> option. When the return key is pressed, it is translated into a click event on the default button. The default button is ! also usually highlighted differently from the other buttons ! (it has a dark border), this is achieved by the C<< -default => 1 >> option, ! It is normal to give this button a caption C<"OK"> and make its click ! handler close the window, setting any changes made, but again, this is up to ! you. =back *************** *** 96,99 **** --- 95,103 ---- the name of the constructor you use to create your application's main window. + Recent versions of Win32::GUI have a C<-dialogui> option that controls the + special keyboard handling. Setting this option to C<1> on a basic Window add the + special key handling to the window; setting it to C<0> on a DialogBox removes + the special key handling. + In the L<next part|Win32::GUI::Tutorial::Part4>, we will cover some further ways in which you can increase your application's functionality. Index: Part1.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part1.pod,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Part1.pod 26 Jun 2005 16:41:00 -0000 1.1 --- Part1.pod 5 Oct 2005 22:20:49 -0000 1.2 *************** *** 115,119 **** } ! Put that in a file (say, hello.plx) and run it using C<perl hello.plx>. =for html <br /><center><img src="part1-1.gif" /></center> --- 115,119 ---- } ! Put that in a file (say, hello.pl) and run it using C<perl hello.pl>. =for html <br /><center><img src="part1-1.gif" /></center> *************** *** 302,327 **** sub Main_Resize { ! my $w = $main->Width(); ! my $h = $main->Height(); my $lw = $label->Width(); my $lh = $label->Height(); ! if ($lw > $w) { ! $main->Width($lw) + $ncw; # Remember the non-client width! } else { ! $label->Left(($w - $lw) / 2); } ! if ($lh > $h) { ! $main->Height($lh) + $nch; # Remember the non-client height! } else { ! $label->Top(($h - $lh) / 2); } } - This does not work in build 340 of Win32::GUI, as there is a bug in the Left() - and Top() methods for client windows (such as the label used here). Hopefully, - this bug will be fixed in the next version. - Note that co-ordinates are calculated from the top left of the enclosing window. --- 302,323 ---- sub Main_Resize { ! my $mw = $main->ScaleWidth(); ! my $mh = $main->ScaleHeight(); my $lw = $label->Width(); my $lh = $label->Height(); ! if ($lw > $mw) { ! $main->Width($lw + $ncw); # Remember the non-client width! } else { ! $label->Left(($mw - $lw) / 2); } ! if ($lh > $mh) { ! $main->Height($lh + $nch); # Remember the non-client height! } else { ! $label->Top(($mh - $lh) / 2); } } Note that co-ordinates are calculated from the top left of the enclosing window. *************** *** 385,388 **** --- 381,385 ---- $main->Change(-minsize => [$w, $h]); + $main->Resize($w, $h); $main->Move($x, $y); $main->Show(); *************** *** 395,404 **** 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)); } --- 392,402 ---- sub Main_Resize { ! my $mw = $main->ScaleWidth(); ! my $mh = $main->ScaleHeight(); my $lw = $label->Width(); my $lh = $label->Height(); ! ! $label->Left(int(($mw - $lw) / 2)); ! $label->Top(int(($mh - $lh) / 2)); } Index: Part5.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/docs/GUI/Tutorial/Part5.pod,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Part5.pod 26 Jun 2005 16:41:01 -0000 1.1 --- Part5.pod 5 Oct 2005 22:20:49 -0000 1.2 *************** *** 141,155 **** If you choose to close the second window with the Close (little X) ! button on the upper right corner, you'll notice that the window ! disappear, and that it does not show anymore when you press the ! button on the main window! What's happening here is that we requested a C<W2_Terminate> action, and since we didn't provide an event for this, Win32::GUI proceeds with the default behaviour for the close button, which is to destroy ! the window. The result is that you can't show $W2 anymore, because ! it does not exists anymore as a valid window (although it still exists ! as a Perl object). To let our window survive the close action, we need ! to provide a customary C<Terminate> event: sub W2_Terminate { --- 141,152 ---- If you choose to close the second window with the Close (little X) ! button on the upper right corner, you'll notice that all the windows ! disappear. What's happening here is that we requested a C<W2_Terminate> action, and since we didn't provide an event for this, Win32::GUI proceeds with the default behaviour for the close button, which is to destroy ! the window, and exit the windows message loop. To let our window survive ! the close action, we need to provide a customary C<Terminate> event: sub W2_Terminate { *************** *** 162,169 **** that we can show it again using the button in C<$W1>. ! =head2 Simulating "modal" windows ! ! [ This section is out of date. Win32::GUI has native support ! for modal windows. See the DoModal() method in the main documention.] Here is another very common functionality you may want to implement: --- 159,163 ---- that we can show it again using the button in C<$W1>. ! =head2 "modal" windows Here is another very common functionality you may want to implement: *************** *** 173,198 **** program unless you have disposed of it. ! Win32::GUI does not have direct support for modal windows, but you can ! simulate the behaviour with this trick: ! sub W1_Activate { ! if($W2->IsVisible) { ! $W2->SetForegroundWindow(); ! return 0; ! } ! return 1; } ! The meaning should be obvious enough: if the popup window is shown, ! trying to activate the main window automatically reports you to the ! popup window; otherwise, the main window becomes the active one as ! normal. Of course, if you have more than one popup window, you should ! add code for everyone of them: ! sub W1_Activate { ! if($W2->IsVisible) { $W2->SetForegroundWindow(); return 0; } ! if($W3->IsVisible) { $W3->SetForegroundWindow(); return 0; } ! # ... and so on ! return 1; } --- 167,234 ---- program unless you have disposed of it. ! So, the behaviour of a modal window is to diable interaction with the ! window used to launch it (know as its parent window). To achieve this ! we first have to tell the window who its parent is. We do this when we ! create W2, using the C<-parent> option: ! $W2 = new Win32::GUI::Window( ! ... ! -parent => $W1, ! ); ! ! Now, when we want to display the W2 we use the C<DoModal()> method: this ! disables W2's parent window (W1), and starts a new message loop to ! process events for W2. When we are done with W2, we return C<-1> from an ! event handler, which causes C<DoModal()> to return, but in this case does ! not cause any of the windows to be destroyed. Here's the full code: ! ! use Win32::GUI; ! ! my $W1 = Win32::GUI::Window->new( ! -name => "W1", ! -title => "First Window", ! -pos => [ 100, 100 ], ! -size => [ 300, 200 ], ! ); ! ! $W1->AddButton( ! -name => "Button1", ! -text => "Open popup window", ! -pos => [ 10, 10 ], ! ); ! ! my $W2 = Win32::GUI::Window->new( ! -name => "W2", ! -title => "Second Window", ! -pos => [ 150, 150 ], ! -size => [ 300, 200 ], ! -parent => $W1, ! ); ! ! $W2->AddButton( ! -name => "Button2", ! -text => "Close this window", ! -pos => [ 10, 10 ], ! ); ! ! $W1->Show(); ! Win32::GUI::Dialog(); ! exit(0); ! ! sub W1_Terminate { ! return -1; } ! sub Button1_Click { ! $W2->DoModal(); ! return 0; ! } ! sub W2_Terminate { ! return -1; ! } ! ! sub Button2_Click { ! return -1; } |
|
From: Robert M. <rob...@us...> - 2005-10-05 22:20:57
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30555 Modified Files: CHANGELOG GUI.h GUI.pm GUI.rc GUI.xs GUI_Constants.cpp ImageList.xs Makefile.PL RichEdit.xs Log Message: Bug fixes, update tutorial, add tutorial samples Index: GUI.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v retrieving revision 1.44 retrieving revision 1.45 diff -C2 -d -r1.44 -r1.45 *** GUI.xs 1 Oct 2005 18:00:38 -0000 1.44 --- GUI.xs 5 Oct 2005 22:20:48 -0000 1.45 *************** *** 1089,1094 **** perlud->dwPlStyle |= PERLWIN32GUI_ISMODAL; ! // Find is parent window if any or use ActiveWindow ! parent = GetParent(handle); if (parent == NULL) { parent = GetActiveWindow(); --- 1089,1094 ---- perlud->dwPlStyle |= PERLWIN32GUI_ISMODAL; ! // Find its owner window if any or use ActiveWindow ! parent = GetWindow(handle, GW_OWNER); if (parent == NULL) { parent = GetActiveWindow(); Index: GUI.rc =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.rc,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** GUI.rc 3 Aug 2005 21:45:56 -0000 1.4 --- GUI.rc 5 Oct 2005 22:20:48 -0000 1.5 *************** *** 8,13 **** 1 VERSIONINFO ! FILEVERSION 1,02,01,00 ! PRODUCTVERSION 1,02,01,00 FILEOS VOS__WINDOWS32 FILETYPE VFT_DLL --- 8,13 ---- 1 VERSIONINFO ! FILEVERSION 1,02,02,00 ! PRODUCTVERSION 1,02,02,00 FILEOS VOS__WINDOWS32 FILETYPE VFT_DLL *************** *** 17,24 **** BLOCK "040904E4" { ! VALUE "Comments" , "Win32::GUI Perl module v1.02_01" VALUE "CompanyName" , "Open Source" VALUE "FileDescription" , "perl-win32-gui Perl extension" ! VALUE "FileVersion" , "1.02_01" VALUE "InternalName" , "GUI.dll" VALUE "LegalCopyright" , "Copyright © Aldo Caplini 1997..2005" --- 17,24 ---- BLOCK "040904E4" { ! VALUE "Comments" , "Win32::GUI Perl module v1.02_02" VALUE "CompanyName" , "Open Source" VALUE "FileDescription" , "perl-win32-gui Perl extension" ! VALUE "FileVersion" , "1.02_02" VALUE "InternalName" , "GUI.dll" VALUE "LegalCopyright" , "Copyright © Aldo Caplini 1997..2005" *************** *** 26,30 **** VALUE "OriginalFilename" , "GUI.dll" VALUE "ProductName" , "Win32::GUI" ! VALUE "ProductVersion" , "1.02_01" } } --- 26,30 ---- VALUE "OriginalFilename" , "GUI.dll" VALUE "ProductName" , "Win32::GUI" ! VALUE "ProductVersion" , "1.02_02" } } Index: RichEdit.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/RichEdit.xs,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** RichEdit.xs 1 Oct 2005 18:00:39 -0000 1.5 --- RichEdit.xs 5 Oct 2005 22:20:49 -0000 1.6 *************** *** 675,679 **** ########################################################################### # (@)METHOD:SetEventMask(MASK) ! # LRESULT SetEventMask(handle, mask) --- 675,709 ---- ########################################################################### # (@)METHOD:SetEventMask(MASK) ! # The SetEventMask() method sets the event mask for a rich edit control. ! # The event mask specifies which notification messages the control sends ! # to its parent window. MASK is any combination of: ! # ! # ENM_CHANGE Sends EN_CHANGE notifications. ! # ENM_CORRECTTEXT Sends EN_CORRECTTEXT notifications. ! # ENM_DRAGDROPDONE Sends EN_DRAGDROPDONE notifications. ! # ENM_DROPFILES Sends EN_DROPFILES notifications. ! # ENM_IMECHANGE Microsoft Rich Edit 1.0 only: Sends EN_IMECHANGE ! # notifications when the IME conversion status has ! # changed. Only for Asian-language versions of the ! # operating system. ! # ENM_KEYEVENTS Sends EN_MSGFILTER notifications for keyboard events. ! # ENM_LINK Rich Edit 2.0 and later: Sends EN_LINK notifications when ! # the mouse pointer is over text that has the CFE_LINK and ! # one of several mouse actions is performed. ! # ENM_MOUSEEVENTS Sends EN_MSGFILTER notifications for mouse events. ! # ENM_OBJECTPOSITIONS Sends EN_OBJECTPOSITIONS notifications. ! # ENM_PROTECTED Sends EN_PROTECTED notifications. ! # ENM_REQUESTRESIZE Sends EN_REQUESTRESIZE notifications. ! # ENM_SCROLL Sends EN_HSCROLL and EN_VSCROLL notifications. ! # ENM_SCROLLEVENTS Sends EN_MSGFILTER notifications for mouse wheel events. ! # ENM_SELCHANGE Sends EN_SELCHANGE notifications. ! # ENM_UPDATE Sends EN_UPDATE notifications. Rich Edit 2.0 and later: ! # this flag is ignored and the EN_UPDATE notifications are ! # always sent. However, if Rich Edit 3.0 emulates Rich Edit ! # 1.0, you must use this flag to send EN_UPDATE notifications. ! # ! # The default event mask before any is set is ENM_NONE. Returns the previous ! # event mask. ! LRESULT SetEventMask(handle, mask) Index: Makefile.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Makefile.PL,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Makefile.PL 3 Aug 2005 21:45:57 -0000 1.12 --- Makefile.PL 5 Oct 2005 22:20:49 -0000 1.13 *************** *** 324,328 **** $(NOECHO) $(PERL) -I$(BUILD_TOOLS) $(BUILD_TOOLS)/doHTMLDocs.pl ! all:: poddocs DOC_FRAG --- 324,328 ---- $(NOECHO) $(PERL) -I$(BUILD_TOOLS) $(BUILD_TOOLS)/doHTMLDocs.pl ! all:: poddocs demos DOC_FRAG *************** *** 340,344 **** $(CP) samples/* $(INST_DEMO) ! ppmdist: all htmldocs demos $(TAR) --exclude="*.pod" -$(TARFLAGS) $(DISTNAME).tar blib $(COMPRESS) $(DISTNAME).tar --- 340,344 ---- $(CP) samples/* $(INST_DEMO) ! ppmdist: all htmldocs $(TAR) --exclude="*.pod" -$(TARFLAGS) $(DISTNAME).tar blib $(COMPRESS) $(DISTNAME).tar Index: GUI.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v retrieving revision 1.32 retrieving revision 1.33 diff -C2 -d -r1.32 -r1.33 *** GUI.pm 25 Aug 2005 19:30:17 -0000 1.32 --- GUI.pm 5 Oct 2005 22:20:48 -0000 1.33 *************** *** 25,29 **** # STATIC OBJECT PROPERTIES # ! $VERSION = "1.02_01"; # For MakeMaker $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) --- 25,29 ---- # STATIC OBJECT PROPERTIES # ! $VERSION = "1.02_02"; # For MakeMaker $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) *************** *** 1826,1829 **** --- 1826,1835 ---- # Most of the methods and events that apply to a L<TextField|Win32::GUI::Textfield> # also apply to Win32::GUI::RichEdit. + # + # Note that in order for most events to be triggered you must call the + # SetEventMask() method, to set the events that you want to be triggered. + # See SetEventMask(). + # + # By default Win32::GUI::RichEdit uses Rich Edit 1.0. package Win32::GUI::RichEdit; @ISA = qw( *************** *** 2035,2039 **** # Create and manipulate slider controls # ! # See Win32::GUI::Trackbar # package Win32::GUI::Trackbar; --- 2041,2045 ---- # Create and manipulate slider controls # ! # See L<Win32::GUI::Trackbar|Win32::GUI::TrackBar> # package Win32::GUI::Trackbar; Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** CHANGELOG 1 Oct 2005 18:00:38 -0000 1.63 --- CHANGELOG 5 Oct 2005 22:20:48 -0000 1.64 *************** *** 7,10 **** --- 7,25 ---- =================== + + [Robert May] : 4 Oct 2005 - Bug fixes and preparing for 1.03 release + - Makefile.PL added 'demos' target as dependancy for 'all', so that + samples get included in ActiveState PPM + - GUI_Constants.cpp: correct TMP_NONOTIFY to TPM_NONOTIFY (aschwarz1309) + - GUI.pm, RichEdit.xs: added documentation for SetEventMask method + (Tracker: 1242808) + - GUI.pm upped version to 1.02_02 + - GUI.h, ImageList.xs allowed missing ImageList_* functions to be compiled + in under MinGW and Cygwin, if w32api package has high enough version + - GUI.xs: Changed DoModal's use of GetParent to GetWindow(hwnd, GW_OWNER). + See http://support.microsoft.com/default.aspx?scid=kb;en-us;84190 for + more information (Tracker: 1165626) + - Updated all the Tutorial documentation and added tutorial examples to + the samples directory. + + [Robert May] : - GUI.h added GET_X_LPARAM and GET_Y_LPARAM macros (from windowsX.h) Index: ImageList.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/ImageList.xs,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** ImageList.xs 3 Oct 2005 19:39:40 -0000 1.6 --- ImageList.xs 5 Oct 2005 22:20:49 -0000 1.7 *************** *** 70,75 **** UINT flag CODE: ! // Not supported in MinGW ! #ifdef __MINGW32__ RETVAL = FALSE; #else --- 70,76 ---- UINT flag CODE: ! // Not supported in MinGW w32api package prior to v3.2 ! #ifdef W32G_BROKENW32API ! W32G_WARN_UNSUPPORTED("ImageList_Copy missing from build"); RETVAL = FALSE; #else *************** *** 179,184 **** param.dwRop = rop; ! // Not supported in MinGW ! #ifdef __MINGW32__ RETVAL = FALSE; #else --- 180,186 ---- param.dwRop = rop; ! // Not supported in MinGW w32api package prior to v3.2 ! #ifdef W32G_BROKENW32API ! W32G_WARN_UNSUPPORTED("ImageList_DrawIndirect missing from build"); RETVAL = FALSE; #else *************** *** 197,202 **** HIMAGELIST hdup; PPCODE: ! // Not supported in MinGW ! #ifdef __MINGW32__ XSRETURN_UNDEF; #else --- 199,205 ---- HIMAGELIST hdup; PPCODE: ! // Not supported in MinGW w32api package prior to v3.2 ! #ifdef W32G_BROKENW32API ! W32G_WARN_UNSUPPORTED("ImageList_Duplicate missing from build"); XSRETURN_UNDEF; #else Index: GUI_Constants.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Constants.cpp,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** GUI_Constants.cpp 31 May 2004 17:41:29 -0000 1.5 --- GUI_Constants.cpp 5 Oct 2005 22:20:49 -0000 1.6 *************** *** 1772,1778 **** goto not_there; #endif ! if (strEQ(name, "TMP_NONOTIFY")) ! #ifdef TMP_NONOTIFY ! return TMP_NONOTIFY; #else goto not_there; --- 1772,1778 ---- goto not_there; #endif ! if (strEQ(name, "TPM_NONOTIFY")) ! #ifdef TPM_NONOTIFY ! return TPM_NONOTIFY; #else goto not_there; Index: GUI.h =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.h,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** GUI.h 1 Oct 2005 18:00:38 -0000 1.19 --- GUI.h 5 Oct 2005 22:20:48 -0000 1.20 *************** *** 65,68 **** --- 65,69 ---- # define W32G_WARN if(PL_dowarn & G_WARN_ON) warn # define W32G_WARN_DEPRECATED if(PL_dowarn & G_WARN_ON) warn + # define W32G_WARN_UNSUPPORTED if(PL_dowarn & G_WARN_ON) warn //# define W32G_WARN W32G_lexwarn //# define W32G_WARN_DEPRECATED W32G_lexwarn_deprecated *************** *** 70,73 **** --- 71,75 ---- # define W32G_WARN if(PL_dowarn) warn # define W32G_WARN_DEPRECATED if(PL_dowarn) warn + # define W32G_WARN_UNSUPPORTED if(PL_dowarn) warn #endif *************** *** 688,691 **** --- 690,701 ---- // MinGW patch #if defined(__MINGW32__) || defined(__CYGWIN__) + // There are some ImageList_* functions that we use that + // are only correctly implemented in the MINGW w32api package + // version 3.2 and higher: + #include <w32api.h> // to get w32api package version + #if (__W32API_MAJOR_VERSION < 3) && (__W32API_MINOR_VERSION < 2) + #define W32G_BROKENW32API + #endif + #define WNDPROC_CAST WNDPROC #define LWNDPROC_CAST WNDPROC |
Update of /cvsroot/perl-win32-gui/Win32-GUI/samples In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30555/samples Added Files: Tutorial_Part1_hello1.pl Tutorial_Part1_hello2.pl Tutorial_Part1_hello3.pl Tutorial_Part1_hello4.pl Tutorial_Part1_hello5.pl Tutorial_Part1_hello6.pl Tutorial_Part2_framework.pl Tutorial_Part3_DialogBox.pl Tutorial_Part4_NotifyIcon.pl Tutorial_Part4_StatusBar.pl Tutorial_Part4_timer.pl Tutorial_Part5_modalWindow.pl Tutorial_Part5_popupWindow1.pl Tutorial_Part5_popupWindow2.pl Tutorial_Part5_twoWindows.pl Tutorial_Part9_noDosWindow.pl guiperl.ico Log Message: Bug fixes, update tutorial, add tutorial samples --- NEW FILE: Tutorial_Part4_timer.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Perl', -width => 200, -height => 200 ); my $t1 = $main->AddTimer('T1', 1000); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } sub T1_Timer { print "Timer went off!\n"; return 0; } --- NEW FILE: Tutorial_Part5_popupWindow1.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $W1 = Win32::GUI::Window->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], ); $W1->AddButton( -name => "Button1", -text => "Open popup window", -pos => [ 10, 10 ], ); my $W2 = Win32::GUI::Window->new( -name => "W2", -title => "Second Window", -pos => [ 150, 150 ], -size => [ 300, 200 ], ); $W2->AddButton( -name => "Button2", -text => "Close this window", -pos => [ 10, 10 ], ); $W1->Show(); Win32::GUI::Dialog(); exit(0); sub W1_Terminate { return -1; } sub Button1_Click { $W2->Show(); return 0; } sub Button2_Click { $W2->Hide(); return 0; } --- NEW FILE: Tutorial_Part3_DialogBox.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $main = Win32::GUI::DialogBox->new( -name => 'Main', -text => 'Perl', -width => 200, -height => 200 ); $main->AddButton( -name => 'Default', -text => 'Ok', -default => 1, # Give button darker border -ok => 1, # press 'Return' to click this button -width => 60, -height => 20, -left => $main->ScaleWidth() - 140, -top => $main->ScaleHeight() - 30, ); $main->AddButton( -name => 'Cancel', -text => 'Cancel', -cancel => 1, # press 'Esc' to click this button -width => 60, -height => 20, -left => $main->ScaleWidth() - 70, -top => $main->ScaleHeight() - 30, ); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } sub Default_Click { print "Default button clicked\n"; return 0; } sub Cancel_Click { print "Cancel button clicked\n"; return 0; } --- NEW FILE: Tutorial_Part1_hello6.pl --- #!perl -w use strict; use warnings; use Win32::GUI; # Get text to diaply from the command line my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world"; # Create our window my $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, -text => 'Perl', ); # Create a font to diaply the text my $font = Win32::GUI::Font->new( -name => "Comic Sans MS", -size => 24, ); # Add the text to a label in the window my $label = $main->AddLabel( -text => $text, -font => $font, -foreground => 0x0000FF, ); my $ncw = $main->Width() - $main->ScaleWidth(); my $nch = $main->Height() - $main->ScaleHeight(); my $w = $label->Width() + $ncw; my $h = $label->Height() + $nch; # Get the desktop window and its size: my $desk = Win32::GUI::GetDesktopWindow(); my $dw = Win32::GUI::Width($desk); my $dh = Win32::GUI::Height($desk); # Calculate the top left corner position needed # for our main window to be centered on the screen my $x = ($dw - $w) / 2; my $y = ($dh - $h) / 2; # And move the main window to the center of the screen $main->Move($x, $y); # Resize the window to the size of the label $main->Resize($w, $h); # Set the minimum size of the window to the size of the label $main->Change( -minsize => [$w, $h], ); # SHow the window and enter the dialog phase. $main->Show(); Win32::GUI::Dialog(); exit(0); # Terminate Event handler sub Main_Terminate { return -1; } # Resize Event handler sub Main_Resize { my $mw = $main->ScaleWidth(); my $mh = $main->ScaleHeight(); my $lw = $label->Width(); my $lh = $label->Height(); $label->Left(($mw - $lw) / 2); $label->Top(($mh - $lh) / 2); return 0; } --- NEW FILE: Tutorial_Part4_NotifyIcon.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Perl', -width => 200, -height => 200 ); my $icon = new Win32::GUI::Icon('GUIPERL.ICO'); my $ni = $main->AddNotifyIcon( -name => "NI", -id => 1, -icon => $icon, -tip => "Hello" ); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } sub Main_Minimize { $main->Disable(); $main->Hide(); return 1; } sub NI_Click { $main->Enable(); $main->Show(); return 1; } --- NEW FILE: guiperl.ico --- (This appears to be a binary file; contents omitted.) --- NEW FILE: Tutorial_Part2_framework.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Perl', -width => 200, -height => 200 ); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } --- NEW FILE: Tutorial_Part1_hello5.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world"; my $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, -text => 'Perl', ); my $font = Win32::GUI::Font->new( -name => "Comic Sans MS", -size => 24, ); my $label = $main->AddLabel( -text => $text, -font => $font, -foreground => 0x0000FF, ); my $ncw = $main->Width() - $main->ScaleWidth(); my $nch = $main->Height() - $main->ScaleHeight(); my $w = $label->Width() + $ncw; my $h = $label->Height() + $nch; $main->Resize($w, $h); # Get the desktop window and its size: my $desk = Win32::GUI::GetDesktopWindow(); my $dw = Win32::GUI::Width($desk); my $dh = Win32::GUI::Height($desk); # Calculate the top left corner position needed # for our main window to be centered on the screen my $x = ($dw - $w) / 2; my $y = ($dh - $h) / 2; # And move the main window to the center of the screen $main->Move($x, $y); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } sub Main_Resize { my $mw = $main->ScaleWidth(); my $mh = $main->ScaleHeight(); my $lw = $label->Width(); my $lh = $label->Height(); if ($lw > $mw) { $main->Width($lw + $ncw); # Remember the non-client width! } else { $label->Left(($mw - $lw) / 2); } if ($lh > $mh) { $main->Height($lh + $nch); # Remember the non-client height! } else { $label->Top(($mh - $lh) / 2); } return 0; } --- NEW FILE: Tutorial_Part4_StatusBar.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Perl', -width => 200, -height => 200 ); my $sb = $main->AddStatusBar(); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } sub Main_Resize { $sb->Move( 0, ($main->ScaleHeight() - $sb->Height()) ); $sb->Resize( $main->ScaleWidth(), $sb->Height() ); $sb->Text( "Window size: " . $main->Width() . "x" . $main->Height() ); return 0; } --- NEW FILE: Tutorial_Part5_modalWindow.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $W1 = Win32::GUI::Window->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], ); $W1->AddButton( -name => "Button1", -text => "Open popup window", -pos => [ 10, 10 ], ); my $W2 = Win32::GUI::Window->new( -name => "W2", -title => "Second Window", -pos => [ 150, 150 ], -size => [ 300, 200 ], -parent => $W1, ); $W2->AddButton( -name => "Button2", -text => "Close this window", -pos => [ 10, 10 ], ); $W1->Show(); Win32::GUI::Dialog(); exit(0); sub W1_Terminate { return -1; } sub Button1_Click { $W2->DoModal(); return 0; } sub W2_Terminate { return -1; } sub Button2_Click { return -1; } --- NEW FILE: Tutorial_Part1_hello4.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world"; my $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, -text => 'Perl', ); my $font = Win32::GUI::Font->new( -name => "Comic Sans MS", -size => 24, ); my $label = $main->AddLabel( -text => $text, -font => $font, -foreground => 0x0000FF, ); my $w = $label->Width() + $main->Width() - $main->ScaleWidth(); my $h = $label->Height() + $main->Height() - $main->ScaleHeight(); $main->Resize($w, $h); # Get the desktop window and its size: my $desk = Win32::GUI::GetDesktopWindow(); my $dw = Win32::GUI::Width($desk); my $dh = Win32::GUI::Height($desk); # Calculate the top left corner position needed # for our main window to be centered on the screen my $x = ($dw - $w) / 2; my $y = ($dh - $h) / 2; # And move the main window to the center of the screen $main->Move($x, $y); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } --- NEW FILE: Tutorial_Part1_hello3.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world"; my $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, -text => 'Perl', ); # Create a new Win32::GUI::Font object with which # we'll draw the text my $font = Win32::GUI::Font->new( -name => "Comic Sans MS", -size => 24, ); my $label = $main->AddLabel( -text => $text, -font => $font, # use the font we created -foreground => 0x0000FF, # use red text ); $main->Resize( $label->Width() + $main->Width() - $main->ScaleWidth(), $label->Height() + $main->Height() - $main->ScaleHeight() ); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } --- NEW FILE: Tutorial_Part5_popupWindow2.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $W1 = Win32::GUI::Window->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], ); $W1->AddButton( -name => "Button1", -text => "Open popup window", -pos => [ 10, 10 ], ); my $W2 = Win32::GUI::Window->new( -name => "W2", -title => "Second Window", -pos => [ 150, 150 ], -size => [ 300, 200 ], ); $W2->AddButton( -name => "Button2", -text => "Close this window", -pos => [ 10, 10 ], ); $W1->Show(); Win32::GUI::Dialog(); exit(0); sub W1_Terminate { return -1; } sub Button1_Click { $W2->Show(); return 0; } sub W2_Terminate { $W2->Hide(); return 0; } sub Button2_Click { $W2->Hide(); return 0; } --- NEW FILE: Tutorial_Part5_twoWindows.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $W1 = Win32::GUI::Window->new( -name => "W1", -title => "First Window", -pos => [ 100, 100 ], -size => [ 300, 200 ], ); my $W2 = Win32::GUI::Window->new( -name => "W2", -title => "Second Window", -pos => [ 150, 150 ], -size => [ 300, 200 ], ); $W1->Show(); $W2->Show(); Win32::GUI::Dialog(); exit(0); sub W1_Terminate { return -1; } sub W2_Terminate { return -1; } --- NEW FILE: Tutorial_Part1_hello1.pl --- #!perl -w use strict; use warnings; use Win32::GUI; # Create a window, saving it in variable $main my $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, ); # Add a label to the window (by default a label # has size big enough for its text and is positioned # in the top left of its containing window) $main->AddLabel( -text => "Hello, world", ); # Show our main window $main->Show(); # Enter the windows message loop, often referred # to as the "dialog phase". Win32::GUI::Dialog(); # When the message loopreturns control to our # perl program, then the interaction with the # GUI is complete, so we exit. exit(0); ###################### ###################### # The Terminate event handler for a window # named 'Main'. Returning -1 causes the # windows message loop to exit and return # control to our perl program. sub Main_Terminate { return -1; } --- NEW FILE: Tutorial_Part1_hello2.pl --- #!perl -w use strict; use warnings; use Win32::GUI; # Get the text to put in the label from the command line, # using 'Hello, world' as a default if nothing is provided. my $text = defined($ARGV[0]) ? $ARGV[0] : "Hello, world"; my $main = Win32::GUI::Window->new( -name => 'Main', -width => 100, -height => 100, -text => 'Perl', # Add a title ); my $label = $main->AddLabel( -text => $text, ); # Calculate the non-client area of the main window: my $ncw = $main->Width() - $main->ScaleWidth(); my $nch = $main->Height() - $main->ScaleHeight(); # Calculate the required size of the main window to # exactly fit the label: my $w = $label->Width() + $ncw; my $h = $label->Height() + $nch; # Resize the main window to the calculated size: $main->Resize($w, $h); $main->Show(); Win32::GUI::Dialog(); exit(0); sub Main_Terminate { return -1; } --- NEW FILE: Tutorial_Part9_noDosWindow.pl --- #!perl -w use strict; use warnings; use Win32::GUI; my $DOS = Win32::GUI::GetPerlWindow(); Win32::GUI::Hide($DOS); my $main = Win32::GUI::Window->new( -name => 'Main', -text => 'Perl', -width => 200, -height => 200 ); $main->Show(); Win32::GUI::Dialog(); Win32::GUI::Show($DOS); exit(0); sub Main_Terminate { return -1; } |
|
From: Robert M. <rob...@us...> - 2005-10-03 19:39:51
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv815 Modified Files: ImageList.xs Log Message: Corrected #ifdef __MINGW__ to be __MINGW32__ Index: ImageList.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/ImageList.xs,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ImageList.xs 4 Aug 2005 22:57:33 -0000 1.5 --- ImageList.xs 3 Oct 2005 19:39:40 -0000 1.6 *************** *** 180,184 **** // Not supported in MinGW ! #ifdef __MINGW__ RETVAL = FALSE; #else --- 180,184 ---- // Not supported in MinGW ! #ifdef __MINGW32__ RETVAL = FALSE; #else *************** *** 198,202 **** PPCODE: // Not supported in MinGW ! #ifdef __MINGW__ XSRETURN_UNDEF; #else --- 198,202 ---- PPCODE: // Not supported in MinGW ! #ifdef __MINGW32__ XSRETURN_UNDEF; #else |
