[Oorexx-svn] SF.net SVN: oorexx:[7771] main/trunk/samples/windows/oodialog/propertySheet .tabs

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

Revision: 7771
          http://oorexx.svn.sourceforge.net/oorexx/?rev=7771&view=rev
Author:   miesfeld
Date:     2012-04-20 20:01:46 +0000 (Fri, 20 Apr 2012)
Log Message:
-----------
ooDialog - small adjustment to ooDialog example programs

Modified Paths:
--------------
    main/trunk/samples/windows/oodialog/propertySheet.tabs/PropertySheetDemo.rex
    main/trunk/samples/windows/oodialog/propertySheet.tabs/UserTabDemo.rex

Modified: main/trunk/samples/windows/oodialog/propertySheet.tabs/PropertySheetDemo.rex
===================================================================
--- main/trunk/samples/windows/oodialog/propertySheet.tabs/PropertySheetDemo.rex	2012-04-20 20:00:35 UTC (rev 7770)
+++ main/trunk/samples/windows/oodialog/propertySheet.tabs/PropertySheetDemo.rex	2012-04-20 20:01:46 UTC (rev 7771)
@@ -627,25 +627,3 @@
 
 ::class 'PropertySheetDemoDlg' subclass PropertySheetDialog
 
-
-
-::class 'DirectoryManager' public
-
-::method init
-  expose originalDirectory
-
-  -- Save our current directory.
-  originalDirectory = directory()
-
-  -- Get the full path to this program file.
-  parse source . . pgmFile
-
-  -- Get the directory this program file is located in, and then cd to it.
-  pgmDir = pgmFile~left(pgmFile~lastpos('\') - 1)
-  pgmDir = directory(pgmDir)
-
-
-::method goBack
-  expose originalDirectory
-  ret = directory(originalDirectory)
-

Modified: main/trunk/samples/windows/oodialog/propertySheet.tabs/UserTabDemo.rex
===================================================================
--- main/trunk/samples/windows/oodialog/propertySheet.tabs/UserTabDemo.rex	2012-04-20 20:00:35 UTC (rev 7770)
+++ main/trunk/samples/windows/oodialog/propertySheet.tabs/UserTabDemo.rex	2012-04-20 20:01:46 UTC (rev 7771)
@@ -241,7 +241,7 @@
     pages[1] = patientdlg
 
     -- .01 seconds == 10000 microseconds
-    .Alarm~new(.TimeSpan~fromMicroseconds(10000), .message~new(self, "initialShowDlg"))
+    .Alarm~new(.TimeSpan~fromMicroseconds(20000), .message~new(self, "initialShowDlg"))
 
 
 ::method activateContacts private unguarded

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