~~~~~~~~~~~~~~~
MyPluginMorph>>changeHeight: aNumber
self submorphAfter layoutFrame topOffset: aNumber + self padding.
self layoutFrame bottomOffset: aNumber.
self layoutChanged
~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~
MyPluginMorph>>padding
"Padding set between plugins in AbstractNautilusUI>>addAll:
(middleHeight := middle height + 4)."
^ 4
~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~
MyPluginMorph>>height
"If the morph is not attached yet return negated padding to hide the plugin by default."
^ owner ifNil: [ self padding negated ] ifNotNil: [ super height ]
~~~~~~~~~~~~~~~
Peter