Marcelo
La clase Model ,como veras en el CHB ( de aqui en mas ClassHierarchyBrowser)
solo agrega una instancia de events para hacer un override de Object
en verdad toda clase es un Model, porque el protocolo esta en
Object. Model solo pone la variable (events) de instancia a nivel de
clase para hacer mas eficiente el uso de esta variable y que quede
local a la clase, todo el protocolo de manejo de events esta en
Object.
Model no agrega gran comportamiento.
En gral prefiero dejar todo ( lo que no herede de Otra clase base) en
mi propio Object o sea el root donde cuelgo mi sistema, eso te
permitiria ver tu model en el grafo.
Otra forma de "heredar" de alguna clase base, por ejemplo es usar
composicion en vez de clasificacion de la clase base,claro esta, esto
te obliga a escribir todos los metodos que dicha clase base implementa
forwardeandole los metodos a la instancia de la clase que "heredas" ,
y vos llamas.
Por ejemplo si "heredas" de Stream tenes una clase MyStrean ( nombre
horrible. es un ejemplo ;) ) ; que tiene una instancia de la clase
Stream por ejemplo el next seria ...
MyStream>>next
^ self stream next.
stream es de la clase Stream que estas intentando "heredar" .
Si queres ver "tus classes" en un grafico de arbol como hace el CHB
fijate en este script.
| model root |
model := ClassHierarchyModel new.
model roots add: String ;
add: Collection ; yourself.
moen model roots: (OrderedCollection with: model).
root := OrderedCollection with: Collection.
moen := MoenTreeView new.
moen model: (ClassHierarchyModel withRoots: root ) .
moen parentView: ShellView new create.
moen showShell.
" agrega todo lo que quieras ver en root.
saludos y disculpas por lo extenso.
MDC.
--~--~---------~--~----~------------~-------~--~----~
Has recibido este mensaje porque estás suscrito a Grupo "clubSmalltalk" de
Grupos de Google.
Si quieres publicar en este grupo, envía un mensaje de correo
electrónico a [email protected]
Para anular la suscripción a este grupo, envía un mensaje a [EMAIL PROTECTED]
Para obtener más opciones, visita este grupo en
http://groups.google.com/group/clubSmalltalk?hl=es.
-~----------~----~----~----~------~----~------~--~---
