diff --git a/src/NewTools-Inspector-Extensions/AbstractFileReference.extension.st b/src/NewTools-Inspector-Extensions/AbstractFileReference.extension.st index 2a95f702b..8dc2f1d47 100644 --- a/src/NewTools-Inspector-Extensions/AbstractFileReference.extension.st +++ b/src/NewTools-Inspector-Extensions/AbstractFileReference.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #AbstractFileReference } +Extension { #name : 'AbstractFileReference' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionCompressedItems [ | items children root | @@ -38,13 +38,13 @@ AbstractFileReference >> inspectionCompressedItems [ each creationTime printHMSOn: stream ] ]) ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionCompressedItemsContext: aContext [ aContext active: self isCompressedFile ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionContents [ | maxBytes buffer atEnd stringContents displayStream displayString | @@ -74,19 +74,19 @@ AbstractFileReference >> inspectionContents [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionContentsContext: aContext [ aContext active: self isFile ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionFuelContext: aContext [ aContext active: self isFuel ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionGif [ @@ -95,13 +95,13 @@ AbstractFileReference >> inspectionGif [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionGifContext: aContext [ aContext active: self isImageGif ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionItems [ | items | @@ -145,13 +145,13 @@ AbstractFileReference >> inspectionItems [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionItemsContext: aContext [ aContext active: self isDirectory ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionJpeg [ @@ -160,13 +160,13 @@ AbstractFileReference >> inspectionJpeg [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionJpegContext: aContext [ aContext active: self isImageJpeg ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionPng [ @@ -175,13 +175,13 @@ AbstractFileReference >> inspectionPng [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionPngContext: aContext [ aContext active: self isImagePng ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionStScript [ @@ -192,25 +192,25 @@ AbstractFileReference >> inspectionStScript [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> inspectionStScriptContext: aContext [ aContext active: self isScript ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> isCompressedFile [ ^ #('zip' 'jar' 'ear' 'war' 'mcz') includes: self extension ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> isFuel [ ^ self isFile and: [ self extension = 'fuel' ] ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> isImageGif [ ^ self isFile @@ -218,7 +218,7 @@ AbstractFileReference >> isImageGif [ and: [ self mimeTypes first matches: ZnMimeType imageGif ] ] ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> isImageJpeg [ ^ self isFile @@ -226,7 +226,7 @@ AbstractFileReference >> isImageJpeg [ and: [ self mimeTypes first matches: ZnMimeType imageJpeg ] ] ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> isImagePng [ ^ self isFile @@ -234,7 +234,7 @@ AbstractFileReference >> isImagePng [ and: [ self mimeTypes first matches: ZnMimeType imagePng ] ] ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } AbstractFileReference >> isScript [ ^ self isFile and: [ self extension = 'st' ] diff --git a/src/NewTools-Inspector-Extensions/Announcer.extension.st b/src/NewTools-Inspector-Extensions/Announcer.extension.st index f14fa67ca..9943ab9b6 100644 --- a/src/NewTools-Inspector-Extensions/Announcer.extension.st +++ b/src/NewTools-Inspector-Extensions/Announcer.extension.st @@ -1,12 +1,12 @@ -Extension { #name : #Announcer } +Extension { #name : 'Announcer' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Announcer >> hasSubscriptions [ ^ self numberOfSubscriptions isZero not ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Announcer >> inspectionSubscriptions [ | table | @@ -38,7 +38,7 @@ Announcer >> inspectionSubscriptions [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Announcer >> inspectionSubscriptionsContext: aContext [ aContext active: self hasSubscriptions diff --git a/src/NewTools-Inspector-Extensions/Array.extension.st b/src/NewTools-Inspector-Extensions/Array.extension.st index f15ada9c8..1afefc9c4 100644 --- a/src/NewTools-Inspector-Extensions/Array.extension.st +++ b/src/NewTools-Inspector-Extensions/Array.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Array } +Extension { #name : 'Array' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Array >> displayString [ ^ super displayString contractTo: 200 diff --git a/src/NewTools-Inspector-Extensions/Array2D.extension.st b/src/NewTools-Inspector-Extensions/Array2D.extension.st index ed1d3b865..c8a8050cb 100644 --- a/src/NewTools-Inspector-Extensions/Array2D.extension.st +++ b/src/NewTools-Inspector-Extensions/Array2D.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Array2D } +Extension { #name : 'Array2D' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Array2D >> inspectorExtension [ diff --git a/src/NewTools-Inspector-Extensions/Bag.extension.st b/src/NewTools-Inspector-Extensions/Bag.extension.st index d8734ee24..e6fd73d29 100644 --- a/src/NewTools-Inspector-Extensions/Bag.extension.st +++ b/src/NewTools-Inspector-Extensions/Bag.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Bag } +Extension { #name : 'Bag' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Bag >> inspectionItems: aBuilder [ diff --git a/src/NewTools-Inspector-Extensions/BaselineOf.extension.st b/src/NewTools-Inspector-Extensions/BaselineOf.extension.st index 7a60bd0e6..166d9a690 100644 --- a/src/NewTools-Inspector-Extensions/BaselineOf.extension.st +++ b/src/NewTools-Inspector-Extensions/BaselineOf.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #BaselineOf } +Extension { #name : 'BaselineOf' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } BaselineOf >> inspectionProject [ | specs | @@ -18,7 +18,7 @@ BaselineOf >> inspectionProject [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } BaselineOf >> inspectionRecord [ | specs | diff --git a/src/NewTools-Inspector-Extensions/BlockClosure.extension.st b/src/NewTools-Inspector-Extensions/BlockClosure.extension.st index 74c243de5..54a43e37f 100644 --- a/src/NewTools-Inspector-Extensions/BlockClosure.extension.st +++ b/src/NewTools-Inspector-Extensions/BlockClosure.extension.st @@ -1,20 +1,20 @@ -Extension { #name : #BlockClosure } +Extension { #name : 'BlockClosure' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } BlockClosure >> inpectionIr [ ^ self method ir inpectionIr ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } BlockClosure >> inspectionAST [ ^ self sourceNode inspectionAST ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } BlockClosure >> inspectionSource [ diff --git a/src/NewTools-Inspector-Extensions/ByteArray.extension.st b/src/NewTools-Inspector-Extensions/ByteArray.extension.st index 8997b7587..a93ff3f66 100644 --- a/src/NewTools-Inspector-Extensions/ByteArray.extension.st +++ b/src/NewTools-Inspector-Extensions/ByteArray.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ByteArray } +Extension { #name : 'ByteArray' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ByteArray >> inspectBytes: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Character.extension.st b/src/NewTools-Inspector-Extensions/Character.extension.st index 1ba80afac..562a090dc 100644 --- a/src/NewTools-Inspector-Extensions/Character.extension.st +++ b/src/NewTools-Inspector-Extensions/Character.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Character } +Extension { #name : 'Character' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Character >> inspectCharacterIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Class.extension.st b/src/NewTools-Inspector-Extensions/Class.extension.st index 403f8ef82..0446c5803 100644 --- a/src/NewTools-Inspector-Extensions/Class.extension.st +++ b/src/NewTools-Inspector-Extensions/Class.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Class } +Extension { #name : 'Class' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Class >> inspectionAllReferences [ | allReferences allClassesReferencing sortBlock treeTable childrenBlock | @@ -26,7 +26,7 @@ Class >> inspectionAllReferences [ ^ treeTable ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Class >> inspectionClassComment [ "This provides an editable comment of the current class" @@ -39,7 +39,7 @@ Class >> inspectionClassComment [ stamp: Author changeStamp ] ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Class >> inspectionClassDefinition [ "This provides an editable comment of the current class" diff --git a/src/NewTools-Inspector-Extensions/Collection.extension.st b/src/NewTools-Inspector-Extensions/Collection.extension.st index ff7655c08..618c22c0b 100644 --- a/src/NewTools-Inspector-Extensions/Collection.extension.st +++ b/src/NewTools-Inspector-Extensions/Collection.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Collection } +Extension { #name : 'Collection' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Collection >> inspectionItems: aBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Color.extension.st b/src/NewTools-Inspector-Extensions/Color.extension.st index 1e79ff12c..6f4d4b028 100644 --- a/src/NewTools-Inspector-Extensions/Color.extension.st +++ b/src/NewTools-Inspector-Extensions/Color.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Color } +Extension { #name : 'Color' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Color >> inspectionColor [ @@ -11,7 +11,7 @@ Color >> inspectionColor [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Color class >> inspectionColors [ diff --git a/src/NewTools-Inspector-Extensions/CompiledBlock.extension.st b/src/NewTools-Inspector-Extensions/CompiledBlock.extension.st index 29df5ecdd..0c5bd4763 100644 --- a/src/NewTools-Inspector-Extensions/CompiledBlock.extension.st +++ b/src/NewTools-Inspector-Extensions/CompiledBlock.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CompiledBlock } +Extension { #name : 'CompiledBlock' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledBlock >> inspectionSource [ diff --git a/src/NewTools-Inspector-Extensions/CompiledCode.extension.st b/src/NewTools-Inspector-Extensions/CompiledCode.extension.st index 172906930..4aa683ba1 100644 --- a/src/NewTools-Inspector-Extensions/CompiledCode.extension.st +++ b/src/NewTools-Inspector-Extensions/CompiledCode.extension.st @@ -1,26 +1,26 @@ -Extension { #name : #CompiledCode } +Extension { #name : 'CompiledCode' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> hasPragmas [ ^ self pragmas notEmpty ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> inpectionIr [ ^ self ir inpectionIr ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> inspectionAST [ ^ self sourceNode inspectionAST ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> inspectionBytecode [ @@ -31,7 +31,7 @@ CompiledCode >> inspectionBytecode [ ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> inspectionHeader [ @@ -40,14 +40,14 @@ CompiledCode >> inspectionHeader [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> inspectionItemsContext: aContext [ "Disable items view on compiled code" aContext active: false ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledCode >> inspectorNodes [ "Answer a list of attributes as nodes" | nodes | diff --git a/src/NewTools-Inspector-Extensions/CompiledMethod.extension.st b/src/NewTools-Inspector-Extensions/CompiledMethod.extension.st index 2620f4453..46cc07d8f 100644 --- a/src/NewTools-Inspector-Extensions/CompiledMethod.extension.st +++ b/src/NewTools-Inspector-Extensions/CompiledMethod.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #CompiledMethod } +Extension { #name : 'CompiledMethod' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledMethod >> inspectionPragmas [ @@ -10,13 +10,13 @@ CompiledMethod >> inspectionPragmas [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledMethod >> inspectionPragmasContext: aContext [ aContext active: self hasPragmas ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } CompiledMethod >> inspectionSource [ diff --git a/src/NewTools-Inspector-Extensions/Context.extension.st b/src/NewTools-Inspector-Extensions/Context.extension.st index 37dc39f7b..1c7184d13 100644 --- a/src/NewTools-Inspector-Extensions/Context.extension.st +++ b/src/NewTools-Inspector-Extensions/Context.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Context } +Extension { #name : 'Context' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Context >> inspectionSource [ diff --git a/src/NewTools-Inspector-Extensions/Date.extension.st b/src/NewTools-Inspector-Extensions/Date.extension.st index 4caa69a09..653e6526c 100644 --- a/src/NewTools-Inspector-Extensions/Date.extension.st +++ b/src/NewTools-Inspector-Extensions/Date.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Date } +Extension { #name : 'Date' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Date >> inspectDateIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/DateAndTime.extension.st b/src/NewTools-Inspector-Extensions/DateAndTime.extension.st index 5b5190383..f29bad654 100644 --- a/src/NewTools-Inspector-Extensions/DateAndTime.extension.st +++ b/src/NewTools-Inspector-Extensions/DateAndTime.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #DateAndTime } +Extension { #name : 'DateAndTime' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } DateAndTime >> inspectDateAndTimeIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Dictionary.extension.st b/src/NewTools-Inspector-Extensions/Dictionary.extension.st index cc6c932fd..f1513b75e 100644 --- a/src/NewTools-Inspector-Extensions/Dictionary.extension.st +++ b/src/NewTools-Inspector-Extensions/Dictionary.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Dictionary } +Extension { #name : 'Dictionary' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Dictionary >> inspectionItems: aBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Duration.extension.st b/src/NewTools-Inspector-Extensions/Duration.extension.st index fa7cc1c76..ae36c958a 100644 --- a/src/NewTools-Inspector-Extensions/Duration.extension.st +++ b/src/NewTools-Inspector-Extensions/Duration.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Duration } +Extension { #name : 'Duration' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Duration >> inspectDurationIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Float.extension.st b/src/NewTools-Inspector-Extensions/Float.extension.st index 4caed9489..5e2b37447 100644 --- a/src/NewTools-Inspector-Extensions/Float.extension.st +++ b/src/NewTools-Inspector-Extensions/Float.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Float } +Extension { #name : 'Float' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Float >> inspectFloatIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Form.extension.st b/src/NewTools-Inspector-Extensions/Form.extension.st index f3841763d..72b1aa93d 100644 --- a/src/NewTools-Inspector-Extensions/Form.extension.st +++ b/src/NewTools-Inspector-Extensions/Form.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Form } +Extension { #name : 'Form' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Form >> inspectionForm [ diff --git a/src/NewTools-Inspector-Extensions/IRMethod.extension.st b/src/NewTools-Inspector-Extensions/IRMethod.extension.st index 71bc35e2f..e64f8dfea 100644 --- a/src/NewTools-Inspector-Extensions/IRMethod.extension.st +++ b/src/NewTools-Inspector-Extensions/IRMethod.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #IRMethod } +Extension { #name : 'IRMethod' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } IRMethod >> inpectionIr [ diff --git a/src/NewTools-Inspector-Extensions/Integer.extension.st b/src/NewTools-Inspector-Extensions/Integer.extension.st index 56c552a88..ecfbdce7d 100644 --- a/src/NewTools-Inspector-Extensions/Integer.extension.st +++ b/src/NewTools-Inspector-Extensions/Integer.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Integer } +Extension { #name : 'Integer' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Integer >> inspectIntegerIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/ManifestNewToolsInspectorExtensions.class.st b/src/NewTools-Inspector-Extensions/ManifestNewToolsInspectorExtensions.class.st index 3ad352e29..4e76586a0 100644 --- a/src/NewTools-Inspector-Extensions/ManifestNewToolsInspectorExtensions.class.st +++ b/src/NewTools-Inspector-Extensions/ManifestNewToolsInspectorExtensions.class.st @@ -2,7 +2,9 @@ I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser " Class { - #name : #ManifestNewToolsInspectorExtensions, - #superclass : #PackageManifest, - #category : #'NewTools-Inspector-Extensions-Manifest' + #name : 'ManifestNewToolsInspectorExtensions', + #superclass : 'PackageManifest', + #category : 'NewTools-Inspector-Extensions-Manifest', + #package : 'NewTools-Inspector-Extensions', + #tag : 'Manifest' } diff --git a/src/NewTools-Inspector-Extensions/MetaLink.extension.st b/src/NewTools-Inspector-Extensions/MetaLink.extension.st index 9782fc30e..61fc41e81 100644 --- a/src/NewTools-Inspector-Extensions/MetaLink.extension.st +++ b/src/NewTools-Inspector-Extensions/MetaLink.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MetaLink } +Extension { #name : 'MetaLink' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetaLink >> inpectionDefiniton [ ^ SpTextPresenter new diff --git a/src/NewTools-Inspector-Extensions/MetacelloGroupSpec.extension.st b/src/NewTools-Inspector-Extensions/MetacelloGroupSpec.extension.st index fd6ef2264..9c600f8c4 100644 --- a/src/NewTools-Inspector-Extensions/MetacelloGroupSpec.extension.st +++ b/src/NewTools-Inspector-Extensions/MetacelloGroupSpec.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MetacelloGroupSpec } +Extension { #name : 'MetacelloGroupSpec' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloGroupSpec >> inspectionIncludes [ | specs | @@ -21,7 +21,7 @@ MetacelloGroupSpec >> inspectionIncludes [ ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloGroupSpec >> type [ ^ 'group' diff --git a/src/NewTools-Inspector-Extensions/MetacelloPackageSpec.extension.st b/src/NewTools-Inspector-Extensions/MetacelloPackageSpec.extension.st index aa08850c4..86d8d41ad 100644 --- a/src/NewTools-Inspector-Extensions/MetacelloPackageSpec.extension.st +++ b/src/NewTools-Inspector-Extensions/MetacelloPackageSpec.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MetacelloPackageSpec } +Extension { #name : 'MetacelloPackageSpec' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloPackageSpec >> inspectionRequires [ | specs | @@ -12,13 +12,13 @@ MetacelloPackageSpec >> inspectionRequires [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloPackageSpec >> inspectionRequiresContext: aContext [ aContext active: self requires isNotEmpty ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloPackageSpec >> type [ ^ 'package' diff --git a/src/NewTools-Inspector-Extensions/MetacelloProjectReferenceSpec.extension.st b/src/NewTools-Inspector-Extensions/MetacelloProjectReferenceSpec.extension.st index 1670c0138..bbc68b294 100644 --- a/src/NewTools-Inspector-Extensions/MetacelloProjectReferenceSpec.extension.st +++ b/src/NewTools-Inspector-Extensions/MetacelloProjectReferenceSpec.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #MetacelloProjectReferenceSpec } +Extension { #name : 'MetacelloProjectReferenceSpec' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloProjectReferenceSpec >> inspectionProject [ | specs loadedSpecs | @@ -23,7 +23,7 @@ MetacelloProjectReferenceSpec >> inspectionProject [ ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloProjectReferenceSpec >> inspectionRecord [ | specs | @@ -42,7 +42,7 @@ MetacelloProjectReferenceSpec >> inspectionRecord [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } MetacelloProjectReferenceSpec >> type [ ^ 'project' diff --git a/src/NewTools-Inspector-Extensions/Object.extension.st b/src/NewTools-Inspector-Extensions/Object.extension.st index 4893957ff..0c1d1ba62 100644 --- a/src/NewTools-Inspector-Extensions/Object.extension.st +++ b/src/NewTools-Inspector-Extensions/Object.extension.st @@ -1,44 +1,44 @@ -Extension { #name : #Object } +Extension { #name : 'Object' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> asInspectorModel [ ^ StInspectorModel on: self ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> defaultObjectInspectorClass [ ^ StObjectInspectorPresenter ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> inspectionMeta [ ^ StMetaBrowserPresenter on: self ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> inspectionMetaContext: aContext [ aContext withoutEvaluator ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> inspectorNodes [ "Answer a list of attributes as nodes" ^ (StNodeCollector for: self) collectNodes ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> stDisplayString [ ^ StObjectPrinter asTruncatedTextFrom: self ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Object >> stDisplayStringFull [ ^ StObjectPrinter asNonTruncatedTextFrom: self diff --git a/src/NewTools-Inspector-Extensions/OrderedDictionary.extension.st b/src/NewTools-Inspector-Extensions/OrderedDictionary.extension.st index 06b9aaa1a..644ed0744 100644 --- a/src/NewTools-Inspector-Extensions/OrderedDictionary.extension.st +++ b/src/NewTools-Inspector-Extensions/OrderedDictionary.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #OrderedDictionary } +Extension { #name : 'OrderedDictionary' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } OrderedDictionary >> inspectionItems: aBuilder [ diff --git a/src/NewTools-Inspector-Extensions/Pragma.extension.st b/src/NewTools-Inspector-Extensions/Pragma.extension.st index 47a0a8406..ced61400e 100644 --- a/src/NewTools-Inspector-Extensions/Pragma.extension.st +++ b/src/NewTools-Inspector-Extensions/Pragma.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Pragma } +Extension { #name : 'Pragma' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Pragma >> inspectionSourceCodeMethod [ diff --git a/src/NewTools-Inspector-Extensions/ProtoObject.extension.st b/src/NewTools-Inspector-Extensions/ProtoObject.extension.st index 84c34cb09..2845c6194 100644 --- a/src/NewTools-Inspector-Extensions/ProtoObject.extension.st +++ b/src/NewTools-Inspector-Extensions/ProtoObject.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ProtoObject } +Extension { #name : 'ProtoObject' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> allInspectorNodes [ "Answer a list of attributes as nodes" @@ -8,7 +8,7 @@ ProtoObject >> allInspectorNodes [ self inspectorNodes ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> inspectionContexts [ "This is a utility method that collects all presentations for the current object. By default, it simply looks for the #inspectorPresentationOrder:title: pragma. @@ -18,7 +18,7 @@ ProtoObject >> inspectionContexts [ ^ (StInspectionCollector on: self) collectInspectionContexts ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> inspectionRaw [ "This is the most basic presentation showing the state of the object" @@ -26,20 +26,20 @@ ProtoObject >> inspectionRaw [ ^ StRawInspectionPresenter on: self ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> inspectorIconName [ ^ nil ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> inspectorNodes [ "Answer a list of attributes as nodes" ^ (StNodeCollector for: self) slotNodes ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> inspectorPerform: aSymbol [ "This method is required by the inspector infrastructure (in order to inspect properly ProtoObject and its direct decendants). @@ -49,7 +49,7 @@ ProtoObject >> inspectorPerform: aSymbol [ ^ self primitiveFailed ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ProtoObject >> inspectorPerform: aSymbol with: anObject [ "This method is required by the inspector infrastructure (in order to inspect properly ProtoObject and its direct decendants). diff --git a/src/NewTools-Inspector-Extensions/RBProgramNode.extension.st b/src/NewTools-Inspector-Extensions/RBProgramNode.extension.st index 0caff0f29..c97e33aee 100644 --- a/src/NewTools-Inspector-Extensions/RBProgramNode.extension.st +++ b/src/NewTools-Inspector-Extensions/RBProgramNode.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RBProgramNode } +Extension { #name : 'RBProgramNode' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } RBProgramNode >> inspectionAST [ @@ -19,7 +19,7 @@ RBProgramNode >> inspectionAST [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } RBProgramNode >> inspectionASTDump [ @@ -29,7 +29,7 @@ RBProgramNode >> inspectionASTDump [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } RBProgramNode >> inspectionSource [ diff --git a/src/NewTools-Inspector-Extensions/RPackage.extension.st b/src/NewTools-Inspector-Extensions/RPackage.extension.st index 4b462db9a..42d411a91 100644 --- a/src/NewTools-Inspector-Extensions/RPackage.extension.st +++ b/src/NewTools-Inspector-Extensions/RPackage.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #RPackage } +Extension { #name : 'RPackage' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } RPackage >> baselineInspector [ @@ -11,7 +11,7 @@ RPackage >> baselineInspector [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } RPackage >> overwiew [ diff --git a/src/NewTools-Inspector-Extensions/SmallDictionary.extension.st b/src/NewTools-Inspector-Extensions/SmallDictionary.extension.st index 99dbccd4d..80f59febc 100644 --- a/src/NewTools-Inspector-Extensions/SmallDictionary.extension.st +++ b/src/NewTools-Inspector-Extensions/SmallDictionary.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SmallDictionary } +Extension { #name : 'SmallDictionary' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } SmallDictionary >> inspectionItems: aBuilder [ diff --git a/src/NewTools-Inspector-Extensions/String.extension.st b/src/NewTools-Inspector-Extensions/String.extension.st index 1b54ceb7c..811ed927b 100644 --- a/src/NewTools-Inspector-Extensions/String.extension.st +++ b/src/NewTools-Inspector-Extensions/String.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #String } +Extension { #name : 'String' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } String >> inspectionEncoding: specBuilder [ @@ -12,7 +12,7 @@ String >> inspectionEncoding: specBuilder [ table ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } String >> inspectionFullString [ ^ SpCodePresenter new @@ -21,7 +21,7 @@ String >> inspectionFullString [ yourself ] -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } String >> inspectionString [ diff --git a/src/NewTools-Inspector-Extensions/SubscriptionRegistry.extension.st b/src/NewTools-Inspector-Extensions/SubscriptionRegistry.extension.st index dbe9cd34e..81f6e41b4 100644 --- a/src/NewTools-Inspector-Extensions/SubscriptionRegistry.extension.st +++ b/src/NewTools-Inspector-Extensions/SubscriptionRegistry.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SubscriptionRegistry } +Extension { #name : 'SubscriptionRegistry' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } SubscriptionRegistry >> inspectionSubscriptions [ diff --git a/src/NewTools-Inspector-Extensions/Symbol.extension.st b/src/NewTools-Inspector-Extensions/Symbol.extension.st new file mode 100644 index 000000000..12c480eb2 --- /dev/null +++ b/src/NewTools-Inspector-Extensions/Symbol.extension.st @@ -0,0 +1,7 @@ +Extension { #name : 'Symbol' } + +{ #category : '*NewTools-Inspector-Extensions' } +Symbol >> stDisplayString [ + + ^ '#{1}' format: { super stDisplayString } +] diff --git a/src/NewTools-Inspector-Extensions/SymbolicBytecode.extension.st b/src/NewTools-Inspector-Extensions/SymbolicBytecode.extension.st index 0713f1d2a..c60f89732 100644 --- a/src/NewTools-Inspector-Extensions/SymbolicBytecode.extension.st +++ b/src/NewTools-Inspector-Extensions/SymbolicBytecode.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #SymbolicBytecode } +Extension { #name : 'SymbolicBytecode' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } SymbolicBytecode >> inspectionSource [ diff --git a/src/NewTools-Inspector-Extensions/Text.extension.st b/src/NewTools-Inspector-Extensions/Text.extension.st index 3786c9049..c947f1d0e 100644 --- a/src/NewTools-Inspector-Extensions/Text.extension.st +++ b/src/NewTools-Inspector-Extensions/Text.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Text } +Extension { #name : 'Text' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Text >> inspectionText [ diff --git a/src/NewTools-Inspector-Extensions/ThemeIcons.extension.st b/src/NewTools-Inspector-Extensions/ThemeIcons.extension.st index 91c7977a7..c4003698b 100644 --- a/src/NewTools-Inspector-Extensions/ThemeIcons.extension.st +++ b/src/NewTools-Inspector-Extensions/ThemeIcons.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #ThemeIcons } +Extension { #name : 'ThemeIcons' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } ThemeIcons >> inspectionIcons [ diff --git a/src/NewTools-Inspector-Extensions/Time.extension.st b/src/NewTools-Inspector-Extensions/Time.extension.st index 8507ef29b..6177609c7 100644 --- a/src/NewTools-Inspector-Extensions/Time.extension.st +++ b/src/NewTools-Inspector-Extensions/Time.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Time } +Extension { #name : 'Time' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Time >> inspectTimeIn: specBuilder [ diff --git a/src/NewTools-Inspector-Extensions/UITheme.extension.st b/src/NewTools-Inspector-Extensions/UITheme.extension.st index d82143ab1..f74e41936 100644 --- a/src/NewTools-Inspector-Extensions/UITheme.extension.st +++ b/src/NewTools-Inspector-Extensions/UITheme.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #UITheme } +Extension { #name : 'UITheme' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } UITheme >> inspectionColors [ diff --git a/src/NewTools-Inspector-Extensions/Variable.extension.st b/src/NewTools-Inspector-Extensions/Variable.extension.st index f983c3099..46c9a3514 100644 --- a/src/NewTools-Inspector-Extensions/Variable.extension.st +++ b/src/NewTools-Inspector-Extensions/Variable.extension.st @@ -1,6 +1,6 @@ -Extension { #name : #Variable } +Extension { #name : 'Variable' } -{ #category : #'*NewTools-Inspector-Extensions' } +{ #category : '*NewTools-Inspector-Extensions' } Variable >> inspectionUsingMethods [ diff --git a/src/NewTools-Inspector-Extensions/package.st b/src/NewTools-Inspector-Extensions/package.st index 24a90bd87..d07f36d98 100644 --- a/src/NewTools-Inspector-Extensions/package.st +++ b/src/NewTools-Inspector-Extensions/package.st @@ -1 +1 @@ -Package { #name : #'NewTools-Inspector-Extensions' } +Package { #name : 'NewTools-Inspector-Extensions' }