@@ 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);