Adapt to PluggableLists refactoring.

Author: jvuletich

IA-EN-Dictionary/IA-EN-Dictionary.pck.st

@@ -1,28 +1,28 @@
-'From Cuis 6.0 [latest update: #5979] on 9 August 2023 at 10:00:08 pm'!
+'From Cuis7.1 [latest update: #6378] on 18 May 2024 at 4:42:11 pm'!
 'Description Enter a word in English or Interlingua and find the corresponding Interlingua or English usage.'!
-!provides: 'IA-EN-Dictionary' 1 26!
+!provides: 'IA-EN-Dictionary' 1 27!
 !requires: 'Cuis-Base' 50 4413 nil!
 !requires: 'Morphic-Widgets-Extras' 1 7 nil!
-SystemOrganization addCategory: 'IA-EN-Dictionary'!
+SystemOrganization addCategory: #'IA-EN-Dictionary'!
 
 
-!classDefinition: #IEDictWindow category: 'IA-EN-Dictionary'!
+!classDefinition: #IEDictWindow category: #'IA-EN-Dictionary'!
 SystemWindow subclass: #IEDictWindow
 	instanceVariableNames: 'entryTextMorph promptMorph resultMorph'
 	classVariableNames: ''
 	poolDictionaries: 'IAENDictionary'
 	category: 'IA-EN-Dictionary'!
-!classDefinition: 'IEDictWindow class' category: 'IA-EN-Dictionary'!
+!classDefinition: 'IEDictWindow class' category: #'IA-EN-Dictionary'!
 IEDictWindow class
 	instanceVariableNames: ''!
 
-!classDefinition: #IEDict category: 'IA-EN-Dictionary'!
+!classDefinition: #IEDict category: #'IA-EN-Dictionary'!
 Object subclass: #IEDict
 	instanceVariableNames: 'searchString searchResult resultIndex'
 	classVariableNames: 'DictData'
 	poolDictionaries: 'IAENDictionary'
 	category: 'IA-EN-Dictionary'!
-!classDefinition: 'IEDict class' category: 'IA-EN-Dictionary'!
+!classDefinition: 'IEDict class' category: #'IA-EN-Dictionary'!
 IEDict class
 	instanceVariableNames: 'result'!
 
@@ -166,18 +166,18 @@ makeEntryArea
 		yourself
 ! !
 
