# HG changeset patch
# User Gerald Klix (speedy) <Gerald.Klix@klix.ch>
# Date 1655809926 -7200
#      Tue Jun 21 13:12:06 2022 +0200
# Node ID 9c1f297dd955576900d7f42fede1bd99947a4505
# Parent  8982a0cb02430c220ae7447db21eb5f04244221b
SUM: Module aware tools adopted to latest Cuis's changes.

diff --git a/haver/modules/ModuleAwareTools.pck.st b/haver/modules/ModuleAwareTools.pck.st
--- a/haver/modules/ModuleAwareTools.pck.st
+++ b/haver/modules/ModuleAwareTools.pck.st
@@ -1,10 +1,11 @@
-'From Haver 6.0 [latest update: #5170] on 17 May 2022 at 9:57:32 pm'!
+'From Haver 6.0 [latest update: #5305] on 21 June 2022 at 1:10:50 pm'!
 'Description I provide extension methods for browser classes and a default environment model with an appropriate widget.'!
-!provides: 'ModuleAwareTools' 1 30!
+!provides: 'ModuleAwareTools' 1 32!
 !requires: 'ClassBuilding' 1 8 nil!
+!requires: 'Cuis-Base' 60 5305 nil!
 !requires: 'ModulesTools' 1 21 nil!
+!requires: 'Modules' 1 99 nil!
 !requires: 'ActionBuilder' 1 28 nil!
-!requires: 'Modules' 1 99 nil!
 !requires: 'SystemMorphs' 1 4 nil!
 !requires: 'DNDIndentingListItemMorph' 1 1 nil!
 SystemOrganization addCategory: 'ModuleAwareTools'!
@@ -823,7 +824,7 @@
 
 	^ model defaultModuleModel browserMorph! !
 
-!BrowserWindow methodsFor: '*ModuleAwareTools-GUI building' stamp: 'KLG 2/7/2022 14:09:55'!
+!BrowserWindow methodsFor: '*ModuleAwareTools-GUI building' stamp: 'KLG 6/21/2022 12:32:05'!
 buildMorphicWindow
 	"Create a pluggable version of all the morphs for a Browser in Morphic"
 
@@ -834,17 +835,15 @@
 	messageCatList _ self buildMorphicMessageCatList.
 	messageList _ self buildMorphicMessageList.
 	
-	classList leftSibling: systemCatList rightSibling: messageCatList.
-	messageCatList leftSibling: classList rightSibling: messageList.
-	messageList leftSibling: messageCatList.
-	
-	classList makeItemsDraggable.
-	messageList makeItemsDraggable.
+	classList allowItemDrag: true.
+	systemCatList 
+		acceptDropsFrom: classList 
+		performing: #categorizeUnderCategory:class:.
+		
+	messageList allowItemDrag: true.
 	messageCatList 
 		acceptDropsFrom: messageList 
-		performing: #categorizeUnderCategoryAt:selector: 
-		whenOutsideList: #categorizeUnderNewCategorySelector:.
-	
+		performing: #categorizeUnderCategoryAt:selector: .
 
 	leftMostColumn _ LayoutMorph newColumn.
 	leftMostColumn
@@ -864,7 +863,7 @@
 
 	model changed: #editSelection! !
 
-!BrowserWindow methodsFor: '*ModuleAwareTools-GUI building' stamp: 'KLG 5/17/2022 21:36:49'!
+!BrowserWindow methodsFor: '*ModuleAwareTools-GUI building' stamp: 'KLG 6/21/2022 12:36:23'!
 buildNoSysCatMorphicWindow
 	"A Browser without the class categories list"
 
@@ -884,10 +883,6 @@
 	messageCatList _ self buildMorphicMessageCatList.
 	messageList _ self buildMorphicMessageList.
 	
-	classList rightSibling: messageCatList.
-	messageCatList leftSibling: classList rightSibling: messageList.
-	messageList leftSibling: messageCatList.
-	
 	upperPanes _ LayoutMorph newRow.
 	upperPanes
 		addMorph: self buildDefaultEnvironmentPanel proportionalWidth: 0.2;
@@ -895,11 +890,10 @@
 		addAdjusterAndMorph: messageCatList proportionalWidth: 0.2;
 		addAdjusterAndMorph: messageList proportionalWidth: 0.4.
 
-	messageList makeItemsDraggable.
+	messageList allowItemDrag: true.
 	messageCatList 
 		acceptDropsFrom: messageList 
-		performing: #categorizeUnderCategoryAt:selector: 
-		whenOutsideList: #categorizeUnderNewCategorySelector:.
+		performing: #categorizeUnderCategoryAt:selector:.
 
 	self layoutMorph
 		addMorph: mySingletonList fixedHeight: (PreferenceNG at: #standardCodeFont :: lineSpacing + 10);