Re: Standalone package for WABuilder / WAHtmlCanvas ?

UPDATE:

With what I described in the previous mail the following expressions

  WAHtmlCanvas builder render: [ :html |
                html unorderedList: [
                        html listItem: 'an item' ]]

gives as result


   [ :html | html unorderedList: [ html listItem: 'an item' ] ]


I would expect a HTML string.

On 9/19/17, H. Hirzel <[email protected]> wrote:
> Thank you for the answer, Philippe.
>
> (For some reason I can post messages to the mailing list but do not
> receive answers.
> I had to check
> http://lists.squeakfoundation.org/pipermail/seaside/2017-September/032832.html
> to find it).
>
>
> This is what tried to get a Standalone HTML builder Seaside type:
> ----------------------------------------------------------------------------------------------
>
> I loaded Name: ConfigurationOfSeaside3-JohanBrichau.335 [1]
>
> There I read the message #baseline320: spec [2]
>
> It told me that I need probably only need   #baseline320common: spec.  [3]
>
>
>
> The interesting part in  is #baseline320common: spec
>
>
> 	package: 'Seaside-Canvas' with: [
> 				spec requires: #('Seaside-Core' ). ];
> 			package: 'Seaside-Component' with: [
> 				spec requires: #('Seaside-Core' ). ];
> 			package: 'Seaside-Core' with: [
> 				spec requires: #('Grease' ). ];
>
> So I went for Grease ConfigurationOfGrease-JohanBrichau.345 [4] which
> I loaded manually.
>
> (ConfigurationOfGrease project version: #stable) load
>
>
> Then I manually loaded
> - Seaside-Core and
> - Seaside-Canvas
>
> from
>
> MCHttpRepository
> 	location: 'http://smalltalkhub.com/mc/Seaside/Seaside32/main'
> 	user: ''
> 	password: ''
>
>
> A test showed that this is not sufficient.
>
> Print-it of
>     WAHtmlCanvas builder render: [ :html |
> 		html unorderedList: [
> 			html listItem: 'an item' ]]
>
>
> was
>
>     '[closure] in UndefinedObject&gt;&gt;DoIt'
>
>
> I wonder what I am missing here or what I need in addition.
>
> Regards
> Hannes
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> -----------------------------------------------------------------------------------------------------------------
>
> [1]
>
> Name: ConfigurationOfSeaside3-JohanBrichau.335
> Author: JohanBrichau
> Time: 14 July 2017, 10:34:35.516326 am
> UUID: 7fdfd376-538a-408a-9aab-5573418cd3a8
> Ancestors: ConfigurationOfSeaside3-JohanBrichau.334
>
> bugfix release 3.2.4
>
> -----------------------------------------
> [2] baseline320: spec
>   "This groups all baseline"
>
>   <version: '3.2.0-baseline'>
>
>   self baseline320common: spec.
>   self baseline311gemstone: spec.
>   self baseline320pharo: spec.
>   self baseline320squeak: spec.
>   self baseline312slime: spec.
>   self baseline320filesystem: spec.
>   self baseline320adaptors: spec.
>   self baseline311comet: spec.
>   self baseline311javascript: spec.
>   self baseline311jquery: spec.
>   self baseline311jqueryui: spec.
>   self baseline311rss: spec.
>   self baseline320rest: spec.
>   self baseline311scriptaculous: spec.
>   self baseline311json: spec.
>   self baseline311ob: spec.
>   self baseline320gettext: spec.
>   self baseline320welcome: spec.
>   self baseline320security: spec
>
>
> ----------------------------------------------
>
> [3]
>
> baseline320common: spec
>
> 	spec for: #'squeakCommon' do: [
> 		 spec blessing: #'baseline'.
>  		spec repository: 'http://smalltalkhub.com/mc/Seaside/Seaside32/main'.
> 		spec project: 'Grease' with: [
> 			spec
> 				versionString: #bleedingEdge;
> 				className: 'ConfigurationOfGrease';
> 				loads: #( 'Grease-Core');
> 				repository:
> 'http://smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main' ].
> 			
> 		spec project: 'Parasol' with: [
> 			spec
> 				className: 'ConfigurationOfParasol';
> 				versionString: #development;
> 				repository: 'http://ss3.gemtalksystems.com/ss/Parasol'].
> 			
> 		spec
> 			project: 'Grease Core Tests'
> 			copyFrom: 'Grease' with: [
> 				spec loads: #('Core Tests') ].
> 			
> 		spec
> 			package: 'Seaside-Canvas' with: [
> 				spec requires: #('Seaside-Core' ). ];
> 			package: 'Seaside-Component' with: [
> 				spec requires: #('Seaside-Core' ). ];
> 			package: 'Seaside-Core' with: [
> 				spec requires: #('Grease' ). ];
> 			package: 'Seaside-Development' with: [
> 				spec requires: #('Seaside-Tools-Web' 'Seaside-Flow'). ];
> 			package: 'Seaside-Email' with: [
> 				spec requires: #('Seaside-Core' ). ];
> 			package: 'Seaside-Environment' with: [
> 				spec requires: #('Seaside-Core' 'Seaside-Canvas' 'Seaside-Session'
> 'Seaside-Component' 'Seaside-RenderLoop' 'Seaside-Tools-Core'
> 'Seaside-Widgets' ). ];
> 			package: 'Seaside-Examples' with: [
> 				spec requires: #('Seaside-Component' 'Seaside-Canvas'
> 'Seaside-Tools-Core' 'Seaside-Development' 'JQuery-Core'). ];
> 			package: 'Seaside-Flow' with: [
> 				spec requires: #('Seaside-Core' 'Seaside-Component'
> 'Seaside-RenderLoop' 'Seaside-Tools-Core' ). ];
> 			package: 'Seaside-InternetExplorer' with: [
> 				spec requires: #('Seaside-Core' ). ];
> 			package: 'Seaside-RenderLoop' with: [
> 				spec requires: #('Seaside-Component' 'Seaside-Session' ). ];
> 			package: 'Seaside-Session' with: [
> 				spec requires: #('Seaside-Core' 'Seaside-Canvas' ). ];
> 			package: 'Seaside-Tools-Core' with: [
> 				spec requires: #('Seaside-Core' 'Seaside-Component'
> 'Seaside-RenderLoop' 'Seaside-Session' ). ];
> 			package: 'Seaside-Tools-Web' with: [
> 				spec requires: #('Seaside-Tools-Core' 'Seaside-RenderLoop'
> 'Seaside-Widgets' ). ];
> 			package: 'Seaside-Widgets' with: [
> 				spec requires: #('Seaside-Component' 'Seaside-Canvas' ). ];
> 			package: 'Seaside-Tests-Canvas' with: [
> 				spec requires: #('Seaside-Tests-Core' 'Seaside-Canvas' ). ];
> 			package: 'Seaside-Tests-Component' with: [
> 				spec requires: #('Seaside-Component' 'Seaside-Tests-Core' ). ];
> 			package: 'Seaside-Tests-Core' with: [
> 				spec requires: #('Seaside-Core' 'Grease Core Tests' ). ];
> 			package: 'Seaside-Tests-Development' with: [
> 				spec requires: #('Seaside-Development' 'Seaside-Tests-Tools-Web'
> 'Seaside-Tests-Environment' ). ];
> 			package: 'Seaside-Tests-Email' with: [
> 				spec requires: #('Seaside-Email' 'Seaside-Tests-Core' ). ];
> 			package: 'Seaside-Tests-Environment' with: [
> 				spec requires: #('Seaside-Environment' 'Seaside-Tests-Component'
> 'Seaside-Tests-RenderLoop' 'Seaside-Tests-Session'
> 'Seaside-Tests-Canvas' ). ];
> 			package: 'Seaside-Tests-Examples' with: [
> 				spec requires: #('Seaside-Examples' 'Seaside-Tests-Environment' ). ];
> 			package: 'Seaside-Tests-Flow' with: [
> 				spec requires: #('Seaside-Flow' 'Seaside-Tests-Functional' ). ];
> 			package: 'Seaside-Tests-Functional' with: [
> 				spec requires: #('Seaside-Environment' 'Seaside-Tests-Core'
> 'Seaside-Widgets' ). ];
> 			package: 'Seaside-Tests-InternetExplorer' with: [
> 				spec requires: #('Seaside-InternetExplorer' 'Seaside-Tests-Core' ). ];
> 			package: 'Seaside-Tests-RenderLoop' with: [
> 				spec requires: #('Seaside-RenderLoop' 'Seaside-Tests-Session' ). ];
> 			package: 'Seaside-Tests-Session' with: [
> 				spec requires: #('Seaside-Tests-Core' 'Seaside-Session'
> 'Seaside-Tests-Canvas'). ];
> 			package: 'Seaside-Tests-Tools-Web' with: [
> 				spec requires: #('Seaside-Tools-Web' 'Seaside-Tests-Environment' ). ];
> 			package: 'Seaside-Tests-UTF8' with: [
> 				spec requires: #('Seaside-Tests-Core' ) ];
> 			package: 'Seaside-Tests-Webdriver' with: [
> 				spec requires: #('Seaside-Tests-Core' 'Parasol') ].
> 		spec
> 			group: 'default' with: #('Core' 'JSON' 'Email' 'Javascript'
> 'JQuery' 'JQueryUI');
> 			group: 'OneClick' with: #('Tests' 'Development');
> 			group: 'CI' with: #('Tests' 'Development Tests');
> 			group: 'Core' with: #('Seaside-Core' 'Seaside-Canvas'
> 'Seaside-Session' 'Seaside-Component' 'Seaside-RenderLoop'
> 'Seaside-Tools-Core' 'Seaside-Flow' 'Seaside-Environment'
> 'Seaside-Widgets' );
> 			group: 'Tests' with: #('Core' 'Seaside-Tests-Core'
> 'Seaside-Tests-Canvas' 'Seaside-Tests-Session'
> 'Seaside-Tests-Component' 'Seaside-Tests-RenderLoop'
> 'Seaside-Tests-Environment' 'Seaside-Tests-Flow' 'Seaside-Tests-UTF8'
> 'Seaside-Tests-InternetExplorer' 'Seaside-Tests-Email'
> 'Seaside-Tests-Examples' 'RSS Tests' 'Welcome Tests' 'Comet Tests'
> 'REST Tests' 'Swagger Tests');
> 			group: 'Development' with: #('Core' 'Seaside-Development' );
> 			group: 'Development Tests' with: #('Development' 'Core'
> 'Seaside-Tests-Development');
> 			group: 'Email' with: #('Seaside-Email');
> 			group: 'Examples' with: #('Core' 'Seaside-Examples' );
> 			group: 'Base' with: #('Core')  ].
>
> ----------------------------------------
> [4]
> Name: ConfigurationOfGrease-JohanBrichau.345
> Author: JohanBrichau
> Time: 19 September 2017, 10:12:38.403028 am
> UUID: 6daecd28-e815-0d00-aabb-64700eaf75ef
> Ancestors: ConfigurationOfGrease-JohanBrichau.344
>
> Symbolic names should be symbols
>
> ------------------------------------------------------------------------------------------------------------------------
>
>
>
>
>
> On 9/14/17, H. Hirzel <[email protected]> wrote:
>> Hello
>>
>> Is there a ConfigurationOf ... file which loads what is needed to run
>> WABuilder with WAHtmlCanvas  [1] stand-alone (no need other Seaside
>> package loaded)  to generate HTML Seaside style?
>>
>> If not which packages of the Seaside distribution would I need to load
>> manually?
>>
>> Recently there was a request on the Pharo list for this.
>>
>> Thank you in advance.
>>
>> Hannes
>>
>>
>> ------------------------------------------------
>> [1]
>>
>>  WAObject subclass: #WABuilder
>> 	instanceVariableNames: 'fullDocument rootBlock rootClass
>> documentClass scriptGeneratorClass rendererClass codec actionUrl
>> resourceUrl'
>> 	classVariableNames: ''
>> 	poolDictionaries: ''
>> 	category: 'Seaside-Core-Rendering'
>>
>>
>>
>> This is a convenience class which provides a result of a rendering
>> operation as a string. It is expected to be used like this:
>>
>>  WAHtmlCanvas builder render: [ :html |
>> 	html anchor
>> 		url: 'htttp://www.seaside.st';
>> 		with: 'Seaside Homepage' ]
>>
>>
>> ..................
>>
>> WABuilderCanvasTest has more examples.
>>
>>
>> testBody
>> 	| actual |
>> 	actual := WAHtmlCanvas builder render: [ :html |
>> 		html unorderedList: [
>> 			html listItem: 'an item' ] ].
>> 	self assert: actual = '<ul><li>an item</li></ul>'
>>
>>
>> testFullDocument
>> 	| actual |
>> 	actual := WAHtmlCanvas builder fullDocument: true; render: [ :html |
>> 		html unorderedList: [
>> 			html listItem: 'an item' ] ].
>> 	self assert: actual = '<html><head><title></title></head><body
>> onload="onLoad()"><ul><li>an item</li></ul><script
>> type="text/javascript">function onLoad(){};</script></body></html>'
>>
>>
>> testFullDocumentWithBlock
>> 	| actual |
>> 	actual := WAHtmlCanvas builder fullDocument: true;
>> 		rootBlock: [ :root |
>> 			root title: 'title'.
>> 			root stylesheet add: 'body{font-size:12px;}'.
>> 			root javascript add: 'alert("loaded")' ];
>> 		render: [ :html |
>> 			html unorderedList: [
>> 				html listItem: 'an item' ] ].
>> 	self assert: actual =  '<html><head><title>title</title><style
>> type="text/css">body{font-size:12px;}</style><script
>> type="text/javascript">alert("loaded")</script></head><body
>> onload="onLoad()"><ul><li>an item</li></ul><script
>> type="text/javascript">function onLoad(){};</script></body></html>'
>>
>

_______________________________________________
seaside mailing list
[email protected]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside