9c1f297dd955 — Gerald Klix (speedy) 3 months ago
SUM: Module aware tools adopted to latest Cuis's changes.
1 files changed, 15 insertions(+), 21 deletions(-)

M haver/modules/ModuleAwareTools.pck.st
M haver/modules/ModuleAwareTools.pck.st +15 -21
@@ 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 @@ buildDefaultEnvironmentPanel
 
 	^ 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 @@ buildMorphicWindow
 	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 @@ buildMorphicWindow
 
 	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 @@ buildNoSysCatMorphicWindow
 	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 @@ buildNoSysCatMorphicWindow
 		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);