大家好, 我将很多张图片(a colorForm)作为一个个的对象存在类MyPictures中。 现在我想在一个PartsBin中显示出MyPictures中的所有图片。并且可以通过拖拉的方式取出。我该怎么做? 我先说明我是如何存放图片:(类方法) initialize self extension:OrderedCollection new.
extension ^Extension.
extension:aValue Extension:=aValue. "Extension是一个类变量,存放了所有的对象。" ========================================== aForm:=GIFReadWriter formFromFileNamed:'person.gif'. self extension add:aForm.
我想利用PartsBin的方法 listDirection: quadList:列出所有的图片。对于quadList的参数,要求其每个tuple的模式是 (<receivor> <selector> <label> <balloonHelp>).我参照Morph的方法也引入了两个方法: partName: aName categories: aList documentation: aDoc ^ DescriptionForPartsBin new formalName: aName categoryList: aList documentation: aDoc globalReceiverSymbol: self name nativitySelector: #newStandAlone.
descriptionForPartsBin ^ self partName: 'Photo' categories: #('Photo') documentation: 'My Photos '.
但是这里newStandAlone是一个类方法,它可以显示这个类的初始化的一个morph对象.这里也是我目前的瓶颈问题。对于我这里有多个对象要显示,我该怎么做呢? 不知道我是否把我的意思表达清楚了。如果有人知道,请尽快告知。
Lulu yejuan_1204@yahoo.com.cn 2004-01-15
Lulu yejuan_1204@yahoo.com.cn 2004-01-15
squeak-cn@lists.squeakfoundation.org