Skip to content
Permalink
Browse files

Merge pull request #737 from jecisc/188-Remove-all-commented-pragmas

188-Remove-all-commented-pragmas
  • Loading branch information...
jecisc committed Aug 17, 2019
2 parents be583d8 + be6748c commit ed6e844c7bbaf1f7610c061a2f05a9ff5485c011
@@ -36,7 +36,6 @@ SpAbstractFormButtonPresenter >> activationAction: aBlock [

{ #category : #api }
SpAbstractFormButtonPresenter >> click [
"<api: #do>"
"Simulate a click on the checkbox
Used when the checkboc is a list item"

@@ -52,7 +51,6 @@ SpAbstractFormButtonPresenter >> deactivationAction: aBlock [

{ #category : #api }
SpAbstractFormButtonPresenter >> enabled: aBoolean [
"<api: #boolean getter: #enabled registration: #whenEnabledChanged:>"
"Set if the button is enabled (clickable)"

super enabled: aBoolean.
@@ -118,7 +116,6 @@ SpAbstractFormButtonPresenter >> state: aBoolean [

{ #category : #api }
SpAbstractFormButtonPresenter >> toggleState [
"<api: #do>"
"Toogle the current state of the checkbox"

self state: self state not
@@ -183,8 +183,6 @@ SpAbstractListPresenter >> listElementAt: anIndex ifAbsent: aBlock [

{ #category : #api }
SpAbstractListPresenter >> listSize [
"<api: #inspect>"

"Return the size of the list"

^ self model size
@@ -254,8 +252,6 @@ SpAbstractListPresenter >> selectItems: aCollection [

{ #category : #api }
SpAbstractListPresenter >> selectedItems [
"<api: #inspect>"

"Return all the selected items in the case of a multiple selection list"

^ self selectedItemsAtIndexes: self selection selectedIndexes
@@ -103,7 +103,6 @@ SpAbstractTextPresenter >> clearContent [

{ #category : #api }
SpAbstractTextPresenter >> clearSelection [
" <api: #do>"
"Remove selection from the text model"

self setSelection: (0 to: 0)
@@ -166,7 +165,6 @@ SpAbstractTextPresenter >> getSelection [

{ #category : #api }
SpAbstractTextPresenter >> hasEditingConflicts [
"<api:#inspect>"
"Return if the text zone has editing conflicts"

^ self widget
@@ -177,7 +175,6 @@ SpAbstractTextPresenter >> hasEditingConflicts [
{ #category : #api }
SpAbstractTextPresenter >> hasEditingConflicts: aBoolean [
"Set if the text zone has editing conflicts"
"<api:#boolean getter: #hasEditingConflicts>"

^ self changed: #hasEditingConflicts: with: { aBoolean }
]
@@ -341,7 +338,6 @@ SpAbstractTextPresenter >> wantsVisualFeedback: aBoolean [

{ #category : #'api-events' }
SpAbstractTextPresenter >> whenAboutToStyleChangedDo: aBlock [
"<api: #event>"
"Set a block to perform when the about to style block changed"

self whenAboutToStyleBlockChanged: [:block :old :announcement :anAnnouncer |
@@ -132,7 +132,6 @@ SpAbstractWidgetPresenter >> defaultTransferFor: passenger from: source [

{ #category : #api }
SpAbstractWidgetPresenter >> disable [
"<api: #do>"
"Disable the label"

self enabled: false
@@ -170,7 +169,6 @@ SpAbstractWidgetPresenter >> dropEnabled: aBoolean [

{ #category : #api }
SpAbstractWidgetPresenter >> enable [
"<api: #do>"
"Enable the label"

self enabled: true
@@ -157,7 +157,6 @@ SpDropListPresenter >> initialize [
SpDropListPresenter >> items: aList [
"Populate the drop list with a list of ui specific items"
"aList is a list of domain specific objects. If you want to specify more precisely the item actions, see #addItemLabeled:do:"
"<api: #st getter: #listItems>"

| dropListItems |
dropListItems := aList collect: [ :e | SpDropListItem on: e do: [] ].
@@ -169,15 +168,13 @@ SpDropListPresenter >> items: aList [

{ #category : #api }
SpDropListPresenter >> listItems [
"<api: #inspect>"
"Return the list used to populate the drop list"

^ self getList collect: [ :e | e model ].
]

{ #category : #api }
SpDropListPresenter >> listSize [
"<api: #inspect>"
"Return the size of the list of choices"

^ self listItems size
@@ -197,7 +194,6 @@ SpDropListPresenter >> resetSelection [

{ #category : #api }
SpDropListPresenter >> selectedIndex [
"<api: #inspect>"
"Useless method but it provides a better and more consistent API"

^ self getIndex
@@ -213,8 +209,6 @@ SpDropListPresenter >> selectedIndex: anInteger [

{ #category : #api }
SpDropListPresenter >> selectedItem [
"<api: #inspect>"

^ self selection selectedItem ifNotNil: #model
]

@@ -203,7 +203,6 @@ SpSliderPresenter >> quantum: aNumber [

{ #category : #initialization }
SpSliderPresenter >> reset [
"<api:#do>"
"Reset the cursor to the minimum value"

self value: self min
@@ -142,7 +142,6 @@ SpTextInputFieldPresenter >> maxLength: anInteger [

{ #category : #api }
SpTextInputFieldPresenter >> removeEntryCompletion [
"< api:#do>"
"Remove the entry completion"

self entryCompletion: nil
@@ -59,7 +59,6 @@ SpTextPresenter >> registerEvents [

{ #category : #api }
SpTextPresenter >> scrollValue [
"<api: #inspect>"
"Return the current scroll position"

^ scrollValue
@@ -225,7 +225,6 @@ SpAbstractListPresenter >> setSelectedItem: anIndex [
SpAbstractListPresenter >> whenListChanged: aBlock [
"Specify a block to value after the contents of the list has changed"
"Basically when you set a new list of items"
"<api: #event>"
self
deprecated: 'Use #whenModelChangedDo: instead'
transformWith: '`@receiver whenListChanged: `@argument'
@@ -1,8 +1,7 @@
Extension { #name : #SpAbstractTextPresenter }

{ #category : #'*Spec2-Deprecated' }
SpAbstractTextPresenter >> aboutToStyle: aBoolean [
"<api: #boolean getter: #isAboutToStyle registration: #whenAboutToStyleChanged:>"
SpAbstractTextPresenter >> aboutToStyle: aBoolean [
"Set if the text zone must be styled"

self
@@ -14,7 +13,6 @@ SpAbstractTextPresenter >> aboutToStyle: aBoolean [
{ #category : #'*Spec2-Deprecated' }
SpAbstractTextPresenter >> aboutToStyleBlock [
"Return the block used to know if the text must be styled"
"<api:#inspect>"

self
deprecated: 'This has been moved to specific presenters'
@@ -25,7 +23,6 @@ SpAbstractTextPresenter >> aboutToStyleBlock [

{ #category : #'*Spec2-Deprecated' }
SpAbstractTextPresenter >> aboutToStyleBlock: aBlockReturningABoolean [
"<api: #block getter: #aboutToStyleBlock registration: #whenAboutToStyleBlockChanged:>"
"Set the block used to know if the text must be styled.
The block must return a boolean"

@@ -228,7 +228,6 @@ SpTreePresenter >> beCheckList [

{ #category : #'api-compatibility' }
SpTreePresenter >> childrenBlock [
"< api: #inspect>"
"Return the block used to retrieve the children of a node.
The optional block arguments are:
- the node
@@ -239,7 +238,6 @@ SpTreePresenter >> childrenBlock [

{ #category : #'api-compatibility' }
SpTreePresenter >> childrenBlock: aBlock [
"< api: #block getter: #childrenBlock registration: #whenChildrenBlockChanged:>"
"Set the block used to retrieve the children of a node.
The optional block arguments are:
- the node
@@ -302,7 +300,6 @@ SpTreePresenter >> deselectAll [

{ #category : #'api-compatibility' }
SpTreePresenter >> displayBlock [
"< api: #inspect>"
"Return the block used to generate the display of the items.
The optioanl block arguments are:
- the item
@@ -313,7 +310,6 @@ SpTreePresenter >> displayBlock [

{ #category : #'api-compatibility' }
SpTreePresenter >> displayBlock: aBlock [
"<api: #block getter: #displayBlock registration: #whenDisplayBlockChanged:>"
"Set the block used to generate the display of the items.
The optioanl block arguments are:
- the item
@@ -386,7 +382,6 @@ SpTreePresenter >> filterWith: aFilter [

{ #category : #'api-compatibility' }
SpTreePresenter >> hasChildrenBlock [
"<api: #inspect>"
"Get the block used to check if a node has children.
The optional block arguments are:
- the node
@@ -397,7 +392,6 @@ SpTreePresenter >> hasChildrenBlock [

{ #category : #'api-compatibility' }
SpTreePresenter >> hasChildrenBlock: aBlock [
"< api: #block getter: #hasChildrenBlock registration: #whenHasChildrenBlockChanged:>"
"Set the block used to check if a node has children.
The optional block arguments are:
- the node
@@ -414,23 +408,20 @@ SpTreePresenter >> hasChildrenFor: anItem [

{ #category : #api }
SpTreePresenter >> hasSelectedItem [
"< api: #inspect>"
"Return true if the tree contains any selected items"

^ selectionHolder value isNotEmpty
]

{ #category : #api }
SpTreePresenter >> highlightedItem [
"<api: #inspect>"
"Return the currently highlighted item"

^ highlightedItem value
]

{ #category : #api }
SpTreePresenter >> highlightedItem: anItem [
"< api: #st getter: #highlightedItem registration: #whenHighlightedItemChanged:>"
"Set the highlightedItem item"
"In the case of keyboard navigation with checklist, it may differ from the last selected item"

@@ -520,15 +511,13 @@ SpTreePresenter >> keyStrokeAction: aBlock [

{ #category : #api }
SpTreePresenter >> menu [
"<api: #inspect>"
"Return the block used to generate the tree menu"

^ menuBlockHolder value
]

{ #category : #api }
SpTreePresenter >> menu: aBlock [
" < api: #block getter: #menu registration: #whenMenuChanged:>"
"Set the block used to generate the tree menu"

menuBlockHolder value: aBlock
@@ -683,15 +672,13 @@ SpTreePresenter >> rootNodeHolder: aBlock [

{ #category : #api }
SpTreePresenter >> roots [
"< api: #inspect>"
"Return the tree roots"

^ rootsHolder value
]

{ #category : #api }
SpTreePresenter >> roots: aCollection [
"< api: #st getter: #roots registration: #whenRootsChanged:>"
"Set the tree roots"

rootsHolder value: aCollection.
@@ -730,7 +717,6 @@ SpTreePresenter >> selectOnlyLastHighlighted [

{ #category : #api }
SpTreePresenter >> selectedItem [
"< api: #inspect>"
"Return the selected item"
"In the case of a multiple selection list, it returns the last selected item"

@@ -741,7 +727,6 @@ SpTreePresenter >> selectedItem [

{ #category : #api }
SpTreePresenter >> selectedItem: anItem [
"< api: #st getter: #selectedItem registration: #whenSelectedItemsChanged:>"
"Set the selected item"
"In the case of a multiple selection list, it returns the last selected item"

@@ -750,19 +735,16 @@ SpTreePresenter >> selectedItem: anItem [

{ #category : #api }
SpTreePresenter >> selectedItems [
"< api: #inspect>"
"Return the selected items"

^ selectionHolder value
]

{ #category : #api }
SpTreePresenter >> selectedItems: aCollection [
"<api: #st getter: #selectedItems registration: #whenSelectedItemsChanged:>"
"Set the selected item"
"In the case of a multiple selection list, it returns the last selected item"

"treePresenter selectNodePath: aCollection."
selectionHolder value: aCollection.

]
@@ -789,7 +771,6 @@ SpTreePresenter >> selectionChanged: ann [

{ #category : #api }
SpTreePresenter >> updateTree [
"< api: #do>"
"Force the tree to refresh"

self changed: #updateTree with: {}.

0 comments on commit ed6e844

Please sign in to comment.
You can’t perform that action at this time.