June 2006 - smallwiki

by Keith Hodges

(sorry wrong thread) Error: There is no free space in this set! I got this error when attempting to add a page any ideas? Keith ___________________________________________________________ The all-new Yahoo! Mail goes wherever you go - free your email address from your Internet provider. http://uk.docs.yahoo.com/nowyoucan.html

16 years, 2 months

3
7
0 / 0

users/groups UI

by Keith Hodges

a first attempt Name: Pier-Security-kph.33 Author: kph Time: 22 June 2006, 2:03:14 am UUID: 4efb7bda-2fd7-b04d-8858-41ae19a61f37 Ancestors: Pier-Security-lr.32 Added Pier Widget for User/group management ___________________________________________________________ Try the all-new Yahoo! Mail. "The New Version is radically easier to use" The Wall Street Journal http://uk.docs.yahoo.com/nowyoucan.html

16 years, 9 months

3
9
0 / 0

Re: Porting Magritte over to VisualWorks..

by Lukas Renggli

> > This is a subclass of the Squeak to VisualWorks code exporter > > (implemented by Avi) adapted to properly export all the Magritte and > > Pier packages and to get the namespaces right. Running the exporter > > makes it possible to load all the code into VisualWorks, but I never > > had the time to make it actually run in there ... so that is what > > requires the next steps ... > > > Lukas, > > Just wondering if I wanted to go down this path, where can I find this > code exporter tool -- is > it on the Squeak side or the Visual Works side? I'd like to give it a > shot even though I'm somewhat > green behind the ears! First of all you need PackageInfo-Exporters from SqueakMap. Then you need the package "Magritte-VisualWorks" from <http://mc.lukas-renggli.ch/magritte>. Evaluating "MADistribution fileOutForVisualWorks" should produce you a couple of files that can be loaded into VisualWorks, however I never actually tried to do it ;-) Cheers, Lukas -- Lukas Renggli http://www.lukas-renggli.ch

16 years, 9 months

3
7
0 / 0

Finding my way in Pier's code

by Damien Pollet

Hi, I'm trying to tweak Pier to use <div> elements instead of tables; Ieasily located the code generating the header in PRHeaderWidget, but Ican't find where the <table class="body"> is generated... is this aPRXHtmlWidget ? -- Damien Pollet type less, do more

16 years, 11 months

2
5
0 / 0

Loading latest Magritte fails, understanding MC

by Damien Pollet

MessageNotUnderstood: MACachedBuilder>>modified: When loading Magritte-Model-lr.219.mcz ... Also, coming from the CVS/SVN kind of version control systems, I'm quite troubled by MC... - Is there a specific order to load package versions ? - are there dependancies between versions ? - what is the equivalent of apt-get update && apt-get -f dist-upgrade ? Stef, I think I need a day-to-day-Squeak tutorial :) -- Damien Pollet type less, do more

16 years, 11 months

2
6
0 / 0

Stylesheets in Pier demo

by Keith Hodges

