Merge pull request #9589 from estebanlm/deprecate-glamour-and-gt

deprecate glamour and gt tools
pharo-project · Jul 15, 2021 · e58ef49 · e58ef49
2 parents 28f73c7 + 3da46c6
commit e58ef49
Show file tree

Hide file tree

Showing 346 changed files with 1,730 additions and 0 deletions.
diff --git a/src/GT-BytecodeDebugger/GTBytecodeDebuggerSession.class.st b/src/GT-BytecodeDebugger/GTBytecodeDebuggerSession.class.st
@@ -8,6 +8,11 @@ Class {
 	#category : #'GT-BytecodeDebugger-Model'
 }
 
+{ #category : #testing }
+GTBytecodeDebuggerSession class >> isDeprecated [
+	^ true
+]
+
 { #category : #'debugging actions' }
 GTBytecodeDebuggerSession >> runToBytecode: aSymbolicBytecode inContext: aContext [ 
 	"Attempt to step over instructions in selectedContext until the 

diff --git a/src/GT-BytecodeDebugger/GTGoAndInspectBytecodeDebugAction.class.st b/src/GT-BytecodeDebugger/GTGoAndInspectBytecodeDebugAction.class.st
@@ -15,6 +15,11 @@ GTGoAndInspectBytecodeDebugAction class >> gtBytecodeDebuggerActionFor: aDebugge
 	^ (self forDebugger: aDebugger)
 ]
 
+{ #category : #testing }
+GTGoAndInspectBytecodeDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTGoAndInspectBytecodeDebugAction >> defaultKeymap [
 

diff --git a/src/GT-BytecodeDebugger/GTStepToBytecodeDebugAction.class.st b/src/GT-BytecodeDebugger/GTStepToBytecodeDebugAction.class.st
@@ -15,6 +15,11 @@ GTStepToBytecodeDebugAction class >> gtBytecodeDebuggerActionFor: aDebugger [
 			icon: GLMUIThemeExtraIcons glamorousPlay
 ]
 
+{ #category : #testing }
+GTStepToBytecodeDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #testing }
 GTStepToBytecodeDebugAction >> appliesToDebugger: aDebugger [
 

diff --git a/src/GT-Debugger/GTBrowseMethodDebuggerAction.class.st b/src/GT-Debugger/GTBrowseMethodDebuggerAction.class.st
@@ -15,6 +15,11 @@ GTBrowseMethodDebuggerAction class >> gtActionFor: aDebugger [
 			icon: GLMUIThemeExtraIcons glamorousBrowse
 ]
 
+{ #category : #testing }
+GTBrowseMethodDebuggerAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTBrowseMethodDebuggerAction >> defaultLabel [
 

diff --git a/src/GT-Debugger/GTChangeDebuggerAction.class.st b/src/GT-Debugger/GTChangeDebuggerAction.class.st
@@ -40,6 +40,11 @@ GTChangeDebuggerAction class >> gtChangeDebuggerActionsFor: aDebugger [
 		excluding: aDebugger
 ]
 
+{ #category : #testing }
+GTChangeDebuggerAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTChangeDebuggerAction >> debuggerClass: aClass [
 

diff --git a/src/GT-Debugger/GTClearEditorDebugAction.class.st b/src/GT-Debugger/GTClearEditorDebugAction.class.st
@@ -15,6 +15,11 @@ GTClearEditorDebugAction class >> gtActionFor: aDebugger [
 		icon: GLMUIThemeExtraIcons glamorousCancel
 ]
 
+{ #category : #testing }
+GTClearEditorDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTClearEditorDebugAction >> defaultIcon [
 

diff --git a/src/GT-Debugger/GTCodeDebugAction.class.st b/src/GT-Debugger/GTCodeDebugAction.class.st
@@ -11,6 +11,11 @@ Class {
 	#category : #'GT-Debugger-Actions'
 }
 
+{ #category : #testing }
+GTCodeDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTCodeDebugAction >> codePresentation [
 	^ self debugger perform: self codePresentationSelector

diff --git a/src/GT-Debugger/GTDebuggerBrowserUpdateRequest.class.st b/src/GT-Debugger/GTDebuggerBrowserUpdateRequest.class.st
@@ -15,6 +15,11 @@ GTDebuggerBrowserUpdateRequest class >> from: anAnnouncement [
 	^ self new from: anAnnouncement
 ]
 
+{ #category : #testing }
+GTDebuggerBrowserUpdateRequest class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTDebuggerBrowserUpdateRequest >> debugActionExecutedAnnouncement [
 	^ debugActionExecutedAnnouncement

diff --git a/src/GT-Debugger/GTGenericStackDebuggerSelectionChanged.class.st b/src/GT-Debugger/GTGenericStackDebuggerSelectionChanged.class.st
@@ -17,6 +17,11 @@ GTGenericStackDebuggerSelectionChanged class >> forDebugger: aDebugger [
 	^ self new forDebugger: aDebugger
 ]
 
+{ #category : #testing }
+GTGenericStackDebuggerSelectionChanged class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTGenericStackDebuggerSelectionChanged >> debugger [
 

diff --git a/src/GT-Debugger/GTGlamourWrapperDebuggingAction.class.st b/src/GT-Debugger/GTGlamourWrapperDebuggingAction.class.st
@@ -22,6 +22,11 @@ GTGlamourWrapperDebuggingAction class >> gtActionFor: aDebugger [
 				order: (index := index + 10) ]
 ]
 
+{ #category : #testing }
+GTGlamourWrapperDebuggingAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #transformation }
 GTGlamourWrapperDebuggingAction >> asGlamourAction [
 	|actionBlock|

diff --git a/src/GT-Debugger/GTHelpDebugAction.class.st b/src/GT-Debugger/GTHelpDebugAction.class.st
@@ -14,6 +14,11 @@ GTHelpDebugAction class >> gtDebuggingAction [
 	"<gtDebuggingAction>"
 ]
 
+{ #category : #testing }
+GTHelpDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTHelpDebugAction >> defaultIcon [
 

diff --git a/src/GT-Debugger/GTRunToSelectionDebugAction.class.st b/src/GT-Debugger/GTRunToSelectionDebugAction.class.st
@@ -15,6 +15,11 @@ GTRunToSelectionDebugAction class >> gtActionFor: aDebugger [
 			icon: GLMUIThemeExtraIcons glamorousPlay
 ]
 
+{ #category : #testing }
+GTRunToSelectionDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTRunToSelectionDebugAction >> defaultOrder [
 

diff --git a/src/GT-Debugger/GTWhereIsDebugAction.class.st b/src/GT-Debugger/GTWhereIsDebugAction.class.st
@@ -15,6 +15,11 @@ GTWhereIsDebugAction class >> gtActionFor: aDebugger [
 			icon: GLMUIThemeExtraIcons glamorousSearch
 ]
 
+{ #category : #testing }
+GTWhereIsDebugAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTWhereIsDebugAction >> defaultOrder [
 

diff --git a/src/GT-Debugger/ManifestGTDebugger.class.st b/src/GT-Debugger/ManifestGTDebugger.class.st
@@ -7,6 +7,11 @@ Class {
 	#category : #'GT-Debugger-Manifest'
 }
 
+{ #category : #testing }
+ManifestGTDebugger class >> isDeprecated [
+	^ true
+]
+
 { #category : #unloading }
 ManifestGTDebugger class >> preUnload [
   GTGenericStackDebugger closeAllDebuggers

diff --git a/src/GT-Inspector/GTInspectorContextIndexedTempNode.class.st b/src/GT-Inspector/GTInspectorContextIndexedTempNode.class.st
@@ -17,6 +17,11 @@ GTInspectorContextIndexedTempNode class >> hostObject: aContext tempIndex: anInt
 		yourself
 ]
 
+{ #category : #testing }
+GTInspectorContextIndexedTempNode class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTInspectorContextIndexedTempNode >> label [
 	^ self tempIndex

diff --git a/src/GT-Inspector/GTInspectorContextNamedTempNode.class.st b/src/GT-Inspector/GTInspectorContextNamedTempNode.class.st
@@ -23,6 +23,11 @@ GTInspectorContextNamedTempNode class >> hostObject: aContext tempName: aString
 		yourself
 ]
 
+{ #category : #testing }
+GTInspectorContextNamedTempNode class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTInspectorContextNamedTempNode >> errorMessage [
 	^ 'error obtaining field value'

diff --git a/src/GT-Inspector/GTInspectorDynamicNode.class.st b/src/GT-Inspector/GTInspectorDynamicNode.class.st
@@ -20,6 +20,11 @@ GTInspectorDynamicNode class >> hostObject: anObject label: aString value: anoth
 		yourself
 ]
 
+{ #category : #testing }
+GTInspectorDynamicNode class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTInspectorDynamicNode >> key [
 	^ label

diff --git a/src/GT-Inspector/GTInspectorIndexedNode.class.st b/src/GT-Inspector/GTInspectorIndexedNode.class.st
@@ -17,6 +17,11 @@ GTInspectorIndexedNode class >> hostObject: anObject index: index [
 		yourself
 ]
 
+{ #category : #testing }
+GTInspectorIndexedNode class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTInspectorIndexedNode >> errorMessage [
 	^ 'error obtaining indexed attribute value'

diff --git a/src/GT-Inspector/GTInspectorPresentationFilter.class.st b/src/GT-Inspector/GTInspectorPresentationFilter.class.st
@@ -10,6 +10,11 @@ Class {
 	#category : #'GT-Inspector'
 }
 
+{ #category : #testing }
+GTInspectorPresentationFilter class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTInspectorPresentationFilter >> changeFilterRequestFor: aGTInspector [
 

diff --git a/src/GT-Inspector/GTInspectorProtoObjectNode.class.st b/src/GT-Inspector/GTInspectorProtoObjectNode.class.st
@@ -18,6 +18,11 @@ GTInspectorProtoObjectNode class >> hostObject: anObject index: index slotName:
 		yourself
 ]
 
+{ #category : #testing }
+GTInspectorProtoObjectNode class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTInspectorProtoObjectNode >> index: anIndex slotName: aSlotName [
 	index := anIndex.

diff --git a/src/GT-Inspector/GTInspectorVariableNode.class.st b/src/GT-Inspector/GTInspectorVariableNode.class.st
@@ -30,6 +30,11 @@ GTInspectorVariableNode class >> hostObject: anObject [
 		yourself
 ]
 
+{ #category : #testing }
+GTInspectorVariableNode class >> isDeprecated [
+	^ true
+]
+
 { #category : #composition }
 GTInspectorVariableNode >> childrenNodesFor: aVariablesBrowser [
 	"Return a collection of subvariable nodes to be displayed in a given raw variables browser.

diff --git a/src/GT-Inspector/GTObjectPrinter.class.st b/src/GT-Inspector/GTObjectPrinter.class.st
@@ -27,6 +27,11 @@ GTObjectPrinter class >> asTruncatedTextFrom: anObject [
 		do: [ Text string: 'error printing' attribute: TextColor red ]
 ]
 
+{ #category : #testing }
+GTObjectPrinter class >> isDeprecated [
+	^ true
+]
+
 { #category : #printing }
 GTObjectPrinter >> asNonTruncatedTextFrom: anObject [
 	^ self class asNonTruncatedTextFrom: anObject

diff --git a/src/GT-Inspector/GTSnippets.class.st b/src/GT-Inspector/GTSnippets.class.st
@@ -18,6 +18,11 @@ GTSnippets class >> instance [
 	^ instance ifNil: [ instance := self new ]
 ]
 
+{ #category : #testing }
+GTSnippets class >> isDeprecated [
+	^ true
+]
+
 { #category : #initialization }
 GTSnippets class >> reset [
 	instance := nil

diff --git a/src/GT-Playground/GTPlayBook.class.st b/src/GT-Playground/GTPlayBook.class.st
@@ -111,6 +111,11 @@ GTPlayBook class >> instance [
 	^ instance ifNil: [ instance := self new ]
 ]
 
+{ #category : #testing }
+GTPlayBook class >> isDeprecated [
+	^ true
+]
+
 { #category : #initialization }
 GTPlayBook class >> reset [
 

diff --git a/src/GT-Playground/GTPlayPage.class.st b/src/GT-Playground/GTPlayPage.class.st
@@ -76,6 +76,11 @@ GTPlayPage class >> gtExampleEmpty [
 	^ self new
 ]
 
+{ #category : #testing }
+GTPlayPage class >> isDeprecated [
+	^ true
+]
+
 { #category : #'instance creation' }
 GTPlayPage class >> loadFromPublishUrl: aString [
 	^ [ self basicLoadFromPublishUrl: aString ] 

diff --git a/src/GT-Playground/GTPlayPageFilePersistence.class.st b/src/GT-Playground/GTPlayPageFilePersistence.class.st
@@ -4,6 +4,11 @@ Class {
 	#category : #'GT-Playground'
 }
 
+{ #category : #testing }
+GTPlayPageFilePersistence class >> isDeprecated [
+	^ true
+]
+
 { #category : #private }
 GTPlayPageFilePersistence >> deleteFromFileSystem [
 

diff --git a/src/GT-Playground/GTPlayPagePersistence.class.st b/src/GT-Playground/GTPlayPagePersistence.class.st
@@ -7,6 +7,11 @@ Class {
 	#category : #'GT-Playground'
 }
 
+{ #category : #testing }
+GTPlayPagePersistence class >> isDeprecated [
+	^ true
+]
+
 { #category : #testing }
 GTPlayPagePersistence >> isStash [
 	^ false

diff --git a/src/GT-Playground/GTUrlProvider.class.st b/src/GT-Playground/GTUrlProvider.class.st
@@ -15,6 +15,11 @@ Class {
 	#category : #'GT-Playground'
 }
 
+{ #category : #testing }
+GTUrlProvider class >> isDeprecated [
+	^ true
+]
+
 { #category : #settings }
 GTUrlProvider class >> settingsOn: aBuilder [ 
 	<systemsettings>

diff --git a/src/GT-SUnitDebugger/GTSUnitActivationPredicate.class.st b/src/GT-SUnitDebugger/GTSUnitActivationPredicate.class.st
@@ -7,6 +7,11 @@ Class {
 	#category : #'GT-SUnitDebugger'
 }
 
+{ #category : #testing }
+GTSUnitActivationPredicate class >> isDeprecated [
+	^ true
+]
+
 { #category : #testing }
 GTSUnitActivationPredicate >> matchContext: aContext [
 

diff --git a/src/GT-SUnitDebugger/GTSUnitDebugSession.class.st b/src/GT-SUnitDebugger/GTSUnitDebugSession.class.st
@@ -32,6 +32,11 @@ GTSUnitDebugSession class >> activationPredicate [
 	^  GTSUnitActivationPredicate new
 ]
 
+{ #category : #testing }
+GTSUnitDebugSession class >> isDeprecated [
+	^ true
+]
+
 { #category : #accessing }
 GTSUnitDebugSession >> actualResult [
 

diff --git a/src/GT-SUnitDebugger/GTSUnitDebuggerJumpToTestAction.class.st b/src/GT-SUnitDebugger/GTSUnitDebuggerJumpToTestAction.class.st
@@ -16,6 +16,11 @@ GTSUnitDebuggerJumpToTestAction class >> gtDebuggerActionFor: aDebugger [
 	^ (self forDebugger: aDebugger)
 ]
 
+{ #category : #testing }
+GTSUnitDebuggerJumpToTestAction class >> isDeprecated [
+	^ true
+]
+
 { #category : #testing }
 GTSUnitDebuggerJumpToTestAction >> appliesToDebugger: aDebugger [
 

diff --git a/src/GT-SUnitDebugger/GTSUnitExampleFailingTest.class.st b/src/GT-SUnitDebugger/GTSUnitExampleFailingTest.class.st
@@ -12,6 +12,11 @@ GTSUnitExampleFailingTest class >> isAbstract [
 	^ true
 ]
 
+{ #category : #testing }
+GTSUnitExampleFailingTest class >> isDeprecated [
+	^ true
+]
+
 { #category : #testing }
 GTSUnitExampleFailingTest class >> isUnitTest [
 	^ false

diff --git a/src/GT-SUnitDebugger/GTSUnitExampleWithProblematicSetUpTest.class.st b/src/GT-SUnitDebugger/GTSUnitExampleWithProblematicSetUpTest.class.st
@@ -12,6 +12,11 @@ GTSUnitExampleWithProblematicSetUpTest class >> isAbstract [
 	^ true
 ]
 
+{ #category : #testing }
+GTSUnitExampleWithProblematicSetUpTest class >> isDeprecated [
+	^ true
+]
+
 { #category : #testing }
 GTSUnitExampleWithProblematicSetUpTest class >> isUnitTest [
 	^ false