Alarm blocking implemented in xtt

xtt/mmi/xtt/en_us/inc_xtt.uil

@@ -39,6 +39,7 @@ c_About_Proview   	: compound_string("About Proview");
 
 c_Alarmlist		: compound_string("Alarmlist");
 c_Eventlist		: compound_string("Eventlist");
+c_Blocklist		: compound_string("Blocklist");
 c_Eventlog		: compound_string("Eventlog");
 c_Histlist		: compound_string("Historical Eventlist");
 c_Navigator		: compound_string("Navigator");
@@ -50,6 +51,15 @@ c_Display_object_in_navigator : compound_string("Display object in navigator");
 c_Ok			: compound_string("Ok");
 c_Cancel		: compound_string("Cancel");
 
+! module xtt_block
+c_Apply			: compound_string("Apply");
+c_Aalarm		: compound_string("A Alarm");
+c_Balarm		: compound_string("B Alarm");
+c_Calarm		: compound_string("C Alarm");
+c_Dalarm		: compound_string("D Alarm");
+c_NoBlock		: compound_string("No Blocking");
+c_BlockRemove		: compound_string("Remove Blocking");
+
 ! module xtt_eve.uil
 
 c_Acknowledge		: compound_string("Acknowledge");

xtt/mmi/xtt/src/xtt_block.uil

+!  xtt_block.uil -- block window
+!
+!  PROVIEW/R
+!  Copyright (C) 1996 by Comator Process AB.
+!
+!  This module defines the widget hierarchy for the block window.
+!
+module xtt_block
+        version = 'v1.0'
+        names = case_sensitive
+        objects = {
+                XmSeparator = gadget ;
+                }
+
+include file 'inc_xtt.uil';
+
+identifier
+	blk_ctx;
+procedure
+	blk_activate_cancel(integer);
+	blk_activate_apply(integer);
+	blk_activate_ok(integer);
+	blk_create_apply(integer);
+	blk_create_ok(integer);
+	blk_create_toggleA(integer);
+	blk_create_toggleB(integer);
+	blk_create_toggleC(integer);
+	blk_create_toggleD(integer);
+	blk_create_toggleNo(integer);
+
+value
+    pbWidth: 72;
+    pbTopOffset: 8;
+    menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
+
+
+
+object blk_window : XmMainWindow {
+  arguments {
+  };
+  controls {
+    XmForm adb;
+  };
+};
+
+
+object adb: XmForm {
+  arguments {
+    XmNcancelButton = XmPushButton cancelPb;
+  };
+  controls {
+    XmRadioBox radioBox;
+    XmFrame pushButFrame;
+  };
+};
+
+radioBox: XmRadioBox {
+  arguments {
+    XmNwidth = 150;
+    XmNborderWidth = 0;
+    XmNisHomogeneous = false;
+    XmNleftAttachment = XmATTACH_FORM;
+    XmNtopAttachment = XmATTACH_FORM;
+    XmNbottomAttachment = XmATTACH_FORM;
+    XmNleftOffset = 15;
+    XmNbottomOffset = 50;
+    XmNtopOffset = 0;
+  };
+  controls {
+    XmToggleButton  {
+      arguments {
+	XmNx = 14;
+	XmNy = 13;
+	XmNlabelString = compound_string(c_Aalarm);
+        XmNfontList = menu_font;
+      };
+      callbacks {
+	MrmNcreateCallback = procedure blk_create_toggleA(blk_ctx) ;
+      };
+    };
+    XmToggleButton {
+      arguments {
+	XmNx = 23;
+	XmNy = 26;
+	XmNlabelString = compound_string(c_Balarm);
+        XmNfontList = menu_font;
+      };
+      callbacks {
+	MrmNcreateCallback = procedure blk_create_toggleB(blk_ctx) ;
+      };
+    };
+    XmToggleButton {
+      arguments {
+	XmNx = 46;
+	XmNy = 64;
+	XmNlabelString = compound_string(c_Calarm);
+        XmNfontList = menu_font;
+      };
+      callbacks {
+	MrmNcreateCallback = procedure blk_create_toggleC(blk_ctx) ;
+      };
+    };
+    XmToggleButton {
+      arguments {
+	XmNx = 27;
+	XmNy = 96;
+	XmNlabelString = compound_string(c_Dalarm);
+        XmNfontList = menu_font;
+      };
+      callbacks {
+	MrmNcreateCallback = procedure blk_create_toggleD(blk_ctx) ;
+      };
+    };
+    XmToggleButton {
+      arguments {
+	XmNx = 43;
+	XmNy = 132;
+	XmNlabelString = compound_string(c_NoBlock);
+        XmNfontList = menu_font;
+      };
+      callbacks {
+	MrmNcreateCallback = procedure blk_create_toggleNo(blk_ctx) ;
+      };
+    };
+  };
+};
+
+pushButFrame: XmFrame {
+  arguments {
+    XmNheight = 50;
+    XmNleftAttachment = XmATTACH_FORM;
+    XmNtopOffset = 20;
+    XmNtopWidget = XmRadioBox radioBox;
+    XmNrightAttachment = XmATTACH_FORM;
+    XmNbottomAttachment = XmATTACH_FORM;
+    XmNshadowType = XmSHADOW_ETCHED_IN;
+    XmNshadowThickness = 2;
+    XmNmarginHeight = 3;
+    XmNmarginWidth = 3;
+  };
+  controls {
+    XmForm {
+      arguments {
+      };
+      controls {
+	XmPushButton okPb;
+	XmPushButton savePb;
+	XmPushButton cancelPb;
+      };
+    };
+  };
+};
+
+okPb: XmPushButton {
+  arguments {
+    XmNlabelString = c_Ok;
+    XmNleftAttachment = XmATTACH_FORM;
+    XmNtopAttachment = XmATTACH_FORM;
+    XmNleftOffset = 10;
+    XmNtopOffset = pbTopOffset;
+    XmNwidth = pbWidth;
+    XmNfontList	= menu_font;
+  };
+  callbacks {
+    XmNactivateCallback = procedure blk_activate_ok(blk_ctx) ;
+    MrmNcreateCallback = procedure blk_create_ok(blk_ctx) ;
+  };
+};
+
+savePb: XmPushButton {
+  arguments {
+    XmNlabelString = c_Apply;
+    XmNleftAttachment = XmATTACH_POSITION;
+    XmNtopAttachment = XmATTACH_FORM;
+    XmNtopOffset = pbTopOffset;
+    XmNwidth = pbWidth;
+    XmNleftPosition = 42;
+    XmNfontList	= menu_font;
+  };
+  callbacks {
+    XmNactivateCallback = procedure blk_activate_apply(blk_ctx) ;
+    MrmNcreateCallback = procedure blk_create_apply(blk_ctx) ;
+  };
+};
+cancelPb: XmPushButton {
+  arguments {
+    XmNlabelString = c_Cancel;
+    XmNleftAttachment = XmATTACH_NONE;
+    XmNtopAttachment = XmATTACH_FORM;
+    XmNleftOffset = 190;
+    XmNtopOffset = pbTopOffset;
+    XmNwidth = pbWidth;
+    XmNx = 190;
+    XmNrightAttachment = XmATTACH_FORM;
+    XmNrightOffset = 10;
+    XmNfontList	= menu_font;
+  };
+  callbacks {
+    XmNactivateCallback = procedure blk_activate_cancel(blk_ctx) ;
+  };
+};
+
+
+end module;
+
+
+
+
+

