Y siguen apareciendo pedidos de gente.

------ Mensaje reenviado
De: "Grupo de clubSmalltalk:" <noreply@googlegroups.com>
Fecha: Fri, 03 Nov 2006 08:58:58 +0000
Para: Suscriptores a texto entero de clubSmalltalk
<clubSmalltalk@googlegroups.com>
Asunto: 8 mensajes nuevos de los 4 temas (texto entero)

== 1 de 5 ==
Fecha: Jue 2 nov 2006 15:59
  De: "Santiago Cardoso Geller"


Hola gente.
Donde trabajo hace falta incorporar una persona más al grupo al que
pertenezco.
Trabajamos con VisualAge for Smalltalk 6.03 y DB2 principalmente.
Desarrollamos y mantenemos dos aplicaciones que están en producción.
Arquitectura: Cliente - Servidor.
Una de las aplicaciones tiene alrededor de 150 usuarios distribuídos por
Latinoamérica.
La otra tiene menos usuarios porque todavía no es multicountry, pero esa es
una de las cosas que hay que hacer.
Parte de las tareas se ejecutan en un servidor AIX por lo que generamos
también imágenes headless.

El lugar de trabajo es en Capital Federal, en el barrio de San Telmo.
Horario: 9 a 18.
En cuanto a la estabilidad, hay trabajo seguro por lo menos por un año (Yo
creo que más. En mi caso entré por seis meses y ya llevo dos años).

El empleo es en relación de dependencia con consultora.

Los requisitos serían:
- Saber Smalltalk. Browsear clases, buscar senders, implementors,
references... (No se busca un experto en VisualAge)
- Saber SQL (Lo elemental. No usamos Stored Procedures y no administramos
nosotros el DB2)
- Conocer un poco de Linux/AIX/Unix (para ejecutar comandos via telnet,
matar procesos, hacer algun que otro script)
- Darse maña para hacer andar las cosas leyendo documentación en inglés
- Iniciativa y ganas de proponer cambios y mejoras

Toda experiencia adicional será tenida en cuenta.

Para más detalles, pueden escribirme a mi dirección particular.
cardosogeller@...

Gracias a quienes les interese y saludos para todos,
Santiago

------ Fin del mensaje reenviado


__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar

--- En squeakRos@..., "Edgar J. De Cleene"
<edgardec2001@y...> escribió:
>
> Que yo sepa, de ninguna parte, hay que comprarlo.
>
> Marcus en algún momento tendría que hacer el CD del 3.9, no se si se
espera
> que el 3.9 por fin sea declarado final .
> Este CD que se hace al fin de cada release, en anteriores
oportunidades si
> se ha podido bajar.
> Los muchachos quieren unos euros (Aquí nosotros también , ji ji ji)
> Copio el mensaje original abajo.

Si, pero lo que no se es cual comprar. A lo mejor compro el mediaDVD

Un saludo.

--- En squeakRos@..., "Edgar J. De Cleene"
<edgardec2001@y...> escribió:
>
> Tengo el DVD en mi Mac.
>
> Casi estoy tentado a hacer un cuento corto contando el viaje del
mismo desde
> Praga hasta Rosario , pasando por Madison GA (encantador el
pueblito) y Mar
> del Plata.
>
> Este material, que representa el estado del mundo Smalltalk al
momento del
> congreso, contiene todos los libros, videos, tutoriales y sistemas
completos
> de todos los Smalltalk actuales que existen en versión académica.
>
> Esta para ser visto en este lugar por las personas que se interesen.
>
> Mociono nombrar a Fracisco Lizarralde como contribuidor a la causa.
> Sin olvidar a Emilio Oca , que hubiera hecho lo mismo, solo no quise
> molestarlo
>
> Edgar

Hola Edgar.

Donde podría descargar el DVD del ESUG 2006 para verlo?

Estoy mirando en la web, pero no lo encuentro.

Un saludo.

Lic. Gonzalo Zabala
gonzalo.zabala@...
Centro de Altos Estudios - Facultad de Tecnología Informática - UAI

Tengo el DVD en mi Mac.

Casi estoy tentado a hacer un cuento corto contando el viaje del mismo desde
Praga hasta Rosario , pasando por Madison GA (encantador el pueblito) y Mar
del Plata.

Este material, que representa el estado del mundo Smalltalk al momento del
congreso, contiene todos los libros, videos, tutoriales y sistemas completos
de todos los Smalltalk actuales que existen en versión académica.

Esta para ser visto en este lugar por las personas que se interesen.

Mociono nombrar a Fracisco Lizarralde como contribuidor a la causa.
Sin olvidar a Emilio Oca , que hubiera hecho lo mismo, solo no quise
molestarlo

Edgar


__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar

Hola compañeros de lista:

Bueno, soy un infiltrado que siempre está a la escucha para ver si se
me pega algo bueno de los Argentinos, que saben mucho de lo que yo
quiero aprender ;-)

Look and Feel de Squea: A mi me gusta. Al principio me chocó el
aspecto pero nunca me molestó. Esos colores tienen su encanto.

Es verdad, tenéis toda la razón del mundo, el tema de los idiomas en
España es patológico, pero es una realidad.

Vamos a ver, se habla sobre la difusión de Smalltalk, ... VW tiene una
apariencia seriota, ¿no? ¿VW ha ayudado a la difusión de ST? No lo
creo cuando después de tantos años se sigue discutiendo sobre el tema.

Es el L&F de Squeak y su difusión en la comunidad educativa lo que me
lo ha presentado y ahora estoy enganchado, intentando aprender todo lo
que puedo y esperando contribuir en cuanto mis conocimientos lo permitan.

Pienso que en la difusión hay que utilizar todos los frentes, la de
Diego y sus investigaciones (;) después nos aprovecharemos los demás
de su gran trabajo), la de Germán Arduino y otros (demostrando su
usabilidad en aplicaciones profesionales), y la línea de Small-land en
su uso educativo, con todo su colorido.

Personalmente creo que si, que hay mucho por hacer y creo que uno de
los frentes en los que hay que atacar es la documentación, es el único
punto en el que se echa de menos Java.

Por otro lado, también es verdad que el disponer de todo los fuentes
en el entorno es una de las mejores ayudas-documentaciones que existen.

Un grave problema que encuentro son los problemas entre versiones, un
ejemplo: estaba buscando paquetes en SqueakMap para demostrar su uso
en el próximo curso que voy a impartir. Muchos paquetes dan error,
generalmente "can't find EOCD position". Los proyectos de Squeak que
se encuentran en repositorios muchas veces no funcionan en versiones
modernas de Squeak....

¿Cuál va a ser mi frente en la difusión de Squeak-Smalltalk?: La
comunidad educativa, impartiré pronto un curso, así que trabajaré en
ejemplos y tutoriales. Entre los profesores de instituto hay
informáticos (entre los que me encuentro), quizá alguno se anime a
pulsar el cuadradito que conmuta entre mosaicos y código... y quizá
también se anime a programar en ST.
Otro frente en el que pienso contribuir es la difusión, para ello
quiero montar un servidor en casa corriendo Seaside y ... ahí tengo
dudas... quizá Pier y dedicar una web de documentación. ¿Por qué
montar el servidor en casa con Squeak?: Formaría parte de la
demostración de que estamos hablando de cosas serias y potentes.

