![]() | 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_epA ¿¡¼ ¿¡¼ ¸¶¿ì½ºÀÇ ´¸°»óŸ¦ ÃëµæÇÕ´Ï´Ù. B,C,D ¿¡¼ °¢°¢ ¾Ë·Á´Â ´ÜÃßÀÇ ÆÇÁ¤À» ÇÕ´Ï´Ù. == (ºñ±³)°¡ ¾Æ´Ï¶ó & (¾Øµå)·Î ÆÇÁ¤Çϴ°ÍÀº º¹¼öÀÇ ´ÜÃß°¡ µ¿½Ã¿¡ ´¸®¿ì´Â °æ¿ì°¡ Àֱ⶧¹®ÀÔ´Ï´Ù.
Copyright(C) WideStudio/MWT Development Team, 1999-2005 | Last modified: Jul 31, 2005 |