-!IEDictWindow methodsFor: 'GUI building' stamp: 'KenD 11/7/2016 14:25:13'!
+!IEDictWindow methodsFor: 'GUI building' stamp: 'jmv 5/17/2024 17:57:50'!
 makeResultsArea
 	"Answer a LayoutMoph containing the results of the query"
 
 	resultMorph := (PluggableListMorph
-		model: model 
+		withModel: model 
 		listGetter: #resultAsList
 		indexGetter: #resultIndex
-		indexSetter: #resultIndex:
-		mainView: self
-		menuGetter: #resultsMenu
-		keystrokeAction: #resultsKey:from:).
+		indexSetter: #resultIndex:)
+			mainView: self
+			menuGetter: #resultsMenu
+			keystrokeAction: #resultsKey:from:.
 
 	^ resultMorph 
 		layoutSpec: (LayoutSpec proportionalWidth: 1.0 proportionalHeight: 0.98);  

Patterns/Code-Patterns.pck.st

@@ -1,11 +1,11 @@
-'From Cuis 5.0 [latest update: #4208] on 8 June 2020 at 9:47:45 am'!
+'From Cuis7.1 [latest update: #6378] on 18 May 2024 at 4:27:24 pm'!
 'Description Useful Cuis code patterns, intended to help the programmer exploit some of the features of Cuis classes. These examples separate model from view and feature two styles: coupled and decoupled.
 
 The coupled style employs the "dependency mechanism" and exposes the model to changes in the view and to views which were unanticipated. The primary methods of the dependency mechanism are #changed: and #update: .
 
 The decoupled style employs the "observer pattern" which ensures that the model can remain unaffected by changes to the view or by additional views. The primary methods of the observer pattern are #triggerEvent: and #when:send:to: . This is the preferred style for Cuis, although both styles can be found in the base.
 '!
-!provides: 'Code-Patterns' 1 4!
+!provides: 'Code-Patterns' 1 5!
 SystemOrganization addCategory: #'Code-Patterns'!
 
 
@@ -283,25 +283,22 @@ authorIndex: anObject
 initialize
 	super initialize! !
 
-!AnotherView methodsFor: 'initialization' stamp: 'dhn 1/4/2016 14:41'!
+!AnotherView methodsFor: 'initialization' stamp: 'jmv 5/17/2024 17:55:33'!
 buildMorphicWindow
 	"Specify the layout of the view"
 	| listM |
 
 	self layoutMorph beRow 	"make use of the layoutMorph already in SystemWindow; change it from column to row"
 		name: #'Pattern Row'. 	"give the layoutMorph a name which will appear in the halos"
 
-	listM _ (PluggableListMorph
-				model: model 	"the object specified in self class open"
+	listM := (PluggableListMorph
+				withModel: model 	"the object specified in self class open"
 				listGetter: #authors 	"the method in 'model' which answers the list content"
 				indexGetter: #authorIndex 	"the method in 'model' which answers the selection made in the list"
-				indexSetter: #authorIndex:	"the method in 'model' which sets the list index"
-				mainView: nil
-				menuGetter: nil
-				keystrokeAction: nil)
+				indexSetter: #authorIndex:	)"the method in 'model' which sets the list index"
 					name: #author. 	"give the PluggableListMorph a name which will appear in the halos"
 
-	textPane _ (TextModelMorph 
+	textPane := (TextModelMorph 
 		withModel: (TextModel withText: 'foo')) 	"note the different model specification"
 			askBeforeDiscardingEdits: false;	"discard changes to the text"
 			name: #quote. 	"give the TextModelMorph a name which will appear in the halos"
@@ -567,22 +564,19 @@ title
 
 	^ 'Buttons Up on the Decoupled Model'! !
 
-!CoupledView methodsFor: 'initialization' stamp: 'dhn 12/8/2015 12:55'!
+!CoupledView methodsFor: 'initialization' stamp: 'jmv 5/17/2024 17:54:20'!
 buildMorphicWindow
 	"Specify the layout of the view"
 	| listM |
 
-	listM _ (PluggableListMorph
-				model: model 	"the object specified in self class open"
+	listM := (PluggableListMorph
+				withModel: model 	"the object specified in self class open"
 				listGetter: #authors 	"the method in 'model' which answers the list content"
 				indexGetter: #authorIndex 	"the method in 'model' which answers the selection made in the list"
-				indexSetter: #authorIndex:	"the method in 'model' which sets the list index"
-				mainView: nil
-				menuGetter: nil
-				keystrokeAction: nil)
+				indexSetter: #authorIndex:	)"the method in 'model' which sets the list index"
 					name: #author. 	"give the PluggableListMorph a name which will appear in the halos"
 
-	textMorph _ (TextModelMorph 
+	textMorph := (TextModelMorph 
 		withModel: (TextModel withText: 'foo')) 	"note the different model specification"
 			askBeforeDiscardingEdits: false;	"discard changes to the text"
 			name: #quote. 	"give the TextModelMorph a name which will appear in the halos"
@@ -650,25 +644,22 @@ open
 	or, use a Color class method"
 ! !
 
-!DecoupledView methodsFor: 'initialization' stamp: 'dhn 1/4/2016 14:39'!
+!DecoupledView methodsFor: 'initialization' stamp: 'jmv 5/17/2024 17:55:51'!
 buildMorphicWindow
 	"Specify the layout of the view"
 	| listM |
 
 	self layoutMorph beRow 	"make use of the layoutMorph already in SystemWindow; change it from column to row"
 		name: #'Pattern Row'. 	"give the layoutMorph a name which will appear in the halos"
 
-	listM _ (PluggableListMorph
-				model: model 	"the object specified in self class open"
+	listM := (PluggableListMorph
+				withModel: model 	"the object specified in self class open"
 				listGetter: #authors 	"the method in 'model' which answers the list content"
 				indexGetter: #authorIndex 	"the method in 'model' which answers the selection made in the list"
-				indexSetter: #authorIndex:	"the method in 'model' which sets the list index"
-				mainView: nil
-				menuGetter: nil
-				keystrokeAction: nil)
+				indexSetter: #authorIndex:)	"the method in 'model' which sets the list index"
 					name: #author. 	"give the PluggableListMorph a name which will appear in the halos"
 
-	textPane _ (TextModelMorph 
+	textPane := (TextModelMorph 
 		withModel: (TextModel withText: 'foo')) 	"note the different model specification"
 			askBeforeDiscardingEdits: false;	"discard changes to the text"
 			name: #quote. 	"give the TextModelMorph a name which will appear in the halos"