Re: duda squeak

El 3/28/08 5:02 PM, "Enrique Abilio Moliner Pitarch" <emoliner@...>
escribió:

Estoy bajando la imagen, es extremadamente lento asi que completare mañana.
El link es de la imagen unicamente, (sin changes, sin sources) espero que no
este "trabada".
A manera de adelanto, hasta que termine de bajar y vea si hay diferencias
fundamentales con las imagenes que uso.
Te adjunto un st que muestra como elegir dibujos en formato ,jpg y como se
guardarian en la imagen para uso posterior.
Esta técnica permite un gran ahorro de espacio, ya que internamente Squeak
siempre "expande" todo formato grafico a su propio formato.
En este caso el Rompecabezas normalmente almacena cinco .jpg de alrededor de
50 k cada uno que expandidos serian muy grandes.
La misma tecnica puede utilizarse y en vez de almacenar dibujos, se
guardarian .mpg , mp3 o lo que desees y siempre estarían en tu imagen para
usarlo en cualquier lugar.
Mañana verifico que todos los métodos que uso (y clases) existan en la
imagen de ustedes y sino armo algo que se pueda cargar automáticamente.
Para esto uso .sar.
Para 3.10 mejore el viejo ArchiveViewer de Ned Kontz , supongo que la imagen
de ustedes es derivada del 3.8, asi que podria adaptarse .

Sigo cuando termine de bajar...

Edgar


'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 23 March 2007 at 7:43:43 am'! Dictionary subclass: #MisDibujos instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Puzzle'! !MisDibujos commentStamp: 'edc 1/19/2006 11:46' prior: 0! Para guardar en el diccionario por unica vez las fotos que deseamos utilizar MisDibujos elegirImagen! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! MisDibujos class instanceVariableNames: 'current'! !MisDibujos class methodsFor: 'as yet unclassified' stamp: 'edc 1/19/2006 11:30'! current ^current! ! !MisDibujos class methodsFor: 'as yet unclassified' stamp: 'edc 1/19/2006 11:31'! current: anObject current := anObject! ! !MisDibujos class methodsFor: 'as yet unclassified' stamp: 'edc 1/24/2006 10:06'! elegirImagen "could translate to chooseImage ,Lets the user choose folder with pictures  . Hay que hacer MisDibujos elegirImagen" | oldFolder newFolder listaArchivos misFotos | misFotos := self new. oldFolder := FileDirectory default. newFolder := FileList2 modalFolderSelector. FileDirectory setDefaultDirectory: newFolder pathName. listaArchivos := FileDirectory default fileNamesMatching: '*.jpg'. misFotos at: #Yellow put: (Form fromFileNamed: 'Yellow.gif'). 1 to: 5 do: [:i | misFotos at:  i  put:(  RWBinaryOrTextStream with: (StandardFileStream readOnlyFileNamed: (listaArchivos at: i))contents) . ]. FileDirectory setDefaultDirectory: oldFolder pathName. self current: misFotos ! !