Commit 826e86b3 authored by Stewart Brodie's avatar Stewart Brodie

* Added show-at-pointer and show-centred capability.

* Module version now maintained by srccommit.

Version 0.14. Tagged as 'Scale-0_14'
parent da3334fd
......@@ -98,7 +98,7 @@ RESF=o.res
# Rule patterns
#
.c.o:; ${CC} ${CFLAGS} ${ROMFLAGS} -o $@ $<
.cmhg.o:; ${CMHG} -o $@ $<
.cmhg.o:; ${CMHG} -p -o $@ $<
#
# Main rules:
......
/* (0.13)
/* (0.14)
*
* This file is automatically maintained by srccommit, do not edit manually.
*
*/
#define Module_MajorVersion_CMHG 0.13
#define Module_MajorVersion_CMHG 0.14
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 29 Jul 1998
#define Module_Date_CMHG 30 Jul 1998
#define Module_MajorVersion "0.13"
#define Module_Version 13
#define Module_MajorVersion "0.14"
#define Module_Version 14
#define Module_MinorVersion ""
#define Module_Date "29 Jul 1998"
#define Module_Date "30 Jul 1998"
......@@ -167,7 +167,7 @@ _kernel_oserror *show_actual (void) {
return e;
}
show_info = global_next->show_info;
show_type = (show_info) ? ((global_next->flags & ScaleInternal_FullInfoShow) ? 1 : 2) : 0;
show_type = global_next->show_type;
regs.r[4] = regs.r[0]; /* parent id */
regs.r[5] = regs.r[1]; /* parent component */
......
......@@ -113,6 +113,7 @@ extern _kernel_oserror *show_object (_kernel_swi_regs *r, TaskDescriptor *t)
internal->show_info = NULL;
break;
}
internal->show_type = user_regs->r[2];
/*
if (global_menu) {
......
......@@ -28,7 +28,7 @@ service-call-handler: Scale_services 0x44ec1, 0x44ec2, 0x44ec3
title-string: Scale
help-string: Scale 0.13
help-string: Scale Module_MajorVersion_CMHG Module_MinorVersion_CMHG
command-keyword-table: Scale_commands
Scale_Memory()
......@@ -39,4 +39,4 @@ swi-handler-code: Scale_SWI_handler
swi-decoding-table: Scale, ClassSWI, PostFilter, PreFilter
date-string: 17 Feb 1998
date-string: Module_Date_CMHG
......@@ -19,6 +19,7 @@
; 8-Feb-95: IDJ: version 0.11
;
#include "VersionNum"
initialisation-code: Scale_init
......@@ -28,7 +29,7 @@ service-call-handler: Scale_services 0x44ec1, 0x44ec2, 0x44ec3
title-string: Scale
help-string: Scale 0.13
help-string: Scale Module_MajorVersion_CMHG Module_MinorVersion_CMHG
swi-chunk-base-number: 0x82c00
......@@ -36,4 +37,4 @@ swi-handler-code: Scale_SWI_handler
swi-decoding-table: Scale, ClassSWI, PostFilter, PreFilter
date-string: 17 Feb 1998
date-string: Module_Date_CMHG
......@@ -41,6 +41,7 @@ typedef struct _scale_internal {
struct _scale_internal *forward;
struct _scale_internal *backward;
int flags;
int show_type;
ShowInfo *show_info;
ObjectID object_id, sub_object_id;
int std_value[4];
......
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