Re: GWindows

[Andre <avsaway@hotmail.com>]

Yes, we are still using it in a few applications.

But you are right, besides Stephen I don't see much activity on GWindows 
repository. The last sign of life from David over 6 months ago.

Now on your actual question (yes sometimes a trigger works):

To get the BN_SETFOCUS or BN_KILLFOCUS, the button needs to have the 
BS_NOTIFY style. I added a On_Pre_Create handler to set this style.

I added the changed code:

with GWindows,
      GWindows.Base,
      GWindows.Windows,
      GWindows.Windows.Main,
      GWindows.Buttons,
      GWindows.Edit_Boxes;

use  GWindows,
      GWindows.Base,
      GWindows.Windows,
      GWindows.Windows.Main,
      GWindows.Buttons,
      GWindows.Edit_Boxes;


with Interfaces.C;

with GWindows.Application;

procedure TestKB is
   pragma Linker_Options ("-mwindows");

   Main_Window : Main_Window_Type;

   Exit_Button : Button_Type;

   TestButton : Button_Type;

   Edit_Box : Edit_Box_Type;

   --  Event handlers ---------

   --  Exit_Button_Click
   procedure Exit_Button_Click (
     Window : in out GWindows.Base.Base_Window_Type'Class
   )
   is
     pragma Warnings (Off, Window);

   begin
     GWindows.Application.End_Application;
   end Exit_Button_Click;


   --  TestButton_Focus
   procedure TestButton_Focus (
     Window : in out GWindows.Base.Base_Window_Type'Class
   )
   is
     pragma Warnings (Off, Window);

   begin
     Text (Edit_Box, "Focus");

   end TestButton_Focus;


   --  TestButton_Lost_Focus
   procedure TestButton_Lost_Focus (
     Window : in out GWindows.Base.Base_Window_Type'Class
   )
   is
     pragma Warnings (Off, Window);

   begin
     Text (Edit_Box, "Lost focus");

   end TestButton_Lost_Focus;

    procedure TestButton_Pre_Create
      (Window    : in out GWindows.Base.Base_Window_Type'Class;
       dwStyle   : in out Interfaces.C.unsigned;
       dwExStyle : in out Interfaces.C.unsigned)
    is
       pragma Warnings (Off, Window);
       pragma Warnings (Off, dwExStyle);
       use type Interfaces.C.unsigned;

       BS_NOTIFY : constant := 16#4000#;
    begin
       dwStyle := dwStyle or BS_NOTIFY;
    end TestButton_Pre_Create;


begin
   Create (
     Main_Window,
     "Test Button",
     Width => 400,
     Height => 300
   );

   Keyboard_Support (Main_Window, True);

   Create (
     Exit_Button,
     Main_Window,
     Text   => "E&xit",
     Left   => 300,
     Top    => 225,
     Width  => 75,
     Height => 34
   );

   On_Click_Handler (Exit_Button, Exit_Button_Click'Unrestricted_Access);

   On_Pre_Create_Handler (TestButton,
    TestButton_Pre_Create'Unrestricted_Access);
   Create (
     TestButton,
     Main_Window,
     Text   => "&Test",
     Left   => 30,
     Top    => 30,
     Width  => 125,
     Height => 25
   );

   On_Focus_Handler (TestButton, TestButton_Focus'Unrestricted_Access);
   On_Lost_Focus_Handler (TestButton,
    TestButton_Lost_Focus'Unrestricted_Access);

   Create (
     Edit_Box,
     Main_Window,
     Text   => "",
     Left   => 30,
     Top    => 70,
     Width  => 125,
     Height => 25
   );


   Visible (Main_Window, True);
   Focus (TestButton);

   GWindows.Application.Message_Loop;
end TestKB;

Andr�

Fionn Mac Cumhaill wrote:
> Is anybody besides me using GWindows to  create Windows applications?
> My last requests for assistance from the members of the GWindows
> mailing list produced no responses