[Oorexx-svn] SF.net SVN: oorexx:[3657] main/trunk/extensions/platform/windows/oodialog/ advctrl.cls

[<mie...@us...>]

Revision: 3657
          http://oorexx.svn.sourceforge.net/oorexx/?rev=3657&view=rev
Author:   miesfeld
Date:     2008-11-06 21:33:47 +0000 (Thu, 06 Nov 2008)

Log Message:
-----------
Fix bug in ooDialog when checking for a null window handle.

Modified Paths:
--------------
    main/trunk/extensions/platform/windows/oodialog/advctrl.cls

Modified: main/trunk/extensions/platform/windows/oodialog/advctrl.cls
===================================================================
--- main/trunk/extensions/platform/windows/oodialog/advctrl.cls	2008-11-06 01:40:04 UTC (rev 3656)
+++ main/trunk/extensions/platform/windows/oodialog/advctrl.cls	2008-11-06 21:33:47 UTC (rev 3657)
@@ -80,7 +80,7 @@
      ctrlobj = class~new(self, id, category)
    end
 
-   if ctrlobj~hwnd~substr(3) = 0 then
+   if ctrlobj~hwnd = 0 | ctrlobj~hwnd~substr(3) = 0 then
      return .nil
    else
      return ctrlobj
@@ -440,7 +440,7 @@
 ::method AssignWindow
    use arg hwnd, parent, category
    self~Hwnd = hwnd
-   if hwnd~substr(3) = 0 then return 0
+   if hwnd = 0 | hwnd~substr(3) = 0 then return 0
    parse value Wnd_Desktop("RECT", hwnd) with x y cx cy
    self~SizeX = (cx - x) % self~FactorX
    self~SizeY = (cy - y) % self~FactorY


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.