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

---

샘플 이벤트 프로시저:입력 필드편

---

Enter키로 특정의 이벤트 프로시저를 실행하기에는

이벤트 프로시저에서 특정의 이벤트 프로시저를 기동하도록 해법시다. 여기서는 Enter키의 입력으로 "입력확정"이라는 명칭을 가지는 이벤트 프로시저를 기동하는 예를 들입니다.

use mwt;
# WSEV_KEY_HOOK트리거(trigger)로 WSCvifield  인스턴스에 설정합니다.
sub cbop {
  my ($object) = @_;
  # (A) 입력되여있는 키를 취득.
  $key = mwt::WSGIappKeyboard()->getKey();


  # (B)  키가 Enter키이며는
  if ($key == $mwt::WSK_Return){
    # "입력확정"이란 명칭을 가지는 이벤트 프로시저를 실행.
    $object->execProcedure("입력확정");
  }
  return;
}
1;

(A)에서 자판 전역 인스턴스에서 지금 입력되여있는 키를 취득합니다.

(B)에서 Enter키인지를 판별해서,그랫더라면 (C)에서 "입력확정"이란 EP명칭을 가지는 EP를 실행시킵니다. 그 입력확정 실행 이벤트 프로시저는 Enter키에위한 입력확정 동작을 할 경우에 자주 이용됩니다.

---

초기때 입력으로 전에 입력문자열을 치우기에는

새로 초점이 맞아서 입력을 시작할 경우나 새로 마우스로 클릭되여서 입력을 시작하는 경우에 전에 입력한 문자열을 치우는 이벤트프로시저를 작성해봅시다. 주로의 흐름은 다음과 같습니다.

• (1) 초점이 새로 맞은 경우, 치울 프래그(flag)를 세운다.
  
  
• (2) 마우스가 클릭된 경우, 치울 프래그(flag)를 세운다.
  
  
• (3) 키 입력된 경우, 치울 프래그(flag)가 세워져있으면 치운다.
  
  
• (1),(2),(3)의 서브 이벤트 프로시저를 붙여놓고 초기화한다.

use mwt;
# 초점이 맞아있던 입력 필드를 보지할 변수
$focus_if = 0;

# WSEV_FOCUS_CH 트리거(trigger)로 기동될 서브EP
sub _focus_ch_ {
  my ($object) = @_;
  # (A) 초점이 이동되여서 왔는가를 조사
  if ($focus_if != 0 &&
      $focus_if->getInstanceName() != $object->getInstanceName() &&
      $object->getFocus() != &mwt::False ){

    #(B)다른 객체에서 초점이 이동해온 경우,
    #치울 타이밍을 프래그(flag)에 외어놓다
    $object->setVariantData("CLEAR TIMING",1);
    #(C)새로 초점이 맞은것이 자신.
    $focus_if = $object;
  }
  return;
}

#WSEV_MOUSE_PRESS 트리거(trigger)로 기동되는 서브EP
sub _btn_press_ {
  my ($object) = @_;
  # (D) 마우스로 클릭되며는
  # 치울 타이밍을 프래그(flag)에 왜어놓다
  $object->setVariantData("CLEAR TIMING",1);
  $object->setProperty("cursorPos",0);
  # (E) 새로 초점이 맞은것이 자신.
  $focus_if = $object;
  return;
}

# WSEV_KEY_PRESS 트리거(trigger)로 기동되는 서브EP
sub _key_hook_ {
  my ($object) = @_;
  # (F) 키 입력할때에 치울 타이밍인가를 조사
  $fl = $object->getVariantData("CLEAR TIMING");
  if ($fl->getLong() == 1){
    $key = mwt::WSGIappKeyboard()->getKey();
    # (G) 치울 타이밍로 이동 키아니며는
    if ($key != $mwt::WSK_Tab &&
        $key != $mwt::WSK_Up &&
        $key != $mwt::WSK_Down &&
        $key != $mwt::WSK_Left &&
        $key != $mwt::WSK_Right ){
      # (H) 취소.
      $object->setProperty("labelString","");
    }else{
      return;
    }
  }
  # (I) 치울 타이밍 프래그(flag)를 치운다.
  $object->setVariantData("CLEAR TIMING",0);
  return;
}
# 전에 입력된 문자열을 치울 본체
# WSEV_INITIALIZE 트리거(trigger)로 입력 필드에 설정합니다.
sub ifdclr {
  my ($object) = @_;
  # 초점이 맞은 경우에 기동되는 서브EP를 설정
  $object->addProcedure("ac1","_focus_ch_",$mwt::WSEV_FOCUS_CH);

  # 마우스가 클릭되였을때 기동되는 서브EP를 설정
  $object->addProcedure("ac2","_btn_press_",$mwt::WSEV_MOUSE_PRESS);

  # 키 입력되였을때 기동되는 서브EP를 설정
  $object->addProcedure("ac3","_key_hook_",$mwt::WSEV_KEY_HOOK);
}
1;

먼저 초점관련의 서브EP에관하여 설명합니다. 초점이 새로 맞은것을 알기위해 전에 초점이 맞았던 객체를 정적(static)변수에 보지해놓겠습니다.

(A)에서는 우선 보지해놓은 객체와 자신이 다른 객체인가를 조사합니다. 다르면 새로 초점이 맞은것을 의미해서, (B)에서 치울 프래그(flag)를 세워놓습니다. 그 다음에 (C)에서 자신을 그 정적(static) 변수에 보지합니다.

다음에는 마우스의 클릭관련에 서브EP에관에서 설명합니다. (D)에서 치울 프래그를 세워서 입력 카설을 선두로 설정합니다. 그후에 (E)에서 자신을 초점보지의 정적(static) 변수에 보지합니다.

다음에는 키 입력관련의 서브EP에 대해서 설명합니다. 키 입력관련의 서브EP에서는 치울 프래그(flag)를 세울 경우, 문자열를 치워서 그 치울 프래그(flag)를 치웁니다. 우선 (F)에서 치울 프래그(flag)가 세워저있는가를 조사합니다. (G)에서는 이동 키를 입력한것으로 치워지지않도록 그 키를 판별해서, (H)로 치워서 (I)로 치울 프래그(flag)를 치웁니다.