|
5th
|
2004-05-11 13:23:59, 조회 : 2,211, 추천 : 347 |
[기초강좌 #8] RecordSet class를 이용한 데이터 다루기 #3
(전체 소스는 첨부된 파일을 참조해주세요. 부분적으로만 발췌해서 설명합니다.)
([기초강좌 #6]에 소스 파일 첨부되었습니다.)
======================================================================
TModel.scurl :
TModelRectangle 과 TModelCircle의 상위클래스입니다.
버튼과 항목의 개수를 표시하는 속성과 역할을 담당합니다.
특이할만한 점만 살펴보면,
*** contstructor ***
{constructor public
{default
........
call-back : #{proc-type {sender:any}: void}=null,
.......
}
set self.call-back = call-back
}
: 생성자에서 프로시져를 받아 변수에 할당합니다.
이 프로시져의 역할은 클릭된 버튼(현재 객체, 자기 자신)의 개수를 1증가시키고,
화면을 다시 갱신시킵니다.(이전 강좌에서 설명)
set self.fdisp.value = {format "%d", count}
: TextDisplay.value는 String 타입인데, count는 int 값입니다.
int를 String으로 바꿀 때 사용하는 방법이 {format “%d”, ...} 입니다.
set self.fcount = {self.fdisp.value.to-int}
: 반대로 String 값을 int로 바꾸고 싶을 때, to-int 메소드를 사용합니다.
======================================================================
TModelRectangle.scurl
* tip :
소스 코드중에, 배경색을 투명색으로 지정하는 부분이 있습니다.
--> set self.fr.background="transparent"
default가 투명색이긴 하지만, 투명색이라는것을 명시해줘야 범위를 명확하게 인식합니다.
처음엔, 클릭할때 개수가 증가됐다 안됐다 해서 로직상 잘못인줄알고 한참 헤맸습니다.
(정확하게 말하자면 글씨부분을 클릭하면 증가하고, 배경색 부분을 클릭하면 증가가 안되더군요.)
{on PointerPress at this:Frame do
{if-non-null self.call-back then
{self.call-back self}
}
}
: 발생되는 event가 TModelRectangle과 TModelCircle이 서로 다른 객체라서
TModel에 넣지않고 각각 하위 클래스에 넣었습니다.
하지만,
TModel에 event를 넣고 하위클래스에서 필요 부분만 추가하여 사용할수도 있을것 같은데,
로직상 오류가 생겨서 일단 분리하였습니다.
버튼이 클릭되면 현재 객체의 call-back 프로시져를 호출하고, 자신을 넘겨줍니다.
call-back 프로시져가 호출되면, 값을 1증가 시킵니다.
TModelCircl.scurl은 위와 코드가 비슷하므로 설명을 생략합니다.
이번 강좌는 되도록 필요한 설명만 짧게 하였습니다.
읽는 사람이나 작성하는 사람이나 덜 지루하게 하려고 시도해봤는데,
설명이 미흡한건 아닌지....
질문 주시면, 또 답변드리겠습니다.
머리가 나쁘면 손과 발이 고생한다는 말이 있다고합니다...
늘 느끼는 말이지만, 이번에도 절감하였습니다.
이 한가지 주제를 놓고 이정도 만들기까지 프로젝트만 6-7번은 만들었습니다.
파일 하나로 시작해서, 클래스로 분리하고, 또 분리하고, 상속받고..
캡슐화가 안되서..데이터가 많을경우 과부하의 우려 등...
간단한 예제라도 많은 분들이 컬 공부에 참여하고 소스를 올려주시면,
저같이 헤매지 않고, 초반 공부 안착에 도움이 되지 않을까 잠깐 생각해봅니다..
그럼..
- 5th -
|
|
|