Sobre el ratón... el de Squeak me gusta, el de Small-land no, así que
lo he tirado a la basura y sustituido por el super ratón de kukuxumusu
(http://www.kukuxumusu.com/web/cards/create.php?lang=cas&f=75)

Saludos

<diegogomezdeck@c...> escribió:

> > Si se quiere promover squeak, todas las partes de la comunidad hispana
> > debemos poner de nuestra parte. El "latino", por norma general (sobre
> > todo en España) es gandúl, hay que darle la documentación en
> > español y que no tenga que traducirla.
>
> Eso es algo real, pero es más exagerado en España.
>
> Acá, en España, hay una relación especial con(tra) el Inglés y es muy
> común encontrarse programadores que NO saben leer inglés.  Eso mismo, en
> Argentina, es distinto y es muy raro encontrarse con algún programador
> que no pueda, al menos, leer Inglés técnico.  No se como será en otros
> países hispanos parlantes.

Y es una verdadera pena. Está claro que a mi no me resulta cómodo leer
en inglés, y de hecho, no soy muy activo en squeak-dev por ejemplo por
eso mismo, porque luego me cuesta expresar mis ideas, pero al menos,
lo intento. El problema ya no es sólo el tema del inglés. En España
somos cómodos y queremos las cosas hechas. "Trabajar? es un fastidio,
aunque me guste", piensan muchos.

>
> > Yo por mi parte intento hacer lo que puedo intentando actualizar mi
> > blog con contenidos de Smalltalk, y en cuanto saque tiempo, ofrecer mi
> > propia experiencia según vaya aprendiendo (de momento intento portar
> > una imágen de squeak a PDA que sea usable)
>
> Creo que lo más importante, por lejos, es hacer cosas divertidas.
> Estamos en una comunidad (la de Smalltalk) donde hay CIENTOS de cosas
> para hacer... así que es más importante proteger a la (poca) gente que
> tenemos que al Squeak en si.
>
> Si tengo que elegir donde volcar los (pocos) recursos que disponemos,
> creo que es más importante seguir invirtiendo más en investigación.
>
> Con eso no quiero decir que no estaría de acuerdo con hacer, por
> ejemplo, un binding al Squeak del GTK, del QT, o de cualquier otro
> frameworks de widgets (de hecho el binding al ODBC de Squeak lo hice
> yo).  Sólo digo que, si tengo que elegir usar mi tiempo para portar un
> toolkit de esos, o hacer algún trabajo de innovación real; está claro
> que prefiero.

Si, la investigación es importante. Pero también es importante atraer
desarrolladores. Más desarrolladores, más posibilidades de más ayuda.

Yo opino igual, es importante divertirse, pero también poría
divertirme sin ese "maldito" ratón jejeje.

> > Pero creo que, para contestar a la pregunta "¿porqué squeak no es tan
> > popular?"
>
> Alan dice que es una diferencia cultural.  El dice que las modas de
> lenguajes (Java, .NET, etc) son modas "pop"; mientras que el LISP (y los
> funcionales), el Prolog (y los lógicos) y Smalltalk (y los OO reales IO,
> Self, etc) son, culturalmente, otra cosa.
>
> Podemos comparar, pero hay que tener cuidado de no mezclar peras con
> manzanas.

Bueno, a mi no me gusta comparar, pero, a día de hoy, es mucho más
normal encontrar un desarrollador, digamos, tradicional (edición,
compilación, ejecución). Simplemente digo que no es popular, porque la
gente tiene miedo al cambio, a "esa cosa rara con colorines" como
decían en otro post.

>
> > me remito a un post que se hizo en barrapunto.com
> >
> > Cito una pequeña conversación de los comentarios del anuncio del
> > libro de Diego:
> > http://barrapunto.com/article.pl?sid=06/02/13/162223
>
> [snip]

Nunca supe que significa snip jeje.

> > Como opiné en la lista de squeak-dev (y muchas críticas que recibí)
> > entre otras muchas razones, squeak no atrae a los desarrolladores
> > porque parece un Scketcher para que jueguen los niños (aunque esto
> > parece estar cambiando), o se cree que es un lenguaje olvidado. Se
mire
> > como se mire (y criticarme si quereis), pero es así.
>
> Yo estoy de acuerdo al 100%.
>
> Si tuviésemos más recursos, podríamos invertirlos tanto en investigación
> como en desarrollo de cosas "necesarias", "útiles" o "convenientes".
>
> Pero la pregunta es un poco distinta: Como NO tenemos todos los recursos
> necesarios, ¿Qué hacemos?
>
> Yo tengo mi respuesta: Investigación.  Que es lo que falta en
> prácticamente TODAS las otras comunidades (exceptuando las comunidades
> de los funcionales, etc).
>

Enviaré un correo a Mark Shuttleworth, Google, etc... con una carta
pública (si consigo los  correos), el hombre tras Ubuntu. El dinero le
cae por las orejas, y es un fanático del opensource. A lo mejor nos
financia (soñar es gratis).

> > Abrir una imágen 3.8 si no, y decirme que parece, eso no atrae a una
> > compañía,
>
> Tenemos que atraer buenos programadores.  Y, creo, los buenos
> programadores no se desesperan por un look&feel infantil, o por usar
> muchos paréntesis en LISP.

A mi no me desespera el L&F de Squeak, lo que me desespera es que una
de las grandes causas por las que squeak no tenga más "público", es
por culpa de ese L&F.

>
> Creo que el l&f de Squeak sirve muy bien como una escusa de fácil
> acceso. Yo no he visto a ningún *buen* programador (aquellos que son
> capaces de criticarse incluso a si mismos) decir que el LISP es malo
> porque tiene muchos paréntesis, o el Squeak es malo porque trae colores
> por defecto muy "pasteles".

El pastel no es un color, es algo que se come :D


> [snip]
> > y como desarrollador que
> > soy (un artista, un creador) me preocupo para intentar crear algo
> > único con los mejores pinceles
>
> ¡Artesanos! Como dice Paul Graham.

Lo comento más abajo :D

>
> > A todo esto hay que añadir que Smalltalk da miedo (a mí me lo dá)
> > son muchos conceptos y cambia totalmente la visión de un desarrollador
> > acostumbrado a otros entornos.
>
> Cualquier cambio cultural produce miedo.
>
> Y, a muchos, eso nos motiva.  Estar en la cresta de la hola, y tener
> (muchas veces) que hacer nuestras propias herramientas es emocionante.

Si, pero también se pierde tiempo que podríamos estar ahorrándonos.

>
> > Lo ideal sería una comunidad en
> > español destinada a desarrolladores (no a colegios como small-land)
> > con tutoriales, charlas etc.. Pero todos, debemos poner de nuestra
> > parte para que llegue a buen puerto.
>
> Lo hemos intentado algunas veces, pero se puede volver a intentar.
> Incluso yo había conseguido que la Junta de Extremadura nos cediera
> alojamiento como para hacer una reunión de Smalltalkers por estas
> tierras.
>

Darme un nombre y tendreis un <nombre>.lordzealon.com con el espacio
que haga falta, velocidad, y sin publicidad alguna. Eso sí, la web
tendría que ser PHP.

> > A todo esto, debo añadir, que si quiero trabajar con Smalltalk, tengo
> > que entrar en una compañía para migrar código a Java (ya que no vivo
> > en Argentina, y aquí no hay compañías que trabajen en ST),
>
> Hay compañias, en todos los países, que comprar "productos", que NO
> compran un "desarrollo en XXX".  ¿Alguna empresa se pregunta como está
> hecho el Winamp, o el Winzip?  De la misma forma que nadie se pregunta
> como está hecho Google, o eBay, etc.

Si, pero en ese caso, debes ofrecer el producto, por lo que debes se
empresario, por lo que volvemos al tema de "no tengo dinero, ni
financiación de ningún tipo".

>
> > pero si
> > quiero hacer las cosas en Smalltalk (y vivir feliz como "artesano" que
> > soy), tendría que fundar mi propia empresa, y todos sabemos que esto
> > no es nada fácil, y no tengo ni tiempo, ni dinero.
>
> Esa también es una de las conclusiones a las que todos llegamos, y
> muchos de nosotros intentamos el mismo camino.
>
> Hace poco alguien me propuso que nos organizáramos como una cooperativa.
> Es una idea interesante, pero no tengo idea como llevarla a cabo.
>

Te he enviado un mail titulado Correcciones...

> > Pero creo que todo esto ya sería otro tema, perdonar por extenderme y
> > el OFf-Topic, pero me he calentado en un momento. Smalltalk me gusta
> > mucho, y odio las críticas que leo muchas veces sobre él, y me siento
> > impotente por mi manera de ver las cosas y mi falta de tiempo.
>
> No te preocupes por la gente que critica a ST (o que critica, en
> general, sin hacer)... No merece la pena.
>
> Preocupate por llegar a la gente que SI interesa, a los que saben que la
> programación es de artesanos, a los que saben que la herramienta
> utilizada tiene un gran impacto sobre la obra, etc.


Una de las cosas que más me gustan de Squeak/Smalltalk, es esta
especie de ambiente Zen/filosófico que lo rodea. ¿Estaré enamorado?

Un saludo

Hola gente,

¡Que bueno! ¡Cuanto movimiento en la lista!

Yo también me quiero sumar a la discusión con un e-sábana-mail.

> Si se quiere promover squeak, todas las partes de la comunidad hispana
> debemos poner de nuestra parte. El "latino", por norma general (sobre
> todo en España) es gandúl, hay que darle la documentación en
> español y que no tenga que traducirla.

Eso es algo real, pero es más exagerado en España.

Acá, en España, hay una relación especial con(tra) el Inglés y es muy
común encontrarse programadores que NO saben leer inglés.  Eso mismo, en
Argentina, es distinto y es muy raro encontrarse con algún programador
que no pueda, al menos, leer Inglés técnico.  No se como será en otros
países hispanos parlantes.

> Yo por mi parte intento hacer lo que puedo intentando actualizar mi
> blog con contenidos de Smalltalk, y en cuanto saque tiempo, ofrecer mi
> propia experiencia según vaya aprendiendo (de momento intento portar
> una imágen de squeak a PDA que sea usable)

Creo que lo más importante, por lejos, es hacer cosas divertidas.
Estamos en una comunidad (la de Smalltalk) donde hay CIENTOS de cosas
para hacer... así que es más importante proteger a la (poca) gente que
tenemos que al Squeak en si.

Si tengo que elegir donde volcar los (pocos) recursos que disponemos,
creo que es más importante seguir invirtiendo más en investigación.

Con eso no quiero decir que no estaría de acuerdo con hacer, por
ejemplo, un binding al Squeak del GTK, del QT, o de cualquier otro
frameworks de widgets (de hecho el binding al ODBC de Squeak lo hice
yo).  Sólo digo que, si tengo que elegir usar mi tiempo para portar un
toolkit de esos, o hacer algún trabajo de innovación real; está claro
que prefiero.

Si miran un poco la evolución de Squeak verán ese mismo patrón bien
marcado.  No creo que sea casualidad que, por ejemplo, el Seaside se
desarrolle en Squeak.  Imaginensé, por ejemplo, lo que tardaría una
discusión el alguna lista de Java (o Pyhton, o .NET) para meter
Continuations.... En cambio, en Squeak, fue trivial... copiar las
variables del contexto de ejecución actual y de todos los contextos
enganchados. Punto.   Es muy interesante ver la implementación (casi
trivial) de la clase Continuation que viene en el Seaside.

Lo mismo se puede decir del Morphic, Croquet, Tweak, Sophie, Seaside,
Exupery, Squeak-E, etc.

> Pero creo que, para contestar a la pregunta "¿porqué squeak no es tan
> popular?"

Alan dice que es una diferencia cultural.  El dice que las modas de
lenguajes (Java, .NET, etc) son modas "pop"; mientras que el LISP (y los
funcionales), el Prolog (y los lógicos) y Smalltalk (y los OO reales IO,
Self, etc) son, culturalmente, otra cosa.

Podemos comparar, pero hay que tener cuidado de no mezclar peras con
manzanas.

Como ejemplo: ¿A quién se le ocurre comparar los discos de Madonna
contra las sinfonías de Bach?... !A nadie! son cosas distintas, con
fines distintos, etc.

> me remito a un post que se hizo en barrapunto.com
>
> Cito una pequeña conversación de los comentarios del anuncio del
> libro de Diego:
> http://barrapunto.com/article.pl?sid=06/02/13/162223

[snip]
> Como opiné en la lista de squeak-dev (y muchas críticas que recibí)
> entre otras muchas razones, squeak no atrae a los desarrolladores
> porque parece un Scketcher para que jueguen los niños (aunque esto
> parece estar cambiando), o se cree que es un lenguaje olvidado. Se mire
> como se mire (y criticarme si quereis), pero es así.

Yo estoy de acuerdo al 100%.

Si tuviésemos más recursos, podríamos invertirlos tanto en investigación
como en desarrollo de cosas "necesarias", "útiles" o "convenientes".

Pero la pregunta es un poco distinta: Como NO tenemos todos los recursos
necesarios, ¿Qué hacemos?

Yo tengo mi respuesta: Investigación.  Que es lo que falta en
prácticamente TODAS las otras comunidades (exceptuando las comunidades
de los funcionales, etc).

> Abrir una imágen 3.8 si no, y decirme que parece, eso no atrae a una
> compañía,

Tenemos que atraer buenos programadores.  Y, creo, los buenos
programadores no se desesperan por un look&feel infantil, o por usar
muchos paréntesis en LISP.

Creo que el l&f de Squeak sirve muy bien como una escusa de fácil
acceso. Yo no he visto a ningún *buen* programador (aquellos que son
capaces de criticarse incluso a si mismos) decir que el LISP es malo
porque tiene muchos paréntesis, o el Squeak es malo porque trae colores
por defecto muy "pasteles".

[snip]
> y como desarrollador que
> soy (un artista, un creador) me preocupo para intentar crear algo
> único con los mejores pinceles

¡Artesanos! Como dice Paul Graham.

> pero, los españoles, no somos así
> como norma general. Primero debe entrar por el ojo.

Los españoles y el resto de la gente que conozco.

> A todo esto hay que añadir que Smalltalk da miedo (a mí me lo dá)
> son muchos conceptos y cambia totalmente la visión de un desarrollador
> acostumbrado a otros entornos.

Cualquier cambio cultural produce miedo.

Y, a muchos, eso nos motiva.  Estar en la cresta de la hola, y tener
(muchas veces) que hacer nuestras propias herramientas es emocionante.

Prácticamente todos los Smalltalkers de años que conozco, en algún
momento, se les ocurrió la idea de hacer un ST.

Sin ir más lejos, lo más emocionante del desarrollo Web 2.0 que estoy
haciendo con Squeak, es el bootstrapping de un mini-ambiente Smalltalk
en los browsers.

> Lo ideal sería una comunidad en
> español destinada a desarrolladores (no a colegios como small-land)
> con tutoriales, charlas etc.. Pero todos, debemos poner de nuestra
> parte para que llegue a buen puerto.

Lo hemos intentado algunas veces, pero se puede volver a intentar.
Incluso yo había conseguido que la Junta de Extremadura nos cediera
alojamiento como para hacer una reunión de Smalltalkers por estas
tierras.

> A todo esto, debo añadir, que si quiero trabajar con Smalltalk, tengo
> que entrar en una compañía para migrar código a Java (ya que no vivo
> en Argentina, y aquí no hay compañías que trabajen en ST),

Hay compañias, en todos los países, que comprar "productos", que NO
compran un "desarrollo en XXX".  ¿Alguna empresa se pregunta como está
hecho el Winamp, o el Winzip?  De la misma forma que nadie se pregunta
como está hecho Google, o eBay, etc.

> pero si
> quiero hacer las cosas en Smalltalk (y vivir feliz como "artesano" que
> soy), tendría que fundar mi propia empresa, y todos sabemos que esto
> no es nada fácil, y no tengo ni tiempo, ni dinero.

Esa también es una de las conclusiones a las que todos llegamos, y
muchos de nosotros intentamos el mismo camino.

Hace poco alguien me propuso que nos organizáramos como una cooperativa.
Es una idea interesante, pero no tengo idea como llevarla a cabo.

> Pero creo que todo esto ya sería otro tema, perdonar por extenderme y
> el OFf-Topic, pero me he calentado en un momento. Smalltalk me gusta
> mucho, y odio las críticas que leo muchas veces sobre él, y me siento
> impotente por mi manera de ver las cosas y mi falta de tiempo.

No te preocupes por la gente que critica a ST (o que critica, en
general, sin hacer)... No merece la pena.

Preocupate por llegar a la gente que SI interesa, a los que saben que la
programación es de artesanos, a los que saben que la herramienta
utilizada tiene un gran impacto sobre la obra, etc.

¡Artesanos power!

Saludos,

--- Diego

> En mi post anterior se me pasó otra persona que ha hecho y hace
  > muchísimo por Smalltalk y que a mi particularmente me ha ayudado un
  > montón, se trata de Diego Gómez Deck. Perdón por la omisión Diego,
  > pero sabés que tenés mi reconocimiento y agradecimiento.
  >
  > Saludos.
  >

Y Edgar J. de Cleene. No te olvides de él, y también es profesor de
universidad (creo)

Si se quiere promover squeak, todas las partes de la comunidad hispana
debemos poner de nuestra parte. El "latino", por norma general (sobre
todo en España) es gandúl, hay que darle la documentación en español y
que no tenga que traducirla.

Yo por mi parte intento hacer lo que puedo intentando actualizar mi blog
con contenidos de Smalltalk, y en cuanto saque tiempo, ofrecer mi propia
experiencia según vaya aprendiendo (de momento intento portar una imágen
de squeak a PDA que sea usable)

Pero creo que, para contestar a la pregunta "¿porqué squeak no es tan
popular?" me remito a un post que se hizo en barrapunto.com

Cito una pequeña conversación de los comentarios del anuncio del libro
de Diego:
http://barrapunto.com/article.pl?sid=06/02/13/162223
=======================
"Mmm... ¿poco práctica? Exactamente ¿por qué? Smalltalk es uno de los
mejores lenguajes de programación que existen. Por supuesto no sólo lo
digo yo, sino una gran cantidad de estudiosos de la informática. El
hecho de que haya sido dado de lado sólo se debe a la tendencia
ineludible de la raza humana de no ver que con un mínimo esfuerzo de
sentirse cómodo en ese lenguaje se iban a ahorrar después muchas horas
de trabajo. Es más, Smalltalk, después de sus 25 o así años de
existencia sigue siendo pionero.

Y si no, busca las presentaciones de nuevos lenguajes de programación
como Python o Ruby y verás que mucha parte de su filosofía está tomada
de Smalltalk. Nunca he visto otro lenguaje de programación más elegante.
Elegante y diferente, de ahí la reticencia. Actualmente Smalltalk es un
lenguaje tan potente como pueda ser cualquier otro de los que se
utilicen regularmente. Tiene todas las librerías necesarias para hacer
casi cualquier cosa, entornos de ejecución, etc. etc. Y además, es mucho
más productivo :)
======================

