with os2 ; use os2 ;  
with os2.jba; use os2.jba;  
with os2.pmwd; use os2.pmwd ;
with os2.pmwb; use os2.pmwb ;
with os2.pmsc; use os2.pmsc ;
with System.Address_To_Access_Conversions;
with System.Storage_Elements;
package body BUTTONDP is 
package To_PSWP is new  System.Address_To_Access_Conversions(SWP);
package To_PWIN is new  System.Address_To_Access_Conversions(WINDOW);
mp_1 :System.Storage_Elements.Integer_Address ; 
mp_2 :System.Storage_Elements.Integer_Address ; 
mp1l:Long ; 
mp2l:Long ; 
m_Result : Ulong := 0;
p_Swp    : PSWP ; 
pWin     : PWINDOW ; 
-- h_ps     : HPS     ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsWndProc                               Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
function  DLG_ButtonsWndProc (h_wnd:HWND;msg:ULONG;mp1:PMPARAM;mp2:PMPARAM)return PMENTRY is
begin null;
mp_1:= System.Storage_Elements.To_Integer(mp1) ; 
mp_2:= System.Storage_Elements.To_Integer(mp2) ; 
mp1l:= Long(SHORT1FROMMP(mp1)); 
mp2l:= Long(SHORT2FROMMP(mp1)); 
    if  msg = WM_GUIGETWINDOW then
        pWin := PWINDOW(To_PWIN.To_Pointer(mp2));  -- address WINDOW
        pWin.all :=  wDLG_Buttons; 
        return 0 ;
    end if ; 
     -- Check if window fully loaded    
     if    wDLG_Buttons.h_wnd   = 0 then 
         return  GuiDefFrameProc (WinDefDlgProc'address , h_wnd, msg, mp1, mp2) ; 
     end if;
     case msg is 
 -- Property processing * 
         when  WM_GUIGETPROPERTY => Null ; 
         when  WM_GUISETPROPERTY => Null ; 
               -- break
 -- Window resized/repositioned * 
         when  WM_WINDOWPOSCHANGED => Null ; 
         p_Swp := PSWP(To_PSWP.To_Pointer(mp1));  -- address SWP struct in mp1
         if  (p_Swp.fl and SWP_SIZE)  > 0 then
             GuiBroadcastMsg (h_wnd, WM_GUIPARENTRESIZED,
             System.Null_Address,System.Null_Address ); 
         end if ; 
               -- break
 -- User command processing * 
         when  WM_COMMAND => Null ; 
              case mp1l is 
                  when  IDD_PSH_USER => Null ; 
                       DLG_ButtonsPSH_UserClick  ; 
                        -- break
                  when  IDD_PSH_TEXT => Null ; 
                       DLG_ButtonsPSH_TextClick  ; 
                        -- break
                  when  IDD_PSH_ICON => Null ; 
                       DLG_ButtonsPSH_IconClick  ; 
                        -- break
                  when  IDD_PSH_BITMAP => Null ; 
                       DLG_ButtonsPSH_BitmapClick  ; 
                        -- break
                  when others => Null;
                        -- break
              end case ;
              return  m_Result ; 
 -- Control notifications * 
         when  WM_CONTROL => Null ; 
--            if   !GuiEventLoop (mp1)  -- WARNING some problems in used not need
                   -- break
              case mp1l is 
                  when  IDD_RAD_1 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsRAD_1Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsRAD_1DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_RAD_2 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsRAD_2Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsRAD_2DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_RAD_3 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsRAD_3Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsRAD_3DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_RAD_4 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsRAD_4Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsRAD_4DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_RAD_5 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsRAD_5Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsRAD_5DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_CHK_1 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsCHK_1Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsCHK_1DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_CHK_3STATE2 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsCHK_3State2Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsCHK_3State2DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_CHK_3STATE1 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsCHK_3State1Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsCHK_3State1DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
                  when  IDD_CHK_2 => Null ; 
                       case mp2l is 
                           when  BN_CLICKED => Null ; 
                                DLG_ButtonsCHK_2Click  ; 
                                 -- break
                           when  BN_DBLCLICKED => Null ; 
                                DLG_ButtonsCHK_2DblClick  ; 
                                 -- break
                       when others => Null;end case ;
                        -- break
              when others => Null;end case ;
--            GuiEventLoop (0); -- WARNING some problems in used not need
              return  m_Result ; 
         when others => Null;
               -- break
     end case ;
     return  GuiDefFrameProc (WinDefDlgProc'address , h_wnd, msg, mp1, mp2) ; 
End DLG_ButtonsWndProc ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_1Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_1Click   is
begin null;
     ShowEvent ("Radio 1 Clicked"); 
End DLG_ButtonsRAD_1Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_2Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_2Click   is
begin null;
     ShowEvent ("Radio 2 Clicked"); 
End DLG_ButtonsRAD_2Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_3Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_3Click   is
begin null;
     ShowEvent ("Radio 3 Clicked"); 
End DLG_ButtonsRAD_3Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_4Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_4Click   is
begin null;
     ShowEvent ("Radio 4 Clicked"); 
End DLG_ButtonsRAD_4Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_5Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_5Click   is
begin null;
     ShowEvent ("Radio 5 Clicked"); 
End DLG_ButtonsRAD_5Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_5DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_5DblClick   is
begin null;
     ShowEvent ("Radio 5 Double-Clicked"); 
End DLG_ButtonsRAD_5DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_4DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_4DblClick   is
begin null;
     ShowEvent ("Radio 4 Double-Clicked"); 
End DLG_ButtonsRAD_4DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_3DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_3DblClick   is
begin null;
     ShowEvent ("Radio 3 Double-Clicked"); 
End DLG_ButtonsRAD_3DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_2DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_2DblClick   is
begin null;
     ShowEvent ("Radio 2 Double-Clicked"); 
End DLG_ButtonsRAD_2DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsRAD_1DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsRAD_1DblClick   is
begin null;
     ShowEvent ("Radio 1 Double-Clicked"); 
End DLG_ButtonsRAD_1DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_1Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_1Click   is
begin null;
     ShowEvent ("Checkbox 1 Clicked"); 
End DLG_ButtonsCHK_1Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_2Click                            Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_2Click   is
begin null;
     ShowEvent ("Checkbox 2 Clicked"); 
End DLG_ButtonsCHK_2Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_3State1Click                      Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_3State1Click   is
begin null;
     ShowEvent ("3-State Checkbox 1 Clicked"); 
End DLG_ButtonsCHK_3State1Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_3State2Click                      Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_3State2Click   is
begin null;
     ShowEvent ("3-State Checkbox 2 Clicked"); 
End DLG_ButtonsCHK_3State2Click ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_1DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_1DblClick   is
begin null;
     ShowEvent ("Checkbox 1 Double-Clicked"); 
End DLG_ButtonsCHK_1DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_2DblClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_2DblClick   is
begin null;
     ShowEvent ("Checkbox 2 Double-Clicked"); 
End DLG_ButtonsCHK_2DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_3State1DblClick                   Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_3State1DblClick   is
begin null;
     ShowEvent ("3-State Checkbox 1 Double-Clicked"); 
End DLG_ButtonsCHK_3State1DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsCHK_3State2DblClick                   Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsCHK_3State2DblClick   is
begin null;
     ShowEvent ("3-State Checkbox 2 Double-Clicked"); 
End DLG_ButtonsCHK_3State2DblClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsPSH_UserClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsPSH_UserClick   is
begin null;
     ShowEvent ("User Button Clicked"); 
End DLG_ButtonsPSH_UserClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsPSH_IconClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsPSH_IconClick   is
begin null;
     ShowEvent ("Icon PushButton Clicked"); 
End DLG_ButtonsPSH_IconClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsPSH_TextClick                         Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsPSH_TextClick   is
begin null;
     ShowEvent ("Text PushButton Clicked"); 
End DLG_ButtonsPSH_TextClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     DLG_ButtonsPSH_BitmapClick                       Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure DLG_ButtonsPSH_BitmapClick   is
begin null;
     ShowEvent ("Bitmap PushButton Clicked"); 
End DLG_ButtonsPSH_BitmapClick ;
-- ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ» 
-- Ί     ShowEvent                                        Ί 
-- Ί                                                      Ί 
-- ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ 
procedure ShowEvent (event:String) is
GuiTmp1 : aliased WINDOW ;
begin     
     GuiSetControl (wDLG_Buttons'unchecked_access, 
                  GuiTmp1'unchecked_access, IDD_LST_EVENTS, WT_LISTBOX);
     if GuiInsertItem (GuiTmp1'unchecked_access, -1,
             integer'image(i) & ": " & event) > 0 then Null; end if;
     GuiSetControl (wDLG_Buttons'unchecked_access, 
     GuiTmp1'unchecked_access, IDD_LST_EVENTS, WT_LISTBOX); 
     GuiSetShort (GuiTmp1'unchecked_access, WPID_LISTBOXTOP, short(i));
     i :=   i + 1 ;
End ShowEvent ;
End BUTTONDP ;
