[FIX]InfoAgent Re: InfoAgent bug Re: Where is it: Bookmarks for Scampe

Karl Ramberg karl.ramberg at chello.se
Sun Jun 11 12:46:05 UTC 2000



Mats Nygren wrote:
> 
> Karl Ramberg <karl.ramberg at chello.se> wrote:
> >[snip]
> > Thanks, I actually found it but it's broken :-(
> > I'll see if I can fix it.
> > Thomas Mahler made it: Are you still out there ?
> 
> I had contact with him recently. The trouble has somehtiong to do with
> 2.8a, try it instead in 2.7 that worked for me. I didnt try to unserstand the problem.
> 
> /Mats

Here is a fix for the problem, I think :-)
It seems class ObjectExplorerWindow ceased to exist, so I replaced it with
SystemWindow.

Karl
-------------- next part --------------
'From Squeak2.8alpha of 19 February 2000 [latest update: #2310] on 11 June 2000 at 2:40:32 pm'!

!BookmarkExplorer methodsFor: 'as yet unclassified' stamp: 'kfr 6/11/2000 14:23'!
explorerFor: anObject caption: title

	| window listMorph |
	rootObject _ anObject.
	(window _ SystemWindow labelled: title)
		model: self;
		color: Color random lighter.
	window addMorph: (listMorph _ BookmarkListMorph "SimpleHierarchicalListMorph "
			on: self
			list: #getList
			selected: #getCurrentSelection
			changeSelected: #noteNewSelection:
			menu: #genericMenu:
			keystroke: nil)
		frame: (0 at 0 corner: 1 at 1).

	listMorph autoDeselect: false.
	listMorph scroller submorphs copy do: [ :each |
				(each canExpand and: [each isExpanded = false]) ifTrue: [
					each toggleExpandedState
				]].
	listMorph adjustSubmorphPositions.
	rootObject addDependent: listMorph.	

     ^ window! !



More information about the Squeak-dev mailing list