[Oorexx-svn] SF.net SVN: oorexx: [669]
interpreter-3.x/trunk/platform/windows/oodialog/ oodutils.cls
From: <mie...@us...> - 2007-08-11 18:41:58
|
Revision: 669 http://oorexx.svn.sourceforge.net/oorexx/?rev=669&view=rev Author: miesfeld Date: 2007-08-11 11:41:54 -0700 (Sat, 11 Aug 2007) Log Message: ----------- Fix for bug [ 1772197 ] FileNameDialog filemask Modified Paths: -------------- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls Modified: interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls =================================================================== --- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-08-11 18:01:14 UTC (rev 668) +++ interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-08-11 18:41:54 UTC (rev 669) @@ -131,7 +131,8 @@ if load == 1 & amulti~translate = "MULTI" then amulti = 1; else amulti = 0 if Arg() < 3 then ret = GetFileNameWindow(selfile, parentwnd) - else ret = GetFileNameWindow(selfile, parentwnd, Arg(3), load, Arg(5), defextension, amulti, sepchar) + else if Arg(3, 'O') then ret = GetFileNameWindow(selfile, parentwnd, Arg(3), load, Arg(5), defextension, amulti, sepchar) + else ret = GetFileNameWindow(selfile, parentwnd, Arg(3) || '0'x, load, Arg(5), defextension, amulti, sepchar) if installed = 1 then call RxfuncDrop "GetFileNameWindow" return ret This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
[Oorexx-svn] SF.net SVN: oorexx: [685]
interpreter-3.x/trunk/platform/windows/oodialog/ oodutils.cls
From: <mie...@us...> - 2007-08-18 16:46:04
|
Revision: 685 http://oorexx.svn.sourceforge.net/oorexx/?rev=685&view=rev Author: miesfeld Date: 2007-08-18 09:46:05 -0700 (Sat, 18 Aug 2007) Log Message: ----------- Implement RFE [ 1773074 ] FileNameDialog "multi" Allow only the first letter of the MULTI argument. Modified Paths: -------------- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls Modified: interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls =================================================================== --- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-08-18 16:39:41 UTC (rev 684) +++ interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-08-18 16:46:05 UTC (rev 685) @@ -128,7 +128,7 @@ end if load == 0 | load~left(1)~translate = "S" then load = 0; else load = 1 - if load == 1 & amulti~translate = "MULTI" then amulti = 1; else amulti = 0 + if load == 1 & amulti~left(1)~translate = "M" then amulti = 1; else amulti = 0 if Arg() < 3 then ret = GetFileNameWindow(selfile, parentwnd) else if Arg(3, 'O') then ret = GetFileNameWindow(selfile, parentwnd, Arg(3), load, Arg(5), defextension, amulti, sepchar) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
[Oorexx-svn] SF.net SVN: oorexx: [802]
interpreter-3.x/trunk/platform/windows/oodialog/ oodutils.cls
From: <mie...@us...> - 2007-09-24 17:22:23
|
Revision: 802 http://oorexx.svn.sourceforge.net/oorexx/?rev=802&view=rev Author: miesfeld Date: 2007-09-24 10:22:27 -0700 (Mon, 24 Sep 2007) Log Message: ----------- [ 1773344 ] UnTimedMessage. MSSleep was missing a line in the patch. Modified Paths: -------------- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls Modified: interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls =================================================================== --- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-09-24 17:12:29 UTC (rev 801) +++ interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-09-24 17:22:27 UTC (rev 802) @@ -154,6 +154,7 @@ installed = 1 end ret = SleepMS(ms) + if installed = 1 then call RxfuncDrop "SleepMS" return ret ::routine ScreenSize public This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
[Oorexx-svn] SF.net SVN: oorexx: [864]
interpreter-3.x/trunk/platform/windows/oodialog/ oodutils.cls
From: <mie...@us...> - 2007-10-04 04:44:47
|
Revision: 864 http://oorexx.svn.sourceforge.net/oorexx/?rev=864&view=rev Author: miesfeld Date: 2007-10-03 21:44:51 -0700 (Wed, 03 Oct 2007) Log Message: ----------- Fix for [ 1807296 ] ooDialog - CheckList public routine poorly implemented Modified Paths: -------------- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls Modified: interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls =================================================================== --- interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-10-04 04:42:46 UTC (rev 863) +++ interpreter-3.x/trunk/platform/windows/oodialog/oodutils.cls 2007-10-04 04:44:51 UTC (rev 864) @@ -256,14 +256,17 @@ return ret ::routine CheckList public - use arg msg, title, labels, lx, max - if Arg(4,"o") = 1 then lx = 0 - if Arg(5,"o") = 1 then max= 0 + use arg msg, title, labels, checks, lx = 0, max = 0 + if Arg(4,"o") then checks = .array~new num = labels~items do i=1 to num j = i+100 lab.i = labels[i] - dat.j = 0 + if checks~hasIndex(i) then do + if checks[i]~datatype('O') then dat.j = checks[i] + else dat.j = 0 + end + else dat.j = 0 end dlg = .CheckList~new(msg, title, lab., dat., lx, max) if dlg~execute \= 1 then do; drop dlg; return .NIL; end This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |