[Oorexx-svn] SF.net SVN: oorexx:[5099] main/trunk/samples/windows/oodialog/oodraw.rex

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

Revision: 5099
          http://oorexx.svn.sourceforge.net/oorexx/?rev=5099&view=rev
Author:   miesfeld
Date:     2009-08-23 01:57:08 +0000 (Sun, 23 Aug 2009)

Log Message:
-----------
2842693  oodraw.rex sample has backwards logic

Modified Paths:
--------------
    main/trunk/samples/windows/oodialog/oodraw.rex

Modified: main/trunk/samples/windows/oodialog/oodraw.rex
===================================================================
--- main/trunk/samples/windows/oodialog/oodraw.rex	2009-08-22 20:04:51 UTC (rev 5098)
+++ main/trunk/samples/windows/oodialog/oodraw.rex	2009-08-23 01:57:08 UTC (rev 5099)
@@ -43,6 +43,10 @@
 
 
  d = .drawdlg~new
+ if d~initCode <> 0 then do
+    say 'The Draw dialog was not created correctly.  Aborting.'
+    return d~initCode
+ end
  d~Execute("SHOWTOP")
  d~deinstall
  return
@@ -62,7 +66,8 @@
                 'light blue','white','grey','dark grey','red','light green',,
                 'yellow','blue','pink','turquoise')
    self~init:super()
-   self~InitCode = self~createcenter(200,235,"OODialog Color Drawing Demonstration",,,"System", 8)
+   if \ self~createcenter(200,235,"OODialog Color Drawing Demonstration",,,"System", 8) then
+      self~initCode = 1
 
 ::method DefineDialog
    self~DefineDialog:super


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