From 19929a9bf3dcf209105962a4eec029f3b61cfb6e Mon Sep 17 00:00:00 2001 From: Markus Mittendrein Date: Thu, 18 May 2017 11:47:56 +0200 Subject: Avoid strange behaviour if calling the ControlDigDouble override multiple times (caused sometimes of including CLNK) --- System.c4g/DTSelectionContext.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'System.c4g') diff --git a/System.c4g/DTSelectionContext.c b/System.c4g/DTSelectionContext.c index 3584efa..1f4ebf0 100644 --- a/System.c4g/DTSelectionContext.c +++ b/System.c4g/DTSelectionContext.c @@ -379,9 +379,13 @@ func RemoveLineEntry(id id, int pos) return true; } -func ControlDigDouble(target, overloaded) +func ControlDigDouble() { - var ret = _inherited(target, true, ...); + static DT_SelectionContext_ControlDigDouble_overloaded; + var overloaded = DT_SelectionContext_ControlDigDouble_overloaded; + DT_SelectionContext_ControlDigDouble_overloaded = true; + var ret = _inherited(...); + DT_SelectionContext_ControlDigDouble_overloaded = overloaded; if(!ret && !overloaded) { if(GetProcedure() == "WALK" || GetProcedure() == "DIG" || GetProcedure() == "SWIM") -- cgit v1.2.3-54-g00ecf