WideStudio/MWT Programming Guide	WideStudio/MWT Index Table of contents

---

마우스의 단추를 판정하기에는

이벤트 프로시저등에서 눌린 마우스의 단추를 판정할 경우가 있습니다. 다음 예처럼 전역 마우스 인스턴스에서의 정보 취득에의해서 현재 눌리우는 마우스의 단추가 판정할수있습니다.

(*----------------------------------------------------------*)
(*Function for the event procedure                          *)
(*----------------------------------------------------------*)
open Swig
open Mwt
open Mwtlib
let btn_ep obj =
  let status = _WSGIappMouse '() -> getStatus () in begin            (* A *)
    if ((get_int status) land (get_int _WS_MOUSE_BTN1)) <> 0 then    (* B *)
      print_string(" 왼쪽 마우스 단추가 눌린 경우의 처리 ");
    if ((get_int status) land (get_int _WS_MOUSE_BTN2)) <> 0 then    (* C *)
      print_string(" 가운데 마우스 단추가 눌린 경우의 처리 ");
    if ((get_int status) land (get_int _WS_MOUSE_BTN3)) <> 0 then    (* D *)
      print_string(" 오른쪽 마우스 단추가 눌린 경우의 처리 ");
    print_newline();
  end;
  ()
let _ = Callback.register "btn_ep" btn_ep

A 에서 에서 마우스의 눌린상태를 취득합니다. B,C,D 에서 각각 알려는 단추의 판정을 합니다. == (비교)가 아니라 & (앤드)로 판정하는것은 복수의 단추가 동시에 눌리우는 경우가 있기때문입니다.