스몰 토크에서 클래스의 인스턴스를 만드는 방법은 무엇입니까?

Question

저는 스몰 토크 (VisualAge 환경)에서 새로 왔으며 그녀의 인스턴스 개수를 세는 클래스를 만들려고합니다. 불행히도 '새로운'방법을 무시할 때 무언가 작동하지 않습니다.

Object subclass: #TestClassB 
    instanceVariableNames: 'niceVariable ' 
    classVariableNames: 'InstanceCounter ' 
    poolDictionaries: ''! 

!TestClassB class publicMethods ! 

initWithNiceParameter: parameter 

    |testClassBInstance| 

    testClassBInstance:= self new. 
    ^(testClassBInstance niceVariable: parameter)! 

new 
    super new. 
    InstanceCounter isNil 
     ifTrue: [InstanceCounter := 0] 
     ifFalse: [InstanceCounter := InstanceCounter + 1]. 
    ^self 
    ! ! 

!TestClassB publicMethods ! 

niceVariable: anObject 
    "Save the value of niceVariable." 
    niceVariable := anObject. 
! ! 

내가 'initWithNiceParameter'메시지와 함께 새로운 객체 생성하고 싶습니다 : 이것은 내 수업 코드

TestClassB initWithNiceParameter: 'my super string' 

을하지만 얻을 수있는 모든 오류입니다 :

TestClassB does not understand niceVariable: 

그것은 때문이다 'TestClassB'도 개체이며 'niceVariable'설정자가없는 것으로 보입니다.

'새'방법을 무시할 때 개체를 만드는 방법을 알고 있습니까?

Answer 1

new 메서드 구현은 self을 반환합니다. self의 값은 new이 클래스 메서드이고 클래스 메서드에 self이 클래스 자체이기 때문에 TestClassB 클래스가 있습니다.

new 
    |instance| 
    instance := super new. 
    InstanceCounter isNil 
     ifTrue: [InstanceCounter := 0] 
     ifFalse: [InstanceCounter := InstanceCounter + 1]. 
    ^instance 

이하 :

new 
    InstanceCounter isNil 
     ifTrue: [InstanceCounter := 0] 
     ifFalse: [InstanceCounter := InstanceCounter + 1]. 
    ^super new 

Answer 2

약간 OT하지만 #ifTrue :

당신은 super new을 전송하여 생성되었다 객체를 반환해야 ifFalse이 불필요하게 복잡하다. 클래스 레벨의 변수를 초기화하는 스몰 토크의 방법과 같이 * # 초기화 클래스 측에 있습니다

TestClassB class>>#initialize 
    InstanceCounter := 0 

당신이 시스템에 TestClassB를로드 할 때 지금, InstanceCounter이 초기화됩니다 당신이에 Johan's short version에서 단순화 할 수 있습니다 : #initialize 메소드가 자동으로 호출되는 경우 내가 아는하지 않았기 때문에

TestClassB class>>#new 
    InstanceCounter := InstanceCounter + 1. 
    ^super new 

• 또는 느리게

Answer 3

나는 혼란스러워했다. 저는 VisualAge 7.5를 사용합니다. GUI를 사용하여 새 클래스를 작성한 다음 (마우스 오른쪽 단추로 클릭하고, "new"-> "part ...") 새 클래스를 저장하면 #initialize가 자동으로 호출되지 않습니다. 작업 공간에 클래스의 인스턴스를 작성하는 경우에도 마찬가지입니다. 그러나 클래스를 내 보낸 다음 다시로드하면 #initialize가 호출됩니다. 더 구체적으로 클래스 정의는 다음과 같습니다.

Object subclass: #InitTest 
    instanceVariableNames: '' 
    classVariableNames: '' 
    poolDictionaries: ''! 

!InitTest class publicMethods ! 

initialize 
Transcript show: 'initialize method'; cr.! 
new 
Transcript show: 'new method'; cr. 
^super new.! ! 

InitTest initialize! "<- it's created automatically" 
InitTest initializeAfterLoad! 

매우 까다로운 부분입니다. VisualAge 작업 공간에서 클래스 정의를로드 (다시)하여 #initialize가 호출되는지 확인하십시오 (작성하지 않고 InitTest 초기화)?