(repost) Perhaps you would be interested to take a look at the first shot of my approach to handling styles entirely within pier. As a first go, it may have some rough edges but let me know what you think of the concept. http://create.seasidehosting.st you may login as per normal to have a look around. ---- 1. I moved the layout from "/environment" to "/environment/layout" which frees up "/environment" for some contextual information, instructions and presentation of environment features, which now include a stylesheet, and color tables. (I think that a user manager should go in here also, so as to avoid cluttering up the rest of the interface. A save image (copy) action button might be a useful administrative tool which could go in here too) 2. I wrote a visitor that collects the text in a page, includes the content text of any embedded pages, and inserts a url for any embedded images. This is used beginning at "/environment/stylesheet/main", and the visitor assembles a stylesheet. Embedded text pages can be used as variables (see see "/environment/colors" ). 3. The stylesheet is collated into the htmlRoot by PRPierFrame, which currently has things like environmentSelector, layoutSelector, stylePageSelector, hard coded. The plan is to take all of this configuration and refactor it into a decorator (PRManager and sons). The PRPierDefaultEnvironmentManager decorator is applied to the root page by default, and it uses this to tell where to find its environment (because when localized it might be called something else). 4. (planned) PRManagers may be applied to any page in the wiki tree to override styles and layouts for siblings. Sibling environments should only need to modify bits of the environment since they are inherited from the parent environment. PRManagers will be able to do lots of other useful functions, such as maintaining an alias list, colour -> color, for example, or managing the "new page as sibling", "new page as child" policies. I haven't made any effort to present the stylesheet correctly, at the moment it is at the mercy of wiki syntax when displayed. (hence comments are spread across two lines to avoid double stars /*not a link*/ being interpreted as links) I have a notion of micro content (which I implemented in a thing called tiddlypom) where sub parts of a page are marked and tagged. They may even use different parsers. With this in place, the stylesheet information could be a subpart of a page (what I call a "tiddle") with its own non-wiki-syntax parser. And colors could be listed in a single page because links such as "/environment/colors//broken" would resolve to a marked "tiddle" part of the "/environment/colors" page. I am really impressed with seaside and pier too now I have had a chance to get my teeth into it. best regards Keith ___________________________________________________________ The all-new Yahoo! Mail goes wherever you go - free your email address from your Internet provider. http://uk.docs.yahoo.com/nowyoucan.html

16 years, 11 months

2
2
0 / 0

RE: http://www.logowiki.net

by Baveco, Hans

On IE 6.0 the "Run" button is hidden near the left-bottom corner of the light-blue field, but you see a hand appear (and the balloon-help) when you hoover over it with the cursor. (the invisible Save and Reset buttons are under the left-bottom corner of the logo-code view). Though hidden, the buttons work OK Hans -----Original Message----- From: smallwiki-bounces(a)iam.unibe.ch [mailto:smallwiki-bounces@iam.unibe.ch] On Behalf Of Cees De Groot Sent: woensdag 19 april 2006 11:04 To: SmallWiki, Magritte, Pier and Related Tools ... Subject: Re: http://www.logowiki.net Could be cool, but what browser does it need? It doesn't do a thing on my Firefox 1.0.7 nor on IE 6.0... On 4/19/06, Stéphane Ducasse <stephane.ducasse(a)univ-savoie.fr> wrote: > :) > read the about :) > > _______________________________________________ > SmallWiki, Magritte, Pier and Related Tools ... > https://www.iam.unibe.ch/mailman/listinfo/smallwiki > _______________________________________________ SmallWiki, Magritte, Pier and Related Tools ... https://www.iam.unibe.ch/mailman/listinfo/smallwiki

16 years, 11 months

5
4
0 / 0

Parser Bug?

by Keith Hodges

