Bug in PackagePaneBrowser>>openAsMorphEditing:. Also in menus of
Launcher items
Ioannis Zannos
iani at sim.spk-berlin.de
Thu Feb 8 19:22:29 UTC 2001
"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! !
More information about the Squeak-dev
mailing list
|