2006년 6월

 

The ClassDefinition Object

Or how to create a simple object browser - Part 1

 

The ClassDefinition Object Hierarchy

ClassDefinitionObject는 pbtocppobject로부터 상속받았으며 PowerBuilder 오브젝트들을 묘사하는 모든 오브젝트들의 조상이다.

 

                                        

·    ArrayBounds : array 변수의 경계에 대한 정보

·    EnumerationItemDefinition : enumerated value의 이름과 값

·    ScriptDefinition : 스크립트의 모든 정보

·    ClassDefinition : 클래스의 정보

·    EnumerationDefinition : enumerated data type에 관련된 정보

·    SimpleTypeDefinition : scalar 변수의 종류에 대한 정보

·    VariableCardinalityDefinition : 변수 cardinality의 정보 제공

·    VariableDefinition : 변수, 속성, 혹은 argument의 모든 정보

한눈에 보기에 이것들은 마치 다양한 class들을 전혀 사용해보지 않았던 것처럼 복잡하게 보인다. 먼저 ClassDefinition 오브젝트를 유심히 봐야한다.

First Steps

먼저, 윈도우로 application을 만든다. 어떠한 오브젝트의 ClassDefinition 오브젝트에 접근하기 위해서는, FindClassDefinition 함수를 사용한다.

This.Title = FindClassDefinition( ClassName() ).LibraryName

사용자는 윈도우를 실행시키거나 어플리케이션 오브젝트안에서 열 수 있다. 어플리케이션의 실행은 사용자가 debug하고 ClassDefinition 오브젝트의

LISTING 1: VARIABLE LIST

Classdefinition lcd_Window

Long ll_Handle, ll_Counter, ll_Max

lcd_Window=FindClassDefinition(This.ClassName())

ll_Handle=tv_1.InsertItemLast(0,lcd_Window.Name,1)

ll_Max=UpperBound(lcd_Window.VariableList)

FOR ll_Counter=1 TO ll_Max

        tv_1.InsertItemLast(ll_Handle, &

        lcd_Window.VariableList [ll_Counter].Name,1)

NEXT

첫번째로, ClassDefinition 오브젝트를 조회하고 프로퍼티 이름을 사용해 treeview에서 첫 엔트리의 이름으로 윈도우 이름을 추가한다.

Listing 1의 스크립트에서 우리는 클래스의 모든 변수들을 리스트하는 VariableList 속성 (VariableDefinitionObjects의 array)을 사용하였다.

LISTING 2: NESTED CLASSES

Classdefinition           lcd_Window

Long                        ll_Handle, ll_Counter, ll_Max

lcd_Window=FindClassDefinition(This.ClassName())

ll_Handle=tv_1.InsertItemLast(0,lcd_Window.Name,1)

ll_Max=UpperBound(lcd_Window.NestedClassList)

FOR ll_Counter=1 TO ll_Max

   tv_1.InsertItemLast(ll_Handle, &

   lcd_Window.NestedClassList[ll_Counter].Name,1)

NEXT

ScriptDefinition 오브젝트의 array인 ScriptList 속성을 사용해 스크립트에 NestedClassList를 대체하면, 윈도우의 이벤트들과 함수들이

+ ': ' + String( lcd_Window.VariableList[ll_Counter].InitialValue)

각 변수의 이면에 사용자는 변수가 간단한 타입이고 toolbaralignment과 같은 열거형(enumerated) 타입이 아닌 이상 변수의 처음 값을 볼 것이다.

The Browser

ClassDefinition 오브젝트가 어떻게 작동되는지를 알아낸 후, 우리는 브라우져(Figure 2)에 대해 살펴보자. 어플리케이션은 한꺼번에 하나 이상의

첫번째로 메뉴(m_frame)와 sheet 윈도우(w_main)을 가지고 있는 MDI frame 윈도우를 만든다. 어플리케이션 아이콘이나 library-related

Getting the Library List

어플리케이션을 분석하기 전에, 하나를 선택해 그것의 라이브러리 리스트를 결정해야 한다. 어플리케이션 타겟 파일(PBT)은 필요한 정보를 가지고 있다.

LISTING 3: CHOOSE A TARGET

window        lw_Sheet

string          ls_Path, ls_File

