* Now supports show-at-pointer and show-centred showtypes.

* Version number now maintained by srccommit.

Version 0.15. Tagged as 'ProgInfo-0_15'

Makefile

@@ -52,6 +52,7 @@ CPFLAGS = ~cfr~v
 WFLAGS  = ~c~v
 
 CFLAGS   = -c -depend !Depend ${INCLUDES} -zM -ffah -zps1 ${DFLAGS}
+CMHGFLAGS= -depend !Depend -p
 DFLAGS   = -D${SYSTEM}
 ROMFLAGS = -DROM
 INCLUDES = -I<Lib$Dir>.tboxlibint.,<Lib$Dir>.tboxlibs:,C:
@@ -101,7 +102,7 @@ RESF=o.res
 # Rule patterns
 #
 .c.o:;    ${CC} ${CFLAGS} ${ROMFLAGS} -o $@ $<
-.cmhg.o:; ${CMHG} -o $@ $<
+.cmhg.o:; ${CMHG} ${CMHGFLAGS} -o $@ $<
 
 #
 # Main rules:

VersionNum

-/* (0.14)
+/* (0.15)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG     	0.14
+#define Module_MajorVersion_CMHG     	0.15
 #define Module_MinorVersion_CMHG	
 #define Module_Date_CMHG      		14 Jul 1998
 
-#define Module_MajorVersion     	"0.14"
-#define Module_Version                  14
+#define Module_MajorVersion     	"0.15"
+#define Module_Version                  15
 #define Module_MinorVersion		""
 #define Module_Date      		"14 Jul 1998"
 

c/auxiliary

@@ -110,7 +110,7 @@ _kernel_oserror *show_actual (void) {
       return e;
    }
    show_info = global_next->show_info;
-   show_type = (show_info) ? ((global_next->flags & ProgInfoInternal_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 */

c/show

@@ -114,6 +114,8 @@ extern _kernel_oserror *show_object (_kernel_swi_regs *r, TaskDescriptor *t)
          break;
    }
 
+   internal->show_type = user_regs->r[2];
+
    if (internal->flags & ProgInfoInternal_GenerateShowEvent) {
 
       regs.r[0]                    =  0;                     /* flags*/

cmhg/Modhdr

@@ -18,6 +18,7 @@
 ; History: 7-Feb-94: TGR: created from IDJ template
 ;
 
+#include "VersionNum"
 
 initialisation-code:            ProgInfo_init
 
@@ -27,7 +28,7 @@ service-call-handler:           ProgInfo_services 0x44ec1, 0x44ec2, 0x44ec3
 
 title-string:                   ProgInfo
 
-help-string:                    ProgInfo 0.14
+help-string:                    ProgInfo Module_MajorVersion_CMHG
 
 command-keyword-table:          ProgInfo_commands
                                 ProgInfo_Memory()
@@ -38,4 +39,4 @@ swi-handler-code:               ProgInfo_SWI_handler
 
 swi-decoding-table:             ProgInfo, ClassSWI, PostFilter, PreFilter
 
-date-string:			17 Feb 1998
+date-string:			Module_Date_CMHG

cmhg/Modhdr_NoD

@@ -18,6 +18,7 @@
 ; History: 7-Feb-94: TGR: created from IDJ template
 ;
 
+#include "VersionNum"
 
 initialisation-code:            ProgInfo_init
 
@@ -27,7 +28,7 @@ service-call-handler:           ProgInfo_services 0x44ec1, 0x44ec2, 0x44ec3
 
 title-string:                   ProgInfo
 
-help-string:                    ProgInfo 0.14
+help-string:                    ProgInfo Module_MajorVersion_CMHG
 
 swi-chunk-base-number:          0x82b40
 
@@ -35,4 +36,4 @@ swi-handler-code:               ProgInfo_SWI_handler
 
 swi-decoding-table:             ProgInfo, ClassSWI, PostFilter, PreFilter
 
-date-string:			17 Feb 1998
+date-string:			Module_Date_CMHG

h/object

@@ -40,6 +40,7 @@ typedef struct _prog_info_internal {
    struct _prog_info_internal  *forward;
    struct _prog_info_internal  *backward;
    int                          flags;
+   int                          show_type;
    ShowInfo                    *show_info;
    ObjectID                     object_id,sub_object_id;
    int                          licence_type;