Adding classes is easy enough
~~~~~~~~~~~~~~~~
CodeColumn>>acceptDroppingMorph: aMorph event: anEvent
aMorph isTransferable ifTrue: [
aMorph passenger do: [ :each |
each isClass ifTrue: [
each methods do: [ :method |
self addMorph: (CodeCard class: method methodClass
selector: method selector)
]
].
each isCompiledMethod ifTrue: [
self addMorph: (CodeCard class: each methodClass
selector: each selector)
]
]
]
ifFalse: [
super acceptDroppingMorph: aMorph event: anEvent.
aMorph width: self width ]
~~~~~~~~~~~~~~~~~~~~~~~
Drag'n'dropping protocols is tad bit more complicated because Nautilus
sends only symbol and not a useful object (so we would have to ask
Nautilus back to ask it about the associated class... maybe morphic
dnd can do double dispatch?)
> - the cards aren't picking up changes done elsewhere
I'm not sure about the current status, but Nautilus was going through
update hell (I still see several open issues in the tracker), so it
was broken even there; however maybe the events/announcements could be
reused.
Peter
On Wed, Sep 23, 2015 at 1:48 AM, Alexandre Bergel
<alexandre.ber...@me.com> wrote:
> Yes, in the world menu
>
> Alexandre
>
>
>> On Sep 22, 2015, at 8:02 PM, Peter Uhnák <i.uh...@gmail.com> wrote:
>>
>>> I made it work nicer with the dark theme.
>>
>> Thanks!
>>
>>> Anyone know how to get a good result for the package name that
>>> is shown above the method name?
>>
>> Nautilus is using this for extension methods (interestingly it ignores
>> Theme, but it works for both)
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> AbstractNautilusUI>>extensionColor
>> ^ Color gray darker
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>
>> Could it be also added to the world menu?
>>
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>> CodePanel>>menuCommandOn: aBuilder
>> <worldMenu>
>> (aBuilder item: #CodePanel)
>> order: 0; "something meaningful, perhaps not the first one"
>> parent: #MostUsedTools;
>> action: [ self new openInWindow ]
>> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>
>> Peter
>>
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