IF GetFileOpenName( "Choose Target",ls_Path,ls_File,&

   "PBT","PowerBuilder Targets (*.pbt),*.pbt")>0 &

   THEN

   OpenSheetWithParm( lw_Sheet, ls_Path, "w_main", This )

END IF

사용자는 이벤트에 타겟 파일을 정할 수 있고 윈도우 w_main이 열릴것 이다. 프레임 메뉴에 있는 File/Open 메뉴에서 이벤트 ue_opentarget를

Save Format v3.0(19990112)
appname "myobjectbrowser";
applib "mob.pbl";
liblist "mob.pbl";
type "pb";

어플리케이션의 이름을 결정하기 위해서는 키워드 appname이 필요하며, 라이브러리 리스트를 위해서는 키워드 liblist가 필요하다. Listing 4에서

LISTING 4: PARSE THE LIBRARY LIST

/* Name: of_ParseLibList

Parameters: string as_PBT

Returns: (none)  */

long            ll_Handle

string          ls_Line, ls_Path

integer li_Pos

// Open the target file

ll_Handle=FileOpen(as_PBT)

DO WHILE FileRead(ll_Handle,ls_Line) > 0

   IF Lower(Left(ls_Line,7))="appname" THEN

      // Application name Found

      ls_Line=Mid(ls_Line,8)

      ls_Line=Mid(ls_Line,Pos(ls_Line,'"')+1)

      This.Title=Left( ls_Line, Pos( ls_Line, '"' ) - 1 )

   END IF

   IF Lower(Left(ls_Line,7))="liblist" THEN

      // LibraryList Found

      EXIT

   END IF

LOOP

FileClose( ll_Handle )

// Get the Path the target file resides in

ls_Path=Left(as_PBT,LastPos(as_PBT,"\"))

// Parse the Library List

li_Pos=Pos(ls_Line,'"')

ls_Line=Mid(ls_Line,li_Pos+ 1)

// Add semicolon that all the library entries end with ;

ls_Line=Left(ls_Line,Pos( ls_Line,'"')-1) + ";"

li_Pos=Pos(ls_Line,";")

DO WHILE li_Pos > 0

   il_LibList[UpperBound(il_LibList)+1]= &

      ls_Path+Left(ls_Line,li_Pos - 1)

   ls_Line=Mid(ls_Line,li_Pos+1)

   li_Pos=Pos(ls_Line,";")

LOOP

RETURN

이를 찾아내는 즉시, 우리는 큰 따옴표를 제거하고 윈도우의 제목을 어플리케이션의 이름으로 정한다. 키 liblist가 발견될 때까지 계속 looping을 해야한다.

treeview 컨트롤을 w_main 윈도우의 왼쪽 절반에 LinesAtRoot이 체크된 상태로 가져다 놓고 창의 오른쪽에는 multilineedit 컨트롤을 놓는다.

This.SetOverlayPicture(1, PICT_OVERLAY)

윈도우의 오픈 이벤트 안에서 w_main는 of_ParseLibList라는 함수를 호출한다. 타켓 파일이 w_main 윈도우로 열릴때에 패스되는 것처럼

LISTING 5: INITIAL FILLING OF THE TREEVIEW CONTROL

integer         li_Counter

long            ll_Handle

treeviewitem             ll_Tvi

// Get the LibraryList

This.of_ParseLibList(  message.stringparm )

ll_Handle=tv_1.InsertItemLast(0,This.Title,1)

FOR li_Counter=1 TO UpperBound(il_LibList)

   // Label is name only, full pathname is in Data

   ll_Tvi.Label=Mid(il_LibList[li_Counter], &

      LastPos( il_LibList[li_Counter],"\")+1)

   ll_Tvi.Data=il_LibList[li_Counter]

   ll_Tvi.Pictureindex=2

   ll_Tvi.SelectedPictureindex=2

   // Force the + sign to expand

   ll_Tvi.children=TRUE

   tv_1.InsertItemLast(ll_Handle,ll_Tvi)

NEXT

RETURN

라이브러리의 이름은 경로 정보를 보여주지 않고 경로 정보는 treeviewitem의 정보 속성에 저장되어 있다. 자손 속성은 TRUE로 정해져 있어

■ 원본자료

- http://pbdj.sys-con.com/read/198703.htm,  By:Arthur Hefti