Contestación:
=======================
Si algo realmente trae beneficios, tranquilo, la gente está dispuesta a
cambiar.
Ya sabes, la pela es la pela.

Otra cosa es que sea mas estructurado, con una filosofia mas pura, con
patatin y con patatan, pero....¿realmente es mas productivo? El mercado
dice que no.
=======================

=======================
No estoy de acuerdo. El mercado se equivoca muchas veces. Es por lo que
todavía se usa HTTP para hacer comunicación entre aplicaciones (los
tristes Servicios Web). Es por lo que existe el Spam y no hay
posibilidad de autenticación en envíos de correo, etc. etc.
Efectivamente, la pela es la pela, pero por tomar un ejemplo que acabo
de sacar, no sabría estimar cuánto dinero cuesta el Spam a las empresas
(a la mayoría de ellas, no a las que se lucran de ello, que son unas
cuantas). ¿Cómo es que no hay soluciones más eficaces?

El "mercado" como tú lo llamas se ve influenciado, por ejemplo, por
campañas de márketing dirigidas por grandes empresas que pueden dar
soluciones "terminadas" y de un alto valor percibido (en un momento
dado) pero también puede que de bajo valor tecnológico o de futuro. Es
tarea de los que realizan la investigación encontrar los mejores
paradigmas y prácticas.

