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


ÀÔ·Â Çʵ忡¼­ Å° ÀÔ·ÂÀ» ¼±º°Çϱ⿡´Â

ÀÔ·Â Çʵ忡¼­ Å° ÀÔ·ÂÀ» ¼±º°Çϱ⿡´Â Å° ÈÅ(hook) Æ®¸®°Å(trigger)·Î À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇÕ´Ï´Ù.

# Å° ÈÅÀÇ À̺¥ÅÍ ºê·Î½ÃÀúÀÇ »ùÇÃ
# WSEV_KEY_HOOKÆ®¸®°Å·Î ¼³Á¤ÇÕ´Ï´Ù.
use mwt;

sub hookop {
  my ($object) = @_;
  # ¾î¶² 󸮸¦ ±â¼úÇØÁÖ¼¼¿ä.
  $key = mwt::WSDkeyboard_getKey( mwt::WSGIappKeyboard() );
  if  (($key >= $mwt::WSK_0    && $key <= $mwt::WSK_9   ) ||
       ($key >= $mwt::WSK_KP_0 && $key <= $mwt::WSK_KP_9) ||
        $key == $mwt::WSK_plus      || $key == $mwt::WSK_minus  ||
        $key == $mwt::WSK_BackSpace || $key == $mwt::WSK_Delete ||
        $key == $mwt::WSK_Insert    || $key == $mwt::WSK_space  ||
        $key == $mwt::WSK_Up        || $key == $mwt::WSK_Down   ||
        $key == $mwt::WSK_Left      || $key == $mwt::WSK_Right  ||
        $key == $mwt::WSK_Return ){
    # ¼öÀÚ\ Å°´Â Åë°ú
    return;
  }
  # ±× ¿Ö´Â ¹ö¸°´Ù.
  mwt::WSDkeyboard_setKey( mwt::WSGIappKeyboard(), 0);
  return;
}
1;

ÀÌ »ùÇÃÀº ¼ýÀÚ ÀԷ¸¸À» ½ÇÇàÇÒ ÀÔ·Â Çʵ带 ½ÇÇöÇÕ´Ï´Ù. ÀÚÆÇ °´Ã¼¿¡ ´ëÇؼ­ getKey() ÇÔ¼ö¿¡ÀÇÇÏ¿© ÇöÀç ÀԷµǿ©ÀÖ´Â Å°¸¦ ¼±º°Çؼ­ ÇÊ¿ä¾ø´Â Å° °æ¿ì´Â ' mwt::WSDkeyboard_setKey(0) ¸¦ ½ÇÇàÇؼ­ ÀÔ·Â Å° Äڵ带 Ä¡¿ö¼­ ÀÔ·ÂÀÌ ¾ø¾ú´ø°Íó·³ ÇൿÇÕ´Ï´Ù.

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