listview work moved to separated package (so I can merge without incl…

…uding, for the moment)
pharo-spec · Nov 29, 2023 · 2604fe2 · 2604fe2
1 parent 4a05478
commit 2604fe2
Show file tree

Hide file tree

Showing 11 changed files with 32 additions and 38 deletions.
diff --git a/...Morphic/SpMorphicListViewAdapter.class.st → ...istView/SpMorphicListViewAdapter.class.st b/...Morphic/SpMorphicListViewAdapter.class.st → ...istView/SpMorphicListViewAdapter.class.st
@@ -5,8 +5,7 @@ Class {
 	#name : 'SpMorphicListViewAdapter',
 	#superclass : 'SpMorphicListAdapter',
 	#category : 'Spec2-Adapters-Morphic-ListView',
-	#package : 'Spec2-Adapters-Morphic',
-	#tag : 'ListView'
+	#package : 'Spec2-Adapters-Morphic-ListView'
 }
 
 { #category : 'factory' }

diff --git a/...phic/SpMorphicListViewDataSource.class.st → ...View/SpMorphicListViewDataSource.class.st b/...phic/SpMorphicListViewDataSource.class.st → ...View/SpMorphicListViewDataSource.class.st
@@ -5,8 +5,7 @@ Class {
 	#name : 'SpMorphicListViewDataSource',
 	#superclass : 'SpMorphicListDataSource',
 	#category : 'Spec2-Adapters-Morphic-ListView',
-	#package : 'Spec2-Adapters-Morphic',
-	#tag : 'ListView'
+	#package : 'Spec2-Adapters-Morphic-ListView'
 }
 
 { #category : 'accessing' }

diff --git a/src/Spec2-Adapters-Morphic-ListView/package.st b/src/Spec2-Adapters-Morphic-ListView/package.st
@@ -0,0 +1 @@
+Package { #name : 'Spec2-Adapters-Morphic-ListView' }
diff --git a/src/Spec2-Core/SpTPresenterBuilder.trait.st b/src/Spec2-Core/SpTPresenterBuilder.trait.st
@@ -80,12 +80,6 @@ SpTPresenterBuilder >> newDiff [
 	^ self instantiate: SpDiffPresenter
 ]
 
-{ #category : 'scripting - lists' }
-SpTPresenterBuilder >> newDropDown [
-
-	^ self instantiate: SpDropDownPresenter
-]
-
 { #category : 'scripting - widgets' }
 SpTPresenterBuilder >> newDropList [
 	^ self instantiate: SpDropListPresenter
@@ -107,12 +101,6 @@ SpTPresenterBuilder >> newDynamicPresentersListIn: accessorSymbol usingBuilder:
 	self build
 ]
 
-{ #category : 'scripting - lists' }
-SpTPresenterBuilder >> newEasyListView [
-	self flag: #TODO. "replace newList with this"
-	^ self instantiate: SpEasyListViewPresenter
-]
-
 { #category : 'scripting - layouts' }
 SpTPresenterBuilder >> newGridLayout [
 
@@ -134,12 +122,6 @@ SpTPresenterBuilder >> newList [
 	^ self instantiate: SpListPresenter
 ]
 
-{ #category : 'scripting - lists' }
-SpTPresenterBuilder >> newListView [
-
-	^ self instantiate: SpListViewPresenter
-]
-
 { #category : 'scripting - widgets' }
 SpTPresenterBuilder >> newMenu [
 	^ self instantiate: SpMenuPresenter

diff --git a/src/Spec2-Dialogs/SpApplication.extension.st b/src/Spec2-Dialogs/SpApplication.extension.st
@@ -24,10 +24,7 @@ SpApplication >> confirm: aString [
 SpApplication >> inform: aString [
 	"Displays an inform dialog, for more configurable version please use `self application newInform title: ....`."
 
-	^ self newInform
-		  title: 'Alert';
-		  label: aString;
-		  openModal
+	^ self backend inform: aString
 ]
 
 { #category : '*Spec2-Dialogs' }

diff --git a/src/Spec2-Core/SpDropDownPresenter.class.st → ...ec2-ListView/SpDropDownPresenter.class.st b/src/Spec2-Core/SpDropDownPresenter.class.st → ...ec2-ListView/SpDropDownPresenter.class.st
@@ -8,9 +8,8 @@ Class {
 		'display',
 		'selection'
 	],
-	#category : 'Spec2-Core-Widgets-ListView',
-	#package : 'Spec2-Core',
-	#tag : 'Widgets-ListView'
+	#category : 'Spec2-ListView',
+	#package : 'Spec2-ListView'
 }
 
 { #category : 'specs' }

diff --git a/...pec2-Core/SpEasyListRowPresenter.class.st → ...-ListView/SpEasyListRowPresenter.class.st b/...pec2-Core/SpEasyListRowPresenter.class.st → ...-ListView/SpEasyListRowPresenter.class.st
@@ -8,9 +8,8 @@ Class {
 		'iconPresenter',
 		'textPresenter'
 	],
-	#category : 'Spec2-Core-Widgets-ListView',
-	#package : 'Spec2-Core',
-	#tag : 'Widgets-ListView'
+	#category : 'Spec2-ListView',
+	#package : 'Spec2-ListView'
 }
 
 { #category : 'layout' }

diff --git a/...ec2-Core/SpEasyListViewPresenter.class.st → ...ListView/SpEasyListViewPresenter.class.st b/...ec2-Core/SpEasyListViewPresenter.class.st → ...ListView/SpEasyListViewPresenter.class.st
@@ -11,9 +11,8 @@ Class {
 		'#headerPanel',
 		'#lastSelectedRow => WeakSlot'
 	],
-	#category : 'Spec2-Core-Widgets-ListView',
-	#package : 'Spec2-Core',
-	#tag : 'Widgets-ListView'
+	#category : 'Spec2-ListView',
+	#package : 'Spec2-ListView'
 }
 
 { #category : 'specs' }

diff --git a/src/Spec2-Core/SpListViewPresenter.class.st → ...ec2-ListView/SpListViewPresenter.class.st b/src/Spec2-Core/SpListViewPresenter.class.st → ...ec2-ListView/SpListViewPresenter.class.st
@@ -7,9 +7,8 @@ Class {
 		'#bindAction',
 		'#headerTitle => ObservableSlot'
 	],
-	#category : 'Spec2-Core-Widgets-ListView',
-	#package : 'Spec2-Core',
-	#tag : 'Widgets-ListView'
+	#category : 'Spec2-ListView',
+	#package : 'Spec2-ListView'
 }
 
 { #category : 'specs' }

diff --git a/src/Spec2-ListView/SpTPresenterBuilder.extension.st b/src/Spec2-ListView/SpTPresenterBuilder.extension.st
@@ -0,0 +1,19 @@
+Extension { #name : 'SpTPresenterBuilder' }
+
+{ #category : '*Spec2-ListView' }
+SpTPresenterBuilder >> newDropDown [
+
+	^ self instantiate: SpDropDownPresenter
+]
+
+{ #category : '*Spec2-ListView' }
+SpTPresenterBuilder >> newEasyListView [
+
+	^ self instantiate: SpEasyListViewPresenter
+]
+
+{ #category : '*Spec2-ListView' }
+SpTPresenterBuilder >> newListView [
+
+	^ self instantiate: SpListViewPresenter
+]
diff --git a/src/Spec2-ListView/package.st b/src/Spec2-ListView/package.st
@@ -0,0 +1 @@
+Package { #name : 'Spec2-ListView' }
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		Package { #name : 'Spec2-Adapters-Morphic-ListView' }