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 > > -- View this message in context: http://n4.nabble.com/Drag-and-dropped-jpg-playing-cards-how-to-put-in-the-new-morph-menu-and-create-a-PlayingCard-class-tp276728p277100.html Sent from the Squeak - Beginners mailing list archive at Nabble.com. _______________________________________________ Beginners mailing list Beginners@lists.squeakfoundation.org http://lists.squeakfoundation.org/mailman/listinfo/beginners
