[Oorexx-svn] SF.net SVN: oorexx-code-0:[9137]
ooDialog/trunk/examples/examples/ openSaveFileDemo.rex
From: <mie...@us...> - 2013-03-25 02:46:15
|
Revision: 9137 http://sourceforge.net/p/oorexx/code-0/9137 Author: miesfeld Date: 2013-03-25 02:46:12 +0000 (Mon, 25 Mar 2013) Log Message: ----------- ooDialog - some work on open save file dialog example Modified Paths: -------------- ooDialog/trunk/examples/examples/openSaveFileDemo.rex Modified: ooDialog/trunk/examples/examples/openSaveFileDemo.rex =================================================================== --- ooDialog/trunk/examples/examples/openSaveFileDemo.rex 2013-03-25 02:45:13 UTC (rev 9136) +++ ooDialog/trunk/examples/examples/openSaveFileDemo.rex 2013-03-25 02:46:12 UTC (rev 9137) @@ -200,6 +200,7 @@ ofd~release -- Have the edit box display the result. + self~showResult(text) edit~setText(text) return 0 @@ -241,33 +242,27 @@ ::method openFolderExample unguarded private - expose edit -- Have the edit box display the result. - edit~setText(text) + return self~showResult(text) - return 0 - ::method saveDefaultExample unguarded private - expose edit -- Have the edit box display the result. - edit~setText(text) + return self~showResult(text) - return 0 - ::method openCustonExample unguarded private - expose edit - -- Have the edit box display the result. - edit~setText(text) - return 0 +::method showResult unguarded private + expose edit + use strict arg text - + edit~setText(text) + return 0 |