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


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

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

(* Å° ÈÅ(hook)ÀÇ À̺¥Æ® ÇÁ·Î½ÃÀúÀÇ »ùÇà          *)
(* WSEV_KEY_HOOK Æ®¸®°Å(trigger)·Î ¼³Á¤ÇÕ´Ï´Ù.   *)
...

let hookop obj =
  (* ¾î¶² 󸮸¦ ¾²½Ê½Ã¿À *)
  let key = get_int (_WSGIappKeyboard '() -> getKey () ) in
  if (((key >= get_int _WSK_0) && ( key < get_int _WSK_9)) ||
     ((key >= get_int _WSK_KP_0) && ( key < get_int _WSK_KP_9)) ||
     (key = get_int _WSK_plus)  || (key = get_int _WSK_minus) ||
     (key = get_int _WSK_BackSpace) || (key = get_int _WSK_Delete) || (key = get_int _WSK_Insert) ||
     (key = get_int _WSK_space) || (key = get_int _WSK_Up) || (key = get_int _WSK_Down) ||
     (key = get_int _WSK_Left) || (key = get_int _WSK_Right) || (key = get_int _WSK_Return) ) then begin
    (* ¼ýÀÚ Å°´Â 󸮸¦ Åë°úÇÑ´Ù *)
  end else begin
    (* ±×¿Ü´Â ¹ö¸°´Ù *)
    ignore(_WSGIappKeyboard '() -> setKey (0));
  end
  ()

let _ = Callback.register "hookop" hookop

ÀÌ »ùÇÃÀº ¼ýÀÚ ÀԷ¸¸À» ½ÇÇàÇÒ ÀÔ·Â Çʵ带 ½ÇÇöÇÕ´Ï´Ù. ÀÚÆÇ °´Ã¼¿¡ ´ëÇؼ­ getKey() ÇÔ¼ö¿¡ÀÇÇÏ¿© ÇöÀç ÀԷµǿ©ÀÖ´Â Å°¸¦ ¼±º°ÇÏ¿© ÇÊ¿ä¾ø´Â Å°ÀÎ °æ¿ì _WSGIappKeyboard '()->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