[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