Commit 1625d4ef authored by claes's avatar claes

Privilege RtEvents added

parent ad747329
...@@ -78,6 +78,7 @@ procedure ...@@ -78,6 +78,7 @@ procedure
adminuser_create_system_noedit(integer); adminuser_create_system_noedit(integer);
adminuser_create_rtread(integer); adminuser_create_rtread(integer);
adminuser_create_rtwrite(integer); adminuser_create_rtwrite(integer);
adminuser_create_rtevents(integer);
adminuser_create_system(integer); adminuser_create_system(integer);
adminuser_create_maintenance(integer); adminuser_create_maintenance(integer);
adminuser_create_process(integer); adminuser_create_process(integer);
...@@ -1095,6 +1096,7 @@ object adminuser_dia : XmFormDialog { ...@@ -1095,6 +1096,7 @@ object adminuser_dia : XmFormDialog {
XmText systemvalue; XmText systemvalue;
XmToggleButton priv_rtread; XmToggleButton priv_rtread;
XmToggleButton priv_rtwrite; XmToggleButton priv_rtwrite;
XmToggleButton priv_rtevents;
XmToggleButton priv_system; XmToggleButton priv_system;
XmToggleButton priv_maintenance; XmToggleButton priv_maintenance;
XmToggleButton priv_process; XmToggleButton priv_process;
...@@ -1285,10 +1287,22 @@ object priv_rtwrite : XmToggleButton { ...@@ -1285,10 +1287,22 @@ object priv_rtwrite : XmToggleButton {
}; };
}; };
object priv_system : XmToggleButton { object priv_rtevents : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 160; XmNy = 160;
XmNlabelString = "RtEvents";
XmNfontList = menu_font;
};
callbacks {
MrmNcreateCallback = procedure adminuser_create_rtevents(admin_ctx);
};
};
object priv_system : XmToggleButton {
arguments {
XmNx = 170;
XmNy = 180;
XmNlabelString = "System"; XmNlabelString = "System";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1300,7 +1314,7 @@ object priv_system : XmToggleButton { ...@@ -1300,7 +1314,7 @@ object priv_system : XmToggleButton {
object priv_maintenance : XmToggleButton { object priv_maintenance : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 180; XmNy = 200;
XmNlabelString = "Maintenance"; XmNlabelString = "Maintenance";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1312,7 +1326,7 @@ object priv_maintenance : XmToggleButton { ...@@ -1312,7 +1326,7 @@ object priv_maintenance : XmToggleButton {
object priv_process : XmToggleButton { object priv_process : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 200; XmNy = 220;
XmNlabelString = "Process"; XmNlabelString = "Process";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1324,7 +1338,7 @@ object priv_process : XmToggleButton { ...@@ -1324,7 +1338,7 @@ object priv_process : XmToggleButton {
object priv_instrument : XmToggleButton { object priv_instrument : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 220; XmNy = 240;
XmNlabelString = "Instrument"; XmNlabelString = "Instrument";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1336,7 +1350,7 @@ object priv_instrument : XmToggleButton { ...@@ -1336,7 +1350,7 @@ object priv_instrument : XmToggleButton {
object priv_operator1 : XmToggleButton { object priv_operator1 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 240; XmNy = 260;
XmNlabelString = "Operator1"; XmNlabelString = "Operator1";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1348,7 +1362,7 @@ object priv_operator1 : XmToggleButton { ...@@ -1348,7 +1362,7 @@ object priv_operator1 : XmToggleButton {
object priv_operator2 : XmToggleButton { object priv_operator2 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 260; XmNy = 280;
XmNlabelString = "Operator2"; XmNlabelString = "Operator2";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1360,7 +1374,7 @@ object priv_operator2 : XmToggleButton { ...@@ -1360,7 +1374,7 @@ object priv_operator2 : XmToggleButton {
object priv_operator3 : XmToggleButton { object priv_operator3 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 280; XmNy = 300;
XmNlabelString = "Operator3"; XmNlabelString = "Operator3";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1372,7 +1386,7 @@ object priv_operator3 : XmToggleButton { ...@@ -1372,7 +1386,7 @@ object priv_operator3 : XmToggleButton {
object priv_operator4 : XmToggleButton { object priv_operator4 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 300; XmNy = 320;
XmNlabelString = "Operator4"; XmNlabelString = "Operator4";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1384,7 +1398,7 @@ object priv_operator4 : XmToggleButton { ...@@ -1384,7 +1398,7 @@ object priv_operator4 : XmToggleButton {
object priv_operator5 : XmToggleButton { object priv_operator5 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 320; XmNy = 340;
XmNlabelString = "Operator5"; XmNlabelString = "Operator5";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1396,7 +1410,7 @@ object priv_operator5 : XmToggleButton { ...@@ -1396,7 +1410,7 @@ object priv_operator5 : XmToggleButton {
object priv_operator6 : XmToggleButton { object priv_operator6 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 340; XmNy = 360;
XmNlabelString = "Operator6"; XmNlabelString = "Operator6";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1408,7 +1422,7 @@ object priv_operator6 : XmToggleButton { ...@@ -1408,7 +1422,7 @@ object priv_operator6 : XmToggleButton {
object priv_operator7 : XmToggleButton { object priv_operator7 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 360; XmNy = 380;
XmNlabelString = "Operator7"; XmNlabelString = "Operator7";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1420,7 +1434,7 @@ object priv_operator7 : XmToggleButton { ...@@ -1420,7 +1434,7 @@ object priv_operator7 : XmToggleButton {
object priv_operator8 : XmToggleButton { object priv_operator8 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 380; XmNy = 400;
XmNlabelString = "Operator8"; XmNlabelString = "Operator8";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1432,7 +1446,7 @@ object priv_operator8 : XmToggleButton { ...@@ -1432,7 +1446,7 @@ object priv_operator8 : XmToggleButton {
object priv_operator9 : XmToggleButton { object priv_operator9 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 400; XmNy = 420;
XmNlabelString = "Operator9"; XmNlabelString = "Operator9";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1444,7 +1458,7 @@ object priv_operator9 : XmToggleButton { ...@@ -1444,7 +1458,7 @@ object priv_operator9 : XmToggleButton {
object priv_operator10 : XmToggleButton { object priv_operator10 : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 420; XmNy = 440;
XmNlabelString = "Operator10"; XmNlabelString = "Operator10";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1456,7 +1470,7 @@ object priv_operator10 : XmToggleButton { ...@@ -1456,7 +1470,7 @@ object priv_operator10 : XmToggleButton {
object priv_devread : XmToggleButton { object priv_devread : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 440; XmNy = 460;
XmNlabelString = "DevRead"; XmNlabelString = "DevRead";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1468,7 +1482,7 @@ object priv_devread : XmToggleButton { ...@@ -1468,7 +1482,7 @@ object priv_devread : XmToggleButton {
object priv_devplc : XmToggleButton { object priv_devplc : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 460; XmNy = 480;
XmNlabelString = "DevPlc"; XmNlabelString = "DevPlc";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1480,7 +1494,7 @@ object priv_devplc : XmToggleButton { ...@@ -1480,7 +1494,7 @@ object priv_devplc : XmToggleButton {
object priv_devconfig : XmToggleButton { object priv_devconfig : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 480; XmNy = 500;
XmNlabelString = "DevConfig"; XmNlabelString = "DevConfig";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -1492,7 +1506,7 @@ object priv_devconfig : XmToggleButton { ...@@ -1492,7 +1506,7 @@ object priv_devconfig : XmToggleButton {
object priv_devclass : XmToggleButton { object priv_devclass : XmToggleButton {
arguments { arguments {
XmNx = 170; XmNx = 170;
XmNy = 500; XmNy = 520;
XmNlabelString = "DevClass"; XmNlabelString = "DevClass";
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment