Revert removed Write event code.

This commit is contained in:
Infineon\Mitchem
2025-08-25 12:58:16 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 63d9fe7964
commit d6894f2fa4
2 changed files with 35 additions and 1 deletions

View File

@ -376,6 +376,33 @@
"<1,18,13,13>": "",
"<1,18,13,14>": "",
"<1,18,13,15>": "STPROC"
},
"<1,18,14>": {
"<1,18,14,1>": "X",
"<1,18,14,2>": "EXECUTE",
"<1,18,14,3>": "OBJ_CALL_EVENT",
"<1,18,14,4>": {
"<1,18,14,4,1>": "@SELF",
"<1,18,14,4,2>": "@EVENT",
"<1,18,14,4,3>": "@PARAM1",
"<1,18,14,4,4>": "@PARAM2",
"<1,18,14,4,5>": "@PARAM3",
"<1,18,14,4,6>": "@PARAM4",
"<1,18,14,4,7>": "@PARAM5",
"<1,18,14,4,8>": "@PARAM6"
},
"<1,18,14,5>": "",
"<1,18,14,6>": "",
"<1,18,14,7>": "",
"<1,18,14,8>": "",
"<1,18,14,9>": "",
"<1,18,14,10>": "",
"<1,18,14,11>": "",
"<1,18,14,12>": "",
"<1,18,14,13>": "",
"<1,18,14,14>": "",
"<1,18,14,15>": "STPROC",
"<1,18,14,16>": "0"
}
},
"<1,19>": {
@ -391,7 +418,8 @@
"<1,19,10>": "QBFLOADLIST",
"<1,19,11>": "QBFNEXT",
"<1,19,12>": "QBFPREV",
"<1,19,13>": "QBFRUN"
"<1,19,13>": "QBFRUN",
"<1,19,14>": "WRITE"
},
"<1,20>": "",
"<1,21>": "",

View File

@ -150,10 +150,16 @@ GOSUB Refresh
RETURN
* * * * * * *
Write:
* * * * * * *
Parent = Get_Property(@WINDOW,'PARENT')
IF Parent = 'REACTOR_LOG' OR Parent = 'REACT_STATE' THEN
Post_Event(@WINDOW,'CLOSE')
END
RETURN