pharo12 migration

tomooda · Apr 30, 2024 · ea3a365 · ea3a365
1 parent 49accd6
commit ea3a365
Show file tree

Hide file tree

Showing 75 changed files with 987 additions and 910 deletions.
diff --git a/repository/ViennaTalk-Browser-Core/Duration.extension.st b/repository/ViennaTalk-Browser-Core/Duration.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #Duration }
+Extension { #name : 'Duration' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 Duration >> printRoughly [
 
 	^ String streamContents: [ :stream | self printRoughlyOn: stream ]
 ]
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 Duration >> printRoughlyOn: stream [
 
 	| count |

diff --git a/repository/ViennaTalk-Browser-Core/SpAbstractListPresenter.extension.st b/repository/ViennaTalk-Browser-Core/SpAbstractListPresenter.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #SpAbstractListPresenter }
+Extension { #name : 'SpAbstractListPresenter' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 SpAbstractListPresenter >> items: aSequenceableCollection selectsFirst: aBoolean [
 
 	model collection: aSequenceableCollection.

diff --git a/repository/ViennaTalk-Browser-Core/SpAbstractPresenter.extension.st b/repository/ViennaTalk-Browser-Core/SpAbstractPresenter.extension.st
@@ -1,5 +1,5 @@
-Extension { #name : #SpAbstractPresenter }
+Extension { #name : 'SpAbstractPresenter' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 SpAbstractPresenter >> font: aFont [
 ]
diff --git a/repository/ViennaTalk-Browser-Core/SpWindowPresenter.extension.st b/repository/ViennaTalk-Browser-Core/SpWindowPresenter.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #SpWindowPresenter }
+Extension { #name : 'SpWindowPresenter' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 SpWindowPresenter >> okToClose [
 
 	^ presenter ifNotNil: #okToClose ifNil: [ super okToClose ]

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAbstractNodeChange.class.st b/repository/ViennaTalk-Browser-Core/ViennaAbstractNodeChange.class.st
@@ -1,61 +1,63 @@
 Class {
-	#name : #ViennaAbstractNodeChange,
-	#superclass : #Object,
+	#name : 'ViennaAbstractNodeChange',
+	#superclass : 'Object',
 	#instVars : [
 		'from',
 		'to',
 		'sourceDiffText'
 	],
-	#category : #'ViennaTalk-Browser-Core-Diff'
+	#category : 'ViennaTalk-Browser-Core-Diff',
+	#package : 'ViennaTalk-Browser-Core',
+	#tag : 'Diff'
 }
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 ViennaAbstractNodeChange class >> flushSourceDiffText [
 
 	<script: 'self flushSourceDiffText'>
 	self allSubclassesDo: [ :c |
 		c allInstancesDo: [ :i | i flushSourceDiffText ] ]
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 ViennaAbstractNodeChange class >> from: aViennaNode to: anotherViennaNode [
 
 	^ self new
 		  setFrom: aViennaNode to: anotherViennaNode;
 		  yourself
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 ViennaAbstractNodeChange >> flushSourceDiffText [
 
 	sourceDiffText := nil
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 ViennaAbstractNodeChange >> from [
 
 	^ from
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 ViennaAbstractNodeChange >> printNames [
 
 	^ String streamContents: [ :stream | self printNamesOn: stream ]
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 ViennaAbstractNodeChange >> printNamesOn: aStream [
 
 	^ self subclassResponsibility
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 ViennaAbstractNodeChange >> printSummary [
 
 	^ String streamContents: [ :stream | self printSummaryOn: stream ]
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 ViennaAbstractNodeChange >> printSummaryOn: aStream [
 
 	from
@@ -66,14 +68,14 @@ ViennaAbstractNodeChange >> printSummaryOn: aStream [
 				ifNotNil: [ aStream nextPutAll: 'modified' ] ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 ViennaAbstractNodeChange >> setFrom: aViennaNode to: anotherViennaNode [
 
 	from := aViennaNode.
 	to := anotherViennaNode
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 ViennaAbstractNodeChange >> sourceDiffText [
 
 	^ sourceDiffText ifNil: [
@@ -111,7 +113,7 @@ ViennaAbstractNodeChange >> sourceDiffText [
 			                    yourself ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 ViennaAbstractNodeChange >> to [
 
 	^ to

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAddFramAnnotationToOperation.extension.st b/repository/ViennaTalk-Browser-Core/ViennaAddFramAnnotationToOperation.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ViennaAddFramAnnotationToOperation }
+Extension { #name : 'ViennaAddFramAnnotationToOperation' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 ViennaAddFramAnnotationToOperation >> isForDefinitionList [
 
 	^ true

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAddModule.extension.st b/repository/ViennaTalk-Browser-Core/ViennaAddModule.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ViennaAddModule }
+Extension { #name : 'ViennaAddModule' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 ViennaAddModule >> isForModuleList [
 
 	^ true

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAddSection.extension.st b/repository/ViennaTalk-Browser-Core/ViennaAddSection.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ViennaAddSection }
+Extension { #name : 'ViennaAddSection' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 ViennaAddSection >> isForCategoryList [
 
 	^ true

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAddStateDefinition.extension.st b/repository/ViennaTalk-Browser-Core/ViennaAddStateDefinition.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ViennaAddStateDefinition }
+Extension { #name : 'ViennaAddStateDefinition' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 ViennaAddStateDefinition >> isForCategoryList [
 
 	^ true

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAddStateVariable.extension.st b/repository/ViennaTalk-Browser-Core/ViennaAddStateVariable.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ViennaAddStateVariable }
+Extension { #name : 'ViennaAddStateVariable' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 ViennaAddStateVariable >> isForDefinitionList [
 
 	^ true

diff --git a/repository/ViennaTalk-Browser-Core/ViennaAddToplevelDefinition.extension.st b/repository/ViennaTalk-Browser-Core/ViennaAddToplevelDefinition.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ViennaAddToplevelDefinition }
+Extension { #name : 'ViennaAddToplevelDefinition' }
 
-{ #category : #'*ViennaTalk-Browser-Core' }
+{ #category : '*ViennaTalk-Browser-Core' }
 ViennaAddToplevelDefinition >> isForDefinitionList [
 
 	^ true