클릭 이벤트 처리를 모프에 추가하십시오.

Question

쉬운 방법으로 모프를 마우스로 클릭하고 싶습니다. 다음과 같이 할 수 있습니까?

'hello' asMorph 
    onClick: [ :e | "baboom" ]; 
    openInHand 

?

Answer 1

이와 비슷한?

StringMorph subclass: #ClickMorph 
    instanceVariableNames: 'action' 
    classVariableNames: '' 
    category: 'MyMorph' 

handlesMouseDown: evt 
    ^true 

mouseDown: evt 
    evt hand waitForClicksOrDrag: self event: evt 

mouseUp: evt 
    action value 

action 
    ^action 

action: anObject 
    action := anObject 

당신은 필수 사항은 물론이다

(ClickMorph contents: 'Click me') 
    action: [Transcript open]; 
    openInWorld 

로 블록을 가지고 당신이 클릭에 반응 할 수 있는지 확인하는 것이 호출 할 수 있습니다.