Así, te puedo decir que hay muchos estudios que comprueban la
productividad de Smalltalk comparado con otros lenguajes, incluso de su
propio inventor Alan Kay. Basta con buscar en Google "smalltalk
productivity" para encontrar cientos.

Así que sí, el mercado se equivoca (como muchas otras veces).
diego.
=======================

Como opiné en la lista de squeak-dev (y muchas críticas que recibí)
entre otras muchas razones, squeak no atrae a los desarrolladores porque
parece un Scketcher para que jueguen los niños (aunque esto parece estar
cambiando), o se cree que es un lenguaje olvidado. Se mire como se mire
(y criticarme si quereis), pero es así.

Abrir una imágen 3.8 si no, y decirme que parece, eso no atrae a una
compañía, en cambio un entorno con look corporativo como VW o Dolphin si
podría atraer, pero esto ya es otro tema. Yo se que no es así, y debajo
se esconde algo muy poderoso, pero porque me preocupé en buscar
información, y enterarme un poco de como iba el tema, apuntarme a listas
de correo, leer, leer leer leer.

Y sobre todo, preocuparme porque no me gustan las modas (que si .NET,
Java, más de lo mismo reinventando la rueda), y como desarrollador que
soy (un artista, un creador) me preocupo para intentar crear algo único
con los mejores pinceles pero, los españoles, no somos así como norma
general. Primero debe entrar por el ojo.

A todo esto hay que añadir que Smalltalk da miedo (a mí me lo dá) son
muchos conceptos y cambia totalmente la visión de un desarrollador
acostumbrado a otros entornos. Lo ideal sería una comunidad en español
destinada a desarrolladores (no a colegios como small-land) con
tutoriales, charlas etc.. Pero todos, debemos poner de nuestra parte
para que llegue a buen puerto.

A todo esto, debo añadir, que si quiero trabajar con Smalltalk, tengo
que entrar en una compañía para migrar código a Java (ya que no vivo en
Argentina, y aquí no hay compañías que trabajen en ST), pero si quiero
hacer las cosas en Smalltalk (y vivir feliz como "artesano" que soy),
tendría que fundar mi propia empresa, y todos sabemos que esto no es
nada fácil, y no tengo ni tiempo, ni dinero.

Pero creo que todo esto ya sería otro tema, perdonar por extenderme y el
OFf-Topic, pero me he calentado en un momento. Smalltalk me gusta mucho,
y odio las críticas que leo muchas veces sobre él, y me siento impotente
por mi manera de ver las cosas y mi falta de tiempo.

--
Giuseppe Luigi Punzi
Linux User: #370919
http://blog.lordzealon.com

El sáb, 21-10-2006 a las 08:15 -0300, Edgar J. De Cleene escribió:

> Se pueden mejorar, en cuanto "descubra" como leer los tar.gz de las
> "pieles" , podría tenerse dentro de la imagen por lo menos cuatro o
> cinco de las mas pequeñas sin mucho costo en tamaño

En GNU/Linux sería

tar -xvzf nombre_del_archivo.tar.gz

pero no sé si tenés el tar en MAC

Saludos,

Francisco

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar

>
> Me acaban de comunicar que el SqueakLight tendra enlace oficial desde el
> sitio oficial de Squeak.
>
> Así que gracias a todos los que me ayudaron en el pasado.
>

Enhorabuena.
> Intentaré seguir mejorando la imagen (no la mía que pese a lo que digan
> Giusseppe  y Germán no tiene solución).
>
Eso está por ver ;)
> Cuando pueda seducir a alguno de los alumnos para hacer tutoriales, los
> seguiremos agregando.
>
> Para la gente de la UTN y todos los que deseen ayudarnos en la quijotada,
> recordar que hemos iniciado la tramitación para tener una electiva basada en
> Squeak.
>
> Agradeceremos opiniones, etc en el siguiente link que me gustaría saber si
> funciona externamente.
>
>
> http://201-212-99-13.cab.prima.net.ar:8888/Electiva
>
El link ahora mismo (21/10/2006 a las 12:43 hora española) no funciona.

Un saludo.

--
Giuseppe Luigi Punzi
Linux User: #370919
http://blog.lordzealon.com

Me acaban de comunicar que el SqueakLight tendra enlace oficial desde el
sitio oficial de Squeak.

Así que gracias a todos los que me ayudaron en el pasado.

Intentaré seguir mejorando la imagen (no la mía que pese a lo que digan
Giusseppe  y Germán no tiene solución).

Cuando pueda seducir a alguno de los alumnos para hacer tutoriales, los
seguiremos agregando.

Para la gente de la UTN y todos los que deseen ayudarnos en la quijotada,
recordar que hemos iniciado la tramitación para tener una electiva basada en
Squeak.

Agradeceremos opiniones, etc en el siguiente link que me gustaría saber si
funciona externamente.


http://201-212-99-13.cab.prima.net.ar:8888/Electiva

Edgar


__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar

Lo mismo digo, menuda cara que tengo, ni recordaba que la envié.

Si aguantó la mía sin que fuese desterrado de la comunidad, entonces
sirve cualquiera ;)

Un saludo.

--
Giuseppe Luigi Punzi
Linux User: #370919
http://blog.lordzealon.com

Para cuando tengan hipo, ver esta colección de rostros de Squeakers y otras
fotos

http://www.frappr.com/squeak/photos

PD) La mia no la envio , no quiero romper el server :=)






__________________________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
¡Probalo ya!
http://www.yahoo.com.ar/respuestas

--- En squeakRos@..., "Edgar J. De Cleene"
<edgardec2001@y...> escribió:
>
> > La iPAQ en cuestión es una HP iPAQ 4150 con 64 MB de ram, una tarjeta
> > SD de 512MB y 400MHZ de procesador.
> >
> > Hoy acabo de probar la imagen con el plano cargado en un pentiun
550Mhz y
> > anduvo muy bien.
> > Esta imagen ³minima², se descarga de
> > ftp://squeaklight.noads.de@8...:21/SqueakLight390.zip
> > Si quieres algo menos minimo, en el anterior mail mande de donde
descargar lo
> > que normalmente utilizamos en el laboratorio
> >
>

He cargado squeaklight.406 y la verdad no va nada mal. Aunque habría
que ver como hacer para que el browser por ejemplo, cogiese pantalla
completa de verdad. Aunque, con este tamaño de imágen, seguramente
habría que reestructurar las ventanas ya que se ven demasiado
ajustadas. Además, bloquea las teclas del PDA dejándolas inutilizadas,
pero esto supongo que será cosa de la VM.

Además, la barra de abajo tampoco se ve del todo bien porque sobrepasa
el ancho de la ventana

Sabrías decirme, como incluir un tamaño de fuente más pequeño que 10
en esa imagen?

Sería cuestión de retocar aquí y allí, y en principio sería bastante
usable. De rapidez no va del todo mal. Los mayores probelmas que veo
son los 10MB de la imágen más los 15MB del SqueakV3.sources, que para
un PDA, son bastantes.

Aquí te pego unas screenshots.

http://lordzealon.com/squeak/01-launching.bmp

http://lordzealon.com/squeak/02-launching2.bmp

http://lordzealon.com/squeak/03-memory.bmp

http://lordzealon.com/squeak/04-world.bmp

