From: <mie...@us...> - 2007-06-14 02:08:19
|
Revision: 470 http://svn.sourceforge.net/oorexx/?rev=470&view=rev Author: miesfeld Date: 2007-06-13 19:08:17 -0700 (Wed, 13 Jun 2007) Log Message: ----------- Fix WindowManager~broadcastSettingChanged so that return codes are uniform. A negative return indicates error. Modified Paths: -------------- interpreter-3.x/trunk/rexutils/windows/winsystm.cls Modified: interpreter-3.x/trunk/rexutils/windows/winsystm.cls =================================================================== --- interpreter-3.x/trunk/rexutils/windows/winsystm.cls 2007-06-13 23:34:38 UTC (rev 469) +++ interpreter-3.x/trunk/rexutils/windows/winsystm.cls 2007-06-14 02:08:17 UTC (rev 470) @@ -778,7 +778,11 @@ */ ::method BroadcastSettingChanged use arg milliseconds - if Arg(1, 'O') then return WSCtrlSend("MSG", "0xFFFF", "0x001A", "0x0", "0x0", 'E') + if Arg(1, 'O') then do + ret = WSCtrlSend("MSG", "0xFFFF", "0x001A", "0x0", "0x0", 'E') + if ret > 0 then ret = -ret + return ret + end if \ milliseconds~datatype('W') then milliseconds = 5000 if milliseconds < 1 then milliseconds = 5000 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <mie...@us...> - 2008-06-30 04:52:17
|
Revision: 2620 http://oorexx.svn.sourceforge.net/oorexx/?rev=2620&view=rev Author: miesfeld Date: 2008-06-29 21:52:27 -0700 (Sun, 29 Jun 2008) Log Message: ----------- winsystm.cls - Remove not needed stuff due to new APIs. Modified Paths: -------------- interpreter-3.x/trunk/rexutils/windows/winsystm.cls Modified: interpreter-3.x/trunk/rexutils/windows/winsystm.cls =================================================================== --- interpreter-3.x/trunk/rexutils/windows/winsystm.cls 2008-06-30 04:29:35 UTC (rev 2619) +++ interpreter-3.x/trunk/rexutils/windows/winsystm.cls 2008-06-30 04:52:27 UTC (rev 2620) @@ -37,30 +37,25 @@ /*----------------------------------------------------------------------------*/ +::requires 'rxwinsys' LIBRARY -/* This is the base class for all the other Windows... classes. It handles the ext. function -registration incl. queue counter and deregistration */ - +/* This is the base class for all the other Windows... classes. It handles the + * queue counter. + */ ::class 'WindowsClassesBase' ::method InitCode attribute ::method init self~InitCode = 0 - if RxFuncQuery("InstWinSysFuncs") \= 0 then - if RxFuncAdd("InstWinSysFuncs","RXWINSYS.DLL","InstWinSysFuncs") = 0 then - self~InitCode = InstWinSysFuncs() - else - self~InitCode = 1 - if self~InitCode = 0 then do - /* set the global queue to increase the usage counter */ - queuename = RxQueue('CREATE', "WINSYS_GLOBAL_COUNT") - if queuename \= "WINSYS_GLOBAL_COUNT" then call RxQueue 'DELETE', queuename - oldqueue = RxQueue('SET', "WINSYS_GLOBAL_COUNT") - push time() - call RxQueue 'SET', oldqueue - end + /* set the global queue to increase the usage counter */ + queuename = RxQueue('CREATE', "WINSYS_GLOBAL_COUNT") + if queuename \= "WINSYS_GLOBAL_COUNT" then call RxQueue 'DELETE', queuename + oldqueue = RxQueue('SET', "WINSYS_GLOBAL_COUNT") + push time() + call RxQueue 'SET', oldqueue + return self~InitCode @@ -70,9 +65,8 @@ num = queued() if num \= 0 then pull dummy call RxQueue 'SET', oldqueue - /* if no other program uses functions, deinstall API and delete queue */ + /* if no other program uses functions, delete the queue */ if num = 1 then do - call RemoveWinSysFuncs call RxQueue 'DELETE', "WINSYS_GLOBAL_COUNT" end This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |