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


»ùÇà À̺¥Æ® ÇÁ·Î½ÃÀú:ÀÔ·Â ÇʵåÆí



EnterÅ°·Î ƯÁ¤ÀÇ À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ½ÇÇàÇϱ⿡´Â

À̺¥Æ® ÇÁ·Î½ÃÀú¿¡¼­ ƯÁ¤ÀÇ À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ±âµ¿Çϵµ·Ï Çعý½Ã´Ù. ¿©±â¼­´Â EnterÅ°ÀÇ ÀÔ·ÂÀ¸·Î "ÀÔ·ÂÈ®Á¤"À̶ó´Â ¸íĪÀ» °¡Áö´Â À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ±âµ¿ÇÏ´Â ¿¹¸¦ µéÀÔ´Ï´Ù.

(* WSEV_KEY_HOOK Æ®¸®°Å(trigger)·Î WSCvifield  ÀνºÅϽº¿¡ ¼³Á¤ÇÕ´Ï´Ù. *)
let cbop obj =
  (* (A) ÀԷµǿ©ÀÖ´Â Å°¸¦ Ãëµæ. *)
  let key = get_int (_WSGIappKeyboard '() -> getKey ()) in
  (* (B) Å°°¡ EnterÅ°À̸ç´Â    *)
  if (key = get_int _WSK_Return) then
    (* "ÀÔ·ÂÈ®Á¤"À̶õ ¸íĪÀ» °¡Áö´Â À̺¥Æ® ÇÁ·Î½ÃÀú¸¦ ½ÇÇà. *)
    ignore(obj -> execProcedure ("ÀÔ·ÂÈ®Á¤"));
  ()
let _ = Callback.register "cbop" cbop

(A)¿¡¼­ ÀÚÆÇ Àü¿ª ÀνºÅϽº¿¡¼­ Áö±Ý ÀԷµǿ©ÀÖ´Â Å°¸¦ ÃëµæÇÕ´Ï´Ù.

(B)¿¡¼­ EnterÅ°ÀÎÁö¸¦ ÆǺ°Çؼ­,±×·§´õ¶ó¸é (C)¿¡¼­ "ÀÔ·ÂÈ®Á¤"À̶õ EP¸íĪÀ» °¡Áö´Â EP¸¦ ½ÇÇà½Ãŵ´Ï´Ù. ±× ÀÔ·ÂÈ®Á¤ ½ÇÇà À̺¥Æ® ÇÁ·Î½ÃÀú´Â EnterÅ°¿¡À§ÇÑ ÀÔ·ÂÈ®Á¤ µ¿ÀÛÀ» ÇÒ °æ¿ì¿¡ ÀÚÁÖ ÀÌ¿ëµË´Ï´Ù.

Ãʱ⶧ ÀÔ·ÂÀ¸·Î Àü¿¡ ÀԷ¹®ÀÚ¿­À» Ä¡¿ì±â¿¡´Â

»õ·Î ÃÊÁ¡ÀÌ ¸Â¾Æ¼­ ÀÔ·ÂÀ» ½ÃÀÛÇÒ °æ¿ì³ª »õ·Î ¸¶¿ì½º·Î Ŭ¸¯µÇ¿©¼­ ÀÔ·ÂÀ» ½ÃÀÛÇÏ´Â °æ¿ì¿¡ Àü¿¡ ÀÔ·ÂÇÑ ¹®ÀÚ¿­À» Ä¡¿ì´Â À̺¥Æ®ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇغ¾½Ã´Ù. ÁÖ·ÎÀÇ È帧Àº ´ÙÀ½°ú °°½À´Ï´Ù.

(* ÃÊÁ¡ÀÌ ¸Â¾ÆÀÖÀ¸¸é ÀÔ·Â Çʵ带 º¸ÁöÇÒ º¯¼ö *)
let focus_if = C_void

(* WSEV_FOCUS_CH Æ®¸®°Å(trigger)·Î ±âµ¿µÉ ¼­ºêEP *)
let _focus_ch_ obj =
  (* (A) ÃÊÁ¡ÀÌ À̵¿µÇ¿©¼­ ¿Ô´Â°¡¸¦ Á¶»ç *)
  if ( focus_if <> C_void) &&
     ( get_string (focus_if -> getInstanceName()) <> get_string (obj -> getIsntanceName ()) ) &&
     ( get_int (obj -> getFocus ()) == get_int _False ) then begin
    (* (C)»õ·Î ÃÊÁ¡ÀÌ ¸ÂÀº°ÍÀÌ ÀÚ½Å. *)
    let focus_if = obj in
    (* (B)´Ù¸¥ °´Ã¼¿¡¼­ ÃÊÁ¡ÀÌ À̵¿ÇØ¿Â °æ¿ì, *)
    (* Ä¡¿ï ŸÀ̹ÖÀ» ÇÁ·¡±×(flag)¿¡ ¿Ü¾î³õ´Ù  *)
    ignore(obj -> setVariantData ("CLEAR TIMING", 1 ));
  end;
  ()
let _ = Callback.register "_focus_ch_" _focus_ch_

(* WSEV_MOUSE_PRESS Æ®¸®°Å(trigger)·Î ±âµ¿µÇ´Â ¼­ºêEP *)
let _btn_press_ obj =
  (* (E)»õ·Î ÃÊÁ¡ÀÌ ¸ÂÀº°ÍÀÌ ÀÚ½Å.           *)
  let focus_if = obj in
  (* (D) ¸¶¿ì½º·Î Ŭ¸¯µÇ¸ç´Â                 *)
  (* Ä¡¿ï ŸÀ̹ÖÀ» ÇÁ·¡±×(flag)¿¡ ¿Ü¾î³õ´Ù   *)
  obj -> setVariantData("CLEAR TIMING",1);
  obj -> setProperty("cursorPos",0);
  ()
let _ = Callback.register "_btn_press_" _btn_press_

(* WSEV_KEY_PRESS Æ®¸®°Å(trigger)·Î ±âµ¿µÇ´Â ¼­ºêEP *)
let _key_hook_ obj =
  (* (F)  Å° ÀÔ·ÂÇÒ¶§¿¡ Ä¡¿ï ŸÀ̹ÖÀΰ¡¸¦ Á¶»ç              *)
  let fl = get_int (obj -> getVariantData("CLEAR TIMING")) in
  if (fl == 1) then begin
    let key = get_int (_WSGIappKeyboard '() -> getKey()) in
    (* (G)Ä¡¿ï ŸÀַ̹ΠÀ̵¿ Å°¾Æ´Ï¸ç´Â *)
    if (key <> get_int _WSK_Tab &&
        key <> get_int _WSK_Up &&
        key <> get_int _WSK_Down &&
        key <> get_int _WSK_Left &&
        key <> get_int _WSK_Right) then begin
      (* (H)Áö¿ì´Ù *)
      ignore(obj -> setProperty("labelString",""));
      (* (I)Ä¡¿ï ŸÀÌ¹Ö ÇÁ·¡±×(flag)¸¦ Ä¡¿î´Ù. *)
      ignore(obj -> setVariantData("CLEAR TIMING",0));
    end;
  end;
  ()
let _ = Callback.register "_key_hook_" _key_hook_

(* Àü¿¡ ÀÔ·ÂµÈ ¹®ÀÚ¿­À» Ä¡¿ï º»Ã¼                              *)
(* WSEV_INITIALIZE  Æ®¸®°Å(trigger)·Î ÀÔ·Â Çʵ忡 ¼³Á¤ÇÕ´Ï´Ù.  *)
let ifdclr obj =
  (* ÃÊÁ¡ÀÌ ¸ÂÀº °æ¿ì¿¡ ±âµ¿µÇ´Â ¼­ºêEP¸¦ ¼³Á¤        *)
  obj -> addProcedure( "ac1", "_focus_ch_", _WSEV_FOCUS_CH);
  (* ¸¶¿ì½º°¡ Ŭ¸¯µÇ¿´À»¶§ ±âµ¿µÇ´Â ¼­ºêEP¸¦ ¼³Á¤     *)
  obj -> addProcedure( "ac2", "_btn_press_", _WSEV_MOUSE_PRESS);
  (* Å° ÀԷµǿ´À»¶§ ±âµ¿µÇ´Â ¼­ºêEP¸¦ ¼³Á¤           *)
  obj -> addProcedure( "ac3", "_key_hook_", _WSEV_KEY_HOOK);
  ()
let _ = Callback.register "ifdclr" ifdclr

¸ÕÀú ÃÊÁ¡°ü·ÃÀÇ ¼­ºêEP¿¡°üÇÏ¿© ¼³¸íÇÕ´Ï´Ù. ÃÊÁ¡ÀÌ »õ·Î ¸ÂÀº°ÍÀ» ¾Ë±âÀ§ÇØ Àü¿¡ ÃÊÁ¡ÀÌ ¸Â¾Ò´ø °´Ã¼¸¦ Á¤Àû(static)º¯¼ö¿¡ º¸ÁöÇسõ°Ú½À´Ï´Ù.

(A)¿¡¼­´Â ¿ì¼± º¸ÁöÇسõÀº °´Ã¼¿Í ÀÚ½ÅÀÌ ´Ù¸¥ °´Ã¼Àΰ¡¸¦ Á¶»çÇÕ´Ï´Ù. ´Ù¸£¸é »õ·Î ÃÊÁ¡ÀÌ ¸ÂÀº°ÍÀ» ÀǹÌÇؼ­, (B)¿¡¼­ Ä¡¿ï ÇÁ·¡±×(flag)¸¦ ¼¼¿ö³õ½À´Ï´Ù. ±× ´ÙÀ½¿¡ (C)¿¡¼­ ÀÚ½ÅÀ» ±× Á¤Àû(static) º¯¼ö¿¡ º¸ÁöÇÕ´Ï´Ù.

´ÙÀ½¿¡´Â ¸¶¿ì½ºÀÇ Å¬¸¯°ü·Ã¿¡ ¼­ºêEP¿¡°ü¿¡¼­ ¼³¸íÇÕ´Ï´Ù. (D)¿¡¼­ Ä¡¿ï ÇÁ·¡±×¸¦ ¼¼¿ö¼­ ÀÔ·Â Ä«¼³À» ¼±µÎ·Î ¼³Á¤ÇÕ´Ï´Ù. ±×ÈÄ¿¡ (E)¿¡¼­ ÀÚ½ÅÀ» ÃÊÁ¡º¸ÁöÀÇ Á¤Àû(static) º¯¼ö¿¡ º¸ÁöÇÕ´Ï´Ù.

´ÙÀ½¿¡´Â Å° ÀԷ°ü·ÃÀÇ ¼­ºêEP¿¡ ´ëÇؼ­ ¼³¸íÇÕ´Ï´Ù. Å° ÀԷ°ü·ÃÀÇ ¼­ºêEP¿¡¼­´Â Ä¡¿ï ÇÁ·¡±×(flag)¸¦ ¼¼¿ï °æ¿ì, ¹®ÀÚ¿­¸¦ Ä¡¿ö¼­ ±× Ä¡¿ï ÇÁ·¡±×(flag)¸¦ Ä¡¿ó´Ï´Ù. ¿ì¼± (F)¿¡¼­ Ä¡¿ï ÇÁ·¡±×(flag)°¡ ¼¼¿öÀúÀִ°¡¸¦ Á¶»çÇÕ´Ï´Ù. (G)¿¡¼­´Â À̵¿ Å°¸¦ ÀÔ·ÂÇÑ°ÍÀ¸·Î Ä¡¿öÁöÁö¾Êµµ·Ï ±× Å°¸¦ ÆǺ°Çؼ­, (H)·Î Ä¡¿ö¼­ (I)·Î Ä¡¿ï ÇÁ·¡±×(flag)¸¦ Ä¡¿ó´Ï´Ù.

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