Cleaning + remove deprecated methods.

Fixes #15
TelescopeSt · Feb 22, 2019 · 3a0cb31 · 3a0cb31
1 parent c647bbe
commit 3a0cb31
Show file tree

Hide file tree

Showing 15 changed files with 21 additions and 39 deletions.
diff --git a/src/Telescope-Cytoscape-Libraries/CYSFileLibrary.class.st b/src/Telescope-Cytoscape-Libraries/CYSFileLibrary.class.st
@@ -7,7 +7,7 @@ Class {
 	#category : 'Telescope-Cytoscape-Libraries'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #helpers }
 CYSFileLibrary class >> cytoscapeTelescopeJSCompile [
 	<script>
 	self 

diff --git a/src/Telescope-Cytoscape/TLAcknowledgeReceiptCommand.class.st b/src/Telescope-Cytoscape/TLAcknowledgeReceiptCommand.class.st
@@ -4,12 +4,12 @@ Class {
 	#category : 'Telescope-Cytoscape-Commands'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #command }
 TLAcknowledgeReceiptCommand class >> command [
 	^ #acknoledgeReceipt
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #action }
 TLAcknowledgeReceiptCommand >> sendCommandOn: aWebSocket [
    aWebSocket
 				sendMessage:

diff --git a/src/Telescope-Cytoscape/TLCommandsQueue.class.st b/src/Telescope-Cytoscape/TLCommandsQueue.class.st
@@ -17,7 +17,7 @@ Class {
 	#category : 'Telescope-Cytoscape-Connector'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #adding }
 TLCommandsQueue >> addCommand: aTLVisualizationServerCommand [
 	aTLVisualizationServerCommand isAddingCommand
 		ifFalse: [ self removingCustomizingCommands addLast: aTLVisualizationServerCommand ]
@@ -65,7 +65,7 @@ TLCommandsQueue >> positionNodesCommand: anObject [
 	positionNodesCommand := anObject
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #removing }
 TLCommandsQueue >> removeAllCommands [
 	| commands |
 	self addingCommand ifNotEmpty: [ self removingCustomizingCommands addLast: self addingCommand ].

diff --git a/src/Telescope-Cytoscape/TLCytoscapeWebSocketDelegate.class.st b/src/Telescope-Cytoscape/TLCytoscapeWebSocketDelegate.class.st
@@ -41,18 +41,6 @@ TLCytoscapeWebSocketDelegate class >> clientPort: anObject [
 	clientPort := anObject
 ]
 
-{ #category : #accessing }
-TLCytoscapeWebSocketDelegate class >> defaultPort [
-	self deprecated: 'Use #serverPort'.
-	^ self serverPort
-]
-
-{ #category : #accessing }
-TLCytoscapeWebSocketDelegate class >> defaultPort: anObject [
-	self deprecated: 'Use #serverPort:'.
-	^ self serverPort: anObject
-]
-
 { #category : #accessing }
 TLCytoscapeWebSocketDelegate class >> delegate [
 	^ self singleton delegate
@@ -112,12 +100,6 @@ TLCytoscapeWebSocketDelegate class >> openWebDemo [
 		ifAbsent: [ self class environment at: #OSProcess ifPresent: [ :class | class command: 'open ' , url ] ifAbsent: [ self inform: 'Open ' , url , ' or install WebBrowser/OSProcess.' ] ]
 ]
 
-{ #category : #accessing }
-TLCytoscapeWebSocketDelegate class >> port [
-	self deprecated: 'Use #clientPort or #serverPort instead'.
-	^ self clientPort
-]
-
 { #category : #registration }
 TLCytoscapeWebSocketDelegate class >> registerVisualization: aTLVisualization underId: aDivId withCallBack: aCallBack callbackUrl: callbackUrl [
 	self ensureServerIsRunning.

diff --git a/src/Telescope-Cytoscape/TLExternalTriggerCommand.class.st b/src/Telescope-Cytoscape/TLExternalTriggerCommand.class.st
@@ -7,25 +7,25 @@ Class {
 	#category : 'Telescope-Cytoscape-Commands'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #'instance creation' }
 TLExternalTriggerCommand class >> newWithParameters: aParametersDictionary [
 	^ self new
 		visuId: (aParametersDictionary at: #id);
 		triggerId: (aParametersDictionary at: #triggerId);
 		yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #execution }
 TLExternalTriggerCommand >> executeOnVisu: aTLVisualization [
 	aTLVisualization generator executeExternalTrigger: self triggerId .
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 TLExternalTriggerCommand >> triggerId [
 	^ triggerId
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 TLExternalTriggerCommand >> triggerId: anID [
 	triggerId := anID
 ]
diff --git a/src/Telescope-Cytoscape/TLMenuInteractionCommand.class.st b/src/Telescope-Cytoscape/TLMenuInteractionCommand.class.st
@@ -27,7 +27,7 @@ TLMenuInteractionCommand >> entry: anObject [
 	entry := anObject
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #execution }
 TLMenuInteractionCommand >> executeOnVisu: aTLVisualization [
 	aTLVisualization generator executeMenuInteraction: self entry onDrawableId: self drawableId
 ]
diff --git a/src/Telescope-Cytoscape/TLMultiChoicesMenuInteractionCommand.class.st b/src/Telescope-Cytoscape/TLMultiChoicesMenuInteractionCommand.class.st
@@ -8,7 +8,7 @@ Class {
 	#category : 'Telescope-Cytoscape-Commands'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #'instance creation' }
 TLMultiChoicesMenuInteractionCommand class >> newWithParameters: aParametersDictionary [
 	^ (super newWithParameters: aParametersDictionary)
 		entry: (aParametersDictionary at: #entry);

diff --git a/src/Telescope-Cytoscape/TLSeasideCallBackAction.class.st b/src/Telescope-Cytoscape/TLSeasideCallBackAction.class.st
@@ -48,7 +48,7 @@ TLSeasideCallBackAction >> block: anObject [
 	block := anObject
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 TLSeasideCallBackAction >> initialize [
 	super initialize.
 	self openInNewTab: false

diff --git a/src/Telescope-Cytoscape/TLVisualizationAddLegendEntryCommand.class.st b/src/Telescope-Cytoscape/TLVisualizationAddLegendEntryCommand.class.st
@@ -21,7 +21,7 @@ TLVisualizationAddLegendEntryCommand class >> for: aLegendEntry visuId: aVisuId
 	^ TLVisualizationAddLegendEntryCommand visuId: aVisuId html: aLegendEntry cytoscapeHtmlRepresentation
 ]
 
-{ #category : #'instance-creation' }
+{ #category : #'instance creation' }
 TLVisualizationAddLegendEntryCommand class >> visuId: aVisuId html: aHtml [
 	^ self new
 		visuId: aVisuId;

diff --git a/src/Telescope-Cytoscape/TLVisualizationClientsCommand.class.st b/src/Telescope-Cytoscape/TLVisualizationClientsCommand.class.st
@@ -7,7 +7,7 @@ Class {
 	#category : 'Telescope-Cytoscape-Commands'
 }
 
-{ #category : #'instance-creation' }
+{ #category : #'instance creation' }
 TLVisualizationClientsCommand class >> createFrom: aJsonDictionary [
 	^ ({('generate' -> TLVisualizationGenerationCommand).
 	('interaction' -> TLInteractionCommand).

diff --git a/src/Telescope-Cytoscape/TLVisualizationCustomizeElementCommand.class.st b/src/Telescope-Cytoscape/TLVisualizationCustomizeElementCommand.class.st
@@ -15,7 +15,7 @@ TLVisualizationCustomizeElementCommand class >> command [
 	^ #customize
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #json }
 TLVisualizationCustomizeElementCommand >> neoJsonOn: writer [
 	writer
 		writeMapStreamingDo: [ :jsonMapWriter | 

diff --git a/src/Telescope-Cytoscape/TLVisualizationMultiAddingCommand.class.st b/src/Telescope-Cytoscape/TLVisualizationMultiAddingCommand.class.st
@@ -46,7 +46,7 @@ TLVisualizationMultiAddingCommand >> isMultiAdding [
 	^ true
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #json }
 TLVisualizationMultiAddingCommand >> neoJsonOn: writer [
 	writer
 		writeMapStreamingDo: [ :jsonMapWriter | 

diff --git a/src/Telescope-Cytoscape/TLVisualizationRefreshNodeCommand.class.st b/src/Telescope-Cytoscape/TLVisualizationRefreshNodeCommand.class.st
@@ -44,7 +44,7 @@ TLVisualizationRefreshNodeCommand >> customizeFromInteractions: aCollectionOfInt
 					dic ])
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #testing }
 TLVisualizationRefreshNodeCommand >> isAddingCommand [
 	^ false
 ]

diff --git a/src/Telescope-Cytoscape/TLWebAppVisualization.class.st b/src/Telescope-Cytoscape/TLWebAppVisualization.class.st
@@ -13,7 +13,7 @@ Class {
 	#category : #'Telescope-Cytoscape-Seaside'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #'instance creation' }
 TLWebAppVisualization class >> singleton [
 self flag:'revoir comment on implem un singleton... Je n aime pas creer des variables de classe'.
 	^self allInstances

diff --git a/src/Telescope-Cytoscape/TLWebAppVisualizationComponent.class.st b/src/Telescope-Cytoscape/TLWebAppVisualizationComponent.class.st
@@ -16,18 +16,18 @@ Class {
 	#category : #'Telescope-Cytoscape-Seaside'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 TLWebAppVisualizationComponent class >> ensureIsRunning [
 	(WAAdmin isAnAppRegisteredAt: 'UserVisualisation')
 		ifFalse:[self initialize]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 TLWebAppVisualizationComponent class >> initialize [
 	self initializeAt: 'UserVisualization'
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 TLWebAppVisualizationComponent class >> initializeAt: aString [
 	| app |
 	app := WAAdmin register: self asApplicationAt: aString.
-Original file line number
+Diff line change
@@ Expand Up @@
     					dic ])
     ]
-    { #category : #'as yet unclassified' }
+    { #category : #testing }
     TLVisualizationRefreshNodeCommand >> isAddingCommand [
     	^ false
     ]
@@ Expand Down @@