[FIX] PackageBrowser>>openAsMorphEditing: (again) #2
Robert Hirschfeld
hirschfeld at acm.org
Sat Sep 9 23:57:36 UTC 2000
Hi Bob,
Thanks for pointing that out.
I didn't realize the drag-and-drop related changes.
I just wondered ... :)
Here comes the updated change set.
Bye,
-Robert
Bob Arning wrote:
>
> On Sat, 09 Sep 2000 11:31:48 -0700 Robert Hirschfeld <hirschfeld at acm.org> wrote:
> >The following change set made it to the main
> >update stream as "2280PackBrOptBnt-rh" (June 6)
> >but somehow got lost ...
>
> Robert,
>
> There was another change to that method shortly after yours that simply overwrote your changes. Perhaps you could merge your changes with what's in the image now (drag-and-drop stuff).
>
> Cheers,
> Bob
___________________________________________
Robert Hirschfeld
mailto:hirschfeld at acm.org
http://www.prakinf.tu-ilmenau.de/~hirsch
-------------- next part --------------
'From Squeak2.9alpha of 2 September 2000 [latest update: #2570] on 9 September 2000 at 4:51:03 pm'!
"Change Set: PackageBrowserAnnotationPanes
Date: 9 September 2000
Author: Robert Hirschfeld
Fixes PackageBrowser>>openAsMorphEditing: to be sensitive to
Preferences for #annotationPanes and #optionalButtons.
Was already in the update stream as 2280PackBrOptBnt-rh
but got lost. Now merged with drag-and-drop changes ..."!
!PackageBrowser methodsFor: 'initialize-release' stamp: 'rhi 9/9/2000 16:45'!
openAsMorphEditing: editString
"Create a pluggable version of all the views for a Browser, including views and controllers."
"PackageBrowser openBrowser"
| listHeight buttonHeight window switches codePane dragNDropFlag baseline |
listHeight _ 0.4.
buttonHeight _ 0.09.
dragNDropFlag _ Preferences browseWithDragNDrop.
(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: ((PluggableListMorph
on: self
list: #systemCategoryList
selected: #systemCategoryListIndex
changeSelected: #systemCategoryListIndex:
menu: #systemCategoryMenu:
keystroke: #systemCatListKey:from:)
enableDrag: false;
enableDrop: dragNDropFlag)
frame: (0.15 @ 0 extent: 0.2 @ listHeight).
window addMorph: ((PluggableListMorph
on: self
list: #classList
selected: #classListIndex
changeSelected: #classListIndex:
menu: #classListMenu:
keystroke: #classListKey:from:)
enableDragNDrop: dragNDropFlag)
frame: (0.35 @ 0 extent: 0.25 @ (listHeight - buttonHeight)).
switches _ self buildMorphicSwitches.
window addMorph: switches
frame: (0.35 @ (listHeight - buttonHeight) extent: 0.25 @ buttonHeight).
switches borderWidth: 0.
window addMorph: ((PluggableListMorph
on: self
list: #messageCategoryList
selected: #messageCategoryListIndex
changeSelected: #messageCategoryListIndex:
menu: #messageCategoryMenu:)
enableDrag: false;
enableDrop: dragNDropFlag)
frame: (0.6 @ 0 extent: 0.15 @ listHeight).
window addMorph: ((PluggableListMorph
on: self
list: #messageList
selected: #messageListIndex
changeSelected: #messageListIndex:
menu: #messageListMenu:shifted:
keystroke: #messageListKey:from:)
enableDragNDrop: dragNDropFlag;
menuTitleSelector: #messageListSelectorTitle)
frame: (0.75 @ 0 extent: 0.25 @ listHeight).
Preferences useAnnotationPanes
ifFalse:
[baseline _ listHeight]
ifTrue:
[baseline _ listHeight + 0.05.
window addMorph: ( (PluggableTextMorph on: self
text: #annotation accept: nil
readSelection: nil menu: nil)
askBeforeDiscardingEdits: false)
frame: (0 at listHeight corner: 1 at baseline)].
Preferences optionalButtons
ifTrue:
[window addMorph: self optionalButtonRow
frame: (0 at baseline corner: 1@(baseline + 0.08)).
baseline _ baseline + 0.08].
codePane _ PluggableTextMorph
on: self
text: #contents
accept: #contents:notifying:
readSelection: #contentsSelection
menu: #codePaneMenu:shifted:.
editString
ifNotNil:
[codePane editString: editString.
codePane hasUnacceptedEdits: true].
window addMorph: codePane frame: (0 @ baseline corner: 1 @ 1).
window setUpdatablePanesFrom:
#(packageList systemCategoryList classList messageCategoryList messageList ).
^ window! !
More information about the Squeak-dev
mailing list
|