diff --git a/Src/AjTalk.Tests/AssertTests/Library.st b/Src/AjTalk.Tests/AssertTests/Library.st index 32b68c6..ad1a80a 100644 --- 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 index 06e33d8..e48d7f0 100644 --- 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 = 'Example'] assert. diff --git a/Src/AjTalk.Tests/modules/Web/Canvas.st b/Src/AjTalk.Tests/modules/Web/Canvas.st index 8d6a962..a090c1a 100644 --- 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!