WideStudio Programming Guide

| WideStudio Programming Guide | WideStudio Index Table of contents

> ## 샘플 이벤트 프로시저:라벨편

> ### 마우스로 선택가능한 라벨로 하기에는

> 이벤트 프로시저에 있어서 가장 기본적인 마우스의 동작에 반응하는 이벤트 프로시저의 샘플입니다. 라벨위에서 마우스가 클릭될때마다 숫자가 올라가게되는 이벤트 프로시저를 작성해봅시다.

>     # WSEV_MOUSE_PRESS(MOUSE-PRESS)트리거로 라벨에 설정합니다.
>     use mpfc;

>     sub cbop {
>       my ($object) = @_;
>       #(0)마우스단추1외는 되돌아감
>       if ((mpfc::WSGIappMouse()->getMouseStatus() & $mpfc::WS_MOUSE_BTN1) == 0){
>         return;
>       }
>       # (A)userValue 속성에 기억되여있는 수자를 취득
>       $value = $object->getProperty("userValue");
>       # (B) 그 수자를 세어 올림
>       $val = $value->getLong() + 1;
>       # (C) 그 수자의 표시
>       $object->setProperty("labelString",$val);
>       # (D) userValue 속성에 세어 올린 수자를 기억한다.
>       $object->setProperty("userValue",$val);
>       return;
>     }
>     1;

> 이 이벤트 프로시저는 WSCvbtn,WSCvlabel 등의 labelString 속성을가지는 객체에 MOUSE-PRESS 트리거(trigger)로 설정합니다. 객체위에서 마우스가 클릭될때마다 이 함수는 기동됩니다. 이벤트 프로시저가 기동되면 (0)에서 마우스 단추의 판정을 실행하고 마우스 단추1외의 단추였더라면 되돌립니다. 마우스 단추 판정의 참고로 해 주십시오.
> 다음에 (A)로 userValue속성에 기억되여있는 숫자를 취득합니다. userValue 속성의 초기치는 0으로, 사용자가 값을 자유로히 지정해서 보지 할수 있습니다. 여기서 객체에 기억시켜놓은것은 다수의 객체에 붙여놓였을때 각각의 라벨의 숫자가 섞여지지않도록 하기위해서입니다. 반대로 정적 변수등에서 보지하도록 작성하면 모든 라벨에서 하나의 숫자를 사용한 표시를 할수있습니다.
> 다음에 (B)에서 그 숫자를 세어 올려 (C)에서 표시합니다. (D)로 표시한 숫자를 userValue속성에 보지하여, 다음번의 이벤트 프로시저 기동에 준비합니다.
> 혹시 이 프로시저가 트리거(trigger),MOUSE-IN 로 붙여놓인 경우는, 마우스가 출입한 회수를 표시하게됩니다.

> ### 마우스로 선택가능한 라벨로 하기에는

> 다음은 선택가능한 라벨을 작성해봅시다. 라벨이 선택된것처럼 보이도록 색을 변화시켜봅시다. 여기서는 userValue 속성의 대신 set/getVariantData() 함수를 써서 선택상태를 보지합니다.

>     # WSEV_MOUSE_PRESS(MOUSE-PRESS) 트리거(trigger)로 라벨에 설정합니다.
>     use mpfc;

>     sub cbop {
>       my ($object) = @_;
>       #(A) getVariantData() 로 기억하는 값을 취득

>       $value = $object->getVariantData("STATUS");
>       #(B) value 가 0였더라면 선택상태로, 1였더라면 원래 표시상태로 돌린다.
>       if ($value->getLong() == 0){
>         #(C)원래의 색명칭(문자열)을 userString 에 기억한다.
>         $color = $object->getProperty("backColor");
>         $object->setProperty("userString",$color);
>         #(D) 선택색의 표시상태로 한다.
>         $object->setProperty("backColor","slategray4");
>         #(E) 상태를 기억한다.
>         $object->setVariantData("STATUS",1);
>       }else{
>         #(F) 원래 색을 꺼낸다.
>         $color =  $object->getProperty("userString");
>         #(G) 원래 색의 표시상태로 한도.
>         $object->setProperty("backColor",$color);
>         #(H) 상태를 기억한다.
>         $object->setVariantData("STATUS",0);
>       }
>     }
>     1;

> 이 이벤트 프로시저는 WSCvbtn,WSCvlabel 등의 labelString 속성을 가지는 객체에 MOUSE-PRESS 트리거(trigger)로 설정합니다.
> 이벤트 프로시저가 기동되면 (A)에서 setVariantData() 함수가 기억하는 숫자를 취득합니다. set/getVariantData() 함수의 초기치는0으로 사용자가 값을 자유로히 지정해서 보지할수있습니다. 좋은 이름을 붙여서 임의의 값을 void* 형으로 보지할수가 있습니다.
> 다음에 (B)에서 그 값을 판별하다가, (C)에서 다음번에 원래색으로 표시를 되돌리기에 속성 userString 로 기억해놓습니다. 다음 (D) 에서 선택색으로의 표시상태로 하다가, (E)로서 선택상태를 다시 보지합니다.
> 원래색으로 되돌리는 단계는 (F)로서 보지해놓은 원래 표시색을 취득해서 (G)로 그 색을 반영합니다. 그래서 (H)에서 또 선택상태를 보지합니다.

> ### 마우스로 강조표시하는 라벨로 하기에는

