WideStudio Logo
WideStudio
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) ¸¦ ½ÇÇàÇØ¼­ ÀԷ Ű Äڵ带 Ä¡¿ö¼­ ÀÔ·ÂÀÌ ¾ø¾ú´ø°Íó·³ ÇൿÇÕ´Ï´Ù.

Document Release 3.70 for WideStudio ver 3.70, Feb 2004


WideStudio documents index | Table of contents

Copyright(C) T. Hirabayashi, 2000-2004 Last modified: Feb 25, 2004