Добавить обработку событий клика в morph

Question

Добавить обработку событий клика в morph

Я хочу легко обработать щелчок мышью на морфе. Могу ли я сделать что-то вроде:

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

?

3

smalltalk pharo morphic

Источник

user982238 08 июл '14 в 08:47

1 ответ

Решение

Другие вопросы по тегам smalltalk pharo morphic

user35306 15 июл '14 в 17:02 2014-07-15 17:02 · Accepted Answer · 2014-07-15 17:02

Что-то вроде этого?

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

Конечно, необходимо иметь блок и убедиться, что вы можете реагировать на клик.