From: <mie...@us...> - 2013-02-03 03:32:23
|
Revision: 8932 http://sourceforge.net/p/oorexx/code-0/8932 Author: miesfeld Date: 2013-02-03 03:32:19 +0000 (Sun, 03 Feb 2013) Log Message: ----------- Feature Requests: #520 folder selection dialog See ticket [Feature-requests:#520] Modified Paths: -------------- ooDialog/trunk/ooDialog/UtilityClasses.cls ooDialog/trunk/ooDialog/oodPackageEntry.cpp ooDialog/trunk/ooDialog/oodRoutines.cpp Modified: ooDialog/trunk/ooDialog/UtilityClasses.cls =================================================================== --- ooDialog/trunk/ooDialog/UtilityClasses.cls 2013-02-03 01:10:03 UTC (rev 8931) +++ ooDialog/trunk/ooDialog/UtilityClasses.cls 2013-02-03 03:32:19 UTC (rev 8932) @@ -1447,6 +1447,7 @@ ::routine screenSize public return .DlgUtil~screenSize +::routine simpleFolderBrowse public external "LIBRARY oodialog simpleFolderBrowse_rtn" ::routine systemMetrics public use strict arg index return .DlgUtil~getSystemMetrics(index) Modified: ooDialog/trunk/ooDialog/oodPackageEntry.cpp =================================================================== --- ooDialog/trunk/ooDialog/oodPackageEntry.cpp 2013-02-03 01:10:03 UTC (rev 8931) +++ ooDialog/trunk/ooDialog/oodPackageEntry.cpp 2013-02-03 03:32:19 UTC (rev 8932) @@ -384,22 +384,26 @@ /* GdiplusShutdown(gdiplusToken); */ } -REXX_TYPED_ROUTINE_PROTOTYPE(messageDialog_rtn); REXX_TYPED_ROUTINE_PROTOTYPE(fileNameDlg_rtn); REXX_TYPED_ROUTINE_PROTOTYPE(findWindow_rtn); +REXX_TYPED_ROUTINE_PROTOTYPE(messageDialog_rtn); REXX_TYPED_ROUTINE_PROTOTYPE(msSleep_rtn); REXX_TYPED_ROUTINE_PROTOTYPE(playSound_rtn); +REXX_TYPED_ROUTINE_PROTOTYPE(simpleFolderBrowse_rtn); REXX_TYPED_ROUTINE_PROTOTYPE(winTimer_rtn); + REXX_TYPED_ROUTINE_PROTOTYPE(routineTest_rtn); RexxRoutineEntry oodialog_functions[] = { + REXX_TYPED_ROUTINE(fileNameDlg_rtn, fileNameDlg_rtn), + REXX_TYPED_ROUTINE(findWindow_rtn, findWindow_rtn), REXX_TYPED_ROUTINE(messageDialog_rtn, messageDialog_rtn), - REXX_TYPED_ROUTINE(findWindow_rtn, findWindow_rtn), - REXX_TYPED_ROUTINE(fileNameDlg_rtn, fileNameDlg_rtn), REXX_TYPED_ROUTINE(msSleep_rtn, msSleep_rtn), REXX_TYPED_ROUTINE(playSound_rtn, playSound_rtn), + REXX_TYPED_ROUTINE(simpleFolderBrowse_rtn, simpleFolderBrowse_rtn), REXX_TYPED_ROUTINE(winTimer_rtn, winTimer_rtn), + REXX_TYPED_ROUTINE(routineTest_rtn, routineTest_rtn), REXX_LAST_ROUTINE() Modified: ooDialog/trunk/ooDialog/oodRoutines.cpp =================================================================== --- ooDialog/trunk/ooDialog/oodRoutines.cpp 2013-02-03 01:10:03 UTC (rev 8931) +++ ooDialog/trunk/ooDialog/oodRoutines.cpp 2013-02-03 03:32:19 UTC (rev 8932) @@ -647,6 +647,17 @@ return TheZeroObj; } + +RexxRoutine1(RexxObjectPtr, simpleFolderBrowse_rtn, ARGLIST, args) +{ + RexxClassObject SFBClass = context->FindContextClass("SIMPLEFOLDERBROWSE"); + return context->SendMessage(SFBClass, "GETFOLDER", args); +} + + +/** playSoundFile() + * + */ RexxRoutine3(RexxObjectPtr, playSound_rtn, OPTIONAL_CSTRING, fileName, OPTIONAL_CSTRING, modifier, NAME, routineName) { bool isStopRoutine = strcmp("STOPSOUNDFILE", routineName) == 0; |