No lo probé pero fijate si te sirve parte de este codigo:

| names cls stream |
names := Smalltalk keys.
cls := MetaClass allInstances reject: [:cl | names includes: cl
instanceClass name asSymbol].
cls := cls asSortedCollection: [:c1 :c2 | c1 name < c2 name].
stream := (Disk fileNamed: 'CLSLIST.TXT') writeStream.
cls do: [:cl |
stream nextPutAll: cl name.
stream cr].
stream close.


saludos,
Marcelo

On 19 jul, 10:12, "Rino Rondan" <[EMAIL PROTECTED]> wrote:
> HOla que tal, ando dando vueltas con esto como un perro y no puedo atinarle
> a nada!!
> aca transcrino mis pruenas del workspace.
> aca asigno el archivo squid.
> pathDominio:='/etc/squid/squid.conf'.
> archivo:= pathDominio asFilename readWriteStream.
>
> aca creo y guardo el contenido del archivo y le pongo el enter, sino me lo
> deja corrido en una misma linea.
> text:=Core.Text new
> archivo1 linesDo:[:line | text := text,  line,Character cr asString]
>
> luego asigno el archivo para crear.
> otroArchivo1:='/etc/squid/squidjklkosdoi.ll'.
>  text  storeOn:  otroArchivo1 asFilename writeStream
>
> pero sorpresa, si lo inspecciono, la varialbe text posee bien todo el
> contendo, pero al guardarlo tengo el problema!! he probado con distintas
> tipos de colecciones pero nada!! Lo que necesito hacer en realidad es lo
> siguiente, con el seaside levatar el archivo y guardarlo en un
> textAreaWithValue, para poder editarlo bien y luego que me lo guarde en
> memoria, pero siempre me lo guarda mal!! le faltan las ultimas 20 lineas por
> lo menos!!Lo del seaside lo tengo bien hecho porque me lo levanta bien en el
> textAreaWithValue, por ese me di cuenta que me lo guarda mal!! es justo lo
> que me falta poder guardarlo bien!!
>
> saludos
> Rino


--~--~---------~--~----~------------~-------~--~----~
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.

-~----------~----~----~----~------~----~------~--~---

Responder a