Commit 7f784e88 authored by Neil Turton's avatar Neil Turton
Browse files

Version Spin_merge taken

parent ed047dcd
FFFFFFFF
228BDE9
228ABC9
2290E59
228B4F9
228C389
22D2459
228BF09
228AF29
2290D39
228B2B9
2285539
22D33E9
2290AF9
228C029
2290C19
22D2699
22909D9
228AAA9
228C149
22D4549
228B3D9
22D27B9
22D2579
No preview for this file type
No preview for this file type
......@@ -12,8 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
|> !Run
WimpSlot 64k 64k
Run <Obey$Dir>.Spy
No preview for this file type
......@@ -12,8 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
| > !Run file for !MenuTree
WimpSlot -min 640k -max 640k
Run <Obey$Dir>.!RunImage
No preview for this file type
No preview for this file type
......@@ -12,8 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
| > !Run file for !MenuTree
WimpSlot -min 640k -max 640k
Run <Obey$Dir>.!RunImage
No preview for this file type
No preview for this file type
......@@ -12,8 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
| > !Run file for !MenuTree
WimpSlot -min 640k -max 640k
Run <Obey$Dir>.!RunImage
No preview for this file type
No preview for this file type
......@@ -12,4 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
Set Monitor$Dir <Obey$Dir>
\ No newline at end of file
......@@ -12,6 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
Set Monitor$Dir <Obey$Dir>
Wimpslot -min 64K -max 64K
Run <Obey$Dir>.!RunImage
No preview for this file type
No preview for this file type
......@@ -12,99 +12,3 @@
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* Monitor messages comming in */
#include <string.h>
#include "wimp.h"
#include "wimpt.h"
#include "event.h"
#include "win.h"
#include "template.h"
#include "dbox.h"
#include "alarm.h"
#include "res.h"
#include "akbd.h"
#include "kernel.h"
#include "swis.h"
int start_time =0;
int messages =0;
int my_task;
BOOL unknown_event(wimp_eventstr *e, void *handle)
{
dbox d = (dbox) handle;
int av=alarm_timedifference(start_time,alarm_timenow());
static int ov=0;
if (ov==0) ov=av-101;
if ( (e->e==wimp_ENULL) && akbd_pollsh() ) /* Shift pressed on a null event */
{
_kernel_swi_regs r;
r.r[0]=my_task;
wimpt_noerror( (os_error *) _kernel_swi(XOS_Bit | 0x816c1 ,&r,&r); /* Get character at pointer */
}
if (e->e==wimp_ESEND)
{
if (e->data.msg.action == 0x816c0)
{
werr(0,"Character found %c (%i)",e->data.msg.data.words[0],e->data.msg.data.words[0]);
wimp_processkey(e->data.msg.data.words[0]);
}
char strbuf [100];
sprintf(strbuf,"%x",e->data.msg.hdr.action);
dbox_setfield(d,3,strbuf);
dbox_setnumeric(d,5,++messages);
}
if (av-ov >= 100)
{
ov=av;
if (av >= 6000) av = messages / (av / 6000);
else av=messages;
dbox_setnumeric(d,1,av);
}
return TRUE;
}
int main()
{
dbox d;
/* Start a wimp task */
wimpt_wimpversion(275);
my_task=wimpt_init("Monitor");
res_init("Monitor");
template_init();
dbox_init();
alarm_init();
start_time=alarm_timenow();
d=dbox_new("Monitor");
dbox_showstatic(d);
win_add_unknown_event_processor(unknown_event,d) ;
event_setmask(0);
while (1)
{
event_process();
if (wimpt_last_event()->e==wimp_ECLOSE) exit(0);
}
return 0;
}
......@@ -12,8 +12,3 @@
| See the License for the specific language governing permissions and
| limitations under the License.
|
| > !Run file for !MenuTree
WimpSlot -min 640k -max 640k
Run <Obey$Dir>.!RunImage
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment