![]() | Programming Guide | WideStudio Index Table of contents |
ÀÔ·Â Çʵ忡¼ Ű ÀÔ·ÂÀ» ¼±º°Çϱ⿡´Â
ÀÔ·Â Çʵ忡¼ Ű ÀÔ·ÂÀ» ¼±º°Çϱ⿡´Â Ű ÈÅ(hook) Æ®¸®°Å(trigger)·Î À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇÕ´Ï´Ù.# Ű ÈÅÀÇ À̺¥ÅÍ ºê·Î½ÃÀúÀÇ »ùÇà # WSEV_KEY_HOOKÆ®¸®°Å·Î ¼³Á¤ÇÕ´Ï´Ù. use mpfc; sub hookop { my ($object) = @_; # ¾î¶² 󸮸¦ ±â¼úÇØÁÖ¼¼¿ä. $key = mpfc::WSDkeyboard_getKey( mpfc::WSGIappKeyboard() ); if (($key >= $mpfc::WSK_0 && $key <= $mpfc::WSK_9 ) || ($key >= $mpfc::WSK_KP_0 && $key <= $mpfc::WSK_KP_9) || $key == $mpfc::WSK_plus || $key == $mpfc::WSK_minus || $key == $mpfc::WSK_BackSpace || $key == $mpfc::WSK_Delete || $key == $mpfc::WSK_Insert || $key == $mpfc::WSK_space || $key == $mpfc::WSK_Up || $key == $mpfc::WSK_Down || $key == $mpfc::WSK_Left || $key == $mpfc::WSK_Right || $key == $mpfc::WSK_Return ){ # ¼öÀÚ\ Ű´Â Åë°ú return; } # ±× ¿Ö´Â ¹ö¸°´Ù. mpfc::WSDkeyboard_setKey( mpfc::WSGIappKeyboard(), 0); return; } 1;ÀÌ »ùÇÃÀº ¼ýÀÚ ÀԷ¸¸À» ½ÇÇàÇÒ ÀÔ·Â Çʵ带 ½ÇÇöÇÕ´Ï´Ù. ÀÚÆÇ °´Ã¼¿¡ ´ëÇØ¼ getKey() ÇÔ¼ö¿¡ÀÇÇÏ¿© ÇöÀç ÀԷµǿ©Àִ Ű¸¦ ¼±º°Çؼ ÇÊ¿ä¾ø´Â Ű °æ¿ì´Â ' mpfc::WSDkeyboard_setKey(0) ¸¦ ½ÇÇàÇØ¼ ÀԷ Ű Äڵ带 Ä¡¿ö¼ ÀÔ·ÂÀÌ ¾ø¾ú´ø°Íó·³ ÇൿÇÕ´Ï´Ù.
Copyright(C) WideStudio Development Team, 1999-2004 | Last modified: May 25, 2004 |