Dear List,
I made some improvement on MoosePanel. Instead of having a list of
buttons, here is now a menu listing the import commands. We can now
have more than 4 import commands without seeing buttons overlapping
each other :-)
Apparently, we need an event mechanism for moose model addition and
removal. For example, I added the method:
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
MooseModel>>delete
<menuItem: 'Delete' category: 'Utilities'>
| wantsToDelete |
wantsToDelete := UIManager default confirm: 'Are you sure to want to
delete ', self mooseName printString, '?'.
wantsToDelete ifFalse: [ ^ self ].
MooseModel root remove: self
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Now the question is how to refresh the list of models in the
MoosePanel when one deletes a model? I will add an announcement
hierarchy.
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel
http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.