Export using 'slots:' API.

src/Web-Snippets.st

@@ -1,7 +1,7 @@
 Smalltalk createPackage: 'Web-Snippets'!
 (Smalltalk packageAt: 'Web-Snippets' ifAbsent: [ self error: 'Package not created: Web-Snippets' ]) imports: {'amber/core/Platform-DOM'. 'amber/jquery/Wrappers-JQuery'}!
 Object subclass: #HTMLSnippet
-	instanceVariableNames: 'snippets'
+	slots: {#snippets}
 	package: 'Web-Snippets'!
 !HTMLSnippet commentStamp!
 My sole instance is the registry of html snippets.
@@ -100,7 +100,7 @@ snippetAt: aString install: anElement
 	self snippetAt: aString compile: anElement
 ! !
 
-HTMLSnippet class instanceVariableNames: 'current'!
+HTMLSnippet class slots: {#current}!
 
 !HTMLSnippet class methodsFor: 'initialization'!
 

src/Web.st

@@ -1,7 +1,7 @@
 Smalltalk createPackage: 'Web'!
 (Smalltalk packageAt: 'Web' ifAbsent: [ self error: 'Package not created: Web' ]) imports: {'amber/core/Platform-DOM'. 'amber/jquery/Wrappers-JQuery'}!
 Object subclass: #HTMLCanvas
-	instanceVariableNames: 'root'
+	slots: {#root}
 	package: 'Web'!
 !HTMLCanvas commentStamp!
 I am a canvas for building HTML.
@@ -498,7 +498,7 @@ onJQuery: aJQuery
 ! !
 
 Object subclass: #TagBrush
-	instanceVariableNames: 'canvas element'
+	slots: {#canvas. #element}
 	package: 'Web'!
 !TagBrush commentStamp!
 I am a brush for building a single DOM element (which I hold onto).
@@ -861,7 +861,7 @@ fromString: aString canvas: aCanvas
 ! !
 
 Object subclass: #Widget
-	instanceVariableNames: ''
+	slots: {}
 	package: 'Web'!
 !Widget commentStamp!
 I am a presenter building HTML. Subclasses are typically reusable components.