> 마우스의 출입으로 강조표시하는 이벤트 프로시저를 만들어봅시다. 객체위에 마우스가 들어오면 강조표시하고, 마우스가 나가면 되돌아가는 이벤트 프로시저로 됩니다.
> 여기서 중요한것은 마우스가 들어간 경우에 발생하는 트리거(trigger)와 마우스가 나간 경우에 발생하는 트리거(trigger)에 각각 이벤트 프로시저를 설정하는 이벤트 프로시저를 작성한다는 점에 있습니다.
> 즉 초기화로 이벤트 프로시저가 기동되여, 그속에서 새로운 이벤트 프로시저를 설정함으로서 복수의 이벤트 프로시저의 설정을 하나의 이벤트 프로시저의 설정으로 실현하는 점입니다.

>     use mpfc;
>     #서브EP1 #마우스 들어감
>     sub subop1 {
>         my ($object) = @_;
>         #(A) 원래색 명칭을 userString 속성에 기억시킨다.
>         $color = $object->getProperty("backColor");
>         $object->setProperty("userString",$color);
>         #(B) 선택색의 표시상태로 한다.
>         $object->setProperty("backColor","slategray4");
>         return;
>     }

>     #서브EP2 #마우스 나감
>     sub subop2 {
>         my ($object) = @_;
>         #(C) 원래색 명칭을 꺼낸다.
>         $color = $object->getProperty("userString");
>         #(D) 원래 표시상태로 한다.
>         $object->setProperty("backColor",$color);
>     }

>     #WSEV_INIT(INITIALIZE)트리거(trigger)로 라벨에 설정한다.
>     sub cbop {
>        my ($object) = @_;
>        # 초기화 트리거(trigger)가 발생하여 실행되면
>        # 서브EP를 각각 새로 설정합니다.
>        # (E) 이벤트 프로시저의 신규 설정  #서브EP1
>        # OP명칭="강조OP1"  함수=subop1  기동트리거(trigger)=WSEV_MOUSE_IN
>        $object->addProcedure("강조OP1","subop1",$mpfc::WSEV_MOUSE_IN);
>        # (F) 이벤트 프로시저의 신규 설정  #서브EP2
>        # OP명칭="강조OP2"  함수=subop2  기동트리거(trigger)=WSEV_MOUSE_OUT
>        $object->addProcedure("강조OP2","subop2",$mpfc::WSEV_MOUSE_OUT);
>     }
>     1;

> 서브EP1는 WSEV_MOUSE_IN의 트리거(trigger)로 기동되여 라벨의 배경표시색을 강조색으로 합니다. 서브EP2는 WSEV_MOUSE_OUT의 트리거(trigger)로 기동되여 라벨의 배경표시색을 원래 색으로 되돌립니다. 이벤트 프로시저본체는 초기화 트리거(trigger)로 객체에 설정되여있으며 (E),(F)에서 서브EP1,2를 객체에 설정하고있습니다. 이후 마우스가 출입을하면 새로 프로그램의 안에서 설정된 서브EP가 실행되도록 됩니다.

> ### 마우스로 선택가능한 그룹화된 라벨로 하기에는

> 같은 에리어위에 배치되는 라벨을 마우스로 선택가능한 그룹화된 라벨에하는 이벤트 프로시저를 실정하기에는 마우스로 선택된 라벨을 함몰한 상태로 해놓고 그 에리어에 어느 라벨이 선택되여있는가를 보지하도록합니다.

>     user mpfc;

>     # WSEV_MOUSE_PRESS(MOUSE-PRESS)트리거(trigger)로 라벨에 설정합니다.
>     sub cbop {
>       my ($object) = @_;
>       #(A) userValue 속성에 설정되여있는 값을 ID로서 사용한다.
>       $val = $object->getProperty("userValue");
>       #(B) 선택된 상태(함몰상태)로 한다.
>       $object->setProperty("shadowType",$mpfc::WS_SHADOW_IN);
>       #(C) 부모가 기옥하는 선택되여있던 객체를 취득한다.
>       $parent = $object->getParent();
>       $target = $parent->getVariantData("SelectedItem");
>       #(D) 그 선택되여있던 객체의 표시상태를 원래상태(돌출상태)로 되돌린다.
>       $target_obj = $target->getInstancePtr();
>       if (mpfc::WSGIappObjectList()->existInstance($target_obj)
>                 != $mpfc::False){
>         $target_obj->setProperty("shadowType",$mpfc::WS_SHADOW_OUT);

>       if (mpfc::WSGIappObjectList()->existInstance($target_obj) != $mpfc::False &&
>           $target_obj->getInstanceName() == $object->getInstanceName()){
>         #(E) 선택하고있는 객체를 다시 클릭한 경우
>         # 두번째의 경우는 왜우고있던 자신을 0으로해서 치운다
>         $parent->setVariantData("GroupValue",0);
>         $parent->setVariantData("SelectedItem",0);

>         #(F) 첫번째의 경우는 자신을 부모에 기억시킴.
>         $parent->setVariantData("GroupValue",val);      # ID
>         $parent->setVariantData("SelectedItem",$object);  # WSCbase 인스턴스
>       }
>     }
>     1;

> 그룹화하는 라벨들에 각각을 식별할 ID가 필요하지만 userValue 속성에 설정되여있는 값을 ID 로 사용하더록합시다.
> (A)에서 userValue 속성에 설정되여있는 ID 를 취득합니다.
> (B)에서는 선택된것을 표시하기위해 함몰틀 표시로 합니다.
> (C)로서 선택되여있던 객체를 취득합니다. 어느 객체나 문제없지만 이 예의 경우, 그룹화하는 라벨들에 공통인 부모객체에 기억시키도록합니다.
> (D)는 선택되여있던 객체의 표시상태를 원래의 돌출상태에 되돌립니다.
> (E)로 선택되여있던 객체(target)와 새로 선택된 객체(object)가 같은경우, 측 두번 선택된 상태로 된 경우에는 해저합니다. 부모에 기억시킨 값과 객체를 치웁니다.
> (F)에서는 새로 선택된 객체와 그 값을 부모에 기억시킵니다.

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