Photo gallery?
by Damien Cassou
Hi,
is there any photo gallery available for Pier? I mean a widget where I
could upload pictures and they are rendered in a nice way. I started
one 4 years ago but I abandoned it.
Bye
--
Damien Cassou
http://damiencassou.seasidehosting.st
5 years, 10 months
Build #514
by Davorin Rusevljan
I have downloaded one click build #514 from jenkins, unziped it.
When I click on Blog on top of the page following exception is raised
in the image:
VM: Win32 - IX86 - 5.1 - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.51]
Image: Pharo1.2.1 [Latest update: #12345]
SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\test\pier20-build-514\Pier.app\Contents\Resources
Trusted Dir C:\test\pier20-build-514\Pier.app\Contents\Resources\RUSEVLJD
Untrusted Dir C:\Documents and Settings\rusevljd\My Documents\My Squeak
WAHtmlResponseGenerator(Object)>>doesNotUnderstand: #statusForbidden
Receiver: a WAHtmlResponseGenerator
Arguments and temporary variables:
aMessage: statusForbidden
exception: MessageNotUnderstood: WAHtmlResponseGenerator>>statusForbidden
resumeValue: nil
Receiver's instance variables:
requestContext: a WARequestContext url: '/pier/about'
WAApplication>>handleFiltered:
Receiver: a WAApplication
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
filter: a WAValueHolder contents: a WAExceptionFilter
parent: a WADispatcher
configuration: a WAUserConfiguration
cache: a WACache
WAExceptionFilter(WARequestFilter)>>handleFiltered:
Receiver: a WAExceptionFilter
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
next: a WAValueHolder contents: a WAApplication
configuration: a WAUserConfiguration
[super handleFiltered: aRequestContext] in WAExceptionFilter>>handleFiltered:
Receiver: a WAExceptionFilter
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
next: a WAValueHolder contents: a WAApplication
configuration: a WAUserConfiguration
BlockClosure>>on:do:
Receiver: [super handleFiltered: aRequestContext]
Arguments and temporary variables:
exception: a WAWalkbackErrorHandler
handlerAction: [:exception | [self handleException: exception]
on: Error
do...etc...
handlerActive: false
Receiver's instance variables:
outerContext: WAExceptionFilter>>handleFiltered:
startpc: 32
numArgs: 0
WAWalkbackErrorHandler(WAExceptionHandler)>>handleExceptionsDuring:
Receiver: a WAWalkbackErrorHandler
Arguments and temporary variables:
aBlock: [super handleFiltered: aRequestContext]
Receiver's instance variables:
requestContext: a WARequestContext url: '/pier/about'
WAWalkbackErrorHandler class(WAExceptionHandler
class)>>handleExceptionsDuring:context:
Receiver: WAWalkbackErrorHandler
Arguments and temporary variables:
aBlock: [super handleFiltered: aRequestContext]
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
superclass: WADebugErrorHandler
methodDict: a
MethodDictionary(#open:->(WAWalkbackErrorHandler>>#open: "a
Compi...etc...
format: 132
instanceVariables: nil
organization: ('actions' open:)
subclasses: nil
name: #WAWalkbackErrorHandler
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Seaside-Development-Core'
traitComposition: {}
localSelectors: nil
WAExceptionFilter>>handleFiltered:
Receiver: a WAExceptionFilter
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
next: a WAValueHolder contents: a WAApplication
configuration: a WAUserConfiguration
[self filter handleFiltered: aRequestContext] in
WAApplication(WARequestHandler)>>handle:
Receiver: a WAApplication
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
filter: a WAValueHolder contents: a WAExceptionFilter
parent: a WADispatcher
configuration: a WAUserConfiguration
cache: a WACache
BlockClosure>>on:do:
Receiver: [self filter handleFiltered: aRequestContext]
Arguments and temporary variables:
exception: WACurrentRequestContext
handlerAction: [:notification | notification resume: anObject]
handlerActive: true
Receiver's instance variables:
outerContext: WAApplication(WARequestHandler)>>handle:
startpc: 32
numArgs: 0
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
Receiver: WACurrentRequestContext
Arguments and temporary variables:
anObject: a WARequestContext url: '/pier/about'
aBlock: [self filter handleFiltered: aRequestContext]
Receiver's instance variables:
superclass: WADynamicVariable
methodDict: a MethodDictionary()
format: 140
instanceVariables: nil
organization: ('as yet unclassified')
subclasses: nil
name: #WACurrentRequestContext
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Seaside-Core-RequestHandling'
traitComposition: {}
localSelectors: nil
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
Receiver: a WARequestContext url: '/pier/about'
Arguments and temporary variables:
aBlock: [self filter handleFiltered: aRequestContext]
Receiver's instance variables:
handlers: an OrderedCollection(a WAApplication a WADispatcher)
request: a WARequest method: GET uri: /pier/about version: HTTP/1.1
response: a WABufferedResponse status: 200 message: 'OK'
codec: a GRPharoUtf8Codec name: 'utf-8'
consumer: a WAPathConsumer
properties: nil
BlockClosure>>ensure:
Receiver: [WACurrentRequestContext use: self during: aBlock]
Arguments and temporary variables:
aBlock: [handlers removeFirst]
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: WARequestContext>>push:while:
startpc: 42
numArgs: 0
WARequestContext>>push:while:
Receiver: a WARequestContext url: '/pier/about'
Arguments and temporary variables:
aRequestHandler: a WAApplication
aBlock: [self filter handleFiltered: aRequestContext]
Receiver's instance variables:
handlers: an OrderedCollection(a WAApplication a WADispatcher)
request: a WARequest method: GET uri: /pier/about version: HTTP/1.1
response: a WABufferedResponse status: 200 message: 'OK'
codec: a GRPharoUtf8Codec name: 'utf-8'
consumer: a WAPathConsumer
properties: nil
WAApplication(WARequestHandler)>>handle:
Receiver: a WAApplication
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
filter: a WAValueHolder contents: a WAExceptionFilter
parent: a WADispatcher
configuration: a WAUserConfiguration
cache: a WACache
WADispatcher>>handleFiltered:named:
Receiver: a WADispatcher
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
aString: 'pier'
Receiver's instance variables:
filter: a WAValueHolder contents: a WADispatcher
parent: nil
configuration: a WAUserConfiguration
defaultName: 'pier'
handlers: a Dictionary('browse'->a WAApplication 'comet'->a
WADispatcher 'confi...etc...
WADispatcher>>handleFiltered:
Receiver: a WADispatcher
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
consumer: a WAPathConsumer
Receiver's instance variables:
filter: a WAValueHolder contents: a WADispatcher
parent: nil
configuration: a WAUserConfiguration
defaultName: 'pier'
handlers: a Dictionary('browse'->a WAApplication 'comet'->a
WADispatcher 'confi...etc...
[self filter handleFiltered: aRequestContext] in
WADispatcher(WARequestHandler)>>handle:
Receiver: a WADispatcher
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
filter: a WAValueHolder contents: a WADispatcher
parent: nil
configuration: a WAUserConfiguration
defaultName: 'pier'
handlers: a Dictionary('browse'->a WAApplication 'comet'->a
WADispatcher 'confi...etc...
BlockClosure>>on:do:
Receiver: [self filter handleFiltered: aRequestContext]
Arguments and temporary variables:
exception: WACurrentRequestContext
handlerAction: [:notification | notification resume: anObject]
handlerActive: true
Receiver's instance variables:
outerContext: WADispatcher(WARequestHandler)>>handle:
startpc: 32
numArgs: 0
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
Receiver: WACurrentRequestContext
Arguments and temporary variables:
anObject: a WARequestContext url: '/pier/about'
aBlock: [self filter handleFiltered: aRequestContext]
Receiver's instance variables:
superclass: WADynamicVariable
methodDict: a MethodDictionary()
format: 140
instanceVariables: nil
organization: ('as yet unclassified')
subclasses: nil
name: #WACurrentRequestContext
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Seaside-Core-RequestHandling'
traitComposition: {}
localSelectors: nil
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
Receiver: a WARequestContext url: '/pier/about'
Arguments and temporary variables:
aBlock: [self filter handleFiltered: aRequestContext]
Receiver's instance variables:
handlers: an OrderedCollection(a WAApplication a WADispatcher)
request: a WARequest method: GET uri: /pier/about version: HTTP/1.1
response: a WABufferedResponse status: 200 message: 'OK'
codec: a GRPharoUtf8Codec name: 'utf-8'
consumer: a WAPathConsumer
properties: nil
BlockClosure>>ensure:
Receiver: [WACurrentRequestContext use: self during: aBlock]
Arguments and temporary variables:
aBlock: [handlers removeFirst]
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: WARequestContext>>push:while:
startpc: 42
numArgs: 0
WARequestContext>>push:while:
Receiver: a WARequestContext url: '/pier/about'
Arguments and temporary variables:
aRequestHandler: a WADispatcher
aBlock: [self filter handleFiltered: aRequestContext]
Receiver's instance variables:
handlers: an OrderedCollection(a WAApplication a WADispatcher)
request: a WARequest method: GET uri: /pier/about version: HTTP/1.1
response: a WABufferedResponse status: 200 message: 'OK'
codec: a GRPharoUtf8Codec name: 'utf-8'
consumer: a WAPathConsumer
properties: nil
WADispatcher(WARequestHandler)>>handle:
Receiver: a WADispatcher
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
filter: a WAValueHolder contents: a WADispatcher
parent: nil
configuration: a WAUserConfiguration
defaultName: 'pier'
handlers: a Dictionary('browse'->a WAApplication 'comet'->a
WADispatcher 'confi...etc...
[self requestHandler handle: aRequestContext] in
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
Receiver: a WAComancheAdaptor
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
manager: a WAServerManager
port: 8080
requestHandler: nil
codec: a GRPharoUtf8Codec name: 'utf-8'
streamUploads: false
service: seaside-8080 [running] port: 8080
BlockClosure>>on:do:
Receiver: [self requestHandler handle: aRequestContext]
Arguments and temporary variables:
exception: WAResponseNotification
handlerAction: [:n | nil]
handlerActive: true
Receiver's instance variables:
outerContext: WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
startpc: 34
numArgs: 0
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
Receiver: a WAComancheAdaptor
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
manager: a WAServerManager
port: 8080
requestHandler: nil
codec: a GRPharoUtf8Codec name: 'utf-8'
streamUploads: false
service: seaside-8080 [running] port: 8080
WAComancheAdaptor(WAServerAdaptor)>>handle:
Receiver: a WAComancheAdaptor
Arguments and temporary variables:
aRequestContext: a WARequestContext url: '/pier/about'
Receiver's instance variables:
manager: a WAServerManager
port: 8080
requestHandler: nil
codec: a GRPharoUtf8Codec name: 'utf-8'
streamUploads: false
service: seaside-8080 [running] port: 8080
[self handle: context;
responseFrom: context] in WAComancheAdaptor(WAServerAdaptor)>>process:
Receiver: a WAComancheAdaptor
Arguments and temporary variables:
context: a WARequestContext url: '/pier/about'
Receiver's instance variables:
manager: a WAServerManager
port: 8080
requestHandler: nil
codec: a GRPharoUtf8Codec name: 'utf-8'
streamUploads: false
service: seaside-8080 [running] port: 8080
BlockClosure>>ensure:
Receiver: [self handle: context;
responseFrom: context]
Arguments and temporary variables:
aBlock: [context destroy]
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: WAComancheAdaptor(WAServerAdaptor)>>process:
startpc: 42
numArgs: 0
WAComancheAdaptor(WAServerAdaptor)>>process:
Receiver: a WAComancheAdaptor
Arguments and temporary variables:
aNativeRequest: HttpRequest (URL=/pier/about; protocol=HTTP/1.1;
header=a Dicti...etc...
context: a WARequestContext url: '/pier/about'
Receiver's instance variables:
manager: a WAServerManager
port: 8080
requestHandler: nil
codec: a GRPharoUtf8Codec name: 'utf-8'
streamUploads: false
service: seaside-8080 [running] port: 8080
WAComancheAdaptor>>processHttpRequest:
Receiver: a WAComancheAdaptor
Arguments and temporary variables:
aRequest: HttpRequest (URL=/pier/about; protocol=HTTP/1.1; header=a
Dictionary(...etc...
Receiver's instance variables:
manager: a WAServerManager
port: 8080
requestHandler: nil
codec: a GRPharoUtf8Codec name: 'utf-8'
streamUploads: false
service: seaside-8080 [running] port: 8080
HttpService>>processHttpRequest:
Receiver: seaside-8080 [running] port: 8080
Arguments and temporary variables:
anHttpRequest: HttpRequest (URL=/pier/about; protocol=HTTP/1.1;
header=a Dictio...etc...
Receiver's instance variables:
name: 'seaside-8080'
process: a Process in [self schedule.
beingWaitedOn
ifTrue: [delaySemaphore ...etc...
stopSignal: nil
priority: nil
portNumber: 8080
address: nil
plug: a WAComancheAdaptor
mode: #deployment
[self target processHttpRequest: request] in HttpAdaptor>>dispatchRequest:
Receiver: a HttpAdaptor
Arguments and temporary variables:
request: HttpRequest (URL=/pier/about; protocol=HTTP/1.1; header=a
Dictionary('...etc...
Receiver's instance variables:
stream: SocketStream[inbuf:4kb/outbuf:4kb]
httpService: seaside-8080 [running] port: 8080
BlockClosure>>on:do:
Receiver: [self target processHttpRequest: request]
Arguments and temporary variables:
exception: Error
handlerAction: [:ex | self errorResponseStatus: #serverError
description: ex de...etc...
handlerActive: true
Receiver's instance variables:
outerContext: HttpAdaptor>>dispatchRequest:
startpc: 48
numArgs: 0
HttpService>>handleDispatchErrorsIn:
Receiver: seaside-8080 [running] port: 8080
Arguments and temporary variables:
aBlock: [self target processHttpRequest: request]
Receiver's instance variables:
name: 'seaside-8080'
process: a Process in [self schedule.
beingWaitedOn
ifTrue: [delaySemaphore ...etc...
stopSignal: nil
priority: nil
portNumber: 8080
address: nil
plug: a WAComancheAdaptor
mode: #deployment
HttpAdaptor>>dispatchRequest:
Receiver: a HttpAdaptor
Arguments and temporary variables:
request: HttpRequest (URL=/pier/about; protocol=HTTP/1.1; header=a
Dictionary('...etc...
response: nil
Receiver's instance variables:
stream: SocketStream[inbuf:4kb/outbuf:4kb]
httpService: seaside-8080 [running] port: 8080
[[[request := self readRequest]
on: Error
do: [:ex | continue := false].
continue
ifTrue: [response := self dispatchRequest: request.
self
addConnectionHeaders: response
request: request
count: count.
(self writeResponse: response for: request)
ifFalse: [^ self].
count := count + 1.
continue := response isPersistent
and: [count < limit]].
continue] whileTrue.
nil] in HttpAdaptor>>beginConversation
Receiver: a HttpAdaptor
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
stream: SocketStream[inbuf:4kb/outbuf:4kb]
httpService: seaside-8080 [running] port: 8080
BlockClosure>>ensure:
Receiver: [[[request := self readRequest]
on: Error
do: [:ex | continue := false].
continue
i...etc...
Arguments and temporary variables:
aBlock: [self destroy]
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: HttpAdaptor>>beginConversation
startpc: 73
numArgs: 0
--- The full stack ---
WAHtmlResponseGenerator(Object)>>doesNotUnderstand: #statusForbidden
WAApplication>>handleFiltered:
WAExceptionFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in WAExceptionFilter>>handleFiltered:
BlockClosure>>on:do:
WAWalkbackErrorHandler(WAExceptionHandler)>>handleExceptionsDuring:
WAWalkbackErrorHandler class(WAExceptionHandler
class)>>handleExceptionsDuring:context:
WAExceptionFilter>>handleFiltered:
[self filter handleFiltered: aRequestContext] in
WAApplication(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
BlockClosure>>ensure:
WARequestContext>>push:while:
WAApplication(WARequestHandler)>>handle:
WADispatcher>>handleFiltered:named:
WADispatcher>>handleFiltered:
[self filter handleFiltered: aRequestContext] in
WADispatcher(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
BlockClosure>>ensure:
WARequestContext>>push:while:
WADispatcher(WARequestHandler)>>handle:
[self requestHandler handle: aRequestContext] in
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
BlockClosure>>on:do:
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
WAComancheAdaptor(WAServerAdaptor)>>handle:
[self handle: context;
responseFrom: context] in WAComancheAdaptor(WAServerAdaptor)>>process:
BlockClosure>>ensure:
WAComancheAdaptor(WAServerAdaptor)>>process:
WAComancheAdaptor>>processHttpRequest:
HttpService>>processHttpRequest:
[self target processHttpRequest: request] in HttpAdaptor>>dispatchRequest:
BlockClosure>>on:do:
HttpService>>handleDispatchErrorsIn:
HttpAdaptor>>dispatchRequest:
[[[request := self readRequest]
on: Error
do: [:ex | continue := false].
continue
ifTrue: [response := self dispatchRequest: request.
self
addConnectionHeaders: response
request: request
count: count.
(self writeResponse: response for: request)
ifFalse: [^ self].
count := count + 1.
continue := response isPersistent
and: [count < limit]].
continue] whileTrue.
nil] in HttpAdaptor>>beginConversation
BlockClosure>>ensure:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
HttpAdaptor>>beginConversation
HttpAdaptor class>>readAndWriteTo:service:
HttpAdaptor class>>readAndWriteToSocket:service:
HttpService>>serve:
[self serve: aSocket] in HttpService(TcpService)>>value:
[self value.
Processor terminateActive] in BlockClosure>>newProcess
12 years, 7 months
Re: More Import woves
by Davorin Rusevljan
Thanks for tip regarding sixx. Anyway, what bothers me is embeded inst var
of PRLink that existed in both 1.1 and 1.2. But 1.2 expects it to be true or
false, while my 1.1 PRLinks have arrays in them that contain some data. Now
I could overwrite those arrays with true or false, but what about
information that those arrays contained should I store it somewhere else?
So the question is more what was meaning of embeded inst var before, what is
now and how should they be logically migrated?
Thanks,
Davorin Rusevljan
On Apr 26, 2011 10:54 PM, "Lukas Renggli" <renggli(a)gmail.com> wrote:
> Do you have some advice what to do with embeded inst vars of PRLink(s),
1.2
> expects them to be ...
You have to figure out how to move the contents into the right
variables using #instVarAt: and #instVarAt:put:. However, in your case
it is probably easier if you use SIXX -- or try to adapt the
import/export code to use SmartRefStream -- that both can handle
instance variable changes. Then you only need to fix the "new"
variables.
Lukas
--
Lukas Renggli
www.lukas-renggli.ch
_______________________________________________
Magritte, Pier a...
12 years, 7 months
More Import woves
by Davorin Rusevljan
Well,
I am afraid I have some more import related problems. Now I am
attempting to import conents of 1.1 based pier to 1.2
There were few problesm with missing packages, that I have resolved,
and now import completes. Problem is that after import any atempt to
access pier from web browser results with walkback as below:
Davorin Rusevljan
22 April 2011 11:14:08 pm
VM: Win32 - IX86 - 5.1 - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.51]
Image: Pharo1.2.1 [Latest update: #12345]
SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\temp\pier2\Pier.app\Contents\Resources
Trusted Dir C:\temp\pier2\Pier.app\Contents\Resources\VsiTe
Untrusted Dir C:\Documents and Settings\VsiTe\My Documents\My Squeak
UndefinedObject(Object)>>doesNotUnderstand: #includes:
Receiver: nil
Arguments and temporary variables:
aMessage: includes: nil
exception: MessageNotUnderstood: receiver of "includes:" is nil
resumeValue: nil
Receiver's instance variables:
nil
PUGroup>>includes:
Receiver: a PUGroup[1038352384] name: 'admin'
Arguments and temporary variables:
anUser: nil
Receiver's instance variables:
properties: nil
name: 'admin'
comment: a Set(a PUUser[209190912] name: 'kolumbina' a
PUUser[30146560] name: '...etc...
users: nil
PUSecurity>>hasPermission:for:
Receiver: a PUSecurity[382730240]
Arguments and temporary variables:
aPermission: View
aUser: nil
Receiver's instance variables:
properties: nil
decorated: a PRPage[7077888] name: 'pier'
owner: a PUUser[30146560] name: 'admin'
ownerPermissions: a Set(Add Component Add Blog View Add File Remove
Change Owne...etc...
group: a PUGroup[1038352384] name: 'admin'
groupPermissions: a Set(Add Component Add Blog View Add File Remove
Change Owne...etc...
otherPermissions: a Set(View)
[:permission | self hasPermission: permission for: aContext user] in
PUSecurity>>isAllowedCommand:in:
Receiver: a PUSecurity[382730240]
Arguments and temporary variables:
aContext: View
permission: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
properties: nil
decorated: a PRPage[7077888] name: 'pier'
owner: a PUUser[30146560] name: 'admin'
ownerPermissions: a Set(Add Component Add Blog View Add File Remove
Change Owne...etc...
group: a PUGroup[1038352384] name: 'admin'
groupPermissions: a Set(Add Component Add Blog View Add File Remove
Change Owne...etc...
otherPermissions: a Set(View)
[:each |
(aBlock value: each)
ifTrue: [^ true].
nil] in Array(Collection)>>anySatisfy:
Receiver: an Array(View)
Arguments and temporary variables:
aBlock: View
each: [:permission | self hasPermission: permission for: aContext user]
Receiver's instance variables:
an Array(View)
Array(SequenceableCollection)>>do:
Receiver: an Array(View)
Arguments and temporary variables:
aBlock: [:each |
(aBlock value: each)
ifTrue: [^ true].
nil]
index: 1
indexLimiT: 1
Receiver's instance variables:
an Array(View)
Array(Collection)>>anySatisfy:
Receiver: an Array(View)
Arguments and temporary variables:
aBlock: [:permission | self hasPermission: permission for: aContext user]
Receiver's instance variables:
an Array(View)
PUSecurity>>isAllowedCommand:in:
Receiver: a PUSecurity[382730240]
Arguments and temporary variables:
aCommandClass: PRViewCommand
aContext: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
properties: nil
decorated: a PRPage[7077888] name: 'pier'
owner: a PUUser[30146560] name: 'admin'
ownerPermissions: a Set(Add Component Add Blog View Add File Remove
Change Owne...etc...
group: a PUGroup[1038352384] name: 'admin'
groupPermissions: a Set(Add Component Add Blog View Add File Remove
Change Owne...etc...
otherPermissions: a Set(View)
[:each | each isAllowedCommand: aCommandClass in: aContext] in
PRPage(PRStructure)>>isAllowedCommand:in:
Receiver: a PRPage[7077888] name: 'pier'
Arguments and temporary variables:
aCommandClass: a PUSecurity[382730240]
aContext: PRViewCommand
each: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
properties: a Dictionary(#documents->a Dictionary()
#hideFromMenus->false #loca...etc...
decorations: an Array(a PUSecurity[382730240] a PRChildren[757071872])
parent: nil
name: 'pier'
title: 'Cloud208.com'
tags: #()
document: a PRDocument[657195008]
[:each | (aBlock value: each)
ifFalse: [^ false]] in Array(Collection)>>allSatisfy:
Receiver: an Array(a PUSecurity[382730240] a PRChildren[757071872])
Arguments and temporary variables:
aBlock: a PUSecurity[382730240]
each: [:each | each isAllowedCommand: aCommandClass in: aContext]
Receiver's instance variables:
an Array(a PUSecurity[382730240] a PRChildren[757071872])
Array(SequenceableCollection)>>do:
Receiver: an Array(a PUSecurity[382730240] a PRChildren[757071872])
Arguments and temporary variables:
aBlock: [:each | (aBlock value: each)
ifFalse: [^ false]]
index: 1
indexLimiT: 2
Receiver's instance variables:
an Array(a PUSecurity[382730240] a PRChildren[757071872])
Array(Collection)>>allSatisfy:
Receiver: an Array(a PUSecurity[382730240] a PRChildren[757071872])
Arguments and temporary variables:
aBlock: [:each | each isAllowedCommand: aCommandClass in: aContext]
Receiver's instance variables:
an Array(a PUSecurity[382730240] a PRChildren[757071872])
PRPage(PRStructure)>>isAllowedCommand:in:
Receiver: a PRPage[7077888] name: 'pier'
Arguments and temporary variables:
aCommandClass: PRViewCommand
aContext: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
properties: a Dictionary(#documents->a Dictionary()
#hideFromMenus->false #loca...etc...
decorations: an Array(a PUSecurity[382730240] a PRChildren[757071872])
parent: nil
name: 'pier'
title: 'Cloud208.com'
tags: #()
document: a PRDocument[657195008]
PRPage(PRStructure)>>isValidCommand:in:
Receiver: a PRPage[7077888] name: 'pier'
Arguments and temporary variables:
aCommandClass: PRViewCommand
aContext: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
properties: a Dictionary(#documents->a Dictionary()
#hideFromMenus->false #loca...etc...
decorations: an Array(a PUSecurity[382730240] a PRChildren[757071872])
parent: nil
name: 'pier'
title: 'Cloud208.com'
tags: #()
document: a PRDocument[657195008]
PRViewCommand class(PRCommand class)>>isValidIn:
Receiver: PRViewCommand
Arguments and temporary variables:
aContext: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
superclass: PRCommand
methodDict: a
MethodDictionary(#asComponent->(PRViewCommand>>#asComponent "a
Co...etc...
format: 144
instanceVariables: nil
organization: ('*pier-seaside-accessing' defaultViewComponentClass
label render...etc...
subclasses: nil
name: #PRViewCommand
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Pier-Model-Command'
traitComposition: {}
localSelectors: nil
PRContext>>isValidCommand:
Receiver: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Arguments and temporary variables:
aCommandClass: PRViewCommand
Receiver's instance variables:
properties: a Dictionary(#user->nil )
kernel: a PRKernel[532414464] name: 'pier'
structure: a PRPage[7077888] name: 'pier'
command: a PRViewCommand[435159040]
PRContext>>isValid
Receiver: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Arguments and temporary variables:
Receiver's instance variables:
properties: a Dictionary(#user->nil )
kernel: a PRKernel[532414464] name: 'pier'
structure: a PRPage[7077888] name: 'pier'
command: a PRViewCommand[435159040]
PRPierFrame>>context:
Receiver: a PRPierFrame
Arguments and temporary variables:
aContext: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
PRPierFrame>>initialRequest:
Receiver: a PRPierFrame
Arguments and temporary variables:
aRequest: a WARequest method: GET uri: / version: HTTP/1.1
structure: a PRPage[7077888] name: 'pier'
following: a PRContext[435945472] structure: 'Cloud208.com' command: 'View'
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
WAInitialRequestVisitor>>visitPresenter:
Receiver: a WAInitialRequestVisitor
Arguments and temporary variables:
aPresenter: a PRPierFrame
Receiver's instance variables:
request: a WARequest method: GET uri: / version: HTTP/1.1
WAInitialRequestVisitor(WAPainterVisitor)>>visitComponent:
Receiver: a WAInitialRequestVisitor
Arguments and temporary variables:
aComponent: a PRPierFrame
Receiver's instance variables:
request: a WARequest method: GET uri: / version: HTTP/1.1
PRPierFrame(WAComponent)>>accept:
Receiver: a PRPierFrame
Arguments and temporary variables:
aVisitor: a WAInitialRequestVisitor
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
WAInitialRequestVisitor(WAVisitor)>>visit:
Receiver: a WAInitialRequestVisitor
Arguments and temporary variables:
anObject: a PRPierFrame
Receiver's instance variables:
request: a WARequest method: GET uri: / version: HTTP/1.1
WAAllPresenterGuide(WAPresenterGuide)>>visitPainter:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aPainter: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
WAAllPresenterGuide(WAPainterVisitor)>>visitPresenter:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aPresenter: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
WAAllPresenterGuide(WAVisiblePresenterGuide)>>visitPresenter:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aPresenter: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
WAAllPresenterGuide(WAPainterVisitor)>>visitComponent:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aComponent: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
PRPierFrame(WAComponent)>>accept:
Receiver: a PRPierFrame
Arguments and temporary variables:
aVisitor: a WAAllPresenterGuide
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
WAAllPresenterGuide(WAVisiblePresenterGuide)>>visitDecoration:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aDecoration: a WAToolDecoration
Receiver's instance variables:
client: a WAInitialRequestVisitor
WAToolDecoration(WADecoration)>>accept:
Receiver: a WAToolDecoration
Arguments and temporary variables:
aVisitor: a WAAllPresenterGuide
Receiver's instance variables:
next: a WAValueHolder contents: a PRPierFrame
plugins: an OrderedCollection(a WANewSessionToolPlugin a
WAConfigureToolPlugin ...etc...
showHalos: a WAValueHolder contents: false
halos: an IdentityDictionary()
WAAllPresenterGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aComponent: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
PRPierFrame(WAComponent)>>acceptDecorated:
Receiver: a PRPierFrame
Arguments and temporary variables:
aVisitor: a WAAllPresenterGuide
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
[super acceptDecorated: aPainterVisitor] in PRPierFrame>>acceptDecorated:
Receiver: a PRPierFrame
Arguments and temporary variables:
aPainterVisitor: a WAAllPresenterGuide
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
BlockClosure>>on:do:
Receiver: [super acceptDecorated: aPainterVisitor]
Arguments and temporary variables:
exception: PRCurrentContext
handlerAction: [:notification | notification resume: anObject]
handlerActive: true
Receiver's instance variables:
outerContext: PRPierFrame>>acceptDecorated:
startpc: 27
numArgs: 0
PRCurrentContext class>>use:during:
Receiver: PRCurrentContext
Arguments and temporary variables:
anObject: a PRPierFrame
aBlock: [super acceptDecorated: aPainterVisitor]
Receiver's instance variables:
superclass: GRNotification
methodDict: a MethodDictionary()
format: 140
instanceVariables: nil
organization: ('as yet unclassified')
subclasses: nil
name: #PRCurrentContext
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #'Pier-Model-Kernel'
traitComposition: {}
localSelectors: nil
PRPierFrame>>withContextDo:
Receiver: a PRPierFrame
Arguments and temporary variables:
aBlock: [super acceptDecorated: aPainterVisitor]
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
PRPierFrame>>acceptDecorated:
Receiver: a PRPierFrame
Arguments and temporary variables:
aPainterVisitor: a WAAllPresenterGuide
Receiver's instance variables:
decoration: a WAValueHolder contents: a WAToolDecoration
context: a PRContext[398721024] structure: 'Cloud208.com' command: 'View'
children: nil
WAAllPresenterGuide(WAPresenterGuide)>>visit:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
aPainter: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
WAAllPresenterGuide(WAVisitor)>>start:
Receiver: a WAAllPresenterGuide
Arguments and temporary variables:
anObject: a PRPierFrame
Receiver's instance variables:
client: a WAInitialRequestVisitor
--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #includes:
PUGroup>>includes:
PUSecurity>>hasPermission:for:
[:permission | self hasPermission: permission for: aContext user] in
PUSecurity>>isAllowedCommand:in:
[:each |
(aBlock value: each)
ifTrue: [^ true].
nil] in Array(Collection)>>anySatisfy:
Array(SequenceableCollection)>>do:
Array(Collection)>>anySatisfy:
PUSecurity>>isAllowedCommand:in:
[:each | each isAllowedCommand: aCommandClass in: aContext] in
PRPage(PRStructure)>>isAllowedCommand:in:
[:each | (aBlock value: each)
ifFalse: [^ false]] in Array(Collection)>>allSatisfy:
Array(SequenceableCollection)>>do:
Array(Collection)>>allSatisfy:
PRPage(PRStructure)>>isAllowedCommand:in:
PRPage(PRStructure)>>isValidCommand:in:
PRViewCommand class(PRCommand class)>>isValidIn:
PRContext>>isValidCommand:
PRContext>>isValid
PRPierFrame>>context:
PRPierFrame>>initialRequest:
WAInitialRequestVisitor>>visitPresenter:
WAInitialRequestVisitor(WAPainterVisitor)>>visitComponent:
PRPierFrame(WAComponent)>>accept:
WAInitialRequestVisitor(WAVisitor)>>visit:
WAAllPresenterGuide(WAPresenterGuide)>>visitPainter:
WAAllPresenterGuide(WAPainterVisitor)>>visitPresenter:
WAAllPresenterGuide(WAVisiblePresenterGuide)>>visitPresenter:
WAAllPresenterGuide(WAPainterVisitor)>>visitComponent:
PRPierFrame(WAComponent)>>accept:
WAAllPresenterGuide(WAVisiblePresenterGuide)>>visitDecoration:
WAToolDecoration(WADecoration)>>accept:
WAAllPresenterGuide(WAPainterVisitor)>>visitDecorationsOfComponent:
PRPierFrame(WAComponent)>>acceptDecorated:
[super acceptDecorated: aPainterVisitor] in PRPierFrame>>acceptDecorated:
BlockClosure>>on:do:
PRCurrentContext class>>use:during:
PRPierFrame>>withContextDo:
PRPierFrame>>acceptDecorated:
WAAllPresenterGuide(WAPresenterGuide)>>visit:
WAAllPresenterGuide(WAVisitor)>>start:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
WARenderLoopMain>>prepareRoot:
WARenderLoopMain>>start
WASession>>start
[^ self start] in WASession>>handleFiltered:
WAMergedRequestFields>>at:ifAbsent:
WASession>>handleFiltered:
WAMutualExclusionFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in
WAMutualExclusionFilter>>handleFiltered:
BlockClosure>>ensure:
[owner := process.
aBlock
ensure: [owner := nil]] in WAMutex>>critical:
[caught := true.
self wait.
blockValue := mutuallyExcludedBlock value] in Semaphore>>critical:
BlockClosure>>ensure:
Semaphore>>critical:
WAMutex>>critical:
WAMutualExclusionFilter>>handleFiltered:
[self filter handleFiltered: aRequestContext] in
WASession(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
BlockClosure>>ensure:
WARequestContext>>push:while:
WASession(WARequestHandler)>>handle:
WAApplication(WARegistry)>>dispatch:to:
WAApplication(WARegistry)>>handle:registering:
WAApplication>>handleDefault:
WAApplication(WARegistry)>>handleFiltered:
WAApplication>>handleFiltered:
WAExceptionFilter(WARequestFilter)>>handleFiltered:
[super handleFiltered: aRequestContext] in WAExceptionFilter>>handleFiltered:
BlockClosure>>on:do:
WAWalkbackErrorHandler(WAExceptionHandler)>>handleExceptionsDuring:
WAWalkbackErrorHandler class(WAExceptionHandler
class)>>handleExceptionsDuring:context:
WAExceptionFilter>>handleFiltered:
[self filter handleFiltered: aRequestContext] in
WAApplication(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
BlockClosure>>ensure:
WARequestContext>>push:while:
WAApplication(WARequestHandler)>>handle:
WADispatcher>>handleFiltered:named:
WADispatcher>>handleDefault:
WADispatcher>>handleFiltered:
[self filter handleFiltered: aRequestContext] in
WADispatcher(WARequestHandler)>>handle:
BlockClosure>>on:do:
WACurrentRequestContext class(WADynamicVariable class)>>use:during:
[WACurrentRequestContext use: self during: aBlock] in
WARequestContext>>push:while:
BlockClosure>>ensure:
WARequestContext>>push:while:
WADispatcher(WARequestHandler)>>handle:
[self requestHandler handle: aRequestContext] in
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
BlockClosure>>on:do:
WAComancheAdaptor(WAServerAdaptor)>>handleRequest:
WAComancheAdaptor(WAServerAdaptor)>>handle:
[self handle: context;
responseFrom: context] in WAComancheAdaptor(WAServerAdaptor)>>process:
BlockClosure>>ensure:
WAComancheAdaptor(WAServerAdaptor)>>process:
WAComancheAdaptor>>processHttpRequest:
HttpService>>processHttpRequest:
[self target processHttpRequest: request] in HttpAdaptor>>dispatchRequest:
BlockClosure>>on:do:
HttpService>>handleDispatchErrorsIn:
HttpAdaptor>>dispatchRequest:
[[[request := self readRequest]
on: Error
do: [:ex | continue := false].
continue
ifTrue: [response := self dispatchRequest: request.
self
addConnectionHeaders: response
request: request
count: count.
(self writeResponse: response for: request)
ifFalse: [^ self].
count := count + 1.
continue := response isPersistent
and: [count < limit]].
continue] whileTrue.
nil] in HttpAdaptor>>beginConversation
BlockClosure>>ensure:
HttpAdaptor>>beginConversation
HttpAdaptor class>>readAndWriteTo:service:
HttpAdaptor class>>readAndWriteToSocket:service:
HttpService>>serve:
[self serve: aSocket] in HttpService(TcpService)>>value:
[self value.
Processor terminateActive] in BlockClosure>>newProcess
12 years, 7 months
Export - Import in latest Pier 2 Jenkins Build
by Davorin Rusevljan
Hello,
I have downloaded latest one click Pier2 from
jenkins.lukas-renggli.ch, but when I click on export/imporrt component
browser gets:
Internal Server Error
ConnectionTimedOut: Data receive timed out.
Interestingly there is no walkback in the image.
I must be doing something very stupid I guess :)
Davorin Rusevljan
http://www.cloud208.com/
On Thu, Mar 24, 2011 at 8:53 PM, Apostolis Xekoukoulotakis
<xekoukou(a)gmail.com> wrote:
> Hello fellows,
> I would like to ask you if there is any documentation on creating new addons
> for the pier systems, apart from the code.
> Also if there is documentation for the already existant addons, for all the
> addons.
> Is the list http://source.lukas-renggli.ch/pieraddons/ complete or are there
> more?
> If there is no documentation what are the differences in creating components
> for pier than for a general seaside web site.
> Do i have to learn magritte?
> --
>
> This message and any attachments (the "message") are confidential, intended
> solely for the addressee(s), and may contain legally privileged information.
> Any unauthorised use or dissemination is prohibited. E-mails are susceptible
> to alteration.
> I shall not be liable for the message if altered, changed or
> falsified.
>
> Sincerely yours,
>
> Apostolis Xekoukoulotakis
>
> _______________________________________________
> Magritte, Pier and Related Tools ...
> https://www.iam.unibe.ch/mailman/listinfo/smallwiki
>
12 years, 7 months
Independent Contractor to develop Site
by xekoukou
I am looking to hire an independent contractor to develop a site for a to be
non profit Organization.
Things that will be considered as a prerequisitive:
Good knowledge of Pier. :)
The ability to find and use a good Database, for example Gemstone. Open
source Databases will be prefered but
the site will rely heavily on matrix computations which should give the
result in real time. So, It is important that the database connects to a C
programm for example for the computations. I dont know yet where it will be
hosted. If it will be hosted in my own server, I think that the use of Cuda,
cublas would be prefered but I am open to suggetions.
One of the work that will have to be done is to put the Wikipedia
encyclopedia english dump into the database.
This site will be supposed to be an improvement of Wikipedia that will
have some of the properties of Knol.google.com and much more. It is intended
to be a non profit organization that will not use advertisements, so the
initial budget is very limited until the site becomes known.
I havent decided yet if i will use Pier as a more obvious option is to use
Mediawiki which looks like it will be cheaper.
I believe that many of you would find the concept very interesting but I
cant say more right now.
--
View this message in context: http://forum.world.st/Independent-Contractor-to-develop-Site-tp3457411p34...
Sent from the Magritte, Pier and Related Tools mailing list archive at Nabble.com.
12 years, 7 months
RSS filter by tags
by Norbert Hartl
Some time ago I changed PBEntriesRSSView to be able to filter entries by tags. It is useful if you are subscribed to e.g. planet smalltalk. This way only posts that are tagged properly will be included. But I forgot to drop a note about it.
Today I've been asked about it and that made me do a small changeset in case somebody wants to know. I'm not sure if this should be included in default pier hence the changeset.
Hope you like it,
Norbert
12 years, 8 months
adding style with images to pier
by Esteban Lorenzano
Hi,
I wonder how can I add a css who references an image to a page in Pier.
For example, I have this style:
.aclass {
background-image: url(background.png);
}
so... I upload the style to /system/components/css/style.css, and I change my page to use that css.
So... how can I add the image file? I tried by creating a /system/components/css/background.png file, but it does not works :(
Also... I would like to add some meta information (a couple of <link> rels), and no idea how to do it... any idea?
Thanks,
Esteban
12 years, 8 months
