VisualWorksTutorial2:Page10
 |
 웹로그의 통계2 레슨9 |
 |
| | 목차 | 레슨8 | 레슨10 | | |
|
다이얼로그 박스(어플리케이션의 진척을 나타내기 위해 사용)에 표시되던 메시지를 읽어오기 전용 입력필드로 치환합니다. 프로그램이 현재 작업중인 파일 이름을 표시하게 됩니다. 혹은, WebLog클래스에 의해 작성된 진척도를 그래피컬하게 표시하는 프로그래스 바(실행한 비율을 표시)도 최고입니다. |
|
이 레슨에서는 어플리케이션의 진척도를 추적하는 프로그레스 바를 집어넣겠습니다. 같은 방법으로, 상황 필드에 프로그램이 현재 작업중인 로그파일 이름을 표시합니다. 매우 간단합니다. 조만간 눈으로 직접 보게 되겠습니다만, 이전 어플리케이션에서 동작한 방법으로 많은 변경을 행할 것입니다. |
|
프로그레스 바는 WebLog 클래스에서 실행중인 진척도를 그래피컬하게 표시합니다. 프로그레스 바는 읽기 전용 상태의 필드 동작과 닮았습니다. WebLog 클래스는 프로그레스 바에 "링크"된 그 로직에서 변경된 변수를 보유합니다. 이것은, Aspect 어댑터의 예입니다. 프로그레스 바가 적절하게 동작하도록 WebLog 클래스에 필요한, 큰 수정을 행합니다. 이것은 프로그레스 바의 문제가 아니라, WebLog 클래스가 첫 튜토리얼에서 작성된 것에 그 원인이 있습니다.
|
|
1. 위에 설명한 것 처럼, 기존에 작성된 Stat 클래스를 가져옵니다. VisualWorks 메인 런쳐 윈도우에서 File>>File Browser 메뉴를 선택해주십시오.
2. 다이얼로그 박스가 표시됩니다. 상단에 있는 텍스트 박스에 st*를 입력하고 리턴 혹은 엔터를 눌러주십시오.
3. stat.st 파일을 반전(선택)해서 <오퍼레이트 클릭>후 File In을 선택해주십시오.
4. System Browser를 열어주십시오. VisualWorks 메인 런쳐 윈도우에서 툴바에 있는 네 번째 버튼을 클릭하거나 Browser>>시스템 메뉴를 선택해주십시오.
5. 패키지 Pane(맨 좌측)에서 WebLogStats 패키지까지 스크롤해서 선택해주십시오.
6. 만일 탐구심이 있다면, Stat 클래스를 탐색해주십시오.
7. WebLog 클래스의 defineClass 메서드를 표시해서 아래의 행을 변경합니다. instanceVariableNames: 'logDirectory filter status maxPages'
위의 내용을 instanceVariableNames: 'logDirectory filter status maxPages progress logFiles stats'
이 내용으로 변경합니다
8. WebLog 클래그의 initialize 메서드를 아래와 같이 수정합니다. initialize
"initialize the WebLog class by creating a stats instance."
stats := SortedCollection new.
GUI에서 실행하기 때문에, logDirectory 변수의 초기화는 삭제합니다. stats 변수는 특정 Collection 클래스의 인스턴스가 됩니다. 여기서는 컬렉션중 하나인 {HighlightBold이 가장 좋을것입니다.}}
9. accessing 프로토콜 하위에 아래와 같은 메서드를 추가해주십시오. addStat: aStat
stats add: aStat
stats
^stats
progress: aProgress
progress := aProgress.
self changed: #progress.
progress
^progress
10. private프로토콜 하위에 아래와 같이 prettyUpTopPages 메서드를 추가해주십시오. prettyUpTopPages: pages
| aString |
aString := String new.
1 to: (self maxPages) do: [:xx |
aString := aString , (pages at: xx) key printString.
aString := aString , ' '.
aString := aString , (pages at: xx) value.
aString := aString , '\'.].
^aString withCRs.
이 메서드는 인기 페이지의 컬렉션을 취득해서 String 오브젝트로 변환합니다. 이것은 파일이나 GUI 위젯에 인기 페이지 일람을 송신하기 쉽게 하기 위함입니다.
11. private 프로토콜 하위에 아래의 outputStats 메서드를 추가해주십시오. outputStats
| out outFile|
self status: 'Writing results...'.
outFile := 'log_file_analysis_results.txt'.
out := (logDirectory , '\' , outFile) asFilename writeStream.
stats do: [:each |
out cr; nextPutAll: each name , ' ';
nextPutAll: each hits printString; cr;
nextPutAll: each pages; cr. ].
out close.
self status: 'Done'.
이 메서드는 stats의 컬렉션을 취득해서 외부 파일로 출력합니다. 원래 있던 어플리케이션에서는 복수의 외부 파일을 작성했었습니다. 이곳에서는 한 개 뿐입니다.
12. private프로토콜 하위에 아래와 같이 workHorse 메서드를 추가해주십시오. workHorse
| count pages topPages p1 p2 |
p2 := logFiles size.
p1 := 0.
logFiles do: [:each |
self status: each.
count := self showHits: each.
topPages := self showPageCounts: each.
pages := self prettyUpTopPages: topPages.
self addStat:
(Stat name: each hits: count printString pages: pages).
p1 := p1 + 1.
self progress: (p1 / p2) asFloat]
이 메서드는 Hit나 인기 페이지를 정하는 로그파일의 컬렉션 요소를 반복해서, Stat클래스에 그 정보를 담아둡니다. 각 로그파일은 Stat 클래스의 인스턴스를 작성해서, stats 컬렉션에 모을 수 있습니다. p1과 p2의 변수는 실행한 비율을 계산하기 위해 사용되며, progress 인스턴스 변수에 놓여있습니다.
13. 아래와 같이 start메서드를 수정해주십시오. start
filter size > 0
ifTrue:
[self status: 'Processing...'.
logFiles := self getLogFiles.
self workHorse.
self status: 'Processing Complete']
ifFalse: [Dialog warn: 'Please enter a filter']
이 메서드는, 필터 변수(실제로는 GUI상 filterUI필드)가 공백인 것을 확인하기 위해서 테스트합니다. 만일 공백이라면 다이얼로그 박스가 필터를 입력하기 위해서 표시될 것입니다. 만일 공백이 아니라면 어플리케이션 전체의 로직이 개시될 것입니다.
14. private 프로토콜에서 아래 메서드를 삭제해주십시오.(필요가 없으므로)
15. 캔버스로 돌아가십시오. 캔버스의 statusUI 입력 필드 아래에 프로그레스 바(팔레트 아랫 단 좌측에서부터 일곱번째)를 배치해주십시오.
16. 아래와 같이 속성을 설정해주십시오.
17. 적용을 클릭해주십시오.
18. GUI페인터 툴로 돌아가주십시오. 메인 윈도우(위젯 일람에서 첫 엔티티)를 선택해주십시오. 배치/사이즈 탭을 클릭 후, 아래와 같이 설정해주십시오.
19. 인스톨 버튼을 클릭후 다음에 표시된 다이얼로그 박스에 OK를 클릭해주십시오
20. {{HighlightBold|progressUI} 입력필드를 클릭해주십시오. GUI페인터 툴의 정의 버튼을 클릭해주십시오.
21. progressUI와 초기화를 추가에 있는 체크 마크를 그대로 둡니다. OK를 클릭해주십시오.
22. 메인 윈도우를 클릭(혹은 progressUI입력 필드를 선택하지 않음)후, Browse 버튼을 클릭해주십시오. WebLogGUI 클래스의 인스턴스 정의가 표시된 것을 확인해주십시오.
23. initialize 메서드를 아래와 같이 수정해주십시오. initialize
aWebLog := WebLog new.
statusUI := AspectAdaptor subject: aWebLog sendsUpdates: true.
statusUI forAspect: #status.
progressUI := AspectAdaptor subject: aWebLog sendsUpdates: true.
progressUI forAspect: #progress.
self filterUI value: 'ws00'.
self logDirectoryUI value: 'c:\vw7.7\image'.
self progressUI value: 0.
self maxPagesUI value: 10.
24. startWebLog 메서드(actions 프로토콜)을 아래와 같이 수정해주십시오. startWebLog
aWebLog filter: filterUI value.
aWebLog logDirectory: logDirectoryUI value.
aWebLog maxPages: maxPagesUI value.
Cursor wait showWhile: [aWebLog start.
aWebLog outputStats.].
외부 파일에 통계를 출력하기 위해서 마지막 행에 추가했습니다.
25. 윈도우 열기 버튼을 클릭해주십시오. 어플리케이션을 테스트합니다. 전부 동작하는지 확인해주십시오.
26. System Browser 윈도우로 돌아가십시오. 패키지 Pane(맨 좌측)에서 WebLogStats 패키지까지 스크롤해주십시오.
27. 패키지 Pane에서 WebLogStats를 클릭(선택)해주십시오. <오퍼레이트 클릭>후 Save to File을 선택합니다.
28. weblogstats_2_stage6.st를 입력해주십시오. |
|
|
정리
|
| 목차 | 레슨8 | 레슨10 | | |
