fixed clean_insp form write event behavior to match OI 9
This commit is contained in:
parent
9c5c01ce24
commit
4704ef828f
@ -716,17 +716,17 @@ RETURN
|
|||||||
* * * * * * *
|
* * * * * * *
|
||||||
Write:
|
Write:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
DontClose = Get_Property(@WINDOW,'@DONT_CLOSE')
|
DontClose = Get_Property(@WINDOW,'@DONT_CLOSE')
|
||||||
|
|
||||||
IF NOT(DontClose) THEN
|
IF NOT(DontClose) THEN
|
||||||
|
Forward_Event()
|
||||||
Post_Event(@WINDOW,'CLOSE')
|
Post_Event(@WINDOW,'CLOSE')
|
||||||
END ELSE
|
END ELSE
|
||||||
Set_Property(@WINDOW,'@DONT_CLOSE',0)
|
Set_Property(@WINDOW,'@DONT_CLOSE',0)
|
||||||
|
Result = 1
|
||||||
END
|
END
|
||||||
|
|
||||||
Result = 1
|
|
||||||
|
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
||||||
@ -1961,10 +1961,3 @@ RETURN
|
|||||||
SetGroupBackground:
|
SetGroupBackground:
|
||||||
* * * * * * *
|
* * * * * * *
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user