大家好,
我将很多张图片(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(a)yahoo.com.cn
2004-01-15
Lulu
yejuan_1204(a)yahoo.com.cn
2004-01-15