"Stephen T. Pope" wrote:
> 
> Hello all,
> 
> I'm just up-loading new builds of the STP12 goodies (tested on 3.0) as
> well as full sources as ZIP files and BinHexed StuffIt files. I attach
> the README file below. The ftp site (as always) is
>         ftp://ftp.create.ucsb.edu/pub/Squeak/goodies/STP12/
> 
> Comments are invited.

Hello, 

1. 
There is a bug in PackagePaneBrowser>>openAsMorphEditing:
It is in line: 
	self addLowerPanesTo: window at: (0 at listHeight extent: 1 at 1) with: editString.
The correct version of this line is: 
	self addLowerPanesTo: window at: (0 at listHeight corner: 1 at 1) with: editString.

Complete code attached here. 

2. Two items in the Squeak launcher bring up menus: 
'Changes' and 'Help'.  If you click "keep this menu up" 
then a bad freeze happens. Interrupting with Command-. 
will not get one out of the error loop. Suspect 
this must include code from MVC versions that tries to 
size the menu. Could not find a fix. 

Iannis Zannos
-------------- next part --------------
'From Squeak3.0 of 4 February 2001 [latest update: #3414] on 8 February 2001 at 8:12:34 pm'!

!PackagePaneBrowser methodsFor: 'initialize-release' stamp: 'IZ 2/8/2001 20:11'!
openAsMorphEditing: editString 
	"Create a pluggable version of all the views for a Browser, including views and controllers."
	"PackagePaneBrowser openBrowser"

	| listHeight window |
	listHeight _ 0.4.

	(window _ SystemWindow labelled: 'later')
		model: self.

	window addMorph: (PluggableListMorph
				on: self
				list: #packageList
				selected: #packageListIndex
				changeSelected: #packageListIndex:
				menu: #packageMenu:
				keystroke: #packageListKey:from:)
		frame: (0 @ 0 extent: 0.15 @ listHeight).

	window addMorph: (self buildMorphicSystemCatList)
		frame: (0.15 @ 0 extent: 0.2 @ listHeight).

	self addClassAndSwitchesTo: window at: (0.35 @ 0 extent: 0.25 @ listHeight) plus: 0.

	window addMorph: (self buildMorphicMessageCatList)
		frame: (0.6 @ 0 extent: 0.15 @ listHeight).

	window addMorph: (self buildMorphicMessageList)
		frame: (0.75 @ 0 extent: 0.25 @ listHeight).

	self addLowerPanesTo: window at: (0 at listHeight corner: 1 at 1) with: editString.

	window setUpdatablePanesFrom:
		#(packageList systemCategoryList classList messageCategoryList messageList ).
	^ window! !