Applying @morplenauta feedback, removing non-Smalltalk syntax from We…

…b module
ajlopez · Dec 2, 2012 · 0fc27e6 · 0fc27e6
1 parent fba5814
commit 0fc27e6
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 14 deletions.
diff --git a/Src/AjTalk.Tests/AssertTests/Library.st b/Src/AjTalk.Tests/AssertTests/Library.st
@@ -354,3 +354,5 @@ import: aName
 Object subclass: #Block nativeType: @AjTalk.Language.Block
 !
 
+Object subclass: #StringBuilder nativeType: @System.Text.StringBuilder
+!
diff --git a/Src/AjTalk.Tests/AssertTests/WebTests.st b/Src/AjTalk.Tests/AssertTests/WebTests.st
@@ -119,13 +119,6 @@ canvas := Web.Canvas new.
 
 Web.Canvas define: #Html tag: 'html'.
 
-"
-Smalltalk !!GetNames do: [ :name | @System.Console !!WriteLine: name ].
-Web !!GetNames do: [ :name | @System.Console !!WriteLine: name ].
-
-Web.Canvas !!GetInstanceMethods do: [:mth | @System.Console !!WriteLine: mth !!Name ].
-"
-
 canvas html: 'Example'.
 
 [canvas asString = '<html>Example</html>'] assert.

diff --git a/Src/AjTalk.Tests/modules/Web/Canvas.st b/Src/AjTalk.Tests/modules/Web/Canvas.st
@@ -10,7 +10,7 @@
 define: aSymbol tag: aTag
 	| newclass currentenv |
 	currentenv := Environment current.
-	self !!Scope setCurrent.
+	self scope setCurrent.
 
 	newclass := Brush subclass: aSymbol
 		instanceVariableNames: ''
@@ -20,15 +20,15 @@ define: aSymbol tag: aTag
 
 	newclass class compile: 'new ^self new: ' , $' , aTag , $'.
 
-	self compile: (aSymbol !!ToLower) , '
+	self compile: (aSymbol toLower) , '
 			| brush |
 			brush := ' , aSymbol , ' new.
 			brush canvas: self.
 			^brush'.			
 
-	self compile: (aSymbol !!ToLower) , ': content
+	self compile: (aSymbol toLower) , ': content
 			| brush |
-			brush := self ' , (aSymbol !!ToLower) , '.
+			brush := self ' , (aSymbol toLower) , '.
 			brush with: content.
 			^brush'.			
 
@@ -38,11 +38,11 @@ define: aSymbol tag: aTag
 !Canvas methods!
 
 initialize
-	builder := @System.Text.StringBuilder !!new
+	builder := StringBuilder new
 !
 
 render: anObject
-	builder !!Append: (anObject !!ToString)
+	builder append: (anObject toString)
 !
 
 paragraph
@@ -88,7 +88,7 @@ div: content
 !
 
 asString
-	^builder !!ToString
+	^builder toString
 ! !
 
 !Object methods!