diff --git a/.baseline-metadata.ston b/.baseline-metadata.ston new file mode 100644 index 00000000..63520879 --- /dev/null +++ b/.baseline-metadata.ston @@ -0,0 +1,6 @@ +{ + "repositories" : { + "github://feenkcom/gtoolkit-phlow/src" : "v0.9.134", + "github://feenkcom/PharoLink/src" : "v0.8.525" + } +} \ No newline at end of file diff --git a/scripts/convertToGsFormat.sh b/scripts/convertToGsFormat.sh old mode 100755 new mode 100644 diff --git a/scripts/convertToGsFormat_rowan3.sh b/scripts/convertToGsFormat_rowan3.sh old mode 100755 new mode 100644 diff --git a/scripts/inputGtRemote.sh b/scripts/inputGtRemote.sh old mode 100755 new mode 100644 diff --git a/scripts/installGtoolkitRemote_rowan2.sh b/scripts/installGtoolkitRemote_rowan2.sh old mode 100755 new mode 100644 diff --git a/scripts/installGtoolkitRemote_rowan3.sh b/scripts/installGtoolkitRemote_rowan3.sh old mode 100755 new mode 100644 diff --git a/scripts/run-remote-pharo-examples.sh b/scripts/run-remote-pharo-examples.sh old mode 100755 new mode 100644 diff --git a/scripts/setup-remote-pharo.sh b/scripts/setup-remote-pharo.sh old mode 100755 new mode 100644 diff --git a/src/BaselineOfGToolkitRemote/BaselineOfGToolkitRemote.class.st b/src/BaselineOfGToolkitRemote/BaselineOfGToolkitRemote.class.st index dc4442e5..f33d2b61 100644 --- a/src/BaselineOfGToolkitRemote/BaselineOfGToolkitRemote.class.st +++ b/src/BaselineOfGToolkitRemote/BaselineOfGToolkitRemote.class.st @@ -11,47 +11,44 @@ Class { { #category : #baseline } BaselineOfGToolkitRemote >> baseline: spec [ - + spec for: #'common' do: [ - spec baseline: 'GToolkitPhlow' with: [ - spec repository: 'github://feenkcom/gtoolkit-phlow:main/src' ]. - spec - package: 'GToolkit-RemotePhlow-DeclarativeSpecification'; - package: 'GToolkit-RemotePhlow-Text'; - package: 'GToolkit-RemotePhlow-Icons' with: [ - spec requires: #('GToolkit-RemotePhlow-DeclarativeSpecification')]; - package: 'GToolkit-RemotePhlow-DeclarativeActions'with: [ - spec requires: #('GToolkit-RemotePhlow-DeclarativeSpecification')]; - package: 'GToolkit-RemotePhlow-DeclarativeViews' with: [ - spec requires: #('GToolkit-RemotePhlow-Text' 'GToolkit-RemotePhlow-DeclarativeSpecification')]; - package: 'GToolkit-RemotePhlow-DeclarativeViews-GTSpecific'with: [ - spec requires: #(#'GToolkit-RemotePhlow-DeclarativeViews') ]; - package: 'GToolkit-RemotePhlow-PhlowActions' with: [ - spec requires: #(#'GToolkitPhlow' ) ]; - package: 'GToolkit-RemotePhlow-PhlowViews' with: [ - spec requires: #(#'GToolkitPhlow' 'GToolkit-RemotePhlow-Text') ]; - package: 'GToolkit-RemotePhlow-InspectorCore' with: [ - spec requires: #(#'GToolkit-RemotePhlow-PhlowViews') ]; - - "GToolkit-RemotePhlow-Examples all run in the local image, - i.e. don't require external servers, so can be part of the standard test suite" - package: 'GToolkit-RemotePhlow-Examples'; - - package: 'GToolkit-RemoteGt-LocalPhlow' with: [ - spec requires: #('GToolkit-RemotePhlow-PhlowViews')]; - package: 'GToolkit-RemoteGt' with: [ - spec requires: #('GToolkitPhlow' #'GToolkit-RemotePhlow-DeclarativeActions' #'GToolkit-RemotePhlow-DeclarativeViews-GTSpecific' #'GToolkit-RemotePhlow-PhlowActions' #'GToolkit-RemotePhlow-PhlowViews' 'GToolkit-RemotePhlow-Examples'). ]; - package: 'GToolkit-RemoteGt-Icons' with: [ - spec requires: #('GToolkit-RemoteGt' 'GToolkit-RemotePhlow-DeclarativeActions') ]; - package: 'GToolkit-RemoteGt-Lepiter' with: [ - spec requires: #('GToolkit-RemoteGt') ]; - package: 'GToolkit-RemoteGt-InspectorCore' with: [ - spec requires: #('GToolkit-RemoteGt') ]; - package: 'GToolkit-RemotePhlow-GeolifeDemo'; - package: 'GToolkit-RemotePhlow-GeolifeDemo-GTSpecific' with: [ - spec requires: #('GToolkit-RemotePhlow-GeolifeDemo') ]; - package: 'GToolkit-RemotePhlow-MoviesDemo'; - package: 'GToolkit-RemotePhlow-MoviesDemo-GTSpecific' with: [ - spec requires: #('GToolkit-RemotePhlow-MoviesDemo') ] ]. + spec + baseline: 'GToolkitPhlow' with: [ + spec repository: 'github://feenkcom/gtoolkit-phlow:v0.9.134/src' ]. + spec package: 'GToolkit-RemotePhlow-DeclarativeSpecification'. + spec package: 'GToolkit-RemotePhlow-Text'. + spec package: 'GToolkit-RemotePhlow-Icons' with: [ + spec requires: #(#'GToolkit-RemotePhlow-DeclarativeSpecification') ]. + spec package: 'GToolkit-RemotePhlow-DeclarativeActions' with: [ + spec requires: #(#'GToolkit-RemotePhlow-DeclarativeSpecification') ]. + spec package: 'GToolkit-RemotePhlow-DeclarativeViews' with: [ + spec requires: #(#'GToolkit-RemotePhlow-Text' #'GToolkit-RemotePhlow-DeclarativeSpecification') ]. + spec package: 'GToolkit-RemotePhlow-DeclarativeViews-GTSpecific' with: [ + spec requires: #(#'GToolkit-RemotePhlow-DeclarativeViews') ]. + spec package: 'GToolkit-RemotePhlow-PhlowActions' with: [ + spec requires: #(#GToolkitPhlow) ]. + spec package: 'GToolkit-RemotePhlow-PhlowViews' with: [ + spec requires: #(#GToolkitPhlow #'GToolkit-RemotePhlow-Text') ]. + spec package: 'GToolkit-RemotePhlow-InspectorCore' with: [ + spec requires: #(#'GToolkit-RemotePhlow-PhlowViews') ]. + spec package: 'GToolkit-RemotePhlow-Examples'. + spec package: 'GToolkit-RemoteGt-LocalPhlow' with: [ + spec requires: #(#'GToolkit-RemotePhlow-PhlowViews') ]. + spec package: 'GToolkit-RemoteGt' with: [ + spec requires: #(#GToolkitPhlow #'GToolkit-RemotePhlow-DeclarativeActions' #'GToolkit-RemotePhlow-DeclarativeViews-GTSpecific' #'GToolkit-RemotePhlow-PhlowActions' #'GToolkit-RemotePhlow-PhlowViews' #'GToolkit-RemotePhlow-Examples') ]. + spec package: 'GToolkit-RemoteGt-Icons' with: [ + spec requires: #(#'GToolkit-RemoteGt' #'GToolkit-RemotePhlow-DeclarativeActions') ]. + spec package: 'GToolkit-RemoteGt-Lepiter' with: [ + spec requires: #(#'GToolkit-RemoteGt') ]. + spec package: 'GToolkit-RemoteGt-InspectorCore' with: [ + spec requires: #(#'GToolkit-RemoteGt') ]. + spec package: 'GToolkit-RemotePhlow-GeolifeDemo'. + spec package: 'GToolkit-RemotePhlow-GeolifeDemo-GTSpecific' with: [ + spec requires: #(#'GToolkit-RemotePhlow-GeolifeDemo') ]. + spec package: 'GToolkit-RemotePhlow-MoviesDemo'. + spec package: 'GToolkit-RemotePhlow-MoviesDemo-GTSpecific' with: [ + spec requires: #(#'GToolkit-RemotePhlow-MoviesDemo') ]. + ] ] diff --git a/src/BaselineOfGt4PharoLink/BaselineOfGt4PharoLink.class.st b/src/BaselineOfGt4PharoLink/BaselineOfGt4PharoLink.class.st index 5d98f3cf..8e18ee40 100644 --- a/src/BaselineOfGt4PharoLink/BaselineOfGt4PharoLink.class.st +++ b/src/BaselineOfGt4PharoLink/BaselineOfGt4PharoLink.class.st @@ -1,18 +1,21 @@ Class { - #name : 'BaselineOfGt4PharoLink', - #superclass : 'BaselineOf', - #category : 'BaselineOfGt4PharoLink' + #name : #BaselineOfGt4PharoLink, + #superclass : #BaselineOf, + #category : #BaselineOfGt4PharoLink } -{ #category : 'baseline' } +{ #category : #baseline } BaselineOfGt4PharoLink >> baseline: spec [ spec for: #'common' do: [ - spec baseline: 'PharoLink' with: [ - spec repository: 'github://feenkcom/PharoLink:main/src' ]. - spec baseline: 'GToolkitRemote' with: [ - spec repository: 'github://feenkcom/gtoolkit-remote:main/src' ]. - spec package: 'Gt4PharoLink' with: [ - spec requires: #('PharoLink' 'GToolkitRemote'). ]. ]. + spec + baseline: 'PharoLink' with: [ + spec repository: 'github://feenkcom/PharoLink:v0.8.525/src' ]. + spec + baseline: 'GToolkitRemote' with: [ + spec repository: 'github://feenkcom/gtoolkit-remote:v0.9.138/src' ]. + spec package: 'Gt4PharoLink' with: [ + spec requires: #(#PharoLink #GToolkitRemote) ]. + ] ] diff --git a/src/BaselineOfGt4PharoLink/package.st b/src/BaselineOfGt4PharoLink/package.st index 9685cb3f..5af2b862 100644 --- a/src/BaselineOfGt4PharoLink/package.st +++ b/src/BaselineOfGt4PharoLink/package.st @@ -1 +1 @@ -Package { #name : 'BaselineOfGt4PharoLink' } +Package { #name : #BaselineOfGt4PharoLink } diff --git a/src/BaselineOfGtRemotePharoExamples/BaselineOfGtRemotePharoExamples.class.st b/src/BaselineOfGtRemotePharoExamples/BaselineOfGtRemotePharoExamples.class.st index 21fdc5ac..767a8563 100644 --- a/src/BaselineOfGtRemotePharoExamples/BaselineOfGtRemotePharoExamples.class.st +++ b/src/BaselineOfGtRemotePharoExamples/BaselineOfGtRemotePharoExamples.class.st @@ -1,10 +1,10 @@ Class { - #name : 'BaselineOfGtRemotePharoExamples', - #superclass : 'BaselineOf', + #name : #BaselineOfGtRemotePharoExamples, + #superclass : #BaselineOf, #category : 'BaselineOfGtRemotePharoExamples' } -{ #category : 'baselines' } +{ #category : #baselines } BaselineOfGtRemotePharoExamples >> baseline: spec [ diff --git a/src/BaselineOfGtRemotePharoExamples/package.st b/src/BaselineOfGtRemotePharoExamples/package.st index 4a8f5073..d4144292 100644 --- a/src/BaselineOfGtRemotePharoExamples/package.st +++ b/src/BaselineOfGtRemotePharoExamples/package.st @@ -1 +1 @@ -Package { #name : 'BaselineOfGtRemotePharoExamples' } +Package { #name : #BaselineOfGtRemotePharoExamples } diff --git a/src/GToolkit-RemotePhlow-GemStone/AbstractFileReference.extension.st b/src/GToolkit-RemotePhlow-GemStone/AbstractFileReference.extension.st index e02d8fcd..dd1c08c9 100644 --- a/src/GToolkit-RemotePhlow-GemStone/AbstractFileReference.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/AbstractFileReference.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'AbstractFileReference' } +Extension { #name : #AbstractFileReference } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtChildren [ self isDirectory ifFalse: [ ^ Array new ]. @@ -8,7 +8,7 @@ AbstractFileReference >> gtChildren [ (self files sort: [:a :b | a basename < b basename ]). ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtChildrenWithParent [ | aChildrenCollection | self isDirectory ifFalse: [ ^ Array new ]. @@ -22,7 +22,7 @@ AbstractFileReference >> gtChildrenWithParent [ ^ aChildrenCollection ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtContentsFor: aView [ @@ -34,7 +34,7 @@ AbstractFileReference >> gtContentsFor: aView [ text: [ self contents ] ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtDetails [ | details | @@ -75,7 +75,7 @@ AbstractFileReference >> gtDetails [ ^ details ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtDetailsFor: composite [ @@ -88,7 +88,7 @@ AbstractFileReference >> gtDetailsFor: composite [ send: [ :each | each last ] ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtItemsFor: aView [ self isDirectory @@ -128,7 +128,7 @@ AbstractFileReference >> gtItemsFor: aView [ width: 150 ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtPathFor: aView [ @@ -151,7 +151,7 @@ AbstractFileReference >> gtPathFor: aView [ aPath asFileReference ] ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> gtTreeFor: aView [ self isDirectory @@ -191,7 +191,7 @@ AbstractFileReference >> gtTreeFor: aView [ width: 150 ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } AbstractFileReference >> humanReadableSize [ ^ self size humanReadableSISizeString diff --git a/src/GToolkit-RemotePhlow-GemStone/Dictionary.extension.st b/src/GToolkit-RemotePhlow-GemStone/Dictionary.extension.st index 87ebdbd4..e6686cb4 100644 --- a/src/GToolkit-RemotePhlow-GemStone/Dictionary.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/Dictionary.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'Dictionary' } +Extension { #name : #Dictionary } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Dictionary >> gtDisplayOn: aStream [ GtGemStoneRemotePhlowDictionaryPrinter diff --git a/src/GToolkit-RemotePhlow-GemStone/GtPhlowColor.extension.st b/src/GToolkit-RemotePhlow-GemStone/GtPhlowColor.extension.st index f3d3eaff..d66150c5 100644 --- a/src/GToolkit-RemotePhlow-GemStone/GtPhlowColor.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/GtPhlowColor.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'GtPhlowColor' } +Extension { #name : #GtPhlowColor } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } GtPhlowColor >> asColor [ ^ self ] diff --git a/src/GToolkit-RemotePhlow-GemStone/GtPhlowViewSpecification.extension.st b/src/GToolkit-RemotePhlow-GemStone/GtPhlowViewSpecification.extension.st index beb36b9e..0310d35d 100644 --- a/src/GToolkit-RemotePhlow-GemStone/GtPhlowViewSpecification.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/GtPhlowViewSpecification.extension.st @@ -1,20 +1,20 @@ Extension { #name : #GtPhlowViewSpecification } { #category : #'*GToolkit-RemotePhlow-GemStone' } -GtPhlowViewSpecification classSide >> globalsDictionary [ +GtPhlowViewSpecification class >> globalsDictionary [ self halt. "How to look up classes?" ^ GsCurrentSession currentSession symbolList ] { #category : #'*GToolkit-RemotePhlow-GemStone' } -GtPhlowViewSpecification classSide >> new [ +GtPhlowViewSpecification class >> new [ ^ super new initialize ] { #category : #'*GToolkit-RemotePhlow-GemStone' } -GtPhlowViewSpecification classSide >> readJsonString: aString [ +GtPhlowViewSpecification class >> readJsonString: aString [ self halt. ^ JsonParser parse: aString diff --git a/src/GToolkit-RemotePhlow-GemStone/GtRemotePhlowDeclarativeTestForCustomProxyInspectable.extension.st b/src/GToolkit-RemotePhlow-GemStone/GtRemotePhlowDeclarativeTestForCustomProxyInspectable.extension.st index 56c9b4e1..ad280906 100644 --- a/src/GToolkit-RemotePhlow-GemStone/GtRemotePhlowDeclarativeTestForCustomProxyInspectable.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/GtRemotePhlowDeclarativeTestForCustomProxyInspectable.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'GtRemotePhlowDeclarativeTestForCustomProxyInspectable' } +Extension { #name : #GtRemotePhlowDeclarativeTestForCustomProxyInspectable } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } GtRemotePhlowDeclarativeTestForCustomProxyInspectable class >> new [ ^ super new initialize diff --git a/src/GToolkit-RemotePhlow-GemStone/Integer.extension.st b/src/GToolkit-RemotePhlow-GemStone/Integer.extension.st index c4e48943..c91a7692 100644 --- a/src/GToolkit-RemotePhlow-GemStone/Integer.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/Integer.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'Integer' } +Extension { #name : #Integer } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Integer >> humanReadableSISizeOn: aStream [ "Print a SI representation of myself on the argument. See humanReadableSIByteSize for better comment." @@ -16,7 +16,7 @@ Integer >> humanReadableSISizeOn: aStream [ nextPut: $B ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Integer >> humanReadableSISizeString [ "Return the receiver as a string with SI binary (International System of Units) file size, e.g. '50 KB'. It means that it takes 1000 and not 1024 as unit as humanReadableByteSizeString does." diff --git a/src/GToolkit-RemotePhlow-GemStone/Object.extension.st b/src/GToolkit-RemotePhlow-GemStone/Object.extension.st index 42dbda8c..69a3d975 100644 --- a/src/GToolkit-RemotePhlow-GemStone/Object.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/Object.extension.st @@ -1,11 +1,11 @@ -Extension { #name : 'Object' } +Extension { #name : #Object } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> asRopedText [ ^ GtPhlowText forString: self asString ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtDeclarativeViewSelectors [ "Answer a collection of the object's declarative view selectors" @@ -15,12 +15,12 @@ Object >> gtDeclarativeViewSelectors [ to: Object) collect: [ :each | each method selector ]) asSet asArray ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtDisplayOn: writeStream [ self printOn: writeStream ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtDisplayString [ | ws contents | ws := PrintStream printingOn: String new "maxSize: 100". @@ -35,7 +35,7 @@ Object >> gtDisplayString [ ifFalse: [ contents ] ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtDisplayText [ ^ [ self gtDisplayString asRopedText ] on: Error @@ -43,12 +43,12 @@ Object >> gtDisplayText [ foreground: (GtPhlowColor named: #red) ] ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtGsInspectorIconName [ ^ #classIcon ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtRemoteVariableValuePairsWithSelfIf: aBoolean [ | instVarNames bindings instanceVariables indexedVarsSize | instVarNames := self class allInstVarNames. @@ -71,7 +71,7 @@ Object >> gtRemoteVariableValuePairsWithSelfIf: aBoolean [ ^ bindings ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Object >> gtSystemIconName [ ^ self gtGsInspectorIconName ] diff --git a/src/GToolkit-RemotePhlow-GemStone/OrderedCollection.extension.st b/src/GToolkit-RemotePhlow-GemStone/OrderedCollection.extension.st index cf727b42..9c702c98 100644 --- a/src/GToolkit-RemotePhlow-GemStone/OrderedCollection.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/OrderedCollection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'OrderedCollection' } +Extension { #name : #OrderedCollection } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } OrderedCollection >> gtDisplayOn: aStream [ GtGemStoneRemotePhlowCollectionPrinter diff --git a/src/GToolkit-RemotePhlow-GemStone/PrintStream.extension.st b/src/GToolkit-RemotePhlow-GemStone/PrintStream.extension.st index efa0d094..b4e2d8be 100644 --- a/src/GToolkit-RemotePhlow-GemStone/PrintStream.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/PrintStream.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'PrintStream' } +Extension { #name : #PrintStream } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } PrintStream >> parenthesize: aBlock [ self nextPut: $(. aBlock ensure: [ self nextPut: $) ] diff --git a/src/GToolkit-RemotePhlow-GemStone/Semaphore.extension.st b/src/GToolkit-RemotePhlow-GemStone/Semaphore.extension.st index ee18cf28..139f681d 100644 --- a/src/GToolkit-RemotePhlow-GemStone/Semaphore.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/Semaphore.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'Semaphore' } +Extension { #name : #Semaphore } -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } Semaphore >> gtDisplayOn: aStream [ "Reuse the printOn: implementation" self printOn: aStream diff --git a/src/GToolkit-RemotePhlow-GemStone/String.extension.st b/src/GToolkit-RemotePhlow-GemStone/String.extension.st index 4bc76522..37634929 100644 --- a/src/GToolkit-RemotePhlow-GemStone/String.extension.st +++ b/src/GToolkit-RemotePhlow-GemStone/String.extension.st @@ -1,16 +1,16 @@ -Extension { #name : 'String' } +Extension { #name : #String } -{ #category : '*GToolkit-RemotePhlow-GemStone' } -String class >> gtGsInspectorIconName [ - ^ #stringIcon -] - -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } String >> asRopedText [ ^ GtPhlowText forString: self ] -{ #category : '*GToolkit-RemotePhlow-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-GemStone' } String >> gtDisplayOn: writeStream [ writeStream nextPutAll: self ] + +{ #category : #'*GToolkit-RemotePhlow-GemStone' } +String class >> gtGsInspectorIconName [ + ^ #stringIcon +] diff --git a/src/GToolkit-RemotePhlow-InspectorExtensions-GemStone/AbstractDictionary.extension.st b/src/GToolkit-RemotePhlow-InspectorExtensions-GemStone/AbstractDictionary.extension.st index 1aec9f4c..5ea4a65b 100644 --- a/src/GToolkit-RemotePhlow-InspectorExtensions-GemStone/AbstractDictionary.extension.st +++ b/src/GToolkit-RemotePhlow-InspectorExtensions-GemStone/AbstractDictionary.extension.st @@ -1,16 +1,16 @@ -Extension { #name : 'AbstractDictionary' } +Extension { #name : #AbstractDictionary } -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } AbstractDictionary >> asGPhlowAssociationsIterator [ ^ GtRemotePhlowDictionaryAssociationsIterator forCollection: self ] -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } AbstractDictionary >> asGPhlowKeysIterator [ ^ GtRemotePhlowDictionaryKeysIterator forCollection: self ] -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } AbstractDictionary >> gtItemsFor: aView [ ^ aView columnedList title: 'Items'; @@ -21,7 +21,7 @@ AbstractDictionary >> gtItemsFor: aView [ send: [ :assoc | assoc value ] ] -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-GemStone' } AbstractDictionary >> gtRemoteKeysFor: aView [ ^ aView list diff --git a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Collection.extension.st b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Collection.extension.st index e803dc72..11cc5647 100644 --- a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Collection.extension.st +++ b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Collection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'Collection' } +Extension { #name : #Collection } -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } Collection >> gtItemsFor: aView [ ^ aView list diff --git a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Object.extension.st b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Object.extension.st index 142b8d13..a078fe27 100644 --- a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Object.extension.st +++ b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/Object.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'Object' } +Extension { #name : #Object } -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } Object >> gtActionBrowseFor: anAction [ @@ -14,7 +14,7 @@ Object >> gtActionBrowseFor: anAction [ spawnObject: self class ] ] -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } Object >> gtActionInspectFor: anAction [ @@ -28,7 +28,7 @@ Object >> gtActionInspectFor: anAction [ spawnObject: self ] ] -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } Object >> gtPrintFor: aView [ ^ aView textEditor @@ -37,7 +37,7 @@ Object >> gtPrintFor: aView [ text: [ self printString ] ] -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } Object >> gtRawFor: aView [ ^ aView columnedList diff --git a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/SequenceableCollection.extension.st b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/SequenceableCollection.extension.st index 7fd2df44..201bf634 100644 --- a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/SequenceableCollection.extension.st +++ b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/SequenceableCollection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'SequenceableCollection' } +Extension { #name : #SequenceableCollection } -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } SequenceableCollection >> gtItemsFor: aView [ ^ aView columnedList title: 'Items'; diff --git a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/String.extension.st b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/String.extension.st index 7954b55c..70dc6c75 100644 --- a/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/String.extension.st +++ b/src/GToolkit-RemotePhlow-InspectorExtensions-Remote/String.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'String' } +Extension { #name : #String } -{ #category : '*GToolkit-RemotePhlow-InspectorExtensions-Remote' } +{ #category : #'*GToolkit-RemotePhlow-InspectorExtensions-Remote' } String >> gtStringFor: aView [ diff --git a/src/GToolkit-RemotePhlow-Remote/Object.extension.st b/src/GToolkit-RemotePhlow-Remote/Object.extension.st index 434f982f..7e8f965c 100644 --- a/src/GToolkit-RemotePhlow-Remote/Object.extension.st +++ b/src/GToolkit-RemotePhlow-Remote/Object.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'Object' } +Extension { #name : #Object } -{ #category : '*GToolkit-RemotePhlow-Remote' } +{ #category : #'*GToolkit-RemotePhlow-Remote' } Object >> gtActionsInCurrentContext [ "Answer a collection of the object's declarative actions" @@ -17,7 +17,7 @@ Object >> gtActionsInCurrentContext [ phlowAction ] ] -{ #category : '*GToolkit-RemotePhlow-Remote' } +{ #category : #'*GToolkit-RemotePhlow-Remote' } Object >> gtDeclarativeActionPragmas [ "Answer a collection of the object's declarative view selectors" @@ -27,7 +27,7 @@ Object >> gtDeclarativeActionPragmas [ to: Object ] -{ #category : '*GToolkit-RemotePhlow-Remote' } +{ #category : #'*GToolkit-RemotePhlow-Remote' } Object >> gtDeclarativeViewPragmas [ "Answer a collection of the object's declarative view selectors" @@ -37,14 +37,14 @@ Object >> gtDeclarativeViewPragmas [ to: Object ] -{ #category : '*GToolkit-RemotePhlow-Remote' } +{ #category : #'*GToolkit-RemotePhlow-Remote' } Object >> gtDeclarativeViewPragms [ "Answer a collection of the object's declarative view selectors" ^ self gtDeclarativeViewPragmas ] -{ #category : '*GToolkit-RemotePhlow-Remote' } +{ #category : #'*GToolkit-RemotePhlow-Remote' } Object >> gtViewsInCurrentContext [ "Answer a collection of the object's declarative views" diff --git a/src/Gt4PharoLink/GtPharoLinkRemotePharoViewedObjectProxy.class.st b/src/Gt4PharoLink/GtPharoLinkRemotePharoViewedObjectProxy.class.st index 9ad89f5f..a8b17b6d 100644 --- a/src/Gt4PharoLink/GtPharoLinkRemotePharoViewedObjectProxy.class.st +++ b/src/Gt4PharoLink/GtPharoLinkRemotePharoViewedObjectProxy.class.st @@ -3,7 +3,7 @@ Class { #superclass : #PharoLinkProxyObject, #traits : 'TGtPharoLinkRemoteViewedObjectProxy', #classTraits : 'TGtPharoLinkRemoteViewedObjectProxy classTrait', - #category : #'Gt4PharoLink-Proxies' + #category : 'Gt4PharoLink-Proxies' } { #category : #accessing } diff --git a/src/Gt4PharoLink/GtPharoLinkRemoteViewedObjectProxy.class.st b/src/Gt4PharoLink/GtPharoLinkRemoteViewedObjectProxy.class.st index 6f9a3693..0ddacd08 100644 --- a/src/Gt4PharoLink/GtPharoLinkRemoteViewedObjectProxy.class.st +++ b/src/Gt4PharoLink/GtPharoLinkRemoteViewedObjectProxy.class.st @@ -3,7 +3,7 @@ Class { #superclass : #PharoLinkProxyObject, #traits : 'TGtPharoLinkRemoteViewedObjectProxy', #classTraits : 'TGtPharoLinkRemoteViewedObjectProxy classTrait', - #category : #'Gt4PharoLink-Proxies' + #category : 'Gt4PharoLink-Proxies' } { #category : #accessing } diff --git a/src/Gt4PharoLink/PlpoBehavior.class.st b/src/Gt4PharoLink/PlpoBehavior.class.st index 892b7515..5636b8fc 100644 --- a/src/Gt4PharoLink/PlpoBehavior.class.st +++ b/src/Gt4PharoLink/PlpoBehavior.class.st @@ -1,7 +1,7 @@ Class { #name : #PlpoBehavior, #superclass : #PharoLinkProxyObject, - #category : #'Gt4PharoLink-Proxies' + #category : 'Gt4PharoLink-Proxies' } { #category : #accessing } diff --git a/src/Gt4PharoLink/PlpoClass.class.st b/src/Gt4PharoLink/PlpoClass.class.st index 39ca1d3f..247a7de3 100644 --- a/src/Gt4PharoLink/PlpoClass.class.st +++ b/src/Gt4PharoLink/PlpoClass.class.st @@ -1,7 +1,7 @@ Class { #name : #PlpoClass, #superclass : #PlpoClassDescription, - #category : #'Gt4PharoLink-Proxies' + #category : 'Gt4PharoLink-Proxies' } { #category : #accessing } diff --git a/src/Gt4PharoLink/PlpoCompiledMethod.class.st b/src/Gt4PharoLink/PlpoCompiledMethod.class.st index a52f1378..afe442c7 100644 --- a/src/Gt4PharoLink/PlpoCompiledMethod.class.st +++ b/src/Gt4PharoLink/PlpoCompiledMethod.class.st @@ -4,7 +4,7 @@ Class { #instVars : [ 'selector' ], - #category : #'Gt4PharoLink-Proxies' + #category : 'Gt4PharoLink-Proxies' } { #category : #accessing } diff --git a/src/Gt4PharoLink/PlpoMetaclass.class.st b/src/Gt4PharoLink/PlpoMetaclass.class.st index 4ea7d839..7dc2d79f 100644 --- a/src/Gt4PharoLink/PlpoMetaclass.class.st +++ b/src/Gt4PharoLink/PlpoMetaclass.class.st @@ -1,7 +1,7 @@ Class { #name : #PlpoMetaclass, #superclass : #PlpoClassDescription, - #category : #'Gt4PharoLink-Proxies' + #category : 'Gt4PharoLink-Proxies' } { #category : #accessing } diff --git a/src/Gtoolkit-RemoteCoder-GemStone/GtGemStoneRPackage.class.st b/src/Gtoolkit-RemoteCoder-GemStone/GtGemStoneRPackage.class.st index 5a7921c7..d59c6bfc 100644 --- a/src/Gtoolkit-RemoteCoder-GemStone/GtGemStoneRPackage.class.st +++ b/src/Gtoolkit-RemoteCoder-GemStone/GtGemStoneRPackage.class.st @@ -1,6 +1,6 @@ Class { - #name : 'GtGemStoneRPackage', - #superclass : 'RPackage', + #name : #GtGemStoneRPackage, + #superclass : #RPackage, #instVars : [ 'gemstoneClient', 'gemstonePackageProxy' @@ -8,7 +8,7 @@ Class { #category : 'Gtoolkit-RemoteCoder-GemStone' } -{ #category : 'instance creation' } +{ #category : #'instance creation' } GtGemStoneRPackage class >> named: aSymbol gemstoneClient: aGtGemStoneClient [ ^ self new @@ -17,17 +17,17 @@ GtGemStoneRPackage class >> named: aSymbol gemstoneClient: aGtGemStoneClient [ getProxy ] -{ #category : 'accessing' } +{ #category : #accessing } GtGemStoneRPackage >> gemstoneClient [ ^ gemstoneClient ] -{ #category : 'accessing' } +{ #category : #accessing } GtGemStoneRPackage >> gemstoneClient: anObject [ gemstoneClient := anObject ] -{ #category : 'private' } +{ #category : #private } GtGemStoneRPackage >> getProxy [ "Get the GemStone proxy object for the receiver's package" @@ -35,25 +35,25 @@ GtGemStoneRPackage >> getProxy [ 'GtGemStoneRPackage named: ', name printString. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } GtGemStoneRPackage >> gtBaselinesFor: aView [ ^ aView empty ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } GtGemStoneRPackage >> gtDefinedTagsFor: aView context: aPhlowContext [ ^ aView empty ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } GtGemStoneRPackage >> gtDependencyAnalyzerFor: aView [ ^ aView empty ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } GtGemStoneRPackage >> gtExamplesFor: aView [ ^ aView empty diff --git a/src/Gtoolkit-RemoteCoder-GemStone/package.st b/src/Gtoolkit-RemoteCoder-GemStone/package.st index 6c9413c9..36b08634 100644 --- a/src/Gtoolkit-RemoteCoder-GemStone/package.st +++ b/src/Gtoolkit-RemoteCoder-GemStone/package.st @@ -1 +1 @@ -Package { #name : 'Gtoolkit-RemoteCoder-GemStone' } +Package { #name : #'Gtoolkit-RemoteCoder-GemStone' }