발진!! 아스라다

tempStr := 'e:\ccc\ddd\Adobe_Acrobat7_Pro_KOR_SN.txt'. "파일명 추출"
tempStr rightString: (tempStr reverse findString: '\') - 1. "디렉토리명 추출"
tempStr leftString: (tempStr size - (tempStr reverse findString: '\')).

tempStr leftString: 4.   "왼쪽에서 4글자"
tempStr reverse. "뒤집기"
tempStr rightString: 6. "오른쪽에서 6글자"
tempStr isLiteral. "리터럴인가?"
tempStr isString."문자열인가?"
tempStr subStrings: '\'. "문자열 나누기(배열) = explode"
tempStr midString: 3 from: 2.  "문자열 추출 = substr"
tempStr findString: '\'. "문자열 위치 찾기 = strpos"
tempStr findString: 'l' startingAt: 5. "문자열 위치 찾기 + 시작위치 설정"
tempStr first: 5. "처음부터 inteager 만큼 추출"
tempStr hash.
tempStr includes: $\.
tempStr indexOfAnyOf: 'smallt' startingAt: 1.
tempStr subStrings.
tempStr replaceFrom: 2 to: 3 with: 'bc' startingAt: 1.

>\설명이 길었죠? 이제 문제입니다. Workspace에서 HouseKeepingBookShell 를 띄울 때 showOn: 를 썼었습니다. view 2 창으로 띄워보려면 어떤 매쏘드를 써야할까요? 찾아보세요.

>힌트: showOn:과 아주 비슷한 이름의 매쏘드입니다

show: aResourceNameString on: aModel

>2. View Composer로 view 2를 편집해 봅시다. 기존에 있던 list box를 삭제합니다.(삭제하기 전에 그것의 name을 기억해 둡시다) list box가 있던 자리에 ListPresenter.Enhanced list view를 추가해 넣습니다. 그리고 name을 지운 list box의 것으로 고칩니다. 창을 다시 열어봅니다. 열린 모습을 캡처해서 답으로 제출!!

>3. list box 와는 다르게 list view 계열은 복수 컬럼을 지원하기에 알맞는 형태로 되어 있습니다. 추가한 list view를 선택하면 속성으로 columnsList가 보입니다. Collection형태로 되어 있어 list view의 컬럼을 추가 삭제 편집할 수 있습니다. 가계부 항목의 속성은 이름, 가격, 날짜입니다.

>3개의 컬럼을 만들어 가계부 항목의 내용이 표시될 수 있도록 수정헤요.

>힌트: List Box에서 했던 것과 매우 유사합니다.

HouseKeepingBookItem >>

displayItemString
^self name.

displayPriceString
^self value.

displayDateString

 |stream|

 stream := String writeStream.
 self date printOn: stream format: 'yyyy-MM-dd'.
^stream contents.

분류 이름들로 이루어진 콤보박스 하나.

그 콤보박스에 바싹 붙은 버튼 세 개(각각, 추가, 삭제, 편집)

분류이름 콤보박스에 선택된 분류의 항목이름이 나열된 리스트박스 하나.

그 리스트박스에 바싹 붙은 버튼 세 개(각각, 추가, 삭제, 편집)

2. 콤보박스에 현재 존재하는 모든 분류를 표시하게 한다.

createComponents

  super createComponents.

  categoryName := self add: ListPresenter new name: 'category name'.
  categoryItem := self add: ListPresenter new name: 'category item'.

model: aHouseKeepingBoolCategory

   super model: aHouseKeepingBoolCategory.

  categoryName model: (ListModel on: aHouseKeepingBoolCategory categories ).

"categoryName 의 model을 변경하면서 추가한 메서드"

Association >> stringTheCombobox >>

  ^self value.

위 메서드를 새로 만들어준다음 HouseKeepingBookCategoryDialog의 view에서

콤보박스(category name)의 getTextBlock속성에 #stringTheCombobox를 입력해줍니다.

3. 분류이름 콤보박스의 선택이 바뀌면, 항목이름 리스트박스가 그에 맞게 초기화 되도록 이벤트를 달아 줍니다.

model: aHouseKeepingBoolCategory

   categoryName when: #selectionChanged send: #changeItem to: self.

4. 분류 추가 버튼을 누르면, Prompter를 띄워 문자열을 받아 그 이름의 분류를 추가하는 기능을 넣습니다.

설명: Prompter는 Dialog의 일종으로서 보편적으로 많이 사용되는 문답 형태의 Dialog를 표준화시킨 객체입니다. 사용법은 비슷합니다.

addCategoryName

  |newCategoryName|
  newCategoryName := Prompter prompt: '추가할 카테고리 이름을 입력하세요.' caption: '카테고리 추가'.

   newCategoryName ifNotNil: [:value |
       categoryName model add: #()->value.
       categoryName selectionByIndex: categoryName  model  size.
  ].

5. 분류 삭제 버튼을 누르면, 콤보박스에서 그 항목을 삭제합니다. (항목이름 리스트박스는 텅 비게 되겠죠?)

deleteCategoryName

  |index|
   index := categoryName selectionByIndex.
   categoryName selectionByIndex: 1.
   categoryName model removeAtIndex: index.

queryCommand: aCommandQuery

  super queryCommand: aCommandQuery.

  (#(#deleteCategoryName) includes: aCommandQuery command) ifTrue: [
       aCommandQuery isEnabled: categoryName hasSelection].

6. 분류 편집 버튼을 누르면, 4번과 마찬가지로 Prompter를 띄워 현재 분류의 이름을 바꾸는 기능을 넣습니다.

editCategoryName

  |newCategoryName|
   newCategoryName := Prompter on: categoryName selection value  prompt: '원하시는 카테고리명을 입력해주세요.' caption: '카테고리 수정'.
   newCategoryName ifNotNil: [:value | (categoryName  model at: categoryName selectionByIndex) value: value ].

queryCommand: >>

(#(#editCategoryName) includes: aCommandQuery command) ifTrue: [
aCommandQuery isEnabled: categoryName hasSelection].

7. 4~6번과 마찬가지로 리스트박스에 대해서도 항목 추가, 삭제, 편집 버튼을 구현해 줍니다.

"항목 추가"

addCategoryItem

  newcategoryItem categoryNameModel|
  newCategoryItem := Prompter prompt: '추가할 항목을 입력하세요.' caption: '항목 추가'.
  categoryNameModel := (categoryName model select: [:each | each value = categoryName selection value ] ) at:1.

   newCategoryItem ifNotNil: [:value |
       categoryNameModel key: (categoryNameModel key,(Array with: value)).
       self changeItem.
    ].

"항목 삭제"

deleteCategoryItem

  |categoryNameModel|
   categoryNameModel := (categoryName model select: [:each | each value = categoryName selection value ]) at: 1.
   categoryNameModel key: (categoryNameModel key select: [:each | each ~= categoryItem selection]).

   self changeItem.

"항목 편집"

editCategoryItem

  |newCategoryItem categoryNameModel|
   newCategoryItem := Prompter on: categoryItem selection prompt: '원하시는 항목을 입력해주세요.' caption: '항목 수정'.

  categoryNameModel := categoryName  model at: categoryName selectionByIndex.
  newCategoryItem ifNotNil: [:value |
       categoryNameModel key: ((categoryNameModel key select: [:each | each ~= categoryItem selection]) , (Array with: value)).
       self changeItem.
  ].

queryCommand >>추가

(#(#addCategoryItem) includes: aCommandQuery command) ifTrue: [
aCommandQuery isEnabled: categoryName hasSelection].

#(deleteCategoryItem editCategoryItem) includes: aCommandQuery command) ifTrue: [
aCommandQuery isEnabled: categoryItem hasSelection].

8. HouseKeepingBookShell에 editCategories라는 메뉴를 만들어 HouseKeepingBookCategoriesDialog 을 띄울 수 있게 합니다.

editCategory

  |newCategories|

  newCategories := HouseKeepingBookCategoriesDialog showModalOn: self model categories.

  newCategories ifNotNil: [:value | self model categories: value].

9. HouseKeepingBookShell에 showItemCategory라는 메뉴를 만들어 선택한 항목의 분류를 MessageBox로 볼 수 있게 합니다.

showItemCategory

  MessageBox notify: (self model categories categoryNameOfItemName:  items selection name).

Ok와 Cancel 버튼 두개가 만들어져 있습니다.

2. HouseKeepingBookItemDialog는 HouseKeepingBookItem 객체를 모델로 삼아  수정하는 Dialog가 될 것입니다. Shell에서 했던 것과 같은 방법으로 item의 name, value, date를 표현할 컨트롤들을 꾸며봅니다. (화면 캡쳐해주세요)
힌트: 
작성해야 할 매쏘드들 ...  model:   createComponents
사용할 클래스들 ... TextPresenter, DatePresenter, NumberPresenter
주의할 점: Date

createComponents

super createComponents.

namePresenter := self add: TextPresenter new name: 'name'.
valuePresenter := self add: NumberPresenter new name: 'value'.
datePresenter := self add: DatePresenter new name: 'date'.

model: aHouseKeepingBookItem

super model: aHouseKeepingBookItem.

namePresenter model: (self model aspectValue: #name).
valuePresenter model: (self model aspectValue: #value).
datePresenter model: (self model aspectValue: #date).

3. Workspace로 가서 간단한 테스트를 해봅시다.
myItem := HouseKeepingBookItem new.
HouseKeepingBookItemDialog showModalOn: myItem.

Dialog에 뭔가 적당한 값들을 기입해 줍니다. OK버튼을 누릅니다.
myItem의 값이 어떻게 되었나요?

입력한 값으로 바뀌었습니다.

4. Workspace로 가서 간단한 테스트를 해봅시다.
myItem := HouseKeepingBookItem new.
HouseKeepingBookItemDialog showModalOn: myItem.

Dialog에 뭔가 적당한 수정을 해 줍니다.
CANCEL버튼을 누릅니다.
myItem의 값이 어떻게 되었나요?

바뀌지 않았습니다.

5. HouseKeepingBookShell의 newItem매쏘드에서 임시 item을 생성했었죠? 이제, HouseKeepingBookItemDialog 가 있으니까, 정식으로 추가 할 수 있게 되었습니다.

HouseKeepingBookShell의 newItem매쏘드를 수정하여, 사용자가 입력한 값을 새 가계부 항목으로 등록하도록 수정하세요.

newItem
items model add:  (HouseKeepingBookItemDialog showModalOn: HouseKeepingBookItem new)

6. 5번 문제에서 사용자가 Cancel을 눌러버린다면? item을 추가하면 안되겠죠? newItem 매쏘드를 수정하여 그 기능을 추가하세요.

newItem

(HouseKeepingBookItemDialog showModalOn: HouseKeepingBookItem new)
ifNotNil: [:value | items model add: value].

7. IT에서 추가와 편집은 큰 차이가 없습니다. HouseKeepingBookShell에 편집메뉴명령을 추가하고 editItem 이라는 매쏘드에 그 기능을 구현하세요. 합산과 흑/적 상태가 바르게

바뀌도록 하세요. deleteItem과 마찬가지로 선택된 것이 없으면 수정할 수 없에 커맨드비활성화하는 것도 잊지마시고요.

queryCommand: aCommandQuery

super queryCommand: aCommandQuery.

#(deleteItem editItem) includes: aCommandQuery command)

  ifTrue: [aCommandQuery isEnabled: items hasSelection].

editItem

(HouseKeepingBookItemDialog showModalOn: ( items model at: items selectionByIndex ))
ifNotNil: [:value | items model updateItem: value]

model: 이벤트 추가

items model when: #item:updatedAtIndex: send: #refreshSumAndStatus to: self.

8. 추가와 수정이 아무리 흡사하더라도, 사용자가 구별할 수 있게 해줘야겠죠? 추가일 때는 Dialog의 제목이 '가계부 항목 추가'로, 수정일 때는 '가계부 항목 수정'으로 표시되게 하세요.
힌트: createOn:   caption:   showModal

HouseKeepingBookShell > newItem,editItem 메서드 수정

newItem

((HouseKeepingBookItemDialog createOn: HouseKeepingBookItem new) caption: '가계부 항목 추가'; showModal)
ifNotNil: [:value | items model add: value ].

힌트: Shell의 상위 클래스인 Presenter 클래스에는 createSchematicWiring이라는 매쏘드가 있습니다. 이 매쏘드는 창이 처음 열릴때 한 번만 호출되며, 창 자신을 포함한 모든 하위창들 사이의 메세지 핸들링을 초기화합니다. 다른 사람들이 작성한 createSchematicWiring 매쏘드를 Method Browser로 검색해보시면, 대강 감이 오실 겁니다. 잘 모르겠으면, 메신저로 연락주세요. 추가 힌트 나갑니다.

createSchematicWiring

   super createSchematicWiring.

   pocketMoney when: #valueChanged send: #refreshSumAndStatus to: self.

2. View Composer를 열어서 HouseKeepingBookShell에 메뉴바를 추가합니다.

Item/New 메뉴를 만듭니다. (메뉴속성에서 command는 #newItem로 합니다)

showOn: 해서 메뉴를 테스트해봅니다. 메뉴의 상태가 어떻습니까?

힌트: View Composer를 열어서 Modify메뉴의 Menu Bar... 라는 명령을 실행합니다.

"New"항목이 비활성화 상태입니다...

3. Class Browser로 HouseKeepingBookShell에 newItem이라는 매쏘드를 만들어 줍니다.

showOn: 해서 메뉴를 테스트해봅니다. 메뉴의 상태가 어떻게 달라졌습니까?

"New"항목이 활성화 되었습니다.

4. 3번 문제에서 만든 newItem은 HouseKeepingBookShell의 메뉴가 선택되면 불리는 매쏘드 입니다. 이 매쏘드를 편집하여 '임시'라는 이름을 가진, 가격은 30인, 날짜는 오늘인 항목하나를 추가하게 합니다. 맞게 하셨다면, 항목추가와 함께 합산과 흑/적자 표시도 동시에 갱신됨을 확인하실 수 있습니다.

제약조건: 리스트컨트롤을 직접 제어하면 안되며, HouseKeepingBookShell의 모델을 수정한 다음, Shell로 하여금 재초기화 하도록 해야 함.

newItem 정의를 답으로 제출하세요.

newItem

items model add: (
  HouseKeepingBookItem new
   name: '임시';
   value: 30;
   date: Date today
).

5. View Composer를 열어서 Item/Delete 메뉴를 만듭니다. (메뉴속성에서 command는 #deleteItem로 합니다)

HouseKeepingBookShell에 deleteItem매쏘드를 두어, 리스트에 선택된 항목들을 지우게끔 하세요. 4번과 마찬가지로, 합산과  흑/적자 표시가 갱신될겁니다.

deleteItem 매쏘드를 답으로 제출하세요.

힌트:  selection , remove: , model:

deleteItem

items model removeAtIndex: items selectionByIndex.

4~5번 관련하여 이벤트를 통한 자동갱신을 위하여 model: 메서드를 수정하였습니다.

model:>>

items model: (ListModel on: aHouseKeepingBook items).
items model when: #item:addedAtIndex: send: #refreshSumAndStatus to: self.
items model when: #item:removedAtIndex: send: #refreshSumAndStatus to: self.

6. View Composer를 열어서 PushButton을 하나 추가해서, 클릭하면 4번과 같은 동작을 하게끔 하세요.

힌트: 클래스 소스는 일절 수정할 필요가 없습니다. 오로지 View Composer만으로 해낼 수 있습니다.

어떤 방법으로 해냈는지 설명하는 글을 답으로 제출하세요.

View Composer의 우측 하단 속성창에서

commandDescription > command: #newItem

7. View Composer를 열어서 PushButton을 하나 추가해서, 클릭하면 5번과 같은 동작을 하게끔 하세요.

힌트: 클래스 소스는 일절 수정할 필요가 없습니다. 오로지 View Composer만으로 해낼 수 있습니다.

어떤 방법으로 해냈는지 설명하는 글을 답으로 제출하세요.

commandDescription > command: #deleteItem

8. 가계부 item을 삭제하면, 리스트에서 다른 item을 선택하지 않은 채, 또 삭제를 시도해 보세요. 에러가 나죠?

에러가 나지 않게, 선택한 item이 없을 때는 메뉴를 비활성화 해야 합니다. queryCommand:라는 매쏘드를 작성하면 됩니다.

queryCommand: 를 검색해서 다른 사람들은 어떻게 작성했는지 참고하세요.

힌트:  isEnabled:  를 사용하면 됩니다.

queryCommand: aCommandQuery

   super queryCommand: aCommandQuery.

   (#(deleteItem) includes: aCommandQuery command)

       ifTrue: [aCommandQuery isEnabled: items hasSelection].

9. 8번에서 작업한 것이 버튼에 어떤 영향을 미쳤는지 보고하세요.

프로그램을 실행하면 삭제 버튼이 비활성화 되있습니다.

payroll := OrderedCollection new.

attendanceDate := Date fromString: '2006-10-1'.
attendanceTime := Time fromString: '10:00'.
attendanceDateTime := TimeStamp date: attendanceDate time: attendanceTime.

finishDate := Date fromString: '2006-10-1'.
finishTime := Time fromString: '19:00'.
finishDateTime := TimeStamp date: finishDate time: finishTime.

날짜와 시간으로 출근시간과 퇴근시간에 해당하는 timestamp 를 만들어서
patroll 에 한쌍으로 묶어서 넣으려고 하는데 들어가질 않습니다.

자동완성이 되지 않아 직접 타이핑으로
payroll add: #(attendanceDateTime finishDateTime).
입력을 했더니 입력은 됐으나 이상한 형태로 되었더군요.

#(#attendanceDateTime #finishDateTime)

어떠한 형태의 객체도 다 포함하는 줄 알았던 컬렉션 객체가 말썽을 부리니
멍해지네요 -_-;;

WorkSpace 에서 끄적거리기 두번째....

housekeepingbook := OrderedCollection  new.

housekeepingbook
add: #('복권' -5000 '2005-09-21') asOrderedCollection;
add: #('복권당첨' 50000 '2006-09-21') asOrderedCollection;
add: #('두부' -500 '2006-09-22') asOrderedCollection;
add: #('피자' -15000 '2006-09-23') asOrderedCollection;
add: #('보너스' 100000 '2004-09-24') asOrderedCollection;
add: #('화장지' -7000 '2006-09-24') asOrderedCollection;
add: #('전기세' -25000 '2006-09-24') asOrderedCollection;
add: #('키보드' -15000 '2005-09-25') asOrderedCollection;
add: #('화장품' -55000 '2006-09-25') asOrderedCollection;
add: #('전구' -500 '2004-09-26') asOrderedCollection.

"1.housekeepingbook의 3번째 원소를 Date객체로 바꾸기"
housekeepingbook do: [:each | each at: 3 put: (Date fromString: (each at: 3))].

"2.2004년 항목만 추출"
housekeepingbook select: [:each | (each at: 3) year = 2004].

"3.2004년의 금액 합계"
(housekeepingbook select: [:each | (each at: 3) year = 2004]) inject: 0 into: [:sum :item|  sum + (item at: 2) ].

"4.각 항목들의 요일"
housekeepingbook collect: [:each | (each at: 3) weekday].

"5.category 객체 생성 & 전기세의 항목 이름"
categories := OrderedCollection new.
categories
add: #('두부' '피자' '김치') -> '식료품';
add: #('복권' '복권당첨' '적금') -> '투자';
add: #('월급' '보너스') -> '급여';
add: #('전기세' '수도세') -> '생활요금';
add: #('화장지' '키보드' '화장품' '전구') -> '소모품'.

(categories detect: [:each | each key includes: '전기세']) value.

"6.각 항목의 분류"
housekeepingbook collect: [:item | (categories detect: [:each | each key includes: (item at: 1) ]) value].

"7.소모품으로 분류되는 항목의 합"
(housekeepingbook select: [:each | (categories detect: [:cat | cat value = '소모품']) key includes: (each at: 1) ])
inject: 0 into: [:sum :item | sum + (item at: 2)].

"8.2006년의 소모품의 합"
((housekeepingbook select: [:each | (categories detect: [:cat | cat value = '소모품']) key includes: (each at: 1) ])
select: [:each | (each at: 3) year = 2006]) inject: 0 into: [:sum :item | sum + (item at: 2) ].

"9.원금"
pocketMoney := 4000000.
housekeepingbook inject: pocketMoney into: [:sum :item | sum + (item at: 2) ].