Hi Edgar,
Thx, I found Freecell SqueakPoker (the start of a poker game) on squeaksource, both will be helpful, as will all the rest of tips in this thread.
Edgar J. De Cleene wrote:
Also in my FunSqueak3.10alpha.7 you have the old FreCel still working.
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
! ! _______________________________________________ Beginners mailing list Beginners@lists.squeakfoundation.org http://lists.squeakfoundation.org/mailman/listinfo/beginners