This is an automatically generated mail from the syncmail system. Do not reply
directly to this email. Further discussion should take place on the hackers
list: perl-win32-gui-hack...@lists.sourceforge.net
Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sfp-cvsdas-2.v30.ch3.sourceforge.com:/tmp/cvs-serv24112
Modified Files:
Textfield.xs
Log Message:
Initial change to build with a 64bit compiler
Index: Textfield.xs
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/Textfield.xs,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Textfield.xs 20 Jan 2007 17:09:22 -0000 1.9
--- Textfield.xs 8 Apr 2010 21:25:29 -0000 1.10
***************
*** 11,15 ****
! void
Textfield_onPreCreate(NOTXSPROC LPPERLWIN32GUI_CREATESTRUCT perlcs) {
--- 11,15 ----
! void
Textfield_onPreCreate(NOTXSPROC LPPERLWIN32GUI_CREATESTRUCT perlcs) {
***************
*** 22,26 ****
Textfield_onParseOption(NOTXSPROC char *option, SV* value,
LPPERLWIN32GUI_CREATESTRUCT perlcs) {
BOOL retval;
!
if(strcmp(option, "-align") == 0) {
if(strcmp(SvPV_nolen(value), "left") == 0) {
--- 22,26 ----
Textfield_onParseOption(NOTXSPROC char *option, SV* value,
LPPERLWIN32GUI_CREATESTRUCT perlcs) {
BOOL retval;
!
if(strcmp(option, "-align") == 0) {
if(strcmp(SvPV_nolen(value), "left") == 0) {
***************
*** 158,162 ****
###########################################################################
# (@)PACKAGE:Win32::GUI::Textfield
!
###########################################################################
*/
--- 158,162 ----
###########################################################################
# (@)PACKAGE:Win32::GUI::Textfield
!
###########################################################################
*/
***************
*** 206,210 ****
###########################################################################
# (@)METHOD:EmptyUndoBuffer()
! # Reset the undo flag of an Textfield.
LRESULT
EmptyUndoBuffer(handle)
--- 206,210 ----
###########################################################################
# (@)METHOD:EmptyUndoBuffer()
! # Reset the undo flag of an Textfield.
LRESULT
EmptyUndoBuffer(handle)
***************
*** 221,225 ****
# Set the inclusion flag of soft line break characters on or off within a
multiline TextField.
# A soft line break consists of two carriage returns and a linefeed and
is inserted at the end of a line that is broken because of word wrapping.
!
LRESULT
FmtLines(handle, value)
--- 221,225 ----
# Set the inclusion flag of soft line break characters on or off within a
multiline TextField.
# A soft line break consists of two carriage returns and a linefeed and
is inserted at the end of a line that is broken because of word wrapping.
!
LRESULT
FmtLines(handle, value)
***************
*** 329,333 ****
# (@)METHOD:GetLineCount()
# Return the number of lines in a multiline Textfield.
!
LRESULT
GetLineCount(handle)
--- 329,333 ----
# (@)METHOD:GetLineCount()
# Return the number of lines in a multiline Textfield.
!
LRESULT
GetLineCount(handle)
***************
*** 342,346 ****
###########################################################################
# (@)METHOD:GetMargins()
! # Return an array with right and left margins.
void
GetMargins(handle)
--- 342,346 ----
###########################################################################
# (@)METHOD:GetMargins()
! # Return an array with right and left margins.
void
GetMargins(handle)
***************
*** 360,364 ****
# (@)METHOD:GetModify()
# Determine whether the content of a Textfield has been modified.
!
LRESULT
GetModify(handle)
--- 360,364 ----
# (@)METHOD:GetModify()
# Determine whether the content of a Textfield has been modified.
!
LRESULT
GetModify(handle)
***************
*** 374,378 ****
# (@)METHOD:GetPasswordChar()
# Return the password character displayed .
!
LRESULT
GetPasswordChar(handle)
--- 374,378 ----
# (@)METHOD:GetPasswordChar()
# Return the password character displayed .
!
LRESULT
GetPasswordChar(handle)
***************
*** 386,390 ****
# (@)METHOD:GetRect()
# Return formatting rectangle is the limiting rectangle of the text.
!
void
GetRect(handle)
--- 386,390 ----
# (@)METHOD:GetRect()
# Return formatting rectangle is the limiting rectangle of the text.
!
void
GetRect(handle)
***************
*** 408,412 ****
# Returns a 2 item list giving the index of the start and end of the
current
# selection
!
void
GetSel(handle)
--- 408,412 ----
# Returns a 2 item list giving the index of the start and end of the
current
# selection
!
void
GetSel(handle)
***************
*** 427,431 ****
# (@)METHOD:GetThumb()
# Return the position of the scroll box (thumb) in a multiline Textfield.
!
LRESULT
GetThumb(handle)
--- 427,431 ----
# (@)METHOD:GetThumb()
# Return the position of the scroll box (thumb) in a multiline Textfield.
!
LRESULT
GetThumb(handle)
***************
*** 438,442 ****
RETVAL
! # TODO : EM_GETWORDBREAKPROC
# EM_LIMITTEXT = EM_SETLIMITTEXT
--- 438,442 ----
RETVAL
! # TODO : EM_GETWORDBREAKPROC
# EM_LIMITTEXT = EM_SETLIMITTEXT
***************
*** 809,813 ****
OUTPUT:
RETVAL
!
###########################################################################
--- 809,813 ----
OUTPUT:
RETVAL
!
###########################################################################
***************
*** 820,824 ****
RETVAL = SendMessage(handle, EM_SETREADONLY, (WPARAM) (BOOL)
SvIV(ST(1)), 0);
else
! RETVAL = (GetWindowLong(handle, GWL_STYLE) & ES_READONLY);
OUTPUT:
RETVAL
--- 820,824 ----
RETVAL = SendMessage(handle, EM_SETREADONLY, (WPARAM) (BOOL)
SvIV(ST(1)), 0);
else
! RETVAL = (GetWindowLongPtr(handle, GWL_STYLE) & ES_READONLY);
OUTPUT:
RETVAL
------------------------------------------------------------------------------
Download Intel® Parallel Studio Eval
Try the new software tools for yourself. Speed compiling, find bugs
proactively, and fine-tune applications for parallel performance.
See why Intel Parallel Studio got high marks during beta.
http://p.sf.net/sfu/intel-sw-dev
_______________________________________________
Perl-win32-gui-cvscommit mailing list
Perl-win32-gui-cvscommit@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit
http://perl-win32-gui.sourceforge.net/