xtt/mmi/xtt/src/xtt_eve.uil

@@ -43,6 +43,15 @@ procedure
 	ev_ala_activate_help(integer);
 	ev_ala_activate_helpevent(integer);
 	ev_ala_create_form(integer);
+	ev_blk_activate_exit(integer);
+	ev_blk_activate_zoom_in(integer);
+	ev_blk_activate_zoom_out(integer);
+	ev_blk_activate_zoom_reset(integer);
+	ev_blk_activate_block_remove(integer);
+	ev_blk_activate_open_plc(integer);
+	ev_blk_activate_display_in_xnav(integer);
+	ev_blk_activate_help(integer);
+	ev_blk_create_form(integer);
 
 value
 	menu_font : font ('-*-Helvetica-Bold-R-Normal--12-*-*-*-P-*-ISO8859-1');
@@ -305,7 +314,7 @@ object eve_help_entry : XmCascadeButton
         {
           arguments
           {
-            XmNlabelString = c_Eventlist;
+            XmNlabelString = c_Help;
             XmNfontList	   = menu_font;
           };
           callbacks
@@ -600,7 +609,7 @@ object ala_help_entry : XmCascadeButton
         {
           arguments
           {
-            XmNlabelString = c_Alarmlist;
+            XmNlabelString = c_Help;
             XmNfontList	   = menu_font;
           };
           callbacks
@@ -643,4 +652,249 @@ object ala_pane : XmPanedWindow
    };
 };
 
