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
|
|
From: Robert M. <rob...@us...> - 2006-10-15 13:40:34
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Grid In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13161/Win32-GUI-Grid Modified Files: Makefile.PL Log Message: Fix dist build Index: Makefile.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Grid/Makefile.PL,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Makefile.PL 11 Jun 2006 21:00:16 -0000 1.3 --- Makefile.PL 15 Oct 2006 13:40:32 -0000 1.4 *************** *** 77,83 **** # Win32::GUI::Grid MFCGrid.lib section ! ./MFCGrid/Lib/MFCGrid.lib: MFCGrid/makefile cd MFCGrid ! $(MAKE) $(PASTHRU) cd .. --- 77,83 ---- # Win32::GUI::Grid MFCGrid.lib section ! ./MFCGrid/Lib/MFCGrid.lib: MFCGrid/makefile.mfcgrid cd MFCGrid ! $(MAKE) -f Makefile.mfcgrid $(PASTHRU) cd .. |
|
From: Robert M. <rob...@us...> - 2006-10-15 13:40:34
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Grid/MFCGrid In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13161/Win32-GUI-Grid/MFCGrid Added Files: Makefile.mfcgrid Removed Files: Makefile Log Message: Fix dist build --- Makefile DELETED --- --- NEW FILE: Makefile.mfcgrid --- # Microsoft Developer Studio Generated NMAKE File, Based on MFCGrid.dsp !IF "$(OS)" == "Windows_NT" NULL= !ELSE NULL=nul !ENDIF CPP=cl.exe RSC=rc.exe OUTDIR=.\Lib INTDIR=.\Build # Begin Custom Macros OutDir=.\Lib # End Custom Macros ALL : "$(OUTDIR)\MFCGrid.lib" CLEAN : -@erase "$(INTDIR)\GridCellUrl.obj" -@erase "$(INTDIR)\GridCellNumeric.obj" -@erase "$(INTDIR)\GridCellDateTime.obj" -@erase "$(INTDIR)\GridCellCheck.obj" -@erase "$(INTDIR)\GridCellCombo.obj" -@erase "$(INTDIR)\GridCell.obj" -@erase "$(INTDIR)\GridCellBase.obj" -@erase "$(INTDIR)\GridCtrl.obj" -@erase "$(INTDIR)\GridDropTarget.obj" -@erase "$(INTDIR)\InPlaceEdit.obj" -@erase "$(INTDIR)\StdAfx.obj" -@erase "$(INTDIR)\TitleTip.obj" -@erase "$(INTDIR)\vc60.idb" -@erase "$(INTDIR)\MFCGrid.pch" -@erase "$(OUTDIR)\MFCGrid.lib" "$(OUTDIR)" : mkdir "$(OUTDIR)" "$(INTDIR)" : mkdir "$(INTDIR)" CPP=cl.exe CPP_PROJ=/nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D"_WINDLL" /D"_USRDLL" /D "_AFXDLL" /D "_AFX_NOFORCE_LIBS" /Fo"$(INTDIR)\\" /Fd"$(INTDIR)\\" /FD /c BSC32=bscmake.exe BSC32_FLAGS=/nologo /o"$(OUTDIR)\MFCGrid.bsc" BSC32_SBRS= \ LIB32=link.exe -lib LIB32_FLAGS=/nologo /out:"$(OUTDIR)\MFCGrid.lib" LIB32_OBJS= \ "$(INTDIR)\TitleTip.obj" \ "$(INTDIR)\InPlaceEdit.obj" \ "$(INTDIR)\GridDropTarget.obj" \ "$(INTDIR)\GridCtrl.obj" \ "$(INTDIR)\GridCellBase.obj" \ "$(INTDIR)\GridCell.obj" \ "$(INTDIR)\GridCellNumeric.obj" \ "$(INTDIR)\GridCellUrl.obj" \ "$(INTDIR)\GridCellDateTime.obj" \ "$(INTDIR)\GridCellCheck.obj" \ "$(INTDIR)\GridCellCombo.obj" \ "$(INTDIR)\StdAfx.obj" "$(OUTDIR)\MFCGrid.lib" : "$(OUTDIR)" "$(INTDIR)" $(DEF_FILE) $(LIB32_OBJS) $(LIB32) @<< $(LIB32_FLAGS) $(DEF_FLAGS) $(LIB32_OBJS) << .c{$(INTDIR)}.obj: $(CPP) @<< $(CPP_PROJ) $< << .cpp{$(INTDIR)}.obj: $(CPP) @<< $(CPP_PROJ) $< << .cxx{$(INTDIR)}.obj: $(CPP) @<< $(CPP_PROJ) $< << .c{$(INTDIR)}.sbr: $(CPP) @<< $(CPP_PROJ) $< << .cpp{$(INTDIR)}.sbr: $(CPP) @<< $(CPP_PROJ) $< << .cxx{$(INTDIR)}.sbr: $(CPP) @<< $(CPP_PROJ) $< << GridCell.cpp : \ "CellRange.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "GridDropTarget.h"\ "InPlaceEdit.h"\ "StdAfx.h"\ "TitleTip.h" GridCellBase.cpp : \ "CellRange.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "GridDropTarget.h"\ "StdAfx.h"\ "TitleTip.h" GridCtrl.cpp : \ "CellRange.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "GridDropTarget.h"\ "MemDC.h"\ "StdAfx.h"\ "TitleTip.h" GridDropTarget.cpp : \ "CellRange.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "GridDropTarget.h"\ "StdAfx.h"\ "TitleTip.h" InPlaceEdit.cpp : \ "CellRange.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "GridDropTarget.h"\ "InPlaceEdit.h"\ "StdAfx.h"\ "TitleTip.h" StdAfx.cpp : \ "StdAfx.h" TitleTip.cpp : \ "CellRange.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "GridDropTarget.h"\ "StdAfx.h"\ "TitleTip.h" GridCellNumeric.cpp : \ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "InPlaceEdit.h"\ "StdAfx.h" GridCellDateTime.cpp : \ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "StdAfx.h" GridCellCheck.cpp : \ "GridCellCheck.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "StdAfx.h" GridCellCombo.cpp : \ "GridCellCombo.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "StdAfx.h" GridCellUrl.cpp : \ "GridCellUrl.h"\ "GridCell.h"\ "GridCellBase.h"\ "GridCtrl.h"\ "StdAfx.h" SOURCE=GridCell.cpp "$(INTDIR)\GridCell.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCellBase.cpp "$(INTDIR)\GridCellBase.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCtrl.cpp "$(INTDIR)\GridCtrl.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridDropTarget.cpp "$(INTDIR)\GridDropTarget.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=InPlaceEdit.cpp "$(INTDIR)\InPlaceEdit.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=StdAfx.cpp "$(INTDIR)\StdAfx.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=TitleTip.cpp "$(INTDIR)\TitleTip.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCellNumeric.cpp "$(INTDIR)\GridCellNumeric.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCellDateTime.cpp "$(INTDIR)\GridCellDateTime.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCellCheck.cpp "$(INTDIR)\GridCellCheck.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCellCombo.cpp "$(INTDIR)\GridCellCombo.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) SOURCE=GridCellUrl.cpp "$(INTDIR)\GridCellUrl.obj" : $(SOURCE) "$(INTDIR)" $(CPP) $(CPP_PROJ) $(SOURCE) |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:23:31
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Grid In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17186/Win32-GUI-Grid Modified Files: TODO Log Message: Bugfix NotifyIcon Delete method Index: TODO =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Grid/TODO,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TODO 11 Jun 2006 16:42:11 -0000 1.1 --- TODO 15 Oct 2006 12:23:28 -0000 1.2 *************** *** 5,6 **** --- 5,21 ---- - more tests! - fix 'unreferenced targ' compiler warnings + + - Add missing constants to SetCharFormat documentation. + DT_CHARSTREAM + DT_DISPFILE + DT_IDEPREFIX + DT_METAFILE + DT_NOFULLWIDTHCHARBREAK + DT_PLOTTER + DT_PREFIXONLY + DT_RASCAMERA + DT_RASDISPLAY + DT_RASPRINTER + - Remove export of DT_ constants, as they are supported by + Win32::GUI::Constants? + |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:23:30
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DIBitmap In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17186/Win32-GUI-DIBitmap Modified Files: TODO Log Message: Bugfix NotifyIcon Delete method Index: TODO =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DIBitmap/TODO,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** TODO 11 Jun 2006 16:34:33 -0000 1.1 --- TODO 15 Oct 2006 12:23:28 -0000 1.2 *************** *** 1,3 **** ! - Upgrade to FreeImage 3.8.0 - Build and include static gcc lib (LibFreeImage.a?) so that we can build with MinGW/cygwin --- 1,3 ---- ! - Upgrade from FreeImage 3.5.1 to FreeImage 3.9.1 (or the latest) - Build and include static gcc lib (LibFreeImage.a?) so that we can build with MinGW/cygwin |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:23:30
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17186 Modified Files: CHANGELOG GUI.pm Log Message: Bugfix NotifyIcon Delete method Index: GUI.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v retrieving revision 1.54 retrieving revision 1.55 diff -C2 -d -r1.54 -r1.55 *** GUI.pm 7 Sep 2006 18:45:50 -0000 1.54 --- GUI.pm 15 Oct 2006 12:23:28 -0000 1.55 *************** *** 2915,2919 **** sub Delete { warn qq(Win32::GUI::NotifyIcon::Delete() is deprecated, please use Win32::GUI::NofityIcon::Remove()); ! return Win32::GUI::_Delete(@_); } --- 2915,2919 ---- sub Delete { warn qq(Win32::GUI::NotifyIcon::Delete() is deprecated, please use Win32::GUI::NofityIcon::Remove()); ! return Win32::GUI::NotifyIcon::_Delete(@_); } Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.100 retrieving revision 1.101 diff -C2 -d -r1.100 -r1.101 *** CHANGELOG 15 Oct 2006 12:16:22 -0000 1.100 --- CHANGELOG 15 Oct 2006 12:23:28 -0000 1.101 *************** *** 6,9 **** --- 6,12 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 15 October 2006 - Bugfix NotifyIcon Delete method + - GUI.pm - fix Win32::GUI::NotifyIcon::Delete + + [Robert May] : 15 October 2006 - Fix build under Perl 5.6 - Makefile.PL - Need EU:MM 6/06 or higher |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:16:26
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14539/Win32-GUI-Constants Modified Files: Constants.PL Log Message: Fix build under Perl 5.6 Index: Constants.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Constants.PL 15 Oct 2006 12:09:27 -0000 1.7 --- Constants.PL 15 Oct 2006 12:16:22 -0000 1.8 *************** *** 42,50 **** my %C; - binmode(DATA, ':crlf'); # ensure we do dos-unix line ending conversions, even on cygwin while(<DATA>) { s/#.*$//; # remove comments next if /^\s*$/; # ignore blank lines ! chomp; my ($c, $v) = split; $v = oct($v) if $v =~ /^0/; --- 42,51 ---- my %C; while(<DATA>) { s/#.*$//; # remove comments next if /^\s*$/; # ignore blank lines ! #chomp; ! s/\r?\n$//; # throw away line endings - chomp on cygwin only removes '\n' ! # done this way in case dos2unix didn't get run on this file my ($c, $v) = split; $v = oct($v) if $v =~ /^0/; |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:16:26
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14539 Modified Files: CHANGELOG Makefile.PL Log Message: Fix build under Perl 5.6 Index: Makefile.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Makefile.PL,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** Makefile.PL 26 Jun 2006 18:28:35 -0000 1.22 --- Makefile.PL 15 Oct 2006 12:16:22 -0000 1.23 *************** *** 6,10 **** # 5.6.1, writes the subdirs target with dmake syntax, that breaks # nmake. Fixed in EU::MM 5.47 ! use ExtUtils::MakeMaker 5.47; use Config; --- 6,11 ---- # 5.6.1, writes the subdirs target with dmake syntax, that breaks # nmake. Fixed in EU::MM 5.47 ! # $(DIRFILESEP) macro requires EU::MM 6.06 ! use ExtUtils::MakeMaker 6.06; use Config; Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.99 retrieving revision 1.100 diff -C2 -d -r1.99 -r1.100 *** CHANGELOG 15 Oct 2006 12:09:27 -0000 1.99 --- CHANGELOG 15 Oct 2006 12:16:22 -0000 1.100 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 15 October 2006 - Fix build under Perl 5.6 + - Makefile.PL - Need EU:MM 6/06 or higher + - Constants.PL, Scintilla.PL - stop using ':crlf' layer to avoid line + end problems and do it manually + + [Robert May] : 15 October 2006 - keyboard navigation for win32-gui-demos - scripts/win32-gui-demos.pl - fix TAB nagigation out of SCintilla |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:16:26
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14539/Win32-GUI-Scintilla Modified Files: Scintilla.PL Log Message: Fix build under Perl 5.6 Index: Scintilla.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Scintilla/Scintilla.PL,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Scintilla.PL 16 Jul 2006 13:02:30 -0000 1.3 --- Scintilla.PL 15 Oct 2006 12:16:22 -0000 1.4 *************** *** 272,282 **** # Build Scintilla interface ! # The 'crlf' perlio layer ensures that on cygwin we don't get thrown by ! # windows line endings ! open my $fh, "<:crlf" , $iface_file or die "Failed to open '$iface_file' for reading: $!"; while ( <$fh> ) { ! chomp; #--- Constant --- --- 272,283 ---- # Build Scintilla interface ! open my $fh, "<" , $iface_file or die "Failed to open '$iface_file' for reading: $!"; while ( <$fh> ) { ! #chomp; ! s/\r?\n$//; # throw away line endings - chomp on cygwin only removes '\n' ! # done this way in case dos2unix didn't get run on this file ! # - Scintilla.iface probably didn't get dealt with as a text file? #--- Constant --- |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:09:29
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11953 Modified Files: CHANGELOG Log Message: keyboard navigation for win32-gui-demos Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.98 retrieving revision 1.99 diff -C2 -d -r1.98 -r1.99 *** CHANGELOG 7 Sep 2006 18:45:50 -0000 1.98 --- CHANGELOG 15 Oct 2006 12:09:27 -0000 1.99 *************** *** 6,9 **** --- 6,15 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 15 October 2006 - keyboard navigation for win32-gui-demos + - scripts/win32-gui-demos.pl - fix TAB nagigation out of SCintilla + control, add menu accelerators, About box dismissed with ESC key. + --- Win32::GUI::Constants --- + - Constants.PL - add DLGC_ constants + + [Robert May] : 30 August 2006 - remove legacy GUI namespace - GUI.pm - remove legacy aliasing between Win32::GUI |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:09:29
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11953/Win32-GUI-Constants Modified Files: Constants.PL Log Message: keyboard navigation for win32-gui-demos Index: Constants.PL =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Constants.PL 3 Aug 2006 22:19:21 -0000 1.6 --- Constants.PL 15 Oct 2006 12:09:27 -0000 1.7 *************** *** 684,687 **** --- 684,700 ---- DFCS_MONO 0x8000 + # WM_GETDLGCODE message return values + DLGC_WANTARROWS 1 + DLGC_WANTTAB 2 + DLGC_WANTALLKEYS 4 + DLGC_WANTMESSAGE 4 + DLGC_HASSETSEL 8 + DLGC_DEFPUSHBUTTON 16 + DLGC_UNDEFPUSHBUTTON 32 + DLGC_RADIOBUTTON 64 + DLGC_WANTCHARS 128 + DLGC_STATIC 256 + DLGC_BUTTON 0x2000 + # Dialog styles DS_ABSALIGN 0x01 |
|
From: Robert M. <rob...@us...> - 2006-10-15 12:09:29
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11953/scripts Modified Files: win32-gui-demos.pl Log Message: keyboard navigation for win32-gui-demos Index: win32-gui-demos.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/scripts/win32-gui-demos.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** win32-gui-demos.pl 30 Aug 2006 21:59:31 -0000 1.4 --- win32-gui-demos.pl 15 Oct 2006 12:09:27 -0000 1.5 *************** *** 14,18 **** # (and progress bar?) ! our $VERSION = '0.02'; $VERSION = eval $VERSION; --- 14,18 ---- # (and progress bar?) ! our $VERSION = '0.03'; $VERSION = eval $VERSION; *************** *** 24,31 **** use File::Basename(); ! use Win32::GUI 1.03_03, qw( WS_CLIPCHILDREN WS_EX_CLIENTEDGE ! WM_MENUSELECT WM_NOTIFY NM_RETURN CW_USEDEFAULT SW_SHOWDEFAULT TVHT_ONITEM ! IDC_WAIT ); #use Win32::GUI::Console(); use Win32::GUI::Scintilla::Perl(); --- 24,32 ---- use File::Basename(); ! use Win32::GUI 1.03_04, qw( WS_CLIPCHILDREN WS_EX_CLIENTEDGE ! WM_MENUSELECT WM_NOTIFY WM_GETDLGCODE NM_RETURN CW_USEDEFAULT SW_SHOWDEFAULT TVHT_ONITEM ! IDC_WAIT DLGC_HASSETSEL WM_KEYDOWN WM_CHAR VK_TAB); ! #use Win32::GUI::Console(); use Win32::GUI::Scintilla::Perl(); *************** *** 54,64 **** my $menu = Win32::GUI::Menu->new( "&File" => "File", ! ">&Options" => { -name => "Options", -onClick => \&getOptions }, ! ">&Source" => { -name => "Source", -onClick => \&showMySource }, ">-" => 0, ">E&xit" => { -name => "Exit", -onClick => sub {-1}, }, "&Help" => "HelpB", ! ">&Help" => { -name => "Help", -onClick => \&showHelp, }, ! ">&About" => { -name => "About", -onClick => \&showAboutBox, }, ); --- 55,65 ---- my $menu = Win32::GUI::Menu->new( "&File" => "File", ! ">&Options...\tCtrl-O" => { -name => "Options", -onClick => \&getOptions }, ! ">&Source\tCtrl-S" => { -name => "Source", -onClick => \&showMySource }, ">-" => 0, ">E&xit" => { -name => "Exit", -onClick => sub {-1}, }, "&Help" => "HelpB", ! ">&Help\tF1" => { -name => "Help", -onClick => \&showHelp, }, ! ">&About..." => { -name => "About", -onClick => \&showAboutBox, }, ); *************** *** 75,78 **** --- 76,86 ---- ); + ## Accelerators: + my $accel = Win32::GUI::AcceleratorTable->new( + "Ctrl-O" => \&getOptions, + "Ctrl-S" => \&showMySource, + "F1" => \&showHelp, + ); + ###################################################################### # A class that removes the Win32::GUI default CS_HDRAW and CS_VDRAW *************** *** 93,96 **** --- 101,105 ---- -size => [750,500], -menu => $menu, + -accel => $accel, -class => $class, -pushstyle => WS_CLIPCHILDREN, # avoid flicker on resize *************** *** 166,169 **** --- 175,179 ---- -tabstop => 1, ) or die "Editor"; + $mw->RE->Hook(WM_GETDLGCODE, \&fixScintillaDlgCode); ###################################################################### *************** *** 173,176 **** --- 183,187 ---- $mw->Show(); + $mw->TV->SetFocus(); Win32::GUI::Dialog(); $mw->Hide(); *************** *** 332,335 **** --- 343,376 ---- ###################################################################### + # Scintilla fixScintillaDlgCode + # - Scintilla returns DLGC_HASSETSEL|DLGC_WANTALLKEYS in response + # to a WM_GETDLGCODE message. This prevents 'TAB' navigation working, + # so this hook fixes that + ###################################################################### + sub fixScintillaDlgCode { + my ($win, $wParam, $lParam, $type, $msgcode) = @_; + return 1 unless $type == 0; + return 1 unless $msgcode == WM_GETDLGCODE; + + # $lParam is a pointer to a MSG structure, or NULL: + if($lParam == 0) { + $win->Result(DLGC_HASSETSEL); + return 0; + } + else { + my($m_hwnd, $m_msgcode, $m_wParam, $m_lParam, $m_time, $m_x, $m_y) + = unpack("LLLLLLL", unpack("P28", pack( "L", $lParam))); + + if($m_msgcode == WM_KEYDOWN or $msgcode == WM_CHAR) { + if($m_wParam == VK_TAB) { + $win->Result(DLGC_HASSETSEL); + return 0; + } + } + } + return 1; # Do default processing + } + + ###################################################################### # Button click (and node double-click) - run current file ###################################################################### *************** *** 413,417 **** ###################################################################### ! # Help menu item. Show help text in code area ###################################################################### sub showHelp { --- 454,458 ---- ###################################################################### ! # Help menu item. Show help text in help window ###################################################################### sub showHelp { *************** *** 521,527 **** -left => $ab->ScaleWidth()-70, -top => $ab->ScaleHeight()-35, ! -ok => 1, -default => 1, -onClick => sub {-1}, ); --- 562,569 ---- -left => $ab->ScaleWidth()-70, -top => $ab->ScaleHeight()-35, ! -cancel => 1, -default => 1, -onClick => sub {-1}, + -tabstop => 1, ); |
|
From: Robert M. <rob...@us...> - 2006-09-07 18:45:54
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27196 Modified Files: CHANGELOG GUI.pm Log Message: remove legacy GUI namespace Index: GUI.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v retrieving revision 1.53 retrieving revision 1.54 diff -C2 -d -r1.53 -r1.54 *** GUI.pm 3 Aug 2006 22:19:40 -0000 1.53 --- GUI.pm 7 Sep 2006 18:45:50 -0000 1.54 *************** *** 17,27 **** @ISA = qw( DynaLoader ); - # Reserves GUI in the main namespace for us (uhmmm...) - *GUI:: = \%Win32::GUI::; - ############################################################################### # STATIC OBJECT PROPERTIES # ! $VERSION = "1.03_04"; # For MakeMaker $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) --- 17,24 ---- @ISA = qw( DynaLoader ); ############################################################################### # STATIC OBJECT PROPERTIES # ! $VERSION = "1.03_05"; # For MakeMaker $XS_VERSION = $VERSION; # For dynaloader $VERSION = eval $VERSION; # For Perl (see perldoc perlmodstyle) *************** *** 2414,2418 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $self = {}; --- 2411,2414 ---- *************** *** 2449,2453 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $menu = shift; $menu = $menu->{-handle} if ref($menu); --- 2445,2448 ---- *************** *** 2501,2505 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $menu = shift; return undef unless ref($menu) =~ /^Win32::GUI::Menu/; --- 2496,2499 ---- *************** *** 2568,2572 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $window = shift; my $name = shift; --- 2562,2565 ---- *************** *** 2753,2757 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $window = shift; --- 2746,2749 ---- *************** *** 2964,2968 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $self = {}; --- 2956,2959 ---- *************** *** 3021,3025 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $self = {}; --- 3012,3015 ---- *************** *** 3056,3060 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my $handle = Create(@_); --- 3046,3049 ---- *************** *** 3106,3110 **** sub new { my $class = shift; - $class = "Win32::" . $class if $class =~ /^GUI::/; my($k, $v); my $flag = 0; --- 3095,3098 ---- Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.97 retrieving revision 1.98 diff -C2 -d -r1.97 -r1.98 *** CHANGELOG 30 Aug 2006 21:57:58 -0000 1.97 --- CHANGELOG 7 Sep 2006 18:45:50 -0000 1.98 *************** *** 6,9 **** --- 6,13 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 30 August 2006 - remove legacy GUI namespace + - GUI.pm - remove legacy aliasing between Win32::GUI + namespace and GUI namespace. + + [Robert May] : 30 August 2006 - Cygwin build fixes - GUI_Helpers.cpp - SelectObject cast to HFONT |
|
From: Robert M. <rob...@us...> - 2006-09-07 18:45:54
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27196/Win32-GUI-ReleaseNotes Modified Files: RN_1_04.pod Log Message: remove legacy GUI namespace Index: RN_1_04.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes/RN_1_04.pod,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** RN_1_04.pod 30 Aug 2006 21:58:39 -0000 1.4 --- RN_1_04.pod 7 Sep 2006 18:45:51 -0000 1.5 *************** *** 336,339 **** --- 336,346 ---- $NI->Delete(-id => 1); + =head2 Removal of GUI:: namespace + + For at least the last 6 years the Win32::GUI namespace has been + aliased to the GUI namespace for backwards compatibility with + very early scripts. This aliasing has been removed, and any + remaining scripts will need updating. + =head1 Contributors to this release |
|
From: Robert M. <rob...@us...> - 2006-08-30 21:59:34
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28090/scripts Modified Files: win32-gui-demos.pl Log Message: Add Keyboard Navigation Index: win32-gui-demos.pl =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/scripts/win32-gui-demos.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** win32-gui-demos.pl 16 Jul 2006 11:09:33 -0000 1.3 --- win32-gui-demos.pl 30 Aug 2006 21:59:31 -0000 1.4 *************** *** 96,99 **** --- 96,100 ---- -pushstyle => WS_CLIPCHILDREN, # avoid flicker on resize -onResize => \&mwResize, + -dialogui => 1, ) or die "MainWindow"; *************** *** 122,125 **** --- 123,127 ---- #-onMouseDown => \&tvClick, -onMouseDblClick => \&tvDoubleClick, + -tabstop => 1, ) or die "Treeview"; ## Hook for getting notification when <RETURN> key is pressed *************** *** 147,150 **** --- 149,153 ---- -top => 10, -onClick => \&runCurrent, + -tabstop => 1, ) or die "Button"; $mw->BUT->Left($mw->ScaleWidth()-10-$mw->BUT->Width()); *************** *** 161,164 **** --- 164,168 ---- -readonly => 1, -addexstyle => WS_EX_CLIENTEDGE, + -tabstop => 1, ) or die "Editor"; |
|
From: Robert M. <rob...@us...> - 2006-08-30 21:58:42
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27726/Win32-GUI-ReleaseNotes Modified Files: RN_1_04.pod Log Message: Correct Typo Index: RN_1_04.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes/RN_1_04.pod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** RN_1_04.pod 4 Aug 2006 00:08:37 -0000 1.3 --- RN_1_04.pod 30 Aug 2006 21:58:39 -0000 1.4 *************** *** 282,286 **** =back ! See the L<Win32::GUI::COnstants|Win32::GUI::Constants> documentation for the full allowable syntax. --- 282,286 ---- =back ! See the L<Win32::GUI::Constants|Win32::GUI::Constants> documentation for the full allowable syntax. |
|
From: Robert M. <rob...@us...> - 2006-08-30 21:58:01
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27355 Modified Files: CHANGELOG GUI.h GUI_Helpers.cpp Tooltip.xs Log Message: Cygwin build fixes Index: GUI.h =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.h,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 *** GUI.h 24 Jun 2006 13:33:30 -0000 1.29 --- GUI.h 30 Aug 2006 21:57:58 -0000 1.30 *************** *** 789,792 **** --- 789,796 ---- #endif + #ifndef TTM_SETTITLE + # define TTM_SETTITLE TTM_SETTITLEA + #endif + #else #define WNDPROC_CAST FARPROC Index: Tooltip.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Tooltip.xs,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** Tooltip.xs 3 Aug 2006 22:20:53 -0000 1.8 --- Tooltip.xs 30 Aug 2006 21:57:58 -0000 1.9 *************** *** 412,416 **** XST_mIV(count++, (IV) ti.uId); } else { ! XST_mIV(count++, (IV) ti.hwnd); XST_mPV(count++, "-id"); XST_mIV(count++, ti.uId); --- 412,416 ---- XST_mIV(count++, (IV) ti.uId); } else { ! XST_mIV(count++, PTR2IV(ti.hwnd)); XST_mPV(count++, "-id"); XST_mIV(count++, ti.uId); *************** *** 429,435 **** } else if (IS_INTRESOURCE(ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, (IV)ti.lpszText); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, (IV)ti.hinst); } else { XST_mPV(count++, "-text"); --- 429,435 ---- } else if (IS_INTRESOURCE(ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, PTR2IV(ti.lpszText)); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, PTR2IV(ti.hinst)); } else { XST_mPV(count++, "-text"); *************** *** 535,539 **** XST_mIV(count++, (IV) ti.uId); } else { ! XST_mIV(count++, (IV) ti.hwnd); XST_mPV(count++, "-id"); XST_mIV(count++, ti.uId); --- 535,539 ---- XST_mIV(count++, (IV) ti.uId); } else { ! XST_mIV(count++, PTR2IV(ti.hwnd)); XST_mPV(count++, "-id"); XST_mIV(count++, ti.uId); *************** *** 552,558 **** } else if (IS_INTRESOURCE(ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, (IV)ti.lpszText); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, (IV)ti.hinst); } else { XST_mPV(count++, "-text"); --- 552,558 ---- } else if (IS_INTRESOURCE(ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, PTR2IV(ti.lpszText)); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, PTR2IV(ti.hinst)); } else { XST_mPV(count++, "-text"); *************** *** 809,813 **** XST_mIV(count++, (IV) ti.uId); } else { ! XST_mIV(count++, (IV) ti.hwnd); XST_mPV(count++, "-id"); XST_mIV(count++, ti.uId); --- 809,813 ---- XST_mIV(count++, (IV) ti.uId); } else { ! XST_mIV(count++, PTR2IV(ti.hwnd)); XST_mPV(count++, "-id"); XST_mIV(count++, ti.uId); *************** *** 826,832 **** } else if (IS_INTRESOURCE(ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, (IV)ti.lpszText); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, (IV)ti.hinst); } else { XST_mPV(count++, "-text"); --- 826,832 ---- } else if (IS_INTRESOURCE(ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, PTR2IV(ti.lpszText)); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, PTR2IV(ti.hinst)); } else { XST_mPV(count++, "-text"); *************** *** 891,895 **** XST_mIV(count++, (IV) hti.ti.uId); } else { ! XST_mIV(count++, (IV) hti.ti.hwnd); XST_mPV(count++, "-id"); XST_mIV(count++, hti.ti.uId); --- 891,895 ---- XST_mIV(count++, (IV) hti.ti.uId); } else { ! XST_mIV(count++, PTR2IV(hti.ti.hwnd)); XST_mPV(count++, "-id"); XST_mIV(count++, hti.ti.uId); *************** *** 908,914 **** } else if (IS_INTRESOURCE(hti.ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, (IV)hti.ti.lpszText); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, (IV)hti.ti.hinst); } else { XST_mPV(count++, "-text"); --- 908,914 ---- } else if (IS_INTRESOURCE(hti.ti.lpszText)) { XST_mPV(count++, "-text"); ! XST_mIV(count++, PTR2IV(hti.ti.lpszText)); XST_mPV(count++, "-hinst"); ! XST_mIV(count++, PTR2IV(hti.ti.hinst)); } else { XST_mPV(count++, "-text"); Index: GUI_Helpers.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Helpers.cpp,v retrieving revision 1.21 retrieving revision 1.22 diff -C2 -d -r1.21 -r1.22 *** GUI_Helpers.cpp 3 Aug 2006 22:24:37 -0000 1.21 --- GUI_Helpers.cpp 30 Aug 2006 21:57:58 -0000 1.22 *************** *** 361,365 **** } } ! oldhfont = SelectObject(hdc, hfont); if(GetTextExtentPoint32( hdc, perlcs->cs.lpszName, strlen(perlcs->cs.lpszName), &mySize --- 361,365 ---- } } ! oldhfont = (HFONT)SelectObject(hdc, hfont); if(GetTextExtentPoint32( hdc, perlcs->cs.lpszName, strlen(perlcs->cs.lpszName), &mySize Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.96 retrieving revision 1.97 diff -C2 -d -r1.96 -r1.97 *** CHANGELOG 3 Aug 2006 22:24:37 -0000 1.96 --- CHANGELOG 30 Aug 2006 21:57:58 -0000 1.97 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 30 August 2006 - Cygwin build fixes + - GUI_Helpers.cpp - SelectObject cast to HFONT + - Tooltip.xs - use PTR2IV() for casting pointers to IV + - GUI.h - add missing SETTITLE definition for MinGW headers + + [Robert May] : 3 August 2006 - Bug Fixes - GUI_Helpers.cpp - fix potential memory leak in CalcControlSize |
|
From: Robert M. <rob...@us...> - 2006-08-04 00:08:41
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4434/Win32-GUI-ReleaseNotes Modified Files: RN_1_04.pod Log Message: Update 1.04 release notes Index: RN_1_04.pod =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-ReleaseNotes/RN_1_04.pod,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** RN_1_04.pod 16 Jul 2006 13:02:30 -0000 1.2 --- RN_1_04.pod 4 Aug 2006 00:08:37 -0000 1.3 *************** *** 3,6 **** --- 3,9 ---- This is the release notes for Version 1.04 of Win32::GUI + B<< Currently this document is draft, and applies for alpha and beta + releases labelled v1.03_XX >> + =head1 Release Date *************** *** 29,34 **** (originally by Laurent Rocher: L<http://rocherl.club.fr/Win32GUI.html>). ! Please uninstall any previous versions that you may have installed ! before installing this version of Win32::GUI. =head1 Summary of Changes --- 32,38 ---- (originally by Laurent Rocher: L<http://rocherl.club.fr/Win32GUI.html>). ! ! Please uninstall any previous versions of these modules that you ! may have installed before installing this version of Win32::GUI. =head1 Summary of Changes *************** *** 77,80 **** --- 81,90 ---- L<GetRegionData|Win32::GUI::Region/GetRegionData>. + =item Win32::GUI::Tooltip + + L<AdjustRect|Win32::GUI::Tooltip/AdjustRect>, + L<GetBubbleSize|Win32::GUI::Tooltip/GetBubbleSize>, + L<SetTitle|Win32::GUI::Tooltip/SetTitle>. + =back *************** *** 107,110 **** --- 117,124 ---- L<-autovscroll|Win32::GUI::Textfield/autovscroll>. + =item Win32::GUI::Tooltip + + Complete documentation for the Win32::GUI::Tooltip class + =back *************** *** 113,117 **** =over ! =item <TAB> navigation for Textfields <TAB> can now be used to move out of a multi-line --- 127,131 ---- =over ! =item Better dialog navigation for Textfields <TAB> can now be used to move out of a multi-line *************** *** 122,127 **** A L<-wantreturn|Win32::GUI::Textfield/wantreturn> option has been added to stop the <RETURN> key firing the default ! Click event for a multi-line TextField when using the ! <-dialogui> option on a Window. This replaces the previous use of C<< -addstyle => ES_WANTRETURN >>. --- 136,142 ---- A L<-wantreturn|Win32::GUI::Textfield/wantreturn> option has been added to stop the <RETURN> key firing the default ! Click event for a multi-line Textfield when using the ! L<-dialogui|Win32::GUI::Reference::OPtions/dialogui> ! option on a Window. This replaces the previous use of C<< -addstyle => ES_WANTRETURN >>. *************** *** 136,140 **** =item More options for Win32::GUI::DoEvents() ! It is now possible to select with messages you want to process with L<DoEvents|Win32::GUI::Reference::Events/DoEvents>. --- 151,155 ---- =item More options for Win32::GUI::DoEvents() ! It is now possible to select which messages you want to process with L<DoEvents|Win32::GUI::Reference::Events/DoEvents>. *************** *** 179,182 **** --- 194,217 ---- Win32 paths. + =item Complete re-work of Tooltip class + + The L<Win32::GUI::Tooltip|Win32::GUI::Tooltip> + implementation has been re-worked to allow + all the features to be used, and now there + should be no crashes with many of the methods + which had been incorrectly implemented. The + new implementaiton should be backwards compatable + with what was there before, but read the documentation + to find out about all the new features you can use. + + The constructor has some new options C<-nofade>, C<-noamimate> + and the C<-balloon> option is documented. C<-balloon> option + along with the new L<SetTitle|Win32::GUI::Tooltip/SetTitle> + method allows you to make use of balloon tooltips. + + The events (NeedText, Pop, Show) now have a second parameter + allowing you to correctly determine if the first parameter is + a window handle or a tool id. + =back *************** *** 209,212 **** --- 244,249 ---- =item The demo code all works + =item Fix memory leak in Win32::GUI::DIBitmap::AlphaCopyToDC method + =back *************** *** 219,227 **** =head2 Win32::GUI::Constants ! TBD =head2 Win32::GUI::NotifyIcon ! TBD =head1 Contributors to this release --- 256,338 ---- =head2 Win32::GUI::Constants ! The introduction of Win32::GUI::Constants means that we now have access ! to a very large number of constants, so the current behaviour of Win32::GUI ! to export all constants to the calling namespace by default is no longer ! appropriate. So, a bare ! ! use Win32::GUI; ! ! now generates a warning that the old default behaviour will be deprecated - ! although the export behaviour of Win32::GUI 1.03 is maintained except for this ! warning. ! ! To eliminate this warning and correct your script, do one of the following: ! ! =over ! ! =item If you don't need any constants, use the empty list: ! ! use Win32::GUI(); ! ! =item If you need some constants, name them explicitly: ! ! use Win32::GUI qw(ES_WANTRETURN CW_USEDEFAULT); # Two constants exported ! use Win32::GUI qw(/^MB_/); # Export all constants starting with MB_ ! ! =back ! ! See the L<Win32::GUI::COnstants|Win32::GUI::Constants> documentation ! for the full allowable syntax. ! ! You are advised to fix your scripts now, as the next version will stop ! exporting any constants by default. ! ! Although not advised, you can supress the warnings by turning deprecated ! warnings off: ! ! no warnings 'deprecated'; ! ! Additionally accessing constants from within the Win32::GUI namespace ! is deprecated. I.e. ! ! -addstyle => Win32::GUI::WS_BORDER, ! ! will generate a warning with this release, and will stop working with ! the next release. Use one of the following methods instead: ! ! =over ! ! =item use the Win32::GUI::Constants namespace instead ! ! -addstyle => Win32::GUI::Constants::WS_BORDER(), ! ! =item use any other namespace you fancy ! ! use Win32::GUI qw(-exportpkg => A::B -autoload); ! ... ! -addstyle => A::B::WS_BORDER(), ! ! =item maintain compatibility of exising scripts ! ! use Win32::GUI::Constants qw(-exportpkg => Win32::GUI :compatability_win32_gui); ! ... ! -addstyle => Win32::GUI::WS_BORDER, ! ! =back =head2 Win32::GUI::NotifyIcon ! It is no longer necessary to use the '-id' option to any of the ! Win32::GUI::NotifyIcon methods. The ID is now entirely handled ! internally. You will receive deprecated warnings if you use it. ! ! In particular, removing Icons from the system tray should be done ! using ! ! $NI->Remove(); ! ! and not by the (now deprecated) ! ! $NI->Delete(-id => 1); =head1 Contributors to this release |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:24:40
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32039 Modified Files: CHANGELOG GUI_Helpers.cpp Log Message: Bug Fixes Index: GUI_Helpers.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Helpers.cpp,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** GUI_Helpers.cpp 23 Jun 2006 18:35:33 -0000 1.20 --- GUI_Helpers.cpp 3 Aug 2006 22:24:37 -0000 1.21 *************** *** 346,350 **** HDC hdc; SV** font; ! HFONT hfont; if(perlcs->cs.lpszName != NULL) { if(perlcs->cs.cx == 0 || perlcs->cs.cy == 0) { --- 346,350 ---- HDC hdc; SV** font; ! HFONT hfont, oldhfont; if(perlcs->cs.lpszName != NULL) { if(perlcs->cs.cx == 0 || perlcs->cs.cy == 0) { *************** *** 361,365 **** } } ! SelectObject(hdc, hfont); if(GetTextExtentPoint32( hdc, perlcs->cs.lpszName, strlen(perlcs->cs.lpszName), &mySize --- 361,365 ---- } } ! oldhfont = SelectObject(hdc, hfont); if(GetTextExtentPoint32( hdc, perlcs->cs.lpszName, strlen(perlcs->cs.lpszName), &mySize *************** *** 368,371 **** --- 368,372 ---- if(perlcs->cs.cy == 0) perlcs->cs.cy = mySize.cy + add_y; } + SelectObject(hdc, oldhfont); ReleaseDC(perlcs->cs.hwndParent, hdc); } Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.95 retrieving revision 1.96 diff -C2 -d -r1.95 -r1.96 *** CHANGELOG 3 Aug 2006 22:18:53 -0000 1.95 --- CHANGELOG 3 Aug 2006 22:24:37 -0000 1.96 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 3 August 2006 - Bug Fixes + - GUI_Helpers.cpp - fix potential memory leak in CalcControlSize + --- Win32::GUI::DIBitmap --- + - DIBitmap.xs - fix memory leak in AlphaCopyToDC + + [Robert May] : 3 August 2006 - Rework Tooltip class - GUI.pm, Tooltip.xs - add -noanimate and -nofade window |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:24:40
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DIBitmap In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32039/Win32-GUI-DIBitmap Modified Files: Changes DIBitmap.xs Log Message: Bug Fixes Index: DIBitmap.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DIBitmap/DIBitmap.xs,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** DIBitmap.xs 11 Jun 2006 16:34:32 -0000 1.2 --- DIBitmap.xs 3 Aug 2006 22:24:37 -0000 1.3 *************** *** 1912,1915 **** --- 1912,1917 ---- // Free tempory image if (ldib != dib) FreeImage_Unload(ldib); + // Free memory allocated by CreateDIBSection + DeleteObject(hbm); } } Index: Changes =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-DIBitmap/Changes,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Changes 11 Jun 2006 16:34:32 -0000 1.2 --- Changes 3 Aug 2006 22:24:37 -0000 1.3 *************** *** 1,4 **** --- 1,7 ---- Revision history for Perl extension FreeImage. + 0.17 TBD [Robert May] + - Fix memory leak in AlphaCopyToDC + 0.16 25/05/2006 [Robert May] - merge into Win32::GUI core distribution |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:21:12
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30902 Modified Files: TYPEMAP Log Message: Rework Tooltip Class Index: TYPEMAP =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/TYPEMAP,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** TYPEMAP 13 Apr 2006 22:17:07 -0000 1.8 --- TYPEMAP 3 Aug 2006 22:21:09 -0000 1.9 *************** *** 19,22 **** --- 19,23 ---- DWORD T_IV UINT T_IV + INT T_IV BOOL T_IV WPARAM T_IV |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:20:58
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30555 Modified Files: Tooltip.xs Log Message: Rework Tooltip Class Index: Tooltip.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Tooltip.xs,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** Tooltip.xs 16 Mar 2006 21:11:12 -0000 1.7 --- Tooltip.xs 3 Aug 2006 22:20:53 -0000 1.8 *************** *** 24,27 **** --- 24,29 ---- if BitmaskOptionValue("-alwaystip", perlcs->cs.style, TTS_ALWAYSTIP) } else if BitmaskOptionValue("-noprefix", perlcs->cs.style, TTS_NOPREFIX ) + } else if BitmaskOptionValue("-noanimate", perlcs->cs.style, TTS_NOANIMATE ) + } else if BitmaskOptionValue("-noface", perlcs->cs.style, TTS_NOFADE ) } else if BitmaskOptionValue("-balloon", perlcs->cs.style, TTS_BALLOON ) } else retval= FALSE; *************** *** 69,73 **** case TTN_NEEDTEXT : [...1441 lines suppressed...] ! pt.x = x; pt.y = y; ! RETVAL = SendMessage(handle, TTM_WINDOWFROMPOINT, 0, (LPARAM) &pt); ! OUTPUT: ! RETVAL --- 1258,1272 ---- ########################################################################### ! # (@)INTERNAL:WindowFromPoint(X, Y) # Allows a subclass procedure to cause a tooltip to display text for a window # other than the one beneath the mouse cursor. ! # ! # TTM_WINDOWFROMPOINT is supposed to be processed by a sub-class, not ever ! # sent: The tooltip class sends this to itself to determine the window under ! # the mouse (default implementation is simly WindowFromPoint(). A subclass ! # might (for example) want to use ChildWindowFromPoint(), so that disabled ! # windows aren't ignored, or something more complex so that a tool ! # belonging to another region is used. ! # ! # This documentation left here, to record that this message is purposely ! # not implemented as a mechanism to send this message. |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:20:40
|
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30525/Win32-GUI-Constants Modified Files: Tags.pm Log Message: Rework Tooltip Class Index: Tags.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Tags.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Tags.pm 16 Jul 2006 11:09:32 -0000 1.4 --- Tags.pm 3 Aug 2006 22:20:38 -0000 1.5 *************** *** 115,119 **** toolbar => [ qw( ^BTNS_ ^TBSTATE_ ^TBSTYLE_ ^I_ ^CLR_DEFAULT$ ^TRANSPARENT$ ^OPAQUE$ ^HINST_COMMCTRL$ ^IBD_ ) ], ! tooltip => [ qw() ], treeview => [ qw( ^CLR_DEFAULT$ ^TVGN_ ^TVHT_ ) ], updown => [ qw() ], --- 115,119 ---- toolbar => [ qw( ^BTNS_ ^TBSTATE_ ^TBSTYLE_ ^I_ ^CLR_DEFAULT$ ^TRANSPARENT$ ^OPAQUE$ ^HINST_COMMCTRL$ ^IBD_ ) ], ! tooltip => [ qw( ^TTDT_ ^TTF_ ^TTM_ ^TTN_ ) ], treeview => [ qw( ^CLR_DEFAULT$ ^TVGN_ ^TVHT_ ) ], updown => [ qw() ], |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:20:21
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30502 Modified Files: GUI_Options.cpp Log Message: Rework Tooltip Class Index: GUI_Options.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Options.cpp,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** GUI_Options.cpp 23 Jun 2006 18:35:33 -0000 1.15 --- GUI_Options.cpp 3 Aug 2006 22:20:19 -0000 1.16 *************** *** 740,743 **** --- 740,745 ---- char * option; + ti->uFlags |= TTF_IDISHWND; + ti->uFlags |= TTF_SUBCLASS; next_i = -1; for(i = from_i; i < items; i++) { *************** *** 746,750 **** if(strcmp(option, "-text") == 0) { next_i = i + 1; ! ti->lpszText = SvPV_nolen(ST(next_i)); } else if(strcmp(option, "-needtext") == 0) { next_i = i + 1; --- 748,755 ---- if(strcmp(option, "-text") == 0) { next_i = i + 1; ! if(SvPOK(ST(next_i))) ! ti->lpszText = SvPV_nolen(ST(next_i)); ! else if (SvIOK(ST(next_i))) ! ti->lpszText = MAKEINTRESOURCE((WORD)SvIV(ST(next_i))); } else if(strcmp(option, "-needtext") == 0) { next_i = i + 1; *************** *** 752,757 **** } else if(strcmp(option, "-window") == 0) { next_i = i + 1; ! ti->uId = (UINT) handle_From(NOTXSCALL ST(next_i)); ! ti->uFlags |= TTF_IDISHWND; } else if(strcmp(option, "-id") == 0) { next_i = i + 1; --- 757,761 ---- } else if(strcmp(option, "-window") == 0) { next_i = i + 1; ! ti->hwnd = (HWND) handle_From(NOTXSCALL ST(next_i)); } else if(strcmp(option, "-id") == 0) { next_i = i + 1; *************** *** 782,785 **** --- 786,790 ---- next_i = i + 1; SwitchBit(ti->uFlags, TTF_TRACK , SvIV(ST(next_i))); + ti->uFlags &= ~TTF_SUBCLASS; } else if(strcmp(option, "-transparent") == 0) { next_i = i + 1; *************** *** 803,806 **** --- 808,834 ---- } } + + if( ti->uFlags & TTF_IDISHWND) { + ti->uId = (UINT)ti->hwnd; /* TODO: can hwnd be NULL? */ + } else { + /* if rect not supplied, use hwnd co-ordinates */ + if(ti->rect.left == 0 && ti->rect.right == 0 && ti->rect.top == 0 && ti->rect.bottom == 0) { + GetWindowRect(ti->hwnd, &(ti->rect)); + } + } + + /* If we're not a top level window, then we + * need our container flag set in order to process + * WM_NOTIFY messages correctly (see CustomMsgLoop) + * Needed for NeedText, Pop and Show events + */ + HWND parent = GetAncestor(ti->hwnd, GA_PARENT); + if(parent) { + LPPERLWIN32GUI_USERDATA ud; + ud = (LPPERLWIN32GUI_USERDATA) GetWindowLong(ti->hwnd, GWL_USERDATA); + if( ValidUserData(ud) ) { + ud->dwPlStyle |= PERLWIN32GUI_CONTAINER; + } + } } |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:20:05
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30081 Modified Files: GUI_Events.cpp Log Message: Rework Tooltip Class Index: GUI_Events.cpp =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI_Events.cpp,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** GUI_Events.cpp 12 Apr 2006 20:00:06 -0000 1.13 --- GUI_Events.cpp 3 Aug 2006 22:20:02 -0000 1.14 *************** *** 501,505 **** if(!ProcessEventError(NOTXSCALL Name, &PerlResult)) { if(count > 0) { ! PerlResult = POPi; SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); --- 501,509 ---- if(!ProcessEventError(NOTXSCALL Name, &PerlResult)) { if(count > 0) { ! if(count > 1) { ! PerlResult = POPi; ! } else { ! PerlResult = 0; ! } SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); *************** *** 565,569 **** if(!ProcessEventError(NOTXSCALL EventName, &PerlResult)) { if(count > 0) { ! PerlResult = POPi; SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); --- 569,577 ---- if(!ProcessEventError(NOTXSCALL EventName, &PerlResult)) { if(count > 0) { ! if(count > 1) { ! PerlResult = POPi; ! } else { ! PerlResult = 0; ! } SV* svt = POPs; textneeded = (char *) safemalloc(sv_len(svt) + 1); |
|
From: Robert M. <rob...@us...> - 2006-08-03 22:19:42
|
Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30060 Modified Files: GUI.pm Log Message: Rework Tooltip Class Index: GUI.pm =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.pm,v retrieving revision 1.52 retrieving revision 1.53 diff -C2 -d -r1.52 -r1.53 *** GUI.pm 16 Jul 2006 11:08:09 -0000 1.52 --- GUI.pm 3 Aug 2006 22:19:40 -0000 1.53 *************** *** 927,930 **** --- 927,935 ---- ########################################################################### + # (@)METHOD:AddTooltip(%OPTIONS) + # See new Win32::GUI::Tooltip(). + sub AddTooltip { return Win32::GUI::Tooltip->new(@_); } + + ########################################################################### # (@)METHOD:AddMenu() # See new Win32::GUI::Menu(). *************** *** 2023,2026 **** --- 2028,2053 ---- # Create and manipulate Tooltip controls # + # Tooltip controls are probably one of the most unintuitave of the Win32 + # controls when you first come accross them. A Tooltip control is a + # single window that supports one or more 'tools'. A tool is a window, + # or an area of a window that when the mouse hovers over, the tooltip + # window is displayed. The Tooltip is always a top level window (so + # don't try adding the WS_CHILD window style), and is typically owned + # by the top level window of your application/dialog. + # + # Create a tooltip window: + # + # my $tt = Win32::GUI::Tooltip->new( + # $main_window, + # ); + # + # Add a tool to the tooltip: + # + # $tt->AddTool( + # -window => $main_window, + # -text => "Text that pops up", + # ); + # + # and hover the mouse over an area of your main window. package Win32::GUI::Tooltip; @ISA = qw( *************** *** 2031,2039 **** ########################################################################### # (@)METHOD:new Win32::GUI::Tooltip(PARENT, %OPTIONS) ! # Creates a new Tooltip object # # Class specific B<%OPTIONS> are: ! # -alwaystip => 0/1 ! # -noprefix => 0/1 sub new { my $parent = $_[1]; --- 2058,2075 ---- ########################################################################### # (@)METHOD:new Win32::GUI::Tooltip(PARENT, %OPTIONS) ! # Creates a new Tooltip object. ! # Can also be called as PARENT->AddTooltip(%OPTIONS). # # Class specific B<%OPTIONS> are: ! # -alwaystip => 0/1 (default: 1) ! # Show the tooltip, even if the window is not active. ! # -noprefix => 0/1 (default: 0) ! # Prevent the tooltip control stripping '&' prefixes ! # -noanimate => 0/1 (default: 0) ! # Turn off tooltip window animation ! # -nofade => 0/1 (default: 0) ! # Turn off tooltip window fading effect ! # -balloon => 0/1 (default: 0) ! # Give the tooltip window 'balloon' style sub new { my $parent = $_[1]; |