From c0fc5c186072ab551ee2220165689d6d87564337 Mon Sep 17 00:00:00 2001
From: Marty Kraimer <mrkraimer@comcast.net>
Date: Tue, 29 Sep 1998 15:05:27 +0000
Subject: [PATCH] SHFT was made a prompt field and also modifiable.  The VAL
 field of mbboDirectRecord is now modifiable.

---
 src/rec/mbbiDirectRecord.dbd | 4 ++--
 src/rec/mbbiRecord.dbd       | 2 +-
 src/rec/mbboDirectRecord.dbd | 3 +--
 src/rec/mbboRecord.dbd       | 2 +-
 4 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/rec/mbbiDirectRecord.dbd b/src/rec/mbbiDirectRecord.dbd
index f53ba7557..c1f200f84 100644
--- a/src/rec/mbbiDirectRecord.dbd
+++ b/src/rec/mbbiDirectRecord.dbd
@@ -2,8 +2,8 @@ recordtype(mbbiDirect) {
 	include "dbCommon.dbd" 
 	field(VAL,DBF_USHORT) {
 		prompt("Current Value")
-		asl(ASL0)
 		special(SPC_NOMOD)
+		asl(ASL0)
 		pp(TRUE)
 	}
 	field(NOBT,DBF_SHORT) {
@@ -48,7 +48,7 @@ recordtype(mbbiDirect) {
 	}
 	field(SHFT,DBF_USHORT) {
 		prompt("Shift")
-		special(SPC_NOMOD)
+		promptgroup(GUI_MBB)
 		interest(1)
 	}
 	field(SIOL,DBF_INLINK) {
diff --git a/src/rec/mbbiRecord.dbd b/src/rec/mbbiRecord.dbd
index 64580e2be..1f3db834a 100644
--- a/src/rec/mbbiRecord.dbd
+++ b/src/rec/mbbiRecord.dbd
@@ -413,7 +413,7 @@ recordtype(mbbi) {
 	}
 	field(SHFT,DBF_USHORT) {
 		prompt("Shift")
-		special(SPC_NOMOD)
+		promptgroup(GUI_MBB)
 		interest(1)
 	}
 	field(SIOL,DBF_INLINK) {
diff --git a/src/rec/mbboDirectRecord.dbd b/src/rec/mbboDirectRecord.dbd
index bfce336bb..262118d86 100644
--- a/src/rec/mbboDirectRecord.dbd
+++ b/src/rec/mbboDirectRecord.dbd
@@ -3,7 +3,6 @@ recordtype(mbboDirect) {
 	field(VAL,DBF_USHORT) {
 		prompt("Word")
 		asl(ASL0)
-		special(SPC_NOMOD)
 		pp(TRUE)
 	}
 	field(OMSL,DBF_MENU) {
@@ -178,7 +177,7 @@ recordtype(mbboDirect) {
 	}
 	field(SHFT,DBF_ULONG) {
 		prompt("Shift")
-		special(SPC_NOMOD)
+		promptgroup(GUI_MBB)
 		interest(1)
 	}
 	field(SIOL,DBF_OUTLINK) {
diff --git a/src/rec/mbboRecord.dbd b/src/rec/mbboRecord.dbd
index d8e2535c1..e8e3ab519 100644
--- a/src/rec/mbboRecord.dbd
+++ b/src/rec/mbboRecord.dbd
@@ -433,7 +433,7 @@ recordtype(mbbo) {
 	}
 	field(SHFT,DBF_USHORT) {
 		prompt("Shift")
-		special(SPC_NOMOD)
+		promptgroup(GUI_MBB)
 		interest(1)
 	}
 	field(SIOL,DBF_OUTLINK) {