Re : Troubles with MessageBeep | Beep...

Re : Troubles with MessageBeep | Beep...

[SEV, AV Guest 2]

As they say... RTFM... 

Beep & MessageBeep are functions....
The following code is really annoying but it works...

------------------------------------------------------------------------
--
with Win32, Win32.WinUser, Win32.WinDef, gbObjects, Win32.WinBase;
use type Win32.Int, Win32.Bool, Win32.WinDef.hWnd;
use gbObjects, Win32.WinBase;

package Window1 is
  Form            : gbMainWindow;
  Button1         : gbButton;
  procedure Initialize_Form;
end Window1;


package body Window1 is
  procedure Button1_Click is 
    b : Win32.bool;  
  begin
    b:=Beep(5000,5000);
  end Button1_Click;

  procedure Initialize_Form is
  begin
    Button1.Click := Button1_Click'Access;
    Text(Button1, "Button1");
    SetFont(Button1, "MS Sans Serif", 8, gbFalse, gbFalse, gbFalse);
    Move(Button1, 44, 39, 137, 47);

    Text(Form, "Window1");
    SetFont(Form, "MS Sans Serif", 8, gbFalse, gbFalse, gbFalse);
    Move(Form, 3, 126, 229, 152);
    Visible(Form, gbTrue);
  end Initialize_Form;
begin
  Initialize_Form;
end Window1;


with gbObjects;
with Window1;

procedure Main is begin
  gbObjects.gbStartApplication;
end Main;
------------------------------------------------------------------------
-----

Sorry if I waste your time with this....

Thnx anyway, Bart.

Re: Troubles with MessageBeep | Beep...

[Dale Stanbrough]

SEV, AV Guest 2" <avguest2@barco.com> wrote:

"   procedure Button1_Click is 
      b : Win32.bool;  
    begin
      b:=Beep(5000,5000);
    end Button1_Click;"
  

Why does it return a boolean?

On a related note, when I am calling a lot of Unix functions, and
don't want to check the return value, I sometimes do the following...

   declare
      Result : Natural;
   begin
      Result := F1 (...);
      Result := F2 (...);
   exception
      when constraint_error => <function failed>
   end;

...so would

   subtype Ok is Boolean range true..true;

   Ok := Beep (...);

compile without the constraint check being optimised away (
would that be a legal optimisation)?

Dale