http://lordzealon.com/squeak/05-worldmenu.bmp

http://lordzealon.com/squeak/06-openingbrowser.bmp

http://lordzealon.com/squeak/07-browser.bmp

http://lordzealon.com/squeak/08-browserfullscreen.bmp

La iPAQ en cuestión es una HP iPAQ 4150 con 64 MB de ram, una tarjeta
SD de 512MB y 400MHZ de procesador.

Hoy acabo de probar la imagen con el plano cargado en un pentiun 550Mhz y anduvo muy bien.
Esta imagen “minima”, se descarga de ftp://squeaklight.noads.de@...:21/SqueakLight390.zip
Si quieres algo menos minimo, en el anterior mail mande de donde descargar lo que normalmente utilizamos en el laboratorio

--- En squeakRos@..., "Edgar J. De Cleene"
<edgardec2001@y...> escribió:
>
> Hola,
>
> No nececitas una imagen pequeña para correr en pocketPC. Cualquier
imagen
> corre, el problema es la memoria que tengas disponible, de cuanta
memoria
> hablamos?
> Con Edgar corrimos y desarrollamos un squeak normal en una iPaq con
32 M.
> Luego del desarrollo trimeamos algo de lo que no usabamos.
>
>     Emilio
>
> En estos dias ha ³retornado² a la lista Aaron Reichow, quien tiene
> considerable experiencia en uso de pequeños dispositivos y tambien
es uno de
> los pioneros en construcción de imagenes pequeñas, fijarse sus
últimos posts
> en la lista internacional.
> Tengo gran curiosidad de como respondera el OLPC con Squeak, en estos
> momentos hav varios de los masters adecuando la imagen de SqueakLand
a 640 *
> 480 y al procesador que usaran.
> En la facultad , lo menos que tenemos a disposición para nosotros
son un par
> de Celeron 400 que ³tiran² muy bien dos imagenes de SqueakLight al mismo
> tiempo, para nuestros prácticos de comunicación via TCP.
>
> Espero que ayude esta info..
> Aca con un par de chicas estamos intentanod armar algo que nos de una
> especie de plano con los recorridos de los colectivos.
> Por razones de perfomance (el jpg que pienso usar es muuuuy grande)
estoy
> intentando armar todo con la imagen más pequeña posible Morphica (la
de 3.8
> Mb)
> Si alguien se interesa en este desarrollo, hablo con las chicas y
armamos
> algo que se pueda seguir a distancia (y participar si desean)
>
> Edgar

Se que no se necesita una imágen pequeña pero me gustaría probar a
partir de la versión minimal ya que quiero aprovechar el ahorro de
memoria, y a partir de ahí, modificarla para adaptarla a una pantalla
de pocketpc QVGA(320*200). La memoria en los PDA's no sobra
precisamente y deben trabajar lo menos posible para ahorrar batería.

La iPAQ en cuestión es una HP iPAQ 4150 con 64 MB de ram, una tarjeta
SD de 512MB y 400MHZ de procesador.

A ver si tengo un hueco y leo la lista, últimamente tengo poco tiempo,
y la lista de squeak-dev está siendo muy activa y no me da tiempo a
leerlo todo (y eso cuando consigo leer algo). LLevaré como un par de
semanas que no consigo seguir el ritmo.

Un saludo.

Mas ofertas de trabajo.

------ Mensaje reenviado
De: "Grupo de clubSmalltalk:" <noreply@googlegroups.com>
Fecha: Thu, 12 Oct 2006 08:01:36 +0000
Para: Suscriptores a texto entero de clubSmalltalk
<clubSmalltalk@googlegroups.com>
Asunto: 1 mensajes nuevos del 1 tema (texto entero)

Gente,
la empresa donde trabajo, InfOil, publicó esta oferta en UniversoBIT.
Les paso el link,

http://www.universobit.com/ubit/gfs?open&REC=/olu/5914-145937

Me parece interesante para quien quiera laburar y aprender Smalltalk.

Saludos, Facundo

------ Fin del mensaje reenviado






__________________________________________________
Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
¡Probalo ya!
http://www.yahoo.com.ar/respuestas

http://201-212-99-13.cab.prima.net.ar:8888/prueba/12

Aqui intentaré ir agregando lo que haga.
Recordar , esto es para gente que recien empieza.
La idea es que funcione en cualquier imagen.
Ya vi que una vez instalado y leido el jpg, al grabar la imagen crece a 33
mb, por lo que ovidarse de poner la imagen en el ftp y que la bajen.
El jpg es el que se obtiene de entrar al sitio de la municipalidad, bajar el
plano total en pdf y convertirlo a .jpg.
En formato .jpg el plano solo ocupa 8.3 mb
Una vez descomprimido con los programas de gráficos (si no tienen el
GraphicConverter consiganlo) puedo ver que se necesitarían 115.9 mb de
memoria !!! y que la máquina tardará 9.2 segundos en leerlo.

Una vez cargado todo,

(PanningView onImageFile: 'Discovery:Users:admin:Desktop:planorosario2.jpg')
openInWorld
Me imagino que se darán cuenta que es un ejemplo y que tienen que cambiar el
path...

En el workspace y posteriormente self extent 440@463 para que tenga el
tamaño de una cuadricula del plano original.
Agrego un dibujito .

Otro tema.

Intento que se sepa que existen otros formatos aparte del de la PC.

El 3.9 , entre sus mejoras, incorpora varios conversores.
Así que una vez cargada la clase Recorridos, la idea es que manipulen un
único objeto Recorridos, que tenga la información de las líneas y los
listados de calle.
Elegí armar un Diccionario.

Para ver el objeto, en la imagen receptora hacer:

| inputStream anObject  |
inputStream _ FileStream oldFileNamed: 'Recorridos.obj'.
anObject _ inputStream fileInObjectAndCode.
inputStream close.
(Inspector openAsMorphOn: anObject) openInHand

Con esto deberiamos tener un inspector "mirando" el objeto.
Esta será la única instancia de este objeto.

Recorridos allInstances first inspect "Hacer do it"
Recorridos allInstances first "Hacer inspect it"

Por último, la Mac codifica en MacRoman , así que p ej.
(((Recorridos allInstances first at: 'calles') at: 'EO') at: 4 )
convertFromWithConverter: MacRomanTextConverter new

Seleccionarlo y hacer print it en el Workspace a ver si les da


'Güemes'

En la categoría

ŒMultilingual-TextConversion'

podrán ver todos los conversores y jugar un poquito

Obviamente, una imagen de 3.8 Mb inicial no tiene la mas p... noción de esto
, ni de drag and drop, ni de servicios, ni ....

Pero funca y no es mucho mas grande que la consola de mi amigo Pavel.

Por razones de eficiencia, la imagen actualmente disponible en elpelotero y
el el server es una imagen derivada de lo que alguna vez fue el SqueakLight
3.7.2 y que si tiene drag and drop, servicios, las mejoras de los japoneses,
etc.
Pesa 5.2 mb.
Pueden actualizarse con Utilities actualizar en el do it del mundo

El número final debe ser en ambos casos 410 y puede que alguna de las dos
proteste por algo que no entienda.

Si los que no entienden son ustedes, queridos amigos lejanos, pregunten.

Edgar

'From SqueakLight3.7.1 of ''4 September 2004'' [latest update: #5985] on 11
October 2006 at 10:59:16 am'!  !String methodsFor: 'converting' stamp: 'edc
10/11/2006 10:57'! alphanumeric  "answer the receiver with only letters and
numbers"  ^ self 	 select: [:each | each isAlphaNumeric]! !

'From SqueakLight3.7.1 of ''4 September 2004'' [latest update: #5985] on 11
October 2006 at 9:08:42 am'! "Change Set:  AutoScroll Date: 	 27 September 2002
Author: 	 Torge Husfeldt  This cs allows the user to add and then configure an
auto scroll mechanism to any morph that is a ScrollPaneX by the custom menu.
That is any morph that inherits from the new class AbstractScrollPane now
superclass of ScrollPaneX and TwoWayScrollPaneX, providing some of their common
behavior. There is anoter new (experimental) subclass of AbstractScrollPane
called PanningView. This class provides two-way auto scroll by default as well
as no scroll bars. This could also be easily achieved with a new initialization
method in TwoWayScrollPaneX."!  MorphicModel subclass: #ComponentLikeModel 
instanceVariableNames: 'pinSpecs'  classVariableNames: ''  poolDictionaries: '' 
category: 'Morphic-Components'! ComponentLikeModel subclass: #AbstractScrollPane
instanceVariableNames: 'scrollBar scroller getMenuSelector getMenuTitleSelector'
classVariableNames: ''  poolDictionaries: ''  category: 'Morphic-Windows'!
AbstractScrollPane subclass: #PanningView  instanceVariableNames: 'scrollRegion'
classVariableNames: ''  poolDictionaries: ''  category: 'Morphic-Windows'!
AbstractScrollPane subclass: #ScrollPaneX  instanceVariableNames:
'retractableScrollBar scrollBarOnLeft scrollBarHidden hasFocus' 
classVariableNames: ''  poolDictionaries: ''  category: 'Morphic-Windows'! Morph
subclass: #ScrollRegionMorph  instanceVariableNames: 'lastPosition passiveRegion
insetPercentage scrollFactor stepDelay'  classVariableNames: '' 
poolDictionaries: ''  category: 'Morphic-Windows'! AbstractScrollPane subclass:
#TwoWayScrollPaneX  instanceVariableNames: 'xScrollBar yScrollBar' 
classVariableNames: ''  poolDictionaries: ''  category: 'Morphic-Windows'! 
!Morph methodsFor: 'classification' stamp: 'di 11/2/2000 13:24'! isSyntaxMorph 
^false! ! 
 !ComponentLikeModel methodsFor: 'components' stamp: 'di 5/1/1998