In the wiki parser I see the lines HorizontalRule : <horizontalRule> { #addHorizontalRule } | <horizontalRule> 'rule' Paragraph { self items children addFirst: (self createText: rule value) } ; items is initialized to an OrderedCollection, which I do not think responds to children. It does manage to pass the tests though. Keith ___________________________________________________________ The all-new Yahoo! Mail goes wherever you go - free your email address from your Internet provider. http://uk.docs.yahoo.com/nowyoucan.html

16 years, 11 months

3
4
0 / 0

Upgrade to the environment

by Keith Hodges

Hello all, I have had a tweak of the way that the environment works, and I am pretty pleased with the result and I hope that Lukas will consider making use of this code. If you would like to have a look then check out http://create.seasidehosting.st The environment as was has been moved to /environment/layout and children. It is itself an editable page - just the place for some power user documentation It now has sub pages for stylesheet and javascript scripts PRLibrary is still used if loaded, but it is redundant in this version. If you remove the environment page a new clean one is instanciated in its place. Ideas for the near future: It should be trivial to add a selector picker to pick a layout/stylesheet from a selection. These selectors are currently hardwired in PRStructure (see senders of #pierconfig) Inheritance is currently unchanged, all of the environment page and contents is inherited or nothing. It shouldn't be too difficult to inherit on a per environment/element basis. I think a generic "lookup in parents" function would be useful for this. enjoy best regards Keith ___________________________________________________________ The all-new Yahoo! Mail goes wherever you go - free your email address from your Internet provider. http://uk.docs.yahoo.com/nowyoucan.html

16 years, 11 months

3
8
0 / 0

Flagging hardwired configuration in Pier

by Keith Hodges

I have browsed all the methods in pier, seeking out hardwired configuration type stuff. The attached changeset (if this list allows) methods which contain hardwired things such as the default name/password, and much much more. After filing in the changeset, open the 'method finder' and search for 'senders of...' the following methods in order to find hard coded items of interest. #pierconfig #label #icon enjoy Keith 'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 9 June 2006 at 6:12:54 am'! !PRBoxWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:51'! defaultCssClass self flag: #pierconfig. ^ nil! ! !PRBoxWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:51'! defaultCssName self flag: #pierconfig. ^ nil! ! !PRBrowser methodsFor: 'morphic' stamp: 'kph 6/9/2006 05:35'! defaultBackgroundColor self flag: #pierconfig. ^ Color r: 0.151 g: 0.327 b: 0.720! ! !PRBrowser class methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:36'! defaultMetaNode | root kernel structure description | self flag: #pierconfig. root := OBMetaNode named: 'Root'. kernel := OBMetaNode named: 'Kernel'. structure := OBMetaNode named: 'Structure'. description := OBMetaNode named: 'Description'. root childAt: #children labeled: 'children' put: kernel. kernel childAt: #children labeled: 'instances' put: structure; addActor: PRInspectActor new. structure childAt: #children labeled: 'children' put: structure; childAt: #description labeled: 'description' put: description; addActor: PRContextActor new; addActor: PRInspectActor new; filterClass: OBModalFilter. description childAt: #children labeled: 'children' put: description; childAt: #description labeled: 'description' put: description; addActor: PRInspectActor new; filterClass: OBModalFilter. ^ root! ! !PRBrowser class methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:37'! defaultRootNode self flag: #pierconfig. ^ PRRootNode on: PRKernel instances! ! !PRBrowser class methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:36'! title self flag: #pierconfig. ^ 'Pier Browser'! ! !PRCommandsWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:51'! defaultCommandClasses self flag: #pierconfig. ^ (Array withAll: PRCommand withAllConcreteClasses) sort: [ :a :b | a label caseInsensitiveLessOrEqual: b label ]; yourself! ! !PRCommandsWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:50'! defaultCssClass self flag: #pierconfig. ^ 'box commands'! ! !PRContentsWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:52'! defaultCssClass self flag: #pierconfig. ^ 'contents'! ! !PRContentsWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:52'! defaultTitle self flag: #pierconfig. ^ '%c'! ! !PRDistribution class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:08'! package self flag: #pierconfig. "The SqueakMap package name." ^ 'Pier'! ! !PRDistribution class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:08'! packages self flag: #pierconfig. ^ #( ( 'Pier-Model' ) ( 'Pier-Tests' 'Smalltalk includesKey: #TestCase' ) ( 'Pier-Seaside' 'Smalltalk includesKey: #WAComponent' ) ( 'Pier-OmniBrowser' 'Smalltalk includesKey: #OBBrowser' ) )! ! !PRDistribution class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:08'! version self flag: #pierconfig. "The first item is the product name, which should only contain lowercase letters. Then the version numbers are following, that are made up of three numbers. An optimal suffix alpha, beta, pre or rc follows. External packages or extensions might want to call this method to check the version required to run." ^ #( pier 1 0 4 alpha )! ! !PRFilePersistency methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:30'! logFilename self flag: #pierconfig. ^ 'logs.obj'! ! !PRFilePersistency methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:30'! snapshotFilename self flag: #pierconfig. ^ 'snapshots.obj'! ! !PRHeaderWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:52'! defaultCommandClasses self flag: #pierconfig. ^ OrderedCollection with: PRViewCommand with: PREditCommand! ! !PRHeaderWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:52'! defaultCssClass self flag: #pierconfig. ^ 'header'! ! !PRHeaderWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:49'! defaultTitle self flag: #pierconfig. ^ '%k'! ! !PRInspectActor methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:38'! actionsForNode: aClassNode self flag: #pierconfig. ^ Array with: (OBAction label: 'inspect' buttonLabel: String new receiver: aClassNode model selector: #inspect arguments: Array new keystroke: $i icon: MenuIcons inspectIcon) with: (OBAction label: 'explore' buttonLabel: String new receiver: aClassNode model selector: #explore arguments: Array new keystroke: $I icon: MenuIcons inspectIcon)! ! !PRIsbnLink methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 05:17'! urlPrefix self flag: #pierconfig. ^ 'http://www.amazon.com/exec/obidos/ISBN='! ! !PRKernel methodsFor: '*pier-security-defaults' stamp: 'kph 6/9/2006 05:08'! adminGroup self flag: #pierconfig. ^ self propertyAt: #adminGroup ifAbsentPut: [ PUGroup named: 'admin' ]! ! !PRKernel methodsFor: '*pier-security-defaults' stamp: 'kph 6/9/2006 05:09'! adminUser self flag: #pierconfig. ^ self propertyAt: #adminUser ifAbsentPut: [ (PUUser named: 'admin') addGroup: self adminGroup; password: 'pier'; superuser: true; yourself ]! ! !PRKernel methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:10'! defaultInfo | structure | self flag: #pierconfig. structure := PRPage named: 'information'. structure childrenDecoration add: self defaultInfoIntroduction; add: self defaultInfoSyntax; add: self defaultInfoLicense. structure contents: '-*Introduction>introduction* -*Syntax>syntax* -*License>license*'. ^ structure! ! !PRKernel methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:10'! defaultInfoIntroduction self flag: #pierconfig. ^ (PRPage named: 'introduction') contents: 'The term Wiki usually means the collaborative software used to create, edit and manage hypertext pages on the web. A Wiki enables the users to author their documents using a simple markup language within their preferred web-browser. Translated from the Hawaiian language Wiki wiki means fast and that is exactly what the collaborative editing process of a WikiWiki Web is all about: Everybody should be able to create and update pages, without the need of user-name and password to login. However there are wiki vandals around that abuse the general public access and make it necessary to protect the content with security mechanism. !!Problem There are more than 150 Wiki implementations available and most of them are open source. There are even a few implementations available written in different Smalltalk dialects, so why did we create a new one? All the implementations we had a look at have major flaws in extensibility: they don''t provide a proper object oriented-design that is covered by unit tests. Moreover they all keep the content of the pages within strings, which makes it painful to render and search the wiki. These wikis haven''t been designed for extensibility!! The existing Smalltalk wikis are old and it seems that the developers don''t want to touch their running systems. Both, WikiWorks and SqueakWiki, have some of their domain code within external files, what makes the source hard to understand as it is not possible to use the editing and debugging facilities of the Smalltalk environment. !!Solution As stated, all the current wiki implementations have problems with extensibility and the design. Redoing the same mistakes is stupid, therefor we put together the following basic requirements and refinded them with the experience we made with the first version: -Object-Oriented Design: Pier provides a fully object oriented domain model. As an example, the content of the pages is parsed and stored as a tree of different entities representing text, links, tables, lists, etc. -Extensibility: Everything in Pier can be extended: page types, storage mechanism, actions, security mechanism, web-server, etc. Plug-ins can be shared within the community and loaded independently of each other into the system. -Open Source: Pier is released under the MIT license which grants unrestricted rights to copy, modify, and redistribute as long as the original copyright and license terms are retained. -Test Suites: Pier is heavily tested. There are more than 1000 unit tests included with the core of Pier. This makes it easy to change and verify the code and comes in extremely useful when porting Pier to other Smalltalk dialects or when writing extensions.'; yourself! ! !PRKernel methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:11'! defaultInfoSyntax self flag: #pierconfig. ^ (PRPage named: 'syntax') contents: '!!Paragraphs As carriage returns are preserved, simply add a newline to begin a new paragraph. !!Headers A line starting with <code>!!</code>s becomes a header line. !!Horizontal Line A line starting with <code>_</code> (underline) becomes a horizontal line. This is often used to separate topics. !!Lists Using lines starting with <code>#</code>s and <code>-</code>s, creates a list: -A block of lines, where each line starts with <code>-</code> is transformed into a bulleted list, where each line is an entry. -A block of lines, where each line starts with <code>#</code> is transformed into an ordered list, where each line is an entry. -Lists can be nested. Thus, a line starting with <code>#-</code> is an element of a bulleted list that is part of an ordered list. !!Tables To create a table, start off the lines with <code>|</code> and separate the elements with <code>|</code>s. Each new line represents a new row of the table. The contents of cells can be aligned left, centered or aligned right by using <code>|{</code>, <code>||</code> or <code>|}</code> respectively. !!Preformatted To create a preformatted section, begin each line with <code>=</code>. A preformatted section uses equally spaced text so that spacing is preserved. !!Links To create a link, put it between <code>\*</code>s. All links have the following form <code>\*reference\*</code> or <code>\*alias>reference\*</code>, where the reference is depending on the kind of link that is created. The contents of some links, e.g. links pointing to image-files, can be embedded into the current document by using <code>+</code>s: <code>\+reference\+</code>. However not all types of links support embedding and will quietly ignore it. !!!!Internal Links If a structure with the given title exists in the wiki (e.g. <code>\*Path\*</code>), a link to that item shows up when the page is saved. In case the path points to an non-existing structure, the user will be offered the possibility to create a new one when clicking on the link. The path can be any absolute or relative reference within the wiki. !!!!External Links -If the link is an URL (e.g. <code>\*http://www.lukas-renggli.ch\*</code>), a link to the external page shows up. -If the link is an e-mail address (e.g. <code>\*renggli(a)iam.unibe.ch\*</code>), a link to mail that person shows up. -If the link is an ISBN number (e.g. <code>\*isbn:3446202102\*</code>), a link to the given book shows up. -If the link is an RFC number (e.g. <code>\*rfc:2616\*</code>), a link to the given RFC page shows up. !!HTML Use any HTML anywhere you want. Some useful HTML tags are: -To make something bold, surround it by and . -To make something italic, surround it by and . -To make something underlined, surround it by and . -To make text appear in a different color (like green, red, blue , grey, yellow, or orange), use a color"> some text .'; yourself! ! !PRKernel methodsFor: 'configuration' stamp: 'kph 6/9/2006 05:12'! defaultRoot | structure | self flag: #pierconfig. structure := PRPage named: 'pier'. structure childrenDecoration add: self defaultInfo. structure contents: 'Welcome to Pier (formerly called SmallWiki 2), the next generation of a fully extensible content management system implemented in Smalltalk. To read additional information, please consult the *information page>information*.'. ^ structure! ! !PRMacroExpander class methodsFor: 'class initialization' stamp: 'kph 6/9/2006 05:32'! initialize self flag: #pierconfig. Default := self on: (Dictionary new at: $c put: [ :char :context | context command name ]; " current command " at: $r put: [ :char :context | context kernel root title ]; " current root structure " at: $t put: [ :char :context | context structure title ]; " current structure " at: $k put: [ :char :context | context kernel name ]; " current kernel name " yourself)! ! !PRMoveCommand class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:26'! accessKey self flag: #pierconfig. ^ $m! ! !PRMoveCommand class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:46'! label ^ 'Move'! ! !PRPath methodsFor: 'accessing-configuration' stamp: 'kph 6/9/2006 05:33'! separator self flag: #pierconfig. ^ $/! ! !PRPierLibrary methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:41'! style self flag: #pierconfig. ^ '@import "http://www.lukas-renggli.ch/smalltalk/pier/style/84/style.css";'! ! !PRRfcLink methodsFor: 'accessing-dynamic' stamp: 'kph 6/9/2006 05:17'! urlPrefix self flag: #pierconfig. ^ 'http://www.faqs.org/rfcs/rfc'! ! !PRRootNode methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:37'! name self flag: #pierconfig. ^ 'Root'! ! !PRSettingsComponentCommand class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:44'! accessKey self flag: #pierconfig. ^ $p! ! !PRSettingsComponentCommand class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:46'! label ^ 'Settings'! ! !PRSettingsComponentCommand class methodsFor: 'accessing-configuration' stamp: 'kph 6/9/2006 05:45'! structureClass ^ PRComponent! ! !PRStructure methodsFor: '*pier-seaside-configuration' stamp: 'kph 6/9/2006 05:14'! environmentSelector self flag: #pierconfig. ^ 'environment'! ! !PRStructure methodsFor: '*pier-seaside-configuration' stamp: 'kph 6/9/2006 05:14'! environmentStructure self flag: #pierconfig. ^ (PRPage named: 'environment') addDecoration: PRHider new; 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); contents: '+header+ <table class="body"><tr><td class="boxes">+views+ +commands+ +tree+</td><td class="spacer"></td><td class="main">+main+</td></tr></table>'; yourself! ! !PRStructure methodsFor: '*pier-seaside-configuration' stamp: 'kph 6/9/2006 05:14'! viewComponentClass "Return the default view component class of the reciever." self flag: #pierconfig. ^ PRDefaultView! ! !PRForm class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:42'! icon "PRCompatibility compileFileNamed: 'icons/form.png' into: PRForm class selector: #icon" ^ #(137 80 78 71 13 10 26 10 0 0 0 13 73 72 68 82 0 0 0 16 0 0 0 16 8 6 0 0 0 31 243 255 97 0 0 0 9 112 72 89 115 0 0 11 18 0 0 11 18 1 210 221 126 252 0 0 0 4 103 65 77 65 0 0 177 142 124 251 81 147 0 0 0 32 99 72 82 77 0 0 122 37 0 0 128 131 0 0 249 255 0 0 128 233 0 0 117 48 0 0 234 96 0 0 58 152 0 0 23 111 146 95 197 70 0 0 1 51 73 68 65 84 120 218 98 244 137 109 107 96 96 96 168 103 32 15 52 2 4 16 19 5 154 65 160 30 32 128 152 24 40 4 0 1 196 2 34 86 205 44 96 248 247 239 31 78 252 23 68 255 5 226 255 127 225 26 127 253 252 197 80 216 180 154 1 32 128 192 6 252 251 247 151 161 189 189 131 36 155 99 99 99 193 52 64 0 129 13 248 11 52 29 4 90 90 90 136 54 224 218 245 235 96 26 32 128 152 96 46 32 21 128 188 6 2 0 1 4 119 65 126 126 62 195 203 151 47 33 254 5 227 191 12 255 65 254 255 139 20 30 208 112 248 247 239 63 220 0 128 0 130 24 240 15 42 248 247 47 82 224 1 217 127 255 67 12 4 106 250 15 98 131 52 3 13 1 27 252 255 63 216 0 128 0 130 4 34 80 112 202 148 41 36 121 33 40 40 8 76 3 4 16 212 5 164 7 226 153 51 103 192 52 64 0 65 2 241 239 31 178 3 17 32 128 32 46 248 243 143 33 49 49 137 225 246 157 219 144 128 2 74 254 255 255 31 28 54 255 193 225 241 31 130 255 3 53 253 135 240 255 67 195 0 32 128 16 129 248 255 31 92 51 2 67 52 253 71 167 129 154 65 108 16 0 8 32 176 1 5 141 171 200 206 11 0 1 196 8 115 10 185 0 32 192 0 27 196 243 46 254 241 239 219 0 0 0 0 73 69 78 68 174 66 96 130) asByteArray! ! !PRPage methodsFor: 'accessing-configuration' stamp: 'kph 6/9/2006 05:14'! defaultDocument self flag: #pierconfig. "Answer the default document of the receiver." ^ PRDocument new add: (PRParagraph new add: (PRText with: 'Edit this page ...'); yourself); yourself! ! !PRPage methodsFor: 'accessing-configuration' stamp: 'kph 6/9/2006 05:13'! parserClass self flag: #pierconfig. "Answer the default document parser for the receiver." ^ PRDocumentParser! ! !PRPage methodsFor: 'accessing-configuration' stamp: 'kph 6/9/2006 05:13'! rendererClass "Answer the default document writer for the receiver." self flag: #pierconfig. ^ PRDocumentWriter! ! !PRStructureDescription class methodsFor: '*pier-seaside-defaults' stamp: 'kph 6/9/2006 05:31'! defaultComponentClasses self flag: #pierconfig. ^ Array with: PRStructureComponent! ! !PRStructureDescription class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:46'! label ^ 'Structure'! ! !PRStructuresWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:54'! defaultLabels self flag: #pierconfig. ^ #( title name )! ! !PRStructuresWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:54'! defaultMaxItems self flag: #pierconfig. ^ 0! ! !PRStructuresWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:54'! defaultShowIcons self flag: #pierconfig. ^ true! ! !PRChildrenWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:50'! defaultCssClass self flag: #pierconfig. ^ 'box children'! ! !PRNavigationWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:53'! defaultCssClass self flag: #pierconfig. ^ 'box navigation'! ! !PRPathWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:53'! defaultCssClass self flag: #pierconfig. ^ 'box path'! ! !PRReferencesWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:53'! defaultCssClass self flag: #pierconfig. ^ 'box references'! ! !PRSearchWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:53'! defaultCaseSensitive self flag: #pierconfig. ^ false! ! !PRSearchWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:53'! defaultCssClass self flag: #pierconfig. ^ 'box search'! ! !PRSearchWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:53'! defaultMaxItems self flag: #pierconfig. ^ 10! ! !PRTocWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:54'! defaultCssClass self flag: #pierconfig. ^ 'box toc'! ! !PRTreeWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:55'! defaultAutoCollapse self flag: #pierconfig. ^ true! ! !PRTreeWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:55'! defaultAutoExpand self flag: #pierconfig. ^ true! ! !PRTreeWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:55'! defaultCssClass self flag: #pierconfig. ^ 'box tree'! ! !PRViewCommand class methodsFor: 'accessing' stamp: 'kph 6/9/2006 05:26'! accessKey self flag: #pierconfig. ^ $v! ! !PRViewsWidget class methodsFor: 'accessing-default' stamp: 'kph 6/9/2006 05:55'! defaultCssClass self flag: #pierconfig. ^ 'box views'! ! !PRViewsWidget class methodsFor: 'accessing-default' stamp: 'kph 6/9/2006 05:55'! defaultViewClasses self flag: #pierconfig. ^ (Array withAll: PRViewComponent withAllConcreteClasses) sort: [ :a :b | a label caseInsensitiveLessOrEqual: b label ]; yourself! ! !PRXHtmlWidget class methodsFor: 'accessing-defaults' stamp: 'kph 6/9/2006 05:56'! defaultText self flag: #pierconfig. ^ '<h1>%k</h1><h2>%c</h2>'! ! PRMacroExpander initialize!

16 years, 11 months

2
1
0 / 0

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

smallwiki June 2006