DRAWMENU function.

[Giancarlo]

Hello,
i was just trying to write some code around the MOUSE and DRAWMENU commands but i have an errore i don't find. it seems my code is not able to cope with the menu area.

the code is based on Les and Cirille codes. Why I am not able to detect the menu X position in order to understand which menu was pushed/clicked?

Code:


 EXPORT Prova_mn()
 BEGIN
  while 1 do
   RECT();
   DRAWMENU("uno","due","tre","quatro","cinco","SEI");
   local l:=WAIT(-1), m; // wait for a user input
   IF TYPE(l)=6 and l(1)=#0 THEN // verify that we have a list corresponding to a mouse down...
    local mx:=B→R(l(2)), my:=B→R(l(3)); // x and y for the click zone
    if my>220 then // in the menu zone
     CASE
      IF   0 <= mx <=  51 THEN m:= 1;  END;
      IF  53 <= mx <= 104 THEN m:= 2; END;
      IF 106 <= mx <= 157 THEN m:= 3; END;
      IF 159 <= mx <= 210 THEN m:= 4; END;
      IF 212 <= mx <= 263 THEN m:= 5; END;
      IF 265 <= mx <= 319 THEN m:= 6; END;
      DEFAULT m:=-2; // if it's right in between menu options
     END; // end_of_case
    END;  // end_of_if_my>220
    RETURN m;
   END;
 // end_of_if_type
  END; 
// end_of_while
 END;  // end_of everything

Thanks

Giancarlo