Browse Source

Export using 'slots:' API.

Herby Vojčík 3 years ago
parent
commit
a5cbfee3e8
1 changed files with 7 additions and 7 deletions
  1. 7 7
      src/ProfStef.st

+ 7 - 7
src/ProfStef.st

@@ -1,6 +1,6 @@
 Smalltalk createPackage: 'ProfStef'!
 Object subclass: #AbstractTutorial
-	instanceVariableNames: ''
+	slots: {}
 	package: 'ProfStef'!
 !AbstractTutorial commentStamp!
 Parent class of all ProfStef tutorials.
@@ -55,7 +55,7 @@ welcome
 ! !
 
 AbstractTutorial subclass: #SmalltalkSyntaxTutorial
-	instanceVariableNames: ''
+	slots: {}
 	package: 'ProfStef'!
 !SmalltalkSyntaxTutorial commentStamp!
 The default ProfStef tutorial to learn Smalltalk syntax!
@@ -733,7 +733,7 @@ ProfStef next.'
 ! !
 
 Object subclass: #Lesson
-	instanceVariableNames: 'title contents'
+	slots: {#title. #contents}
 	package: 'ProfStef'!
 
 !Lesson methodsFor: 'accessing'!
@@ -763,7 +763,7 @@ title: aTitle contents: someContents
 ! !
 
 Object subclass: #ProfStef
-	instanceVariableNames: 'tutorialPlayer widget'
+	slots: {#tutorialPlayer. #widget}
 	package: 'ProfStef'!
 !ProfStef commentStamp!
 A ProfStef is the Smalltalk teacher. To start the tutorial, evaluate:
@@ -824,7 +824,7 @@ previous
 	^ self showCurrentLesson.
 ! !
 
-ProfStef class instanceVariableNames: 'instance'!
+ProfStef class slots: {#instance}!
 
 !ProfStef class methodsFor: 'initialize'!
 
@@ -857,7 +857,7 @@ start
 ! !
 
 Widget subclass: #TrySmalltalkWidget
-	instanceVariableNames: 'workspace contents header'
+	slots: {#workspace. #contents. #header}
 	package: 'ProfStef'!
 
 !TrySmalltalkWidget methodsFor: 'accessing'!
@@ -914,7 +914,7 @@ open
 ! !
 
 Object subclass: #TutorialPlayer
-	instanceVariableNames: 'tutorialPosition tutorial'
+	slots: {#tutorialPosition. #tutorial}
 	package: 'ProfStef'!
 !TutorialPlayer commentStamp!
 I can navigate through an AbstractTutorial subclass. With #next and #previous you can go forward and backward through the tutorial.!