From 09c91e29d83e98481e993728fc1be67204cd1209 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 18 Jun 2006 21:35:31 +0000 Subject: [PATCH] lock fields in DialogueI --- examples/dialogue/DialogueI.gf | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/dialogue/DialogueI.gf b/examples/dialogue/DialogueI.gf index dea67bc2f..7dc30a74a 100644 --- a/examples/dialogue/DialogueI.gf +++ b/examples/dialogue/DialogueI.gf @@ -14,8 +14,8 @@ incomplete concrete DialogueI of Dialogue = open Multi, Prelude in { Oper2 = V3 ; lin - IRequest a = {s = a.s ! ARequest ; point = a.point} ; - IConfirm a = {s = a.s ! AConfirm ; point = a.point} ; + IRequest a = {s = a.s ! ARequest ; point = a.point ; lock_Utt = <>} ; + IConfirm a = {s = a.s ! AConfirm ; point = a.point ; lock_Utt = <>} ; IAnswer a = a ; IIssue a = a ; @@ -23,7 +23,7 @@ incomplete concrete DialogueI of Dialogue = open Multi, Prelude in { INo = no_Phr ** noPoint ; IObject _ ob = UttNP ob ; - PAction a = {s = a.s ! AConfirm ; point = a.point} ; + PAction a = {s = a.s ! AConfirm ; point = a.point ; lock_Utt = <>} ; QKind k = UttQS (UseQCl TPres ASimul PPos