WideStudio/MWT Logo
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 ¿¡¼­ °¢°¢ ¾Ë·Á´Â ´ÜÃßÀÇ ÆÇÁ¤À» ÇÕ´Ï´Ù. == (ºñ±³)°¡ ¾Æ´Ï¶ó & (¾Øµå)·Î ÆÇÁ¤Çϴ°ÍÀº º¹¼öÀÇ ´ÜÃß°¡ µ¿½Ã¿¡ ´­¸®¿ì´Â °æ¿ì°¡ Àֱ⶧¹®ÀÔ´Ï´Ù.

Document Release 3.90 for WideStudio/MWT ver 3.90, Jul 2005


WideStudio/MWT documents index | Table of contents

Copyright(C) WideStudio/MWT Development Team, 1999-2005 Last modified: Jul 31, 2005