+object  blk_window : XmMainWindow
+{
+  arguments
+  {
+    XmNx = 0;
+    XmNy = 0;
+  };
+  controls
+  {
+     XmMenuBar	blk_menu;
+     XmForm     blk_form;
+  };
+};
+
+
+object blk_form : XmForm
+{
+  arguments
+  {
+     XmNwidth = 200;
+     XmNheight = 200;
+     XmNresizePolicy = XmRESIZE_NONE;
+  };
+  controls
+  {
+     XmPanedWindow blk_pane;
+  };
+};
+
+object blk_menu : XmMenuBar
+{
+  arguments
+  {
+    XmNorientation 	= XmHORIZONTAL;
+    XmNspacing  	= 15;
+    XmNmenuHelpWidget 	= XmCascadeButton blk_help_entry; 
+  };
+  controls
+  {
+    XmCascadeButton blk_file_entry;
+    XmCascadeButton blk_functions_entry;
+    XmCascadeButton blk_view_entry;
+    XmCascadeButton blk_help_entry;
+  };
+};
+
+object blk_file_entry : XmCascadeButton      
+{
+  arguments
+  {
+    XmNlabelString  = c_File;
+    XmNfontList	    = menu_font;
+  };
+  controls
+  {
+    XmPulldownMenu
+    {
+      controls
+      {
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_Close;
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_exit(ev_ctx);
+          };
+	};
+      };
+    };
+  };
+};
+
+object blk_functions_entry : XmCascadeButton      
+{
+  arguments
+  {
+    XmNlabelString  = c_Functions;
+    XmNfontList	    = menu_font;
+  };
+  controls
+  {
+    XmPulldownMenu
+    {
+      controls
+      {
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_BlockRemove;
+            XmNmnemonic = keysym('B');
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_block_remove(ev_ctx);
+          };
+	};
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_Open_Plc;
+            XmNmnemonic = keysym('l');
+	    XmNaccelerator = "Ctrl<Key>L";
+	    XmNacceleratorText = compound_string('Ctrl+L');
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_open_plc(ev_ctx);
+          };
+	};
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_Display_object_in_navigator;
+            XmNmnemonic = keysym('D');
+	    XmNaccelerator = "Ctrl<Key>D";
+	    XmNacceleratorText = compound_string('Ctrl+D');
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_display_in_xnav(ev_ctx);
+          };
+	};
+      };
+    };
+  };
+};
+
+object blk_view_entry : XmCascadeButton      
+{
+  arguments
+  {
+    XmNlabelString = c_View;
+    XmNfontList	   = menu_font;
+  };
+  controls
+  {
+    XmPulldownMenu
+    {
+      controls
+      {
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_Zoom_in;
+            XmNmnemonic = keysym('I');
+	    XmNaccelerator = "Ctrl<Key>I";
+	    XmNacceleratorText = compound_string('Ctrl+I');
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_zoom_in(ev_ctx);
+          };
+	};
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_Zoom_out;
+            XmNmnemonic = keysym('O');
+	    XmNaccelerator = "Ctrl<Key>O";
+	    XmNacceleratorText = compound_string('Ctrl+O');
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_zoom_out(ev_ctx);
+          };
+	};
+        XmPushButton
+        {
+          arguments
+          {
+  	    XmNlabelString = c_Zoom_reset;
+            XmNfontList	   = menu_font;
+	  };
+	  callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_zoom_reset(ev_ctx);
+          };
+	};
+      };
+    };
+  };
+};
+
+object blk_help_entry : XmCascadeButton      
+{
+  arguments
+  {
+      XmNlabelString = c_Help;
+      XmNfontList    = menu_font;
+  };
+  controls
+  {
+    XmPulldownMenu
+    {
+      controls
+      {
+        XmPushButton
+        {
+          arguments
+          {
+            XmNlabelString = c_Help;
+            XmNfontList	   = menu_font;
+          };
+          callbacks
+          {
+            XmNactivateCallback = procedure ev_blk_activate_help(ev_ctx);
+          };
+        };
+      }; !Controls
+    }; !Pulldown_menu
+  }; !Controls
+}; ! help_entry
+
+object blk_pane : XmPanedWindow
+{
+   arguments
+   {
+     XmNleftAttachment 		= XmATTACH_FORM;
+     XmNrightAttachment 	= XmATTACH_FORM;
+     XmNbottomAttachment    	= XmATTACH_FORM;
+     XmNtopAttachment    	= XmATTACH_FORM;
+   };
+   controls
+   {
+   };
+   callbacks
+   {
+     MrmNcreateCallback = procedure ev_blk_create_form( ev_ctx);
+   };
+};
+
 end module;

xtt/mmi/xtt/sv_se/inc_xtt.uil

@@ -39,6 +39,7 @@ c_About_Proview   	: compound_string("Om Proview");
 
 c_Alarmlist		: compound_string("Larmlista");
 c_Eventlist		: compound_string("Hndelselista");
+c_Blocklist		: compound_string("Blockeringslista");
 c_Eventlog		: compound_string("Hndelselogg");
 c_Histlist		: compound_string("Historisk Hndelselista");
 c_Navigator		: compound_string("Navigatr");
@@ -50,6 +51,15 @@ c_Display_object_in_navigator : compound_string("Visa objekt i navigat
 c_Ok			: compound_string("Ok");
 c_Cancel		: compound_string("Avbryt");
 
+! module xtt_block
+c_Apply			: compound_string("Spara");
+c_Aalarm		: compound_string("A-Larm");
+c_Balarm		: compound_string("B-Larm");
+c_Calarm		: compound_string("C-Larm");
+c_Dalarm		: compound_string("D-Larm");
+c_NoBlock		: compound_string("Ingen Blockering");
+c_BlockRemove		: compound_string("Ta bort blockering");
+
 ! module xtt_eve.uil
 
 c_Acknowledge		: compound_string("Kvittera");