Browse Source

Export using 'slots:' API.

Herby Vojčík 5 years ago
parent
commit
640f1419dc
3 changed files with 18 additions and 18 deletions
  1. 1 1
      src/Benchfib.st
  2. 1 1
      src/Examples.st
  3. 16 16
      src/IDE.st

+ 1 - 1
src/Benchfib.st

@@ -1,6 +1,6 @@
 Smalltalk createPackage: 'Benchfib'!
 Object subclass: #Benchfib
-	instanceVariableNames: ''
+	slots: {}
 	package: 'Benchfib'!
 
 !Benchfib class methodsFor: 'not yet classified'!

+ 1 - 1
src/Examples.st

@@ -1,6 +1,6 @@
 Smalltalk createPackage: 'Examples'!
 Widget subclass: #Counter
-	instanceVariableNames: 'count header'
+	slots: {#count. #header}
 	package: 'Examples'!
 !Counter commentStamp!
 This is a trivial Widget example mimicking the classic Counter example in Seaside.

+ 16 - 16
src/IDE.st

@@ -1,7 +1,7 @@
 Smalltalk createPackage: 'IDE'!
 (Smalltalk packageAt: 'IDE' ifAbsent: [ self error: 'Package not created: IDE' ]) imports: {'codeMirrorLib' -> 'codemirror/lib/codemirror'. 'amber/core/Platform-Services'. 'codemirror/addon/hint/show-hint'. 'codemirror/mode/smalltalk/smalltalk'. 'css!!./resources/amber'. 'css!!codemirror/addon/hint/show-hint'. 'css!!codemirror/lib/codemirror'. 'css!!codemirror/theme/ambiance'. 'jquery-ui'}!
 Widget subclass: #ClassesList
-	instanceVariableNames: 'browser ul nodes'
+	slots: {#browser. #ul. #nodes}
 	package: 'IDE'!
 
 !ClassesList methodsFor: 'accessing'!
@@ -64,7 +64,7 @@ on: aBrowser
 ! !
 
 Widget subclass: #ClassesListNode
-	instanceVariableNames: 'browser theClass level nodes'
+	slots: {#browser. #theClass. #level. #nodes}
 	package: 'IDE'!
 
 !ClassesListNode methodsFor: 'accessing'!
@@ -151,7 +151,7 @@ on: aClass browser: aBrowser classes: aCollection level: anInteger
 ! !
 
 Object subclass: #DebugErrorHandler
-	instanceVariableNames: ''
+	slots: {}
 	package: 'IDE'!
 
 !DebugErrorHandler methodsFor: 'error handling'!
@@ -170,7 +170,7 @@ initialize
 ! !
 
 Widget subclass: #SourceArea
-	instanceVariableNames: 'editor div receiver onDoIt'
+	slots: {#editor. #div. #receiver. #onDoIt}
 	package: 'IDE'!
 
 !SourceArea methodsFor: 'accessing'!
@@ -340,7 +340,7 @@ setupCodeMirror
 ! !
 
 Widget subclass: #TabManager
-	instanceVariableNames: 'selectedTab tabs opened ul input'
+	slots: {#selectedTab. #tabs. #opened. #ul. #input}
 	package: 'IDE'!
 
 !TabManager methodsFor: 'accessing'!
@@ -535,7 +535,7 @@ update
 	self renderTabs
 ! !
 
-TabManager class instanceVariableNames: 'current'!
+TabManager class slots: {#current}!
 
 !TabManager class methodsFor: 'actions'!
 
@@ -559,7 +559,7 @@ new
 ! !
 
 Widget subclass: #TabWidget
-	instanceVariableNames: 'div'
+	slots: {#div}
 	package: 'IDE'!
 
 !TabWidget methodsFor: 'accessing'!
@@ -633,7 +633,7 @@ open
 ! !
 
 TabWidget subclass: #Browser
-	instanceVariableNames: 'selectedPackage selectedClass selectedProtocol selectedMethod packagesList classesList protocolsList methodsList sourceArea tabsList selectedTab saveButton classButtons methodButtons unsavedChanges'
+	slots: {#selectedPackage. #selectedClass. #selectedProtocol. #selectedMethod. #packagesList. #classesList. #protocolsList. #methodsList. #sourceArea. #tabsList. #selectedTab. #saveButton. #classButtons. #methodButtons. #unsavedChanges}
 	package: 'IDE'!
 
 !Browser methodsFor: 'accessing'!
@@ -1253,7 +1253,7 @@ openOn: aClass
 ! !
 
 TabWidget subclass: #Debugger
-	instanceVariableNames: 'error selectedContext sourceArea ul ul2 inspector saveButton unsavedChanges selectedVariable selectedVariableName inspectButton'
+	slots: {#error. #selectedContext. #sourceArea. #ul. #ul2. #inspector. #saveButton. #unsavedChanges. #selectedVariable. #selectedVariableName. #inspectButton}
 	package: 'IDE'!
 
 !Debugger methodsFor: 'accessing'!
@@ -1471,7 +1471,7 @@ updateVariablesList
 ! !
 
 TabWidget subclass: #IDEInspector
-	instanceVariableNames: 'label variables object selectedVariable variablesList valueTextarea diveButton sourceArea'
+	slots: {#label. #variables. #object. #selectedVariable. #variablesList. #valueTextarea. #diveButton. #sourceArea}
 	package: 'IDE'!
 
 !IDEInspector methodsFor: 'accessing'!
@@ -1631,7 +1631,7 @@ on: anObject
 ! !
 
 TabWidget subclass: #IDETranscript
-	instanceVariableNames: 'textarea'
+	slots: {#textarea}
 	package: 'IDE'!
 
 !IDETranscript methodsFor: 'accessing'!
@@ -1676,7 +1676,7 @@ renderButtonsOn: html
 	onClick: [ self clear ]
 ! !
 
-IDETranscript class instanceVariableNames: 'current'!
+IDETranscript class slots: {#current}!
 
 !IDETranscript class methodsFor: 'initialization'!
 
@@ -1701,7 +1701,7 @@ open
 ! !
 
 TabWidget subclass: #ProgressBar
-	instanceVariableNames: 'percent progressDiv div'
+	slots: {#percent. #progressDiv. #div}
 	package: 'IDE'!
 
 !ProgressBar methodsFor: 'accessing'!
@@ -1738,7 +1738,7 @@ updatePercent: aNumber
 ! !
 
 TabWidget subclass: #ReferencesBrowser
-	instanceVariableNames: 'implementors senders implementorsList input timer selector sendersList referencedClasses referencedClassesList matches matchesList'
+	slots: {#implementors. #senders. #implementorsList. #input. #timer. #selector. #sendersList. #referencedClasses. #referencedClassesList. #matches. #matchesList}
 	package: 'IDE'!
 
 !ReferencesBrowser methodsFor: 'accessing'!
@@ -1949,7 +1949,7 @@ search: aString
 ! !
 
 TabWidget subclass: #TestRunner
-	instanceVariableNames: 'selectedCategories packagesList selectedClasses classesList selectedMethods progressBar methodsList result statusDiv'
+	slots: {#selectedCategories. #packagesList. #selectedClasses. #classesList. #selectedMethods. #progressBar. #methodsList. #result. #statusDiv}
 	package: 'IDE'!
 
 !TestRunner methodsFor: 'accessing'!
@@ -2191,7 +2191,7 @@ updateStatusDiv
 ! !
 
 TabWidget subclass: #Workspace
-	instanceVariableNames: 'sourceArea'
+	slots: {#sourceArea}
 	package: 'IDE'!
 
 !Workspace methodsFor: 'accessing'!