16:14'! addPinFromSpec: pinSpec  | pin |  pin _ PinMorph new component: self
pinSpec: pinSpec.  self addMorph: pin.  pin placeFromSpec.  ^ pin! ! 
!ComponentLikeModel methodsFor: 'components' stamp: 'di 5/2/1998 15:07'!
deleteComponent  model removeDependent: self.  self pinsDo: [:pin | pin delete].
^ super delete! !  !ComponentLikeModel methodsFor: 'components' stamp: 'di
5/5/1998 00:57'! initComponentIn: aLayout  model _ aLayout model.  self
nameMeIn: aLayout.  self color: Color lightCyan.  self initPinSpecs.  self
initFromPinSpecs.  self showPins.  model addDependent: self! ! 
!ComponentLikeModel methodsFor: 'components' stamp: 'di 5/1/1998 16:31'!
initFromPinSpecs  "no-op for default"! !  !ComponentLikeModel methodsFor:
'components' stamp: 'di 5/3/1998 20:11'! initPinSpecs  "no-op for default" 
pinSpecs _ Array new. ! !  !ComponentLikeModel methodsFor: 'components' stamp:
'di 4/26/1998 10:40'! nameMeIn: aWorld  | stem otherNames i partName className |
className _ self class name.  stem _ className.  (stem size > 5 and: [stem
endsWith: 'Morph']) 	 ifTrue: [stem _ stem copyFrom: 1 to: stem size - 5].  stem
_ stem first asLowercase asString , stem allButFirst.  otherNames _ Set newFrom:
aWorld allKnownNames.  i _ 1.  [otherNames includes: (partName _ stem , i
printString)] 	 whileTrue: [i _ i + 1].  self setNamePropertyTo: partName! ! 
!ComponentLikeModel methodsFor: 'components' stamp: 'di 5/3/1998 20:18'!
pinSpecs  ^ pinSpecs! !  !ComponentLikeModel methodsFor: 'components' stamp: 'di
5/2/1998 15:09'! pinsDo: pinBlock  self submorphsDo: [:m | (m isKindOf:
PinMorph) ifTrue: [pinBlock value: m]]! !  !ComponentLikeModel methodsFor:
'components' stamp: 'di 5/3/1998 09:26'! renameMe  | otherNames newName | 
otherNames _ Set newFrom: self pasteUpMorph allKnownNames.  newName _
FillInTheBlank request: 'Please give this new a name' 					 initialAnswer: self
knownName.  newName isEmpty ifTrue: [^ nil].  (otherNames includes: newName)
ifTrue: 		 [self inform: 'Sorry, that name is already used'. ^ nil].  self
setNamePropertyTo: newName! !  !ComponentLikeModel methodsFor: 'components'
stamp: 'di 4/29/1998 15:16'! showPins  "Make up sensitized pinMorphs for each of
my interface variables"  self pinSpecs do: [:pinSpec | self addPinFromSpec:
pinSpec]! !  !ComponentLikeModel methodsFor: 'dropping/grabbing' stamp: 'ar
10/5/2000 20:03'! justDroppedInto: aMorph event: anEvent  | theModel |  theModel
_ aMorph modelOrNil.  ((aMorph isKindOf: ComponentLayout) 
	 and: [theModel
isKindOf: Component]) ifFalse: 	 ["Disconnect prior to removal by move" 	
(theModel isKindOf: Component) ifTrue: [self unwire.  model _ nil]. 	 ^ super
justDroppedInto: aMorph event: anEvent].  theModel == model ifTrue: [^ self 
"Presumably just a move"].  self initComponentIn: aMorph.  super
justDroppedInto: aMorph event: anEvent! !  !ComponentLikeModel methodsFor:
'geometry' stamp: 'di 4/29/1998 09:49'! extent: newExtent  super extent:
newExtent.  self submorphsDo: [:m | (m isKindOf: PinMorph) ifTrue: [m
placeFromSpec]]! !  !ComponentLikeModel methodsFor: 'initialization' stamp: 'di
5/3/1998 09:24'! duplicate: newGuy from: oldGuy  "oldGuy has just been
duplicated and will stay in this world.  Make sure all the ComponentLikeModel
requirements are carried out for the copy.  Ask user to rename it.  " 
 newGuy
installModelIn: oldGuy pasteUpMorph.  newGuy copySlotMethodsFrom: oldGuy
slotName.! !  !ComponentLikeModel methodsFor: 'naming' stamp: 'dgd 2/21/2003
23:01'! choosePartName  "When I am renamed, get a slot, make default methods,
move any existing methods." 
 | old |  (self pasteUpMorph model isKindOf:
Component) 
	 ifTrue: 
		 [self knownName ifNil: [^self nameMeIn: self
pasteUpMorph] 			 ifNotNil: [^self renameMe]].  old := slotName.  super
choosePartName.  slotName ifNil: [^self]. "user chose bad slot name"  self
model: self world model slotName: slotName.  old isNil 
	 ifTrue: [self
compilePropagationMethods] 	 ifFalse: [self copySlotMethodsFrom: old]  "old ones
not erased!!"! !  !ComponentLikeModel methodsFor: 'submorphs-add/remove' stamp:
'rbb 2/18/2005 13:32'! delete  "Delete the receiver.  Possibly put up confirming
dialog.  Abort if user changes mind" 
 (model isKindOf: Component) ifTrue:
[^self deleteComponent].  (model isMorphicModel) ifFalse: [^super delete]. 
slotName ifNotNil: 
		 [(self confirm: 'Shall I remove the slot ' , slotName
, '  along with all associated methods?') 
			 ifTrue: 
				 [(model class
selectors select: [:s | s beginsWith: slotName]) 
					 do: [:s | model class
removeSelector: s]. 				 (model class instVarNames includes: slotName) 
					
ifTrue: [model class removeInstVarName: slotName]] 			 ifFalse: 
				 [(self
confirm: '...but should I at least dismiss this morph?  [choose no to leave
everything unchanged]') 
						 ifFalse: [^self]]].  super delete! ! 
!AbstractScrollPane methodsFor: 'private' stamp: 'th 9/26/2002 22:16'!
disableAutoScroll  (submorphs select:[:each | each class == ScrollRegionMorph])
do:[:each | each delete].! !  !AbstractScrollPane methodsFor: 'private' stamp:
'th 9/26/2002 22:16'! enableAutoScroll  self addMorph:(ScrollRegionMorph new
bounds: self scroller bounds)! !  !AbstractScrollPane methodsFor: 'menu' stamp:
'th 9/26/2002 22:17'! addCustomMenuItems: aCustomMenu hand: aHandMorph  |
myScrollRegion |  super addCustomMenuItems: aCustomMenu hand: aHandMorph. 
myScrollRegion _ submorphs detect:[:sm | sm class == ScrollRegionMorph]
ifNone:[nil].  myScrollRegion 	 ifNil:[aCustomMenu add: 'enable autoscroll'
action: #enableAutoScroll] 	 ifNotNil:[aCustomMenu add: 'disable autoscroll'
action: #disableAutoScroll].! ! 
 !PanningView methodsFor: 'initialization'
stamp: 'th 9/26/2002 20:17'! initialize  super initialize. 
 scroller :=
TransformMorph new color: Color transparent.  scroller offset: 0@0.  self
addMorph: scroller.  scrollRegion _ ScrollRegionMorph new bounds: scroller
bounds.  self addMorph: scrollRegion.  self extent: 150@120! !  !PanningView
methodsFor: 'pane events' stamp: 'th 9/23/2002 18:13'! handlesMouseDown: evt  ^
true! !  !PanningView methodsFor: 'pane events' stamp: 'th 9/23/2002 18:13'!
handlesMouseOver: evt  ^ true! !  !PanningView methodsFor: 'pane events' stamp:
'th 9/23/2002 18:14'! mouseDown: evt  evt yellowButtonPressed  "First check for
option (menu) click" 	 ifTrue: [^ self yellowButtonActivity: evt shiftPressed]. 
"If pane is not full, pass the event to the last submorph,  assuming it is the
most appropriate recipient (!!)"  scroller hasSubmorphs ifTrue: 	 [scroller
submorphs last mouseDown: (evt transformedBy: (scroller transformFrom: self))]!
!  !PanningView methodsFor: 'pane events' stamp: 'th 9/26/2002 10:00'!
mouseEnter: event 
 self owner addMorphFront: self! !  !PanningView methodsFor:
