Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32576/Win32-GUI-Constants
Modified Files:
Constants.PL Tags.pm
Log Message:
More Win32::GUI::Constants support
Index: Constants.PL
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Constants.PL,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Constants.PL 13 May 2006 15:39:30 -0000 1.1
--- Constants.PL 16 May 2006 18:57:26 -0000 1.2
***************
*** 1070,1073 ****
--- 1070,1084 ----
LVIS_STATEIMAGEMASK 0xF000
+ # Listview ??
+ LVSIL_NORMAL 0
+ LVSIL_SMALL 1
+ LVSIL_STATE 2
+
+ # Listview ??
+ LVIR_BOUNDS 0
+ LVIR_ICON 1
+ LVIR_LABEL 2
+ LVIR_SELECTBOUNDS 3
+
# LoadResource() constants
LR_DEFAULTCOLOR 0x0000
***************
*** 1694,1697 ****
--- 1705,1722 ----
TVGN_LASTVISIBLE 0x000A
+ # Treeview hit test regions
+ TVHT_NOWHERE 0x0001
+ TVHT_ONITEMICON 0x0002
+ TVHT_ONITEMLABEL 0x0004
+ TVHT_ONITEM 0x0046 # (TVHT_ONITEMICON | TVHT_ONITEMLABEL |
TVHT_ONITEMSTATEICON)
+ TVHT_ONITEMINDENT 0x0008
+ TVHT_ONITEMBUTTON 0x0010
+ TVHT_ONITEMRIGHT 0x0020
+ TVHT_ONITEMSTATEICON 0x0040
+ TVHT_ABOVE 0x0100
+ TVHT_BELOW 0x0200
+ TVHT_TORIGHT 0x0400
+ TVHT_TOLEFT 0x0800
+
# Virtual Keys
VK_LBUTTON 0x01
Index: Tags.pm
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-Constants/Tags.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Tags.pm 13 May 2006 15:39:30 -0000 1.1
--- Tags.pm 16 May 2006 18:57:26 -0000 1.2
***************
*** 96,100 ****
label => [ qw( ^IMAGE_ ) ],
listbox => [ qw( ^LBS_ ) ],
! listview => [ qw( ^LVS_ ^LVIS_ ^CLR_NONE$ ) ],
mdi => [ qw() ],
menu => [ qw( ^MF_ ^SC_ ^TPM_ ) ],
--- 96,100 ----
label => [ qw( ^IMAGE_ ) ],
listbox => [ qw( ^LBS_ ) ],
! listview => [ qw( ^LVS_ ^LVIS_ ^LVIR_ ^LVSIL_ ^CLR_NONE$ ) ],
mdi => [ qw() ],
menu => [ qw( ^MF_ ^SC_ ^TPM_ ) ],
***************
*** 116,120 ****
^OPAQUE$ ^HINST_COMMCTRL$ ^IBD_ ) ],
tooltip => [ qw() ],
! treeview => [ qw( ^CLR_DEFAULT$ ^TVGN_ ) ],
updown => [ qw() ],
window => [ qw( ^DS_ ^ID.[^_]+ ^MA_ ^MK_ ^NM_ ^RDW_ ^SIZE_ ^SW_ ^WA_
^WM_
--- 116,120 ----
^OPAQUE$ ^HINST_COMMCTRL$ ^IBD_ ) ],
tooltip => [ qw() ],
! treeview => [ qw( ^CLR_DEFAULT$ ^TVGN_ ^TVHT_ ) ],
updown => [ qw() ],
window => [ qw( ^DS_ ^ID.[^_]+ ^MA_ ^MK_ ^NM_ ^RDW_ ^SIZE_ ^SW_ ^WA_
^WM_
