Re: [Smallwiki] Upgrade to the environment

Not having much luck with seasidehosting, so if you would like to sneak a look try http://art.hobby-site.com/seaside/art I'll attach a changeset too best regards Keith 'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 9 June 2006 at 12:16:10 pm'! !PRPierFrame methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 12:11'! layout self flag: #todo. ^ self environment childrenDecoration at: self layoutSelector ifAbsent: [ nil ]! ! !PRPierFrame methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 07:48'! layoutSelector self flag: #pierconfig. ^ 'layout' ! ! !PRPierFrame methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 09:43'! scriptPage | stylePage | self flag: #todo. "inheritance?" stylePage := self environment childrenDecoration at: self scriptPageSelector ifAbsent: [ ^'' ]. ^ stylePage contents ! ! !PRPierFrame methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 09:42'! scriptPageSelector self flag: #pierconfig. ^ 'javascript'! ! !PRPierFrame methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 10:04'! stylePage | stylePage | self flag: #todo. "inheritance?" stylePage := self environment childrenDecoration at: self stylePageSelector ifAbsent: [ '' ]. ^ stylePage contents ! ! !PRPierFrame methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 09:35'! stylePageSelector self flag: #pierconfig. ^ 'stylesheet'! ! !PRPierFrame methodsFor: 'private' stamp: 'kph 6/9/2006 10:17'! updateRoot: aHtmlRoot super updateRoot: aHtmlRoot. self scriptPage ifNotNilDo: [:script | aHtmlRoot addScript: script]. self stylePage ifNotNilDo: [:style | aHtmlRoot addStyle: style]. aHtmlRoot docType: '<?xml version="1.0" encoding="UTF-8"?><!!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'. aHtmlRoot htmlAttributes at: 'xmlns' put: 'http://www.w3.org/1999/xhtml'. aHtmlRoot addHeadElement: ((WAHtmlElement named: 'meta') attributeAt: 'name' put: 'generator'; attributeAt: 'content' put: PRDistribution versionString; yourself)! ! !PRPierFrame methodsFor: 'rendering' stamp: 'kph 6/9/2006 08:00'! renderContentOn: html html div class: 'frame'; with: [ self context renderer start: self layout in: self on: html ]! ! !PRPierLibrary methodsFor: 'accessing' stamp: 'kph 6/9/2006 11:38'! style self flag: #pierconfig. "this will work but it is not needed" ^ '@import "http://www.lukas-renggli.ch/smalltalk/pier/style/84/style.css";'! ! !PRStructure methodsFor: '*pier-seaside-configuration' stamp: 'kph 6/9/2006 11:50'! environmentStructure | environment layout stylesheet | self flag: #pierconfig. "structure then contents" environment := (PRPage named: 'environment') addDecoration: PRHider new; addChild: (layout := (PRPage named: 'layout') addChild: ((PRComponent named: 'header') componentClass: PRHeaderWidget; yourself); addChild: ((PRComponent named: 'views') componentClass: PRViewsWidget; yourself); addChild: ((PRComponent named: 'commands') componentClass: PRCommandsWidget; yourself); addChild: ((PRComponent named: 'tree') componentClass: PRTreeWidget; yourself); addChild: ((PRComponent named: 'main') componentClass: PRContentsWidget; yourself); yourself); addChild: (stylesheet := (PRPage named: 'stylesheet') yourself); yourself. environment contents: '-*layout* -*layout/header* -*layout/views* -*layout/commands* -*layout/tree* -*layout/main* -*stylesheet* -*javascript*'. layout contents: '+header+ <table class="body"><tr><td class="boxes">+views+<br />+commands+<br />+tree+</td><td class="spacer"></td><td class="main">+main+</td></tr></table>'. stylesheet contents: ' @import "http://www.lukas-renggli.ch/smalltalk/pier/style/84/style.css";'. ^environment! ! PRPierFrame removeSelector: #style!