'pane events' stamp: 'th 9/26/2002 10:00'! mouseLeave: event 
 self owner
addMorphBack: self.! !  !PanningView methodsFor: 'pane events' stamp: 'th
9/23/2002 18:47'! mouseMove: evt  "If pane is not full, pass the event to the
last submorph,  assuming it is the most appropriate recipient (!!)"  self
scrollBy: evt startPoint - evt position! !  !PanningView methodsFor: 'pane
events' stamp: 'th 9/23/2002 18:22'! mouseUp: evt  "If pane is not full, pass
the event to the last submorph,  assuming it is the most appropriate recipient
(!!)"  scroller hasSubmorphs ifTrue: 	 [scroller submorphs last mouseUp: (evt
transformedBy: (scroller transformFrom: self))]! !  !PanningView methodsFor:
'pane events' stamp: 'th 9/23/2002 18:23'! rejectsEvent: anEvent 
 scroller
submorphs isEmpty ifTrue: [^true]. "something messed up here"  scroller
firstSubmorph isSyntaxMorph ifTrue: [^ super rejectsEvent: anEvent].  ^self
visible not  "ignore locked status"! !  !PanningView methodsFor: 'geometry'
stamp: 'th 9/23/2002 18:00'! extent: newExtent 
 super extent: (newExtent max:
36@32).  self resizeScroller.! !  !PanningView methodsFor: 'geometry' stamp: 'th
9/23/2002 18:06'! leftoverScrollRange  "Return the entire scrolling range minus
the currently viewed area."  ^ self totalScrollRange - self innerBounds extent
max: 0@0 ! !  !PanningView methodsFor: 'geometry' stamp: 'th 9/23/2002 18:03'!
resizeScroller 
 scroller bounds: self innerBounds! !  !PanningView methodsFor:
'geometry' stamp: 'th 9/23/2002 18:08'! scrollBy: delta  "Move the contents in
the direction delta." 
 scroller offset: ((scroller offset - delta max: 0@0)
min: self leftoverScrollRange). ! !  !PanningView methodsFor: 'geometry' stamp:
'th 9/23/2002 18:04'! totalScrollRange 
 "Return the entire scrolling range."  ^
((scroller localVisibleSubmorphBounds ifNil: [^nil]) encompass: 0@0) extent! ! 
!PanningView methodsFor: 'access' stamp: 'th 9/23/2002 17:58'! scroller  ^
scroller! !  !PanningView methodsFor: 'access' stamp: 'th 9/23/2002 17:59'!
wantsSlot  "For now do it the old way, until we sort this out"  ^ true! ! 
!PanningView class methodsFor: 'instance creation' stamp: 'th 9/26/2002 09:54'!
onImage: aForm  "Answer a two-way scroll pane that allows the user to scroll the
receiver in either direction.  It will have permanent scroll bars unless you
take some special action." 
 ^ self onMorph: (ImageMorph new image: aForm)! ! 
!PanningView class methodsFor: 'instance creation' stamp: 'th 9/26/2002 09:56'!
onImageFile: aFileName  "Answer a two-way scroll pane that allows the user to
scroll the receiver in either direction.  It will have permanent scroll bars
unless you take some special action." 
 ^ self onImage: (Form fromBinaryStream:
(FileStream readOnlyFileNamed:aFileName))! !  !PanningView class methodsFor:
'instance creation' stamp: 'th 9/26/2002 09:53'! onMorph: aMorph  "Answer a
two-way scroll pane that allows the user to scroll the receiver in either
direction.  It will have permanent scroll bars unless you take some special
action." 
 | widget |  widget _ self new.  widget extent: ((aMorph width min:
300 max: 100) @ (aMorph height min: 150 max: 100)); 	 borderWidth: 0.  widget
scroller addMorph: aMorph.  ^ widget! ! 
 !ScrollRegionMorph methodsFor:
'accessing' stamp: 'th 9/26/2002 22:23'! insetPercentage  ^insetPercentage
ifNil:[8]! !  !ScrollRegionMorph methodsFor: 'accessing' stamp: 'th 9/27/2002
11:02'! insetPercentage: anInteger 
 insetPercentage _ anInteger min: 50.  self
ownerChanged. "A quick hack, updates possibly more than needed. Should not hurt
since not used often (i.e triggered by menu action)"! !  !ScrollRegionMorph
methodsFor: 'accessing' stamp: 'th 9/27/2002 10:52'! scrollFactor  "scrollFacor
may be any magnitude of one or two dimensions"  ^scrollFactor ifNil:[1].! ! 
!ScrollRegionMorph methodsFor: 'accessing' stamp: 'th 9/27/2002 10:52'!
scrollFactor: aFraction  "scrollFacor may be any magnitude of one or two
dimensions"  scrollFactor := aFraction.! !  !ScrollRegionMorph methodsFor:
'accessing' stamp: 'th 9/27/2002 10:30'! stepDelay  ^stepDelay ifNil:[50]! ! 
!ScrollRegionMorph methodsFor: 'accessing' stamp: 'th 9/27/2002 10:52'!
stepDelay: anInteger  "The delay between two steps of the scroll mechanism" 
^stepDelay ifNil:[50]! !  !ScrollRegionMorph methodsFor: 'private' stamp: 'th
9/26/2002 19:22'! activate  self startStepping! !  !ScrollRegionMorph
methodsFor: 'private' stamp: 'th 9/26/2002 20:06'! lastPosition 
 ^lastPosition!
!  !ScrollRegionMorph methodsFor: 'private' stamp: 'th 9/27/2002 10:50'!
moveAmount 	
 ^(((self lastPosition adhereTo: passiveRegion bounds) - self
lastPosition) * self scrollFactor) rounded! !  !ScrollRegionMorph methodsFor:
'private' stamp: 'th 9/26/2002 19:22'! passivate  self stopStepping! ! 
!ScrollRegionMorph methodsFor: 'event handling' stamp: 'th 9/26/2002 19:00'!
handleListenEvent: event 
 event isMouse ifFalse:[^false].  lastPosition _ event
position. ! !  !ScrollRegionMorph methodsFor: 'event handling' stamp: 'th
9/25/2002 13:17'! handlesMouseOver: evt  ^ true! !  !ScrollRegionMorph
methodsFor: 'event handling' stamp: 'th 9/25/2002 20:22'! mouseEnter: event 
lastPosition _ event position.  self startStepping.  event hand
addMouseListener: self.  ^true! !  !ScrollRegionMorph methodsFor: 'event
handling' stamp: 'th 9/25/2002 20:22'! mouseLeave: event 
 self stopStepping. 
event hand removeMouseListener: self. ! !  !ScrollRegionMorph methodsFor: 'event
handling' stamp: 'th 9/26/2002 22:24'! ownerChanged  | newBounds |  newBounds _
owner scroller bounds.  self bounds: newBounds.  passiveRegion bounds:
(newBounds insetBy: newBounds extent * self insetPercentage // 100).! ! 
!ScrollRegionMorph methodsFor: 'event handling' stamp: 'th 9/26/2002 20:00'!
stepAt: aTime  | amount |  amount _ self moveAmount.  owner scrollBy: amount.! !
!ScrollRegionMorph methodsFor: 'event handling' stamp: 'th 9/27/2002 10:59'!
stepTime  ^ self stepDelay! !  !ScrollRegionMorph methodsFor: 'initialization'
stamp: 'th 9/26/2002 20:03'! initialize  super initialize.  self color: Color
transparent.  passiveRegion _ Morph new.  passiveRegion color: Color
transparent.  passiveRegion on: #mouseEnter send: #passivate to: self. 
passiveRegion on: #mouseLeave send: #activate to: self.  self addMorph:
passiveRegion.! !  !ScrollRegionMorph methodsFor: 'menu' stamp: 'th 9/27/2002
10:56'! addCustomMenuItems: aCustomMenu hand: aHandMorph  | submenu |  super
addCustomMenuItems: aCustomMenu hand: aHandMorph.  submenu _ MenuMorph new
defaultTarget: self.  #(2 5 10 20 30 40 50) do:[:arg | 	 submenu 		 add: arg
printString 		 target: self 		 selector: #insetPercentage: 		 argument: arg]. 
aCustomMenu add: 'set inset percentage' subMenu: submenu.  submenu _ MenuMorph
new defaultTarget: self.  {1/4. 1/3. 1/2. 1. 2. 5. 10.} do:[:arg | 	 submenu 		
add: arg printString 		 target: self 		 selector: #scrollFactor: 		 argument:
arg].  aCustomMenu add: 'set scroll factor' subMenu: submenu.  submenu _
MenuMorph new defaultTarget: self.  #(10 20 50 100 200 500) do:[:arg | 	 submenu
add: arg printString 		 target: self 		 selector: #stepDelay: 		 argument: arg].
aCustomMenu add: 'set step delay' subMenu: submenu. ! ! 
 !ScrollRegionMorph
class methodsFor: 'instance creation' stamp: 'th 9/25/2002 20:36'! for:
orientation bounds: bounds  | morph |  morph _ self new.  morph orientation:
orientation.  morph bounds: bounds.  morph color: Color transparent.  ^morph! !
!TwoWayScrollPaneX methodsFor: 'initialization' stamp: 'th 9/26/2002 11:21'!
initialize  | |  super initialize.  borderWidth _ 2.  borderColor _ #inset. 
self yScrollBar: (ScrollBar new model: self slotName: 'yScrollBar').  self
yScrollBar borderWidth: 2; borderColor: #inset.  self addMorph: self yScrollBar.
self xScrollBar: (ScrollBar new model: self slotName: 'xScrollBar').  self
xScrollBar borderWidth: 2; borderColor: #inset.  self addMorph: self xScrollBar.
scroller := TransformMorph new color: Color transparent.  scroller offset: 0@0. 
self addMorph: scroller. 
 self extent: 150@120! !  !TwoWayScrollPaneX
methodsFor: 'access' stamp: 'th 9/26/2002 11:20'! scrollBar  ^ scrollBar 	
ifNil:[scrollBar _ Dictionary new]! !  !TwoWayScrollPaneX methodsFor: 'access'
stamp: 'th 9/26/2002 11:20'! xScrollBar  ^ self scrollBar at: #x
ifAbsent:[xScrollBar]! !  !TwoWayScrollPaneX methodsFor: 'access' stamp: 'th
9/26/2002 11:19'! xScrollBar: aScrollBar  self scrollBar at: #x put: aScrollBar.
xScrollBar _ aScrollBar.! !  !TwoWayScrollPaneX methodsFor: 'access' stamp: 'th
9/26/2002 11:20'! yScrollBar  ^ self scrollBar at: #y ifAbsent:[yScrollBar]! ! 
!TwoWayScrollPaneX methodsFor: 'access' stamp: 'th 9/26/2002 11:19'! yScrollBar:
aScrollBar  self scrollBar at: #y put: aScrollBar.  yScrollBar _ aScrollBar.! ! 
!TwoWayScrollPaneX methodsFor: 'geometry' stamp: 'th 9/26/2002 11:30'!
fitContents  "Adjust my size to fit my contents reasonably snugly" 
 self
extent: scroller submorphBounds extent 			 + (self yScrollBar width @ self
xScrollBar height) 			 + (borderWidth*2) 				 ! !  !TwoWayScrollPaneX
methodsFor: 'geometry' stamp: 'th 9/26/2002 11:30'! resizeScrollBar  "used to
handle left vs right scrollbar"  self yScrollBar bounds: (bounds topLeft extent:
16 @ (bounds height - 16)).  self xScrollBar bounds: ((bounds left + 16) @
(bounds bottom - 16)  extent: (bounds width - 16) @ 16). ! !  !TwoWayScrollPaneX
methodsFor: 'geometry' stamp: 'th 9/26/2002 11:28'! resizeScroller  | inner | 
"used to handle left vs right scrollbar"  inner _ self innerBounds.  scroller
bounds: (inner topLeft + (self yScrollBar width@0) corner: (inner bottomRight -
(0@self xScrollBar height)))! !  !TwoWayScrollPaneX methodsFor: 'geometry'
stamp: 'th 9/26/2002 11:30'! scrollBy: delta  "Move the contents in the
direction delta."  "For now, delta is assumed to have a zero x-component. Used
by scrollIntoView:"  | r newOffset | 
 newOffset _ (scroller offset - delta max:
0@0) min: self leftoverScrollRange.  scroller offset: newOffset. 
 r _ self
leftoverScrollRange.  r y = 0 	 ifTrue: [self yScrollBar value: 0.0] 	 ifFalse:
[self yScrollBar value: newOffset y asFloat / r y].  r x = 0 	 ifTrue: [self
xScrollBar value: 0.0] 	 ifFalse: [self xScrollBar value: newOffset x asFloat /
r x]. ! !  !TwoWayScrollPaneX methodsFor: 'geometry' stamp: 'th 9/26/2002
11:28'! setScrollDeltas  | range scrollDelta totalRange innerBounds xScrollbar
yScrollbar |  xScrollbar _ self xScrollBar.  yScrollbar _ self yScrollBar. 
totalRange _ self totalScrollRange ifNil: [^ self].  range _ self
leftoverScrollRange.  innerBounds _ self innerBounds.  scrollDelta _ 10 @ 10. 
self hideOrShowScrollBar: xScrollbar 	 forRange: totalRange x - (innerBounds
width - yScrollbar width).  range x <= 0 	 ifTrue: [xScrollbar scrollDelta: 0.02
pageDelta: 0.2. 			 xScrollbar interval: 1.0] 	 ifFalse: [xScrollbar
scrollDelta: (scrollDelta x / range x) asFloat 					 pageDelta: (innerBounds
width - scrollDelta x / range x) asFloat. 			 xScrollbar interval: (innerBounds
width - scrollDelta x / totalRange x) asFloat]. 
 self hideOrShowScrollBar:
yScrollbar 	 forRange: totalRange y - (innerBounds height - xScrollbar height). 
range y <= 0 	 ifTrue: [yScrollbar scrollDelta: 0.02 pageDelta: 0.2. 			
yScrollbar interval: 1.0] 	 ifFalse: [yScrollbar scrollDelta: (scrollDelta y /
range y) asFloat 					 pageDelta: (innerBounds height - scrollDelta y / range y)
asFloat. 			 yScrollbar interval: (innerBounds height - scrollDelta y /
totalRange y) asFloat]! !  !TwoWayScrollPaneX methodsFor: 'retractable scroll
bar' stamp: 'th 9/26/2002 11:29'! xScrollerHeight 
 (submorphs includes: self
xScrollBar)  "Sorry the logic is reversed :( " 	 ifFalse: [^ 0 @ 0] 			 "already
included" 	 ifTrue: [^ 0 @ self xScrollBar height] "leave space for it" ! !

'From SqueakLight of 16 August 2006 [latest update: #406] on 6 October 2006 at
10:39:30 am'! Dictionary subclass: #Recorridos  instanceVariableNames:
'selector'  classVariableNames: ''  poolDictionaries: ''  category:
'Colectivos'!  !Recorridos methodsFor: 'as yet unclassified' stamp: 'edc
10/5/2006 08:07'! indexIsOne  "When used as a singleton list, index is always
one"  ^ 1! !  !Recorridos methodsFor: 'as yet unclassified' stamp: 'edc
10/5/2006 08:19'! memberList | res | res := self at: (selector at:1). ^ res at:
(selector at:2) 
 ! !  !Recorridos methodsFor: 'as yet unclassified' stamp: 'edc
10/4/2006 07:44'! nuevaLinea: aKey self at: aKey put: Dictionary new. (self at:
aKey ) at:'IDA' put: nil. (self at: aKey) at:'VUELTA' put: nil.! !  !Recorridos
methodsFor: 'as yet unclassified' stamp: 'edc 10/5/2006 08:21'! verRecorridoDe:
estaLinea | list res |  res := PopUpMenu withCaption: 'Debe elegir entre '
chooseFrom:  #('IDA' 					 'VUELTA').  res = 1 ifTrue:[res :=  'IDA'] 
ifFalse:[res :=  'VUELTA']. 	
		 selector:= Array with: estaLinea with: res.
(list := PluggableListMorph new) 	 on: self list: #memberList 	 selected:
#indexIsOne changeSelected: #indexIsOne 	 menu: #memberMenu:shifted: keystroke:
nil.  list color: Color paleYellow .  list openInHand  ! ! 
 !Recorridos
methodsFor: 'accessing' stamp: 'edc 10/4/2006 09:49'! memberIndex  "Answer the
value of memberIndex" 
 ^ memberIndex! !  !Recorridos methodsFor: 'accessing'
stamp: 'edc 10/4/2006 09:49'! memberIndex: anObject  "Set the value of
memberIndex" 
 memberIndex := anObject! !