fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-02-02 10:32 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/gtwvg/wvgcrt.prg
  * contrib/gtwvg/wvgwnd.prg
  * contrib/hbxbp/xbpcrt.prg
  * contrib/hbxbp/xbpwindow.prg
    * Fixed: ::sSize => ::aSize.
       Overlook reported by Miso Pucko on bug-tracker.

    * Moved: some methods to PROTECTED: section.
    * Fixed: ::isParentCrt() which was preventing the subclassing WvgCRT().
       Requested by Miso Pucko on bug-tracker.
This commit is contained in:
Pritpal Bedi
2012-02-02 18:40:20 +00:00
parent 7a27be1ee9
commit abdc9f8f79
5 changed files with 19 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -16,6 +16,18 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-02-02 10:32 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/gtwvg/wvgcrt.prg
* contrib/gtwvg/wvgwnd.prg
* contrib/hbxbp/xbpcrt.prg
* contrib/hbxbp/xbpwindow.prg
* Fixed: ::sSize => ::aSize.
Overlook reported by Miso Pucko on bug-tracker.
* Moved: some methods to PROTECTED: section.
* Fixed: ::isParentCrt() which was preventing the subclassing WvgCRT().
Requested by Miso Pucko on bug-tracker.
2012-02-02 10:04 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/ideprojmanager.prg
* Formatting.

2
harbour/contrib/gtwvg/wvgcrt.prg
View File

@@ -368,7 +368,7 @@ METHOD WvgCrt:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
DEFAULT oParent TO ::oParent
DEFAULT oOwner TO ::oOwner
DEFAULT aPos TO ::aPos
DEFAULT aSize TO ::sSize
DEFAULT aSize TO ::aSize
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible

5
harbour/contrib/gtwvg/wvgwnd.prg
View File

@@ -263,8 +263,9 @@ CLASS WvgWindow INHERIT WvgPartHandler
METHOD dragMotion( xParam ) SETGET
METHOD dragLeave( xParam ) SETGET
METHOD dragDrop( xParam, xParam1 ) SETGET
PROTECTED:
METHOD getPosAndSize( aPs, aSz )
METHOD isParentCrt() INLINE ( __objGetClsName( ::oParent ) == "WVGCRT" )
METHOD isParentCrt() INLINE ( ::oParent:objType == objTypeCrt )
METHOD rePosition()
METHOD createControl()
@@ -327,7 +328,7 @@ METHOD WvgWindow:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible
DEFAULT oParent TO ::oParent
DEFAULT oOwner TO ::oOwner
DEFAULT aPos TO ::aPos
DEFAULT aSize TO ::sSize
DEFAULT aSize TO ::aSize
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible

5
harbour/contrib/hbxbp/xbpcrt.prg
View File

@@ -319,9 +319,8 @@ METHOD XbpCrt:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::lHasInputFocus := .t.
ENDIF
::nFlags := ::oWidget:windowFlags()
IF __objGetClsName( ::oParent ) == "XBPDRAWINGAREA"
IF __objGetClsName( ::oParent ) $ "XBPDRAWINGAREA"
::setParent( ::oParent )
ENDIF
@@ -343,7 +342,7 @@ METHOD XbpCrt:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
DEFAULT oParent TO ::oParent
DEFAULT oOwner TO ::oOwner
DEFAULT aPos TO ::aPos
DEFAULT aSize TO ::sSize
DEFAULT aSize TO ::aSize
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible

2
harbour/contrib/hbxbp/xbpwindow.prg
View File

@@ -389,7 +389,7 @@ METHOD XbpWindow:configure( oParent, oOwner, aPos, aSize, aPresParams, lVisible
DEFAULT oParent TO ::oParent
DEFAULT oOwner TO ::oOwner
DEFAULT aPos TO ::aPos
DEFAULT aSize TO ::sSize
DEFAULT aSize TO ::aSize
DEFAULT aPresParams TO ::aPresParams
DEFAULT lVisible TO ::visible