Topic Title

I am writing a macro in the original Legacy version of DCAL (from Datacad version 9), something I have not done i n quite a while and hit a small bug.

To generate menus I have used the steps:
lblsinit;
lblset (1, name);
lblmsg (1, 'A message');
lblshow;

When the macro operates, the menu item shows up, but the message will not appear either in the message area at the bottom of the screen or as a hint adjacent to the function key menu. Is there a setting or something that I have neglected?

This may be a typo but I think you should be using lblson not lblshow.

It is a typo. I used lblson;

OK I got back to this problem after a few days and still cannot see why the messages do not appear when the mouse is over a menu button. What am I missing?

Here is an example that fails:

Program test;
VAR
Done : Boolean;
Key : integer;

PROCEDURE doLbls;
BEGIN
lblsinit;
lblset ( 1, 'File');
lblmsg (1, 'Select File');
lblsett (10, 'DoLyrs', true);
lblmsg (10, 'DO something');
lblset (20, 'Exit');
wrtlvl ('TEST');
lblson;
END doLbls;

PROCEDURE doesc;
VAR
Kaput : boolean;
Tempoffset : real;
BEGIN
IF key = s0 THEN
done := true;
END;
END doesc;

BEGIN
Done := false;
Repeat
doLbls;
getesc (key);
doesc;
until done;
END test.

See the attached image.

When I compile the test you sent I am seeing flyouts and the message at the bottom of the screen. Are these what you are referring to? The "Select File" messages?

The only thing I can think of is an interface problem. You mention "the message area" in your original post but these messages are displayed on the "Coordinates / Hints" toolbar. Do you have that one turned on?

As for the flyouts, do you have your tooltips, Display Delay set too far to the right? Try moving it all the way left and see if that helps.

I received your macro and tested it on my machine. No flyouts. There is definitely something squirrelly at my end. It must be a setting, but I can't find it. First time anything's ever gone wrong ......

Thanks

I forwarded the macro and